[Home] [Help]
5:
6: /************************ HAND-CODED *********************************/
7:
8: FUNCTION Validate_Attributes ( p_olev_rec IN olev_rec_type) RETURN VARCHAR2;
9: --G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
10: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
11: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_OPERATION_INSTANCES_V';
15: G_EXCEPTION_HALT_VALIDATION exception;
16: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
17:
18: -- Start of comments
19: --
20: -- Procedure Name : validate_select_yn
32: okc_debug.log('100: Entered validate_select_yn', 2);
33: END IF;
34:
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: /*
39: -- check that data exists
40: If (p_olev_rec.select_yn = OKC_API.G_MISS_CHAR or
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: /*
39: -- check that data exists
40: If (p_olev_rec.select_yn = OKC_API.G_MISS_CHAR or
41: p_olev_rec.select_yn IS NULL)
42: Then
43: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
44: p_msg_name => g_required_value,
39: -- check that data exists
40: If (p_olev_rec.select_yn = OKC_API.G_MISS_CHAR or
41: p_olev_rec.select_yn IS NULL)
42: Then
43: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
44: p_msg_name => g_required_value,
45: p_token1 => g_col_name_token,
46: p_token1_value => 'Select Flag');
47: -- notify caller of an error
44: p_msg_name => g_required_value,
45: p_token1 => g_col_name_token,
46: p_token1_value => 'Select Flag');
47: -- notify caller of an error
48: x_return_status := OKC_API.G_RET_STS_ERROR;
49:
50: -- halt validation
51: raise G_EXCEPTION_HALT_VALIDATION;
52: End If;
52: End If;
53: */
54:
55: -- check allowed values
56: If (p_olev_rec.select_yn <> OKC_API.G_MISS_CHAR and
57: p_olev_rec.select_yn IS NOT NULL)
58: Then
59: If (p_olev_rec.select_yn NOT IN ('Y','N')) Then
60: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
56: If (p_olev_rec.select_yn <> OKC_API.G_MISS_CHAR and
57: p_olev_rec.select_yn IS NOT NULL)
58: Then
59: If (p_olev_rec.select_yn NOT IN ('Y','N')) Then
60: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
61: p_msg_name => g_invalid_value,
62: p_token1 => g_col_name_token,
63: p_token1_value => 'Select Flag');
64: -- notify caller of an error
61: p_msg_name => g_invalid_value,
62: p_token1 => g_col_name_token,
63: p_token1_value => 'Select Flag');
64: -- notify caller of an error
65: x_return_status := OKC_API.G_RET_STS_ERROR;
66: End If;
67: End If;
68:
69: IF (l_debug = 'Y') THEN
89: okc_debug.Reset_Indentation;
90: END IF;
91:
92: -- store SQL error message on message stack
93: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
94: p_msg_name => g_unexpected_error,
95: p_token1 => g_sqlcode_token,
96: p_token1_value => sqlcode,
97: p_token2 => g_sqlerrm_token,
96: p_token1_value => sqlcode,
97: p_token2 => g_sqlerrm_token,
98: p_token2_value => sqlerrm);
99: -- notify caller of an error as UNEXPETED error
100: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
101:
102: End validate_select_yn;
103:
104: -- Start of comments
118: okc_debug.log('500: Entered validate_active_yn', 2);
119: END IF;
120:
121: -- initialize return status
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
123:
124: /*
125: -- check that data exists
126: If (p_olev_rec.active_yn = OKC_API.G_MISS_CHAR or
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
123:
124: /*
125: -- check that data exists
126: If (p_olev_rec.active_yn = OKC_API.G_MISS_CHAR or
127: p_olev_rec.active_yn IS NULL)
128: Then
129: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
130: p_msg_name => g_required_value,
125: -- check that data exists
126: If (p_olev_rec.active_yn = OKC_API.G_MISS_CHAR or
127: p_olev_rec.active_yn IS NULL)
128: Then
129: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
130: p_msg_name => g_required_value,
131: p_token1 => g_col_name_token,
132: p_token1_value => 'Active Flag');
133: -- notify caller of an error
130: p_msg_name => g_required_value,
131: p_token1 => g_col_name_token,
132: p_token1_value => 'Active Flag');
133: -- notify caller of an error
134: x_return_status := OKC_API.G_RET_STS_ERROR;
135:
136: -- halt validation
137: raise G_EXCEPTION_HALT_VALIDATION;
138: End If;
138: End If;
139: */
140:
141: -- check allowed values
142: If (p_olev_rec.active_yn <> OKC_API.G_MISS_CHAR and
143: p_olev_rec.active_yn IS NOT NULL)
144: Then
145: If (p_olev_rec.active_yn NOT IN ('Y','N')) Then
146: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
142: If (p_olev_rec.active_yn <> OKC_API.G_MISS_CHAR and
143: p_olev_rec.active_yn IS NOT NULL)
144: Then
145: If (p_olev_rec.active_yn NOT IN ('Y','N')) Then
146: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
147: p_msg_name => g_invalid_value,
148: p_token1 => g_col_name_token,
149: p_token1_value => 'Active Flag');
150: -- notify caller of an error
147: p_msg_name => g_invalid_value,
148: p_token1 => g_col_name_token,
149: p_token1_value => 'Active Flag');
150: -- notify caller of an error
151: x_return_status := OKC_API.G_RET_STS_ERROR;
152: End If;
153: End If;
154:
155: IF (l_debug = 'Y') THEN
175: okc_debug.Reset_Indentation;
176: END IF;
177:
178: -- store SQL error message on message stack
179: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
180: p_msg_name => g_unexpected_error,
181: p_token1 => g_sqlcode_token,
182: p_token1_value => sqlcode,
183: p_token2 => g_sqlerrm_token,
182: p_token1_value => sqlcode,
183: p_token2 => g_sqlerrm_token,
184: p_token2_value => sqlerrm);
185: -- notify caller of an error as UNEXPETED error
186: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
187:
188: End validate_active_yn;
189:
190: -- Start of comments
204: okc_debug.log('900: Entered validate_process_flag', 2);
205: END IF;
206:
207: -- initialize return status
208: x_return_status := OKC_API.G_RET_STS_SUCCESS;
209:
210: -- check for allowed values
211: -- (A)vailable, (P)rocessed, (E)rror
212: If (p_olev_rec.process_flag <> OKC_API.G_MISS_CHAR and
208: x_return_status := OKC_API.G_RET_STS_SUCCESS;
209:
210: -- check for allowed values
211: -- (A)vailable, (P)rocessed, (E)rror
212: If (p_olev_rec.process_flag <> OKC_API.G_MISS_CHAR and
213: p_olev_rec.process_flag IS NOT NULL)
214: Then
215: If (p_olev_rec.process_flag NOT IN ('P','A','E')) Then
216: -- Check if the value is a valid code from lookup table
216: -- Check if the value is a valid code from lookup table
217: x_return_status := OKC_UTIL.check_lookup_code(
218: 'OKS_MASSCHANGE_STATUS',
219: p_olev_rec.process_flag);
220: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
221:
222: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
223: p_msg_name => g_invalid_value,
224: p_token1 => g_col_name_token,
218: 'OKS_MASSCHANGE_STATUS',
219: p_olev_rec.process_flag);
220: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
221:
222: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
223: p_msg_name => g_invalid_value,
224: p_token1 => g_col_name_token,
225: p_token1_value => 'Process Flag');
226:
225: p_token1_value => 'Process Flag');
226:
227: -- halt validation
228: raise G_EXCEPTION_HALT_VALIDATION;
229: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
230: raise G_EXCEPTION_HALT_VALIDATION;
231: End If;
232: End If;
233: End If;
255: okc_debug.Reset_Indentation;
256: END IF;
257:
258: -- store SQL error message on message stack
259: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
260: p_msg_name => g_unexpected_error,
261: p_token1 => g_sqlcode_token,
262: p_token1_value => sqlcode,
263: p_token2 => g_sqlerrm_token,
262: p_token1_value => sqlcode,
263: p_token2 => g_sqlerrm_token,
264: p_token2_value => sqlerrm);
265: -- notify caller of an error as UNEXPETED error
266: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
267:
268: End validate_process_flag;
269:
270: -- Start of comments
289: okc_debug.log('1300: Entered validate_oie_id', 2);
290: END IF;
291:
292: -- initialize return status
293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
294:
295: -- check that data exists
296: If (p_olev_rec.oie_id = OKC_API.G_MISS_NUM or
297: p_olev_rec.oie_id IS NULL)
292: -- initialize return status
293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
294:
295: -- check that data exists
296: If (p_olev_rec.oie_id = OKC_API.G_MISS_NUM or
297: p_olev_rec.oie_id IS NULL)
298: Then
299: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
300: p_msg_name => g_required_value,
295: -- check that data exists
296: If (p_olev_rec.oie_id = OKC_API.G_MISS_NUM or
297: p_olev_rec.oie_id IS NULL)
298: Then
299: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
300: p_msg_name => g_required_value,
301: p_token1 => g_col_name_token,
302: p_token1_value => 'Operation Instance Id');
303: -- notify caller of an error
300: p_msg_name => g_required_value,
301: p_token1 => g_col_name_token,
302: p_token1_value => 'Operation Instance Id');
303: -- notify caller of an error
304: x_return_status := OKC_API.G_RET_STS_ERROR;
305:
306: -- halt validation
307: raise G_EXCEPTION_HALT_VALIDATION;
308: End If;
313: Close l_oiev_csr;
314:
315: -- if l_dummy_var still set to default, data was not found
316: If (l_dummy_var = '?') Then
317: OKC_API.SET_MESSAGE(
318: p_app_name => g_app_name,
319: p_msg_name => g_no_parent_record,
320: p_token1 => g_col_name_token,
321: p_token1_value => 'Operation Instance Id',
323: p_token2_value => G_VIEW,
324: p_token3 => g_parent_table_token,
325: p_token3_value => 'OKC_OPERATION_INSTANCES_V');
326: -- notify caller of an error
327: x_return_status := OKC_API.G_RET_STS_ERROR;
328: End If;
329:
330: IF (l_debug = 'Y') THEN
331: okc_debug.log('1400: Leaving validate_oie_id', 2);
350: okc_debug.Reset_Indentation;
351: END IF;
352:
353: -- store SQL error message on message stack
354: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
355: p_msg_name => g_unexpected_error,
356: p_token1 => g_sqlcode_token,
357: p_token1_value => sqlcode,
358: p_token2 => g_sqlerrm_token,
357: p_token1_value => sqlcode,
358: p_token2 => g_sqlerrm_token,
359: p_token2_value => sqlerrm);
360: -- notify caller of an error as UNEXPETED error
361: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
362:
363: End validate_oie_id;
364:
365: -- Start of comments
386: okc_debug.log('1700: Entered validate_parent_ole_id', 2);
387: END IF;
388:
389: -- initialize return status
390: x_return_status := OKC_API.G_RET_STS_SUCCESS;
391:
392: -- enforce foreign key (parent_ole_id is optional)
393: If (p_olev_rec.parent_ole_id <> OKC_API.G_MISS_NUM and
394: p_olev_rec.parent_ole_id IS NOT NULL)
389: -- initialize return status
390: x_return_status := OKC_API.G_RET_STS_SUCCESS;
391:
392: -- enforce foreign key (parent_ole_id is optional)
393: If (p_olev_rec.parent_ole_id <> OKC_API.G_MISS_NUM and
394: p_olev_rec.parent_ole_id IS NOT NULL)
395: Then
396: Open l_olev_csr;
397: Fetch l_olev_csr Into l_dummy_var;
397: Fetch l_olev_csr Into l_dummy_var;
398: Close l_olev_csr;
399: -- if l_dummy_var still set to default, data was not found
400: If (l_dummy_var = '?') Then
401: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
402: p_msg_name => g_no_parent_record,
403: p_token1 => g_col_name_token,
404: p_token1_value => 'Operation Line Id',
405: p_token2 => g_child_table_token,
406: p_token2_value => G_VIEW,
407: p_token3 => g_parent_table_token,
408: p_token3_value => 'OKC_OPERATION_LINES_V');
409: -- notify caller of an error
410: x_return_status := OKC_API.G_RET_STS_ERROR;
411: End If;
412: End If;
413:
414: IF (l_debug = 'Y') THEN
424: okc_debug.Reset_Indentation;
425: END IF;
426:
427: -- store SQL error message on message stack
428: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
429: p_msg_name => g_unexpected_error,
430: p_token1 => g_sqlcode_token,
431: p_token1_value => sqlcode,
432: p_token2 => g_sqlerrm_token,
431: p_token1_value => sqlcode,
432: p_token2 => g_sqlerrm_token,
433: p_token2_value => sqlerrm);
434: -- notify caller of an error as UNEXPETED error
435: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
436:
437: -- verify that cursor was closed
438: if l_olev_csr%ISOPEN then
439: close l_olev_csr;
463: okc_debug.log('2000: Entered validate_subject_chr_id', 2);
464: END IF;
465:
466: -- initialize return status
467: x_return_status := OKC_API.G_RET_STS_SUCCESS;
468:
469: -- check that data exists
470: If (p_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM or
471: p_olev_rec.subject_chr_id IS NULL)
466: -- initialize return status
467: x_return_status := OKC_API.G_RET_STS_SUCCESS;
468:
469: -- check that data exists
470: If (p_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM or
471: p_olev_rec.subject_chr_id IS NULL)
472: Then
473: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
474: p_msg_name => g_required_value,
469: -- check that data exists
470: If (p_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM or
471: p_olev_rec.subject_chr_id IS NULL)
472: Then
473: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
474: p_msg_name => g_required_value,
475: p_token1 => g_col_name_token,
476: p_token1_value => 'Contract Header Id');
477: -- notify caller of an error
474: p_msg_name => g_required_value,
475: p_token1 => g_col_name_token,
476: p_token1_value => 'Contract Header Id');
477: -- notify caller of an error
478: x_return_status := OKC_API.G_RET_STS_ERROR;
479:
480: -- halt validation
481: raise G_EXCEPTION_HALT_VALIDATION;
482: End If;
487: Close l_chrv_csr;
488:
489: -- if l_dummy_var still set to default, data was not found
490: If (l_dummy_var = '?') Then
491: OKC_API.SET_MESSAGE(
492: p_app_name => g_app_name,
493: p_msg_name => g_no_parent_record,
494: p_token1 => g_col_name_token,
495: p_token1_value => 'Contract Header Id',
497: p_token2_value => G_VIEW,
498: p_token3 => g_parent_table_token,
499: p_token3_value => 'OKC_K_HEADERS_V');
500: -- notify caller of an error
501: x_return_status := OKC_API.G_RET_STS_ERROR;
502: End If;
503:
504: IF (l_debug = 'Y') THEN
505: okc_debug.log('2100: Leaving validate_subject_chr_id', 2);
524: okc_debug.Reset_Indentation;
525: END IF;
526:
527: -- store SQL error message on message stack
528: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
529: p_msg_name => g_unexpected_error,
530: p_token1 => g_sqlcode_token,
531: p_token1_value => sqlcode,
532: p_token2 => g_sqlerrm_token,
531: p_token1_value => sqlcode,
532: p_token2 => g_sqlerrm_token,
533: p_token2_value => sqlerrm);
534: -- notify caller of an error as UNEXPETED error
535: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
536:
537: End validate_subject_chr_id;
538:
539: -- Start of comments
560: okc_debug.log('2400: Entered validate_object_chr_id', 2);
561: END IF;
562:
563: -- initialize return status
564: x_return_status := OKC_API.G_RET_STS_SUCCESS;
565:
566: -- enforce foreign key (object_chr_id is optional)
567: If (p_olev_rec.object_chr_id <> OKC_API.G_MISS_NUM and
568: p_olev_rec.object_chr_id IS NOT NULL)
563: -- initialize return status
564: x_return_status := OKC_API.G_RET_STS_SUCCESS;
565:
566: -- enforce foreign key (object_chr_id is optional)
567: If (p_olev_rec.object_chr_id <> OKC_API.G_MISS_NUM and
568: p_olev_rec.object_chr_id IS NOT NULL)
569: Then
570: Open l_chrv_csr;
571: Fetch l_chrv_csr Into l_dummy_var;
571: Fetch l_chrv_csr Into l_dummy_var;
572: Close l_chrv_csr;
573: -- if l_dummy_var still set to default, data was not found
574: If (l_dummy_var = '?') Then
575: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
576: p_msg_name => g_no_parent_record,
577: p_token1 => g_col_name_token,
578: p_token1_value => 'Object Contract Id',
579: p_token2 => g_child_table_token,
580: p_token2_value => G_VIEW,
581: p_token3 => g_parent_table_token,
582: p_token3_value => 'OKC_K_HEADERS_V');
583: -- notify caller of an error
584: x_return_status := OKC_API.G_RET_STS_ERROR;
585: End If;
586: End If;
587:
588: IF (l_debug = 'Y') THEN
598: okc_debug.Reset_Indentation;
599: END IF;
600:
601: -- store SQL error message on message stack
602: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
603: p_msg_name => g_unexpected_error,
604: p_token1 => g_sqlcode_token,
605: p_token1_value => sqlcode,
606: p_token2 => g_sqlerrm_token,
605: p_token1_value => sqlcode,
606: p_token2 => g_sqlerrm_token,
607: p_token2_value => sqlerrm);
608: -- notify caller of an error as UNEXPETED error
609: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
610:
611: -- verify that cursor was closed
612: if l_chrv_csr%ISOPEN then
613: close l_chrv_csr;
639: okc_debug.log('2700: Entered validate_object_cle_id', 2);
640: END IF;
641:
642: -- initialize return status
643: x_return_status := OKC_API.G_RET_STS_SUCCESS;
644:
645: -- enforce foreign key (object_cle_id is optional)
646: If (p_olev_rec.object_cle_id <> OKC_API.G_MISS_NUM and
647: p_olev_rec.object_cle_id IS NOT NULL)
642: -- initialize return status
643: x_return_status := OKC_API.G_RET_STS_SUCCESS;
644:
645: -- enforce foreign key (object_cle_id is optional)
646: If (p_olev_rec.object_cle_id <> OKC_API.G_MISS_NUM and
647: p_olev_rec.object_cle_id IS NOT NULL)
648: Then
649: Open l_clev_csr;
650: Fetch l_clev_csr Into l_dummy_var;
650: Fetch l_clev_csr Into l_dummy_var;
651: Close l_clev_csr;
652: -- if l_dummy_var still set to default, data was not found
653: If (l_dummy_var = '?') Then
654: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
655: p_msg_name => g_no_parent_record,
656: p_token1 => g_col_name_token,
657: p_token1_value => 'Object Line Id',
658: p_token2 => g_child_table_token,
659: p_token2_value => G_VIEW,
660: p_token3 => g_parent_table_token,
661: p_token3_value => 'OKC_K_LINES_V');
662: -- notify caller of an error
663: x_return_status := OKC_API.G_RET_STS_ERROR;
664: End If;
665: End If;
666:
667: IF (l_debug = 'Y') THEN
677: okc_debug.Reset_Indentation;
678: END IF;
679:
680: -- store SQL error message on message stack
681: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
682: p_msg_name => g_unexpected_error,
683: p_token1 => g_sqlcode_token,
684: p_token1_value => sqlcode,
685: p_token2 => g_sqlerrm_token,
684: p_token1_value => sqlcode,
685: p_token2 => g_sqlerrm_token,
686: p_token2_value => sqlerrm);
687: -- notify caller of an error as UNEXPETED error
688: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
689:
690: -- verify that cursor was closed
691: if l_clev_csr%ISOPEN then
692: close l_clev_csr;
718: okc_debug.log('3000: Entered validate_subject_cle_id', 2);
719: END IF;
720:
721: -- initialize return status
722: x_return_status := OKC_API.G_RET_STS_SUCCESS;
723:
724: -- enforce foreign key (subject_cle_id is optional)
725: If (p_olev_rec.subject_cle_id <> OKC_API.G_MISS_NUM and
726: p_olev_rec.subject_cle_id IS NOT NULL)
721: -- initialize return status
722: x_return_status := OKC_API.G_RET_STS_SUCCESS;
723:
724: -- enforce foreign key (subject_cle_id is optional)
725: If (p_olev_rec.subject_cle_id <> OKC_API.G_MISS_NUM and
726: p_olev_rec.subject_cle_id IS NOT NULL)
727: Then
728: Open l_clev_csr;
729: Fetch l_clev_csr Into l_dummy_var;
729: Fetch l_clev_csr Into l_dummy_var;
730: Close l_clev_csr;
731: -- if l_dummy_var still set to default, data was not found
732: If (l_dummy_var = '?') Then
733: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
734: p_msg_name => g_no_parent_record,
735: p_token1 => g_col_name_token,
736: p_token1_value => 'Subject Line Id',
737: p_token2 => g_child_table_token,
738: p_token2_value => G_VIEW,
739: p_token3 => g_parent_table_token,
740: p_token3_value => 'OKC_K_LINES_V');
741: -- notify caller of an error
742: x_return_status := OKC_API.G_RET_STS_ERROR;
743: End If;
744: End If;
745:
746: IF (l_debug = 'Y') THEN
756: okc_debug.Reset_Indentation;
757: END IF;
758:
759: -- store SQL error message on message stack
760: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
761: p_msg_name => g_unexpected_error,
762: p_token1 => g_sqlcode_token,
763: p_token1_value => sqlcode,
764: p_token2 => g_sqlerrm_token,
763: p_token1_value => sqlcode,
764: p_token2 => g_sqlerrm_token,
765: p_token2_value => sqlerrm);
766: -- notify caller of an error as UNEXPETED error
767: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
768:
769: -- verify that cursor was closed
770: if l_clev_csr%ISOPEN then
771: close l_clev_csr;
782: okc_debug.log('3300: Entered validate_message_code', 2);
783: END IF;
784:
785: -- initialize return message
786: x_return_status := OKC_API.G_RET_STS_SUCCESS;
787:
788: -- enforce foreign key
789: If (p_olev_rec.message_code <> OKC_API.G_MISS_CHAR and
790: p_olev_rec.message_code IS NOT NULL)
785: -- initialize return message
786: x_return_status := OKC_API.G_RET_STS_SUCCESS;
787:
788: -- enforce foreign key
789: If (p_olev_rec.message_code <> OKC_API.G_MISS_CHAR and
790: p_olev_rec.message_code IS NOT NULL)
791: Then
792: -- Check if the value is a valid code from lookup table
793: x_return_status := OKC_UTIL.check_lookup_code(
792: -- Check if the value is a valid code from lookup table
793: x_return_status := OKC_UTIL.check_lookup_code(
794: 'OKC_OPR_LINE_MESSAGE_CODE',
795: p_olev_rec.message_code);
796: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
797: --set error message in message stack
798: OKC_API.SET_MESSAGE(
799: p_app_name => G_APP_NAME,
800: p_msg_name => G_INVALID_VALUE,
794: 'OKC_OPR_LINE_MESSAGE_CODE',
795: p_olev_rec.message_code);
796: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
797: --set error message in message stack
798: OKC_API.SET_MESSAGE(
799: p_app_name => G_APP_NAME,
800: p_msg_name => G_INVALID_VALUE,
801: p_token1 => G_COL_NAME_TOKEN,
802: p_token1_value => 'Message Code');
800: p_msg_name => G_INVALID_VALUE,
801: p_token1 => G_COL_NAME_TOKEN,
802: p_token1_value => 'Message Code');
803: raise G_EXCEPTION_HALT_VALIDATION;
804: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
805: raise G_EXCEPTION_HALT_VALIDATION;
806: End If;
807: End If;
808:
819: okc_debug.Reset_Indentation;
820: END IF;
821:
822: -- store SQL error message on message stack
823: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
824: p_msg_name => g_unexpected_error,
825: p_token1 => g_sqlcode_token,
826: p_token1_value => sqlcode,
827: p_token2 => g_sqlerrm_token,
826: p_token1_value => sqlcode,
827: p_token2 => g_sqlerrm_token,
828: p_token2_value => sqlerrm);
829: -- notify caller of an error as UNEXPETED error
830: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
831:
832: End validate_message_code;
833:
834: /*********************** END HAND-CODED ********************************/
1071: okc_debug.Set_Indentation('OKC_OLE_PVT');
1072: okc_debug.log('4400: Entered null_out_defaults', 2);
1073: END IF;
1074:
1075: IF (l_olev_rec.select_yn = OKC_API.G_MISS_CHAR) THEN
1076: l_olev_rec.select_yn := NULL;
1077: END IF;
1078: IF (l_olev_rec.process_flag = OKC_API.G_MISS_CHAR) THEN
1079: l_olev_rec.process_flag := NULL;
1074:
1075: IF (l_olev_rec.select_yn = OKC_API.G_MISS_CHAR) THEN
1076: l_olev_rec.select_yn := NULL;
1077: END IF;
1078: IF (l_olev_rec.process_flag = OKC_API.G_MISS_CHAR) THEN
1079: l_olev_rec.process_flag := NULL;
1080: END IF;
1081: IF (l_olev_rec.active_yn = OKC_API.G_MISS_CHAR) THEN
1082: l_olev_rec.active_yn := NULL;
1077: END IF;
1078: IF (l_olev_rec.process_flag = OKC_API.G_MISS_CHAR) THEN
1079: l_olev_rec.process_flag := NULL;
1080: END IF;
1081: IF (l_olev_rec.active_yn = OKC_API.G_MISS_CHAR) THEN
1082: l_olev_rec.active_yn := NULL;
1083: END IF;
1084: IF (l_olev_rec.oie_id = OKC_API.G_MISS_NUM) THEN
1085: l_olev_rec.oie_id := NULL;
1080: END IF;
1081: IF (l_olev_rec.active_yn = OKC_API.G_MISS_CHAR) THEN
1082: l_olev_rec.active_yn := NULL;
1083: END IF;
1084: IF (l_olev_rec.oie_id = OKC_API.G_MISS_NUM) THEN
1085: l_olev_rec.oie_id := NULL;
1086: END IF;
1087: IF (l_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM) THEN
1088: l_olev_rec.parent_ole_id := NULL;
1083: END IF;
1084: IF (l_olev_rec.oie_id = OKC_API.G_MISS_NUM) THEN
1085: l_olev_rec.oie_id := NULL;
1086: END IF;
1087: IF (l_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM) THEN
1088: l_olev_rec.parent_ole_id := NULL;
1089: END IF;
1090: IF (l_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM) THEN
1091: l_olev_rec.subject_chr_id := NULL;
1086: END IF;
1087: IF (l_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM) THEN
1088: l_olev_rec.parent_ole_id := NULL;
1089: END IF;
1090: IF (l_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM) THEN
1091: l_olev_rec.subject_chr_id := NULL;
1092: END IF;
1093: IF (l_olev_rec.object_chr_id = OKC_API.G_MISS_NUM) THEN
1094: l_olev_rec.object_chr_id := NULL;
1089: END IF;
1090: IF (l_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM) THEN
1091: l_olev_rec.subject_chr_id := NULL;
1092: END IF;
1093: IF (l_olev_rec.object_chr_id = OKC_API.G_MISS_NUM) THEN
1094: l_olev_rec.object_chr_id := NULL;
1095: END IF;
1096: IF (l_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM) THEN
1097: l_olev_rec.subject_cle_id := NULL;
1092: END IF;
1093: IF (l_olev_rec.object_chr_id = OKC_API.G_MISS_NUM) THEN
1094: l_olev_rec.object_chr_id := NULL;
1095: END IF;
1096: IF (l_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM) THEN
1097: l_olev_rec.subject_cle_id := NULL;
1098: END IF;
1099: IF (l_olev_rec.object_cle_id = OKC_API.G_MISS_NUM) THEN
1100: l_olev_rec.object_cle_id := NULL;
1095: END IF;
1096: IF (l_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM) THEN
1097: l_olev_rec.subject_cle_id := NULL;
1098: END IF;
1099: IF (l_olev_rec.object_cle_id = OKC_API.G_MISS_NUM) THEN
1100: l_olev_rec.object_cle_id := NULL;
1101: END IF;
1102: IF (l_olev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1103: l_olev_rec.object_version_number := NULL;
1098: END IF;
1099: IF (l_olev_rec.object_cle_id = OKC_API.G_MISS_NUM) THEN
1100: l_olev_rec.object_cle_id := NULL;
1101: END IF;
1102: IF (l_olev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1103: l_olev_rec.object_version_number := NULL;
1104: END IF;
1105: IF (l_olev_rec.created_by = OKC_API.G_MISS_NUM) THEN
1106: l_olev_rec.created_by := NULL;
1101: END IF;
1102: IF (l_olev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1103: l_olev_rec.object_version_number := NULL;
1104: END IF;
1105: IF (l_olev_rec.created_by = OKC_API.G_MISS_NUM) THEN
1106: l_olev_rec.created_by := NULL;
1107: END IF;
1108: IF (l_olev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1109: l_olev_rec.creation_date := NULL;
1104: END IF;
1105: IF (l_olev_rec.created_by = OKC_API.G_MISS_NUM) THEN
1106: l_olev_rec.created_by := NULL;
1107: END IF;
1108: IF (l_olev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1109: l_olev_rec.creation_date := NULL;
1110: END IF;
1111: IF (l_olev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1112: l_olev_rec.last_updated_by := NULL;
1107: END IF;
1108: IF (l_olev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1109: l_olev_rec.creation_date := NULL;
1110: END IF;
1111: IF (l_olev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1112: l_olev_rec.last_updated_by := NULL;
1113: END IF;
1114: IF (l_olev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1115: l_olev_rec.last_update_date := NULL;
1110: END IF;
1111: IF (l_olev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1112: l_olev_rec.last_updated_by := NULL;
1113: END IF;
1114: IF (l_olev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1115: l_olev_rec.last_update_date := NULL;
1116: END IF;
1117: IF (l_olev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1118: l_olev_rec.last_update_login := NULL;
1113: END IF;
1114: IF (l_olev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1115: l_olev_rec.last_update_date := NULL;
1116: END IF;
1117: IF (l_olev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1118: l_olev_rec.last_update_login := NULL;
1119: END IF;
1120: IF (l_olev_rec.request_id = OKC_API.G_MISS_NUM) THEN
1121: l_olev_rec.request_id := NULL;
1116: END IF;
1117: IF (l_olev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1118: l_olev_rec.last_update_login := NULL;
1119: END IF;
1120: IF (l_olev_rec.request_id = OKC_API.G_MISS_NUM) THEN
1121: l_olev_rec.request_id := NULL;
1122: END IF;
1123: IF (l_olev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1124: l_olev_rec.program_application_id := NULL;
1119: END IF;
1120: IF (l_olev_rec.request_id = OKC_API.G_MISS_NUM) THEN
1121: l_olev_rec.request_id := NULL;
1122: END IF;
1123: IF (l_olev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1124: l_olev_rec.program_application_id := NULL;
1125: END IF;
1126: IF (l_olev_rec.program_id = OKC_API.G_MISS_NUM) THEN
1127: l_olev_rec.program_id := NULL;
1122: END IF;
1123: IF (l_olev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
1124: l_olev_rec.program_application_id := NULL;
1125: END IF;
1126: IF (l_olev_rec.program_id = OKC_API.G_MISS_NUM) THEN
1127: l_olev_rec.program_id := NULL;
1128: END IF;
1129: IF (l_olev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1130: l_olev_rec.program_update_date := NULL;
1125: END IF;
1126: IF (l_olev_rec.program_id = OKC_API.G_MISS_NUM) THEN
1127: l_olev_rec.program_id := NULL;
1128: END IF;
1129: IF (l_olev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1130: l_olev_rec.program_update_date := NULL;
1131: END IF;
1132: IF (l_olev_rec.message_code = OKC_API.G_MISS_CHAR) THEN
1133: l_olev_rec.message_code := NULL;
1128: END IF;
1129: IF (l_olev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
1130: l_olev_rec.program_update_date := NULL;
1131: END IF;
1132: IF (l_olev_rec.message_code = OKC_API.G_MISS_CHAR) THEN
1133: l_olev_rec.message_code := NULL;
1134: END IF;
1135:
1136: IF (l_debug = 'Y') THEN
1148: ---------------------------------------------------
1149: FUNCTION Validate_Attributes (
1150: p_olev_rec IN olev_rec_type
1151: ) RETURN VARCHAR2 IS
1152: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1153: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1154: BEGIN
1155:
1156: IF (l_debug = 'Y') THEN
1149: FUNCTION Validate_Attributes (
1150: p_olev_rec IN olev_rec_type
1151: ) RETURN VARCHAR2 IS
1152: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1153: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1154: BEGIN
1155:
1156: IF (l_debug = 'Y') THEN
1157: okc_debug.Set_Indentation('OKC_OLE_PVT');
1162: validate_select_yn(x_return_status => l_return_status,
1163: p_olev_rec => p_olev_rec);
1164:
1165: -- store the highest degree of error
1166: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1167: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1168: x_return_status := l_return_status;
1169: End If;
1170: End If;
1163: p_olev_rec => p_olev_rec);
1164:
1165: -- store the highest degree of error
1166: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1167: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1168: x_return_status := l_return_status;
1169: End If;
1170: End If;
1171:
1172: validate_active_yn(x_return_status => l_return_status,
1173: p_olev_rec => p_olev_rec);
1174:
1175: -- store the highest degree of error
1176: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1177: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1178: x_return_status := l_return_status;
1179: End If;
1180: End If;
1173: p_olev_rec => p_olev_rec);
1174:
1175: -- store the highest degree of error
1176: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1177: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1178: x_return_status := l_return_status;
1179: End If;
1180: End If;
1181:
1182: validate_process_flag(x_return_status => l_return_status,
1183: p_olev_rec => p_olev_rec);
1184:
1185: -- store the highest degree of error
1186: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1187: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1188: x_return_status := l_return_status;
1189: End If;
1190: End If;
1183: p_olev_rec => p_olev_rec);
1184:
1185: -- store the highest degree of error
1186: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1187: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1188: x_return_status := l_return_status;
1189: End If;
1190: End If;
1191:
1192: validate_oie_id(x_return_status => l_return_status,
1193: p_olev_rec => p_olev_rec);
1194:
1195: -- store the highest degree of error
1196: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1197: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1198: x_return_status := l_return_status;
1199: End If;
1200: End If;
1193: p_olev_rec => p_olev_rec);
1194:
1195: -- store the highest degree of error
1196: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1197: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1198: x_return_status := l_return_status;
1199: End If;
1200: End If;
1201:
1202: validate_parent_ole_id(x_return_status => l_return_status,
1203: p_olev_rec => p_olev_rec);
1204:
1205: -- store the highest degree of error
1206: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1207: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1208: x_return_status := l_return_status;
1209: End If;
1210: End If;
1203: p_olev_rec => p_olev_rec);
1204:
1205: -- store the highest degree of error
1206: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1207: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1208: x_return_status := l_return_status;
1209: End If;
1210: End If;
1211:
1212: validate_subject_chr_id(x_return_status => l_return_status,
1213: p_olev_rec => p_olev_rec);
1214:
1215: -- store the highest degree of error
1216: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1217: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1218: x_return_status := l_return_status;
1219: End If;
1220: End If;
1213: p_olev_rec => p_olev_rec);
1214:
1215: -- store the highest degree of error
1216: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1217: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1218: x_return_status := l_return_status;
1219: End If;
1220: End If;
1221:
1222: validate_object_chr_id(x_return_status => l_return_status,
1223: p_olev_rec => p_olev_rec);
1224:
1225: -- store the highest degree of error
1226: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1227: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1228: x_return_status := l_return_status;
1229: End If;
1230: End If;
1223: p_olev_rec => p_olev_rec);
1224:
1225: -- store the highest degree of error
1226: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1227: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1228: x_return_status := l_return_status;
1229: End If;
1230: End If;
1231:
1232: validate_subject_cle_id(x_return_status => l_return_status,
1233: p_olev_rec => p_olev_rec);
1234:
1235: -- store the highest degree of error
1236: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1237: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1238: x_return_status := l_return_status;
1239: End If;
1240: End If;
1233: p_olev_rec => p_olev_rec);
1234:
1235: -- store the highest degree of error
1236: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1237: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1238: x_return_status := l_return_status;
1239: End If;
1240: End If;
1241:
1242: validate_object_cle_id(x_return_status => l_return_status,
1243: p_olev_rec => p_olev_rec);
1244:
1245: -- store the highest degree of error
1246: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1247: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1248: x_return_status := l_return_status;
1249: End If;
1250: End If;
1243: p_olev_rec => p_olev_rec);
1244:
1245: -- store the highest degree of error
1246: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1247: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1248: x_return_status := l_return_status;
1249: End If;
1250: End If;
1251:
1252: validate_message_code(x_return_status => l_return_status,
1253: p_olev_rec => p_olev_rec);
1254:
1255: -- store the highest degree of error
1256: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1257: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1258: x_return_status := l_return_status;
1259: End If;
1260: End If;
1253: p_olev_rec => p_olev_rec);
1254:
1255: -- store the highest degree of error
1256: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1257: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1258: x_return_status := l_return_status;
1259: End If;
1260: End If;
1261:
1276: -----------------------------------------------
1277: FUNCTION Validate_Record (
1278: p_olev_rec IN olev_rec_type
1279: ) RETURN VARCHAR2 IS
1280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1281: BEGIN
1282:
1283: RETURN (l_return_status);
1284:
1362: p_olev_rec IN olev_rec_type) IS
1363:
1364: l_api_version CONSTANT NUMBER := 1;
1365: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1366: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1367: l_olev_rec olev_rec_type := p_olev_rec;
1368: l_ole_rec ole_rec_type;
1369: BEGIN
1370:
1372: okc_debug.Set_Indentation('OKC_OLE_PVT');
1373: okc_debug.log('4900: Entered validate_row', 2);
1374: END IF;
1375:
1376: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1377: G_PKG_NAME,
1378: p_init_msg_list,
1379: l_api_version,
1380: p_api_version,
1379: l_api_version,
1380: p_api_version,
1381: '_PVT',
1382: x_return_status);
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1380: p_api_version,
1381: '_PVT',
1382: x_return_status);
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: --- Validate all non-missing attributes (Item Level Validation)
1381: '_PVT',
1382: x_return_status);
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: --- Validate all non-missing attributes (Item Level Validation)
1389: l_return_status := Validate_Attributes(l_olev_rec);
1382: x_return_status);
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: --- Validate all non-missing attributes (Item Level Validation)
1389: l_return_status := Validate_Attributes(l_olev_rec);
1390: --- If any errors happen abort API
1387: END IF;
1388: --- Validate all non-missing attributes (Item Level Validation)
1389: l_return_status := Validate_Attributes(l_olev_rec);
1390: --- If any errors happen abort API
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1388: --- Validate all non-missing attributes (Item Level Validation)
1389: l_return_status := Validate_Attributes(l_olev_rec);
1390: --- If any errors happen abort API
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1389: l_return_status := Validate_Attributes(l_olev_rec);
1390: --- If any errors happen abort API
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: --- If any errors happen abort API
1391: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1394: RAISE OKC_API.G_EXCEPTION_ERROR;
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1395: END IF;
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1403:
1396: l_return_status := Validate_Record(l_olev_rec);
1397: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1403:
1404: IF (l_debug = 'Y') THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1403:
1404: IF (l_debug = 'Y') THEN
1405: okc_debug.log('5000: Leaving validate_row', 2);
1406: okc_debug.Reset_Indentation;
1406: okc_debug.Reset_Indentation;
1407: END IF;
1408:
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411:
1412: IF (l_debug = 'Y') THEN
1413: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1414: okc_debug.Reset_Indentation;
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411:
1412: IF (l_debug = 'Y') THEN
1413: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1414: okc_debug.Reset_Indentation;
1415: END IF;
1416:
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1413: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1414: okc_debug.Reset_Indentation;
1415: END IF;
1416:
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1418: (
1419: l_api_name,
1420: G_PKG_NAME,
1421: 'OKC_API.G_RET_STS_ERROR',
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1418: (
1419: l_api_name,
1420: G_PKG_NAME,
1421: 'OKC_API.G_RET_STS_ERROR',
1422: x_msg_count,
1423: x_msg_data,
1424: '_PVT'
1425: );
1422: x_msg_count,
1423: x_msg_data,
1424: '_PVT'
1425: );
1426: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1427:
1428: IF (l_debug = 'Y') THEN
1429: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1430: okc_debug.Reset_Indentation;
1425: );
1426: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1427:
1428: IF (l_debug = 'Y') THEN
1429: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1430: okc_debug.Reset_Indentation;
1431: END IF;
1432:
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1429: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1430: okc_debug.Reset_Indentation;
1431: END IF;
1432:
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1434: (
1435: l_api_name,
1436: G_PKG_NAME,
1437: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1434: (
1435: l_api_name,
1436: G_PKG_NAME,
1437: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1438: x_msg_count,
1439: x_msg_data,
1440: '_PVT'
1441: );
1445: okc_debug.log('5300: Exiting validate_row:OTHERS Exception', 2);
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1450: (
1451: l_api_name,
1452: G_PKG_NAME,
1453: 'OTHERS',
1469: p_olev_tbl IN olev_tbl_type) IS
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1473: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1474: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1475: i NUMBER := 0;
1476: BEGIN
1477:
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1473: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1474: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1475: i NUMBER := 0;
1476: BEGIN
1477:
1478: IF (l_debug = 'Y') THEN
1479: okc_debug.Set_Indentation('OKC_OLE_PVT');
1480: okc_debug.log('5400: Entered validate_row', 2);
1481: END IF;
1482:
1483: OKC_API.init_msg_list(p_init_msg_list);
1484: -- Make sure PL/SQL table has records in it before passing
1485: IF (p_olev_tbl.COUNT > 0) THEN
1486: i := p_olev_tbl.FIRST;
1487: LOOP
1486: i := p_olev_tbl.FIRST;
1487: LOOP
1488: validate_row (
1489: p_api_version => p_api_version,
1490: p_init_msg_list => OKC_API.G_FALSE,
1491: x_return_status => x_return_status,
1492: x_msg_count => x_msg_count,
1493: x_msg_data => x_msg_data,
1494: p_olev_rec => p_olev_tbl(i));
1493: x_msg_data => x_msg_data,
1494: p_olev_rec => p_olev_tbl(i));
1495:
1496: -- store the highest degree of error
1497: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1498: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1499: l_overall_status := x_return_status;
1500: End If;
1501: End If;
1494: p_olev_rec => p_olev_tbl(i));
1495:
1496: -- store the highest degree of error
1497: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1498: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1499: l_overall_status := x_return_status;
1500: End If;
1501: End If;
1502:
1507: x_return_status := l_overall_status;
1508: END IF;
1509:
1510: EXCEPTION
1511: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('5600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1515: okc_debug.Reset_Indentation;
1510: EXCEPTION
1511: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('5600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1514: okc_debug.log('5600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1519: (
1520: l_api_name,
1521: G_PKG_NAME,
1522: 'OKC_API.G_RET_STS_ERROR',
1518: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1519: (
1520: l_api_name,
1521: G_PKG_NAME,
1522: 'OKC_API.G_RET_STS_ERROR',
1523: x_msg_count,
1524: x_msg_data,
1525: '_PVT'
1526: );
1523: x_msg_count,
1524: x_msg_data,
1525: '_PVT'
1526: );
1527: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1528:
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.log('5700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1531: okc_debug.Reset_Indentation;
1526: );
1527: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1528:
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.log('5700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1530: okc_debug.log('5700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT'
1542: );
1546: okc_debug.log('5800: Exiting validate_row:OTHERS Exception', 2);
1547: okc_debug.Reset_Indentation;
1548: END IF;
1549:
1550: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OTHERS',
1578: x_ole_rec OUT NOCOPY ole_rec_type) IS
1579:
1580: l_api_version CONSTANT NUMBER := 1;
1581: l_api_name CONSTANT VARCHAR2(30) := 'LINES_insert_row';
1582: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1583: l_ole_rec ole_rec_type := p_ole_rec;
1584: l_def_ole_rec ole_rec_type;
1585: --------------------------------------------
1586: -- Set_Attributes for:OKC_OPERATION_LINES --
1588: FUNCTION Set_Attributes (
1589: p_ole_rec IN ole_rec_type,
1590: x_ole_rec OUT NOCOPY ole_rec_type
1591: ) RETURN VARCHAR2 IS
1592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1593: BEGIN
1594:
1595: x_ole_rec := p_ole_rec;
1596: RETURN(l_return_status);
1602: okc_debug.Set_Indentation('OKC_OLE_PVT');
1603: okc_debug.log('6000: Entered insert_row', 2);
1604: END IF;
1605:
1606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1607: p_init_msg_list,
1608: '_PVT',
1609: x_return_status);
1610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1607: p_init_msg_list,
1608: '_PVT',
1609: x_return_status);
1610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1613: RAISE OKC_API.G_EXCEPTION_ERROR;
1614: END IF;
1607: p_init_msg_list,
1608: '_PVT',
1609: x_return_status);
1610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1613: RAISE OKC_API.G_EXCEPTION_ERROR;
1614: END IF;
1615: --- Setting item attributes
1608: '_PVT',
1609: x_return_status);
1610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1613: RAISE OKC_API.G_EXCEPTION_ERROR;
1614: END IF;
1615: --- Setting item attributes
1616: l_return_status := Set_Attributes(
1609: x_return_status);
1610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1613: RAISE OKC_API.G_EXCEPTION_ERROR;
1614: END IF;
1615: --- Setting item attributes
1616: l_return_status := Set_Attributes(
1617: p_ole_rec, -- IN
1616: l_return_status := Set_Attributes(
1617: p_ole_rec, -- IN
1618: l_ole_rec); -- OUT
1619: --- If any errors happen abort API
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1617: p_ole_rec, -- IN
1618: l_ole_rec); -- OUT
1619: --- If any errors happen abort API
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: INSERT INTO OKC_OPERATION_LINES(
1618: l_ole_rec); -- OUT
1619: --- If any errors happen abort API
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: INSERT INTO OKC_OPERATION_LINES(
1626: id,
1619: --- If any errors happen abort API
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: INSERT INTO OKC_OPERATION_LINES(
1626: id,
1627: select_yn,
1667: decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
1668: l_ole_rec.message_code);
1669: -- Set OUT values
1670: x_ole_rec := l_ole_rec;
1671: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1672:
1673: IF (l_debug = 'Y') THEN
1674: okc_debug.log('6100: Leaving insert_row', 2);
1675: okc_debug.Reset_Indentation;
1675: okc_debug.Reset_Indentation;
1676: END IF;
1677:
1678: EXCEPTION
1679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1683: okc_debug.Reset_Indentation;
1678: EXCEPTION
1679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1682: okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1687: (
1688: l_api_name,
1689: G_PKG_NAME,
1690: 'OKC_API.G_RET_STS_ERROR',
1686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1687: (
1688: l_api_name,
1689: G_PKG_NAME,
1690: 'OKC_API.G_RET_STS_ERROR',
1691: x_msg_count,
1692: x_msg_data,
1693: '_PVT'
1694: );
1691: x_msg_count,
1692: x_msg_data,
1693: '_PVT'
1694: );
1695: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1696:
1697: IF (l_debug = 'Y') THEN
1698: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1699: okc_debug.Reset_Indentation;
1694: );
1695: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1696:
1697: IF (l_debug = 'Y') THEN
1698: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1699: okc_debug.Reset_Indentation;
1700: END IF;
1701:
1702: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1698: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1699: okc_debug.Reset_Indentation;
1700: END IF;
1701:
1702: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1703: (
1704: l_api_name,
1705: G_PKG_NAME,
1706: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1702: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1703: (
1704: l_api_name,
1705: G_PKG_NAME,
1706: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1707: x_msg_count,
1708: x_msg_data,
1709: '_PVT'
1710: );
1714: okc_debug.log('6400: Exiting insert_row:OTHERS Exception', 2);
1715: okc_debug.Reset_Indentation;
1716: END IF;
1717:
1718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1719: (
1720: l_api_name,
1721: G_PKG_NAME,
1722: 'OTHERS',
1739: x_olev_rec OUT NOCOPY olev_rec_type) IS
1740:
1741: l_api_version CONSTANT NUMBER := 1;
1742: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1744: l_olev_rec olev_rec_type;
1745: l_def_olev_rec olev_rec_type;
1746: l_ole_rec ole_rec_type;
1747: lx_ole_rec ole_rec_type;
1768: FUNCTION Set_Attributes (
1769: p_olev_rec IN olev_rec_type,
1770: x_olev_rec OUT NOCOPY olev_rec_type
1771: ) RETURN VARCHAR2 IS
1772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1773: BEGIN
1774:
1775: x_olev_rec := p_olev_rec;
1776: x_olev_rec.OBJECT_VERSION_NUMBER := 1;
1786: okc_debug.Set_Indentation('OKC_OLE_PVT');
1787: okc_debug.log('6700: Entered insert_row', 2);
1788: END IF;
1789:
1790: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1791: G_PKG_NAME,
1792: p_init_msg_list,
1793: l_api_version,
1794: p_api_version,
1793: l_api_version,
1794: p_api_version,
1795: '_PVT',
1796: x_return_status);
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1794: p_api_version,
1795: '_PVT',
1796: x_return_status);
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_olev_rec := null_out_defaults(p_olev_rec);
1795: '_PVT',
1796: x_return_status);
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_olev_rec := null_out_defaults(p_olev_rec);
1803: -- Set primary key value
1796: x_return_status);
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_olev_rec := null_out_defaults(p_olev_rec);
1803: -- Set primary key value
1804: l_olev_rec.ID := get_seq_id;
1806: l_return_status := Set_Attributes(
1807: l_olev_rec, -- IN
1808: l_def_olev_rec); -- OUT
1809: --- If any errors happen abort API
1810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1807: l_olev_rec, -- IN
1808: l_def_olev_rec); -- OUT
1809: --- If any errors happen abort API
1810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
1808: l_def_olev_rec); -- OUT
1809: --- If any errors happen abort API
1810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
1816: --- Validate all non-missing attributes (Item Level Validation)
1809: --- If any errors happen abort API
1810: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1812: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
1816: --- Validate all non-missing attributes (Item Level Validation)
1817: l_return_status := Validate_Attributes(l_def_olev_rec);
1815: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
1816: --- Validate all non-missing attributes (Item Level Validation)
1817: l_return_status := Validate_Attributes(l_def_olev_rec);
1818: --- If any errors happen abort API
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1816: --- Validate all non-missing attributes (Item Level Validation)
1817: l_return_status := Validate_Attributes(l_def_olev_rec);
1818: --- If any errors happen abort API
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1817: l_return_status := Validate_Attributes(l_def_olev_rec);
1818: --- If any errors happen abort API
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: --- If any errors happen abort API
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1827: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1828: RAISE OKC_API.G_EXCEPTION_ERROR;
1829: END IF;
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1827: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1828: RAISE OKC_API.G_EXCEPTION_ERROR;
1829: END IF;
1830: --------------------------------------
1823: END IF;
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1827: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1828: RAISE OKC_API.G_EXCEPTION_ERROR;
1829: END IF;
1830: --------------------------------------
1831: -- Move VIEW record to "Child" records
1824: l_return_status := Validate_Record(l_def_olev_rec);
1825: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1827: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1828: RAISE OKC_API.G_EXCEPTION_ERROR;
1829: END IF;
1830: --------------------------------------
1831: -- Move VIEW record to "Child" records
1832: --------------------------------------
1841: x_msg_data,
1842: l_ole_rec,
1843: lx_ole_rec
1844: );
1845: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1842: l_ole_rec,
1843: lx_ole_rec
1844: );
1845: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850: migrate(lx_ole_rec, l_def_olev_rec);
1843: lx_ole_rec
1844: );
1845: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850: migrate(lx_ole_rec, l_def_olev_rec);
1851: -- Set OUT values
1844: );
1845: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850: migrate(lx_ole_rec, l_def_olev_rec);
1851: -- Set OUT values
1852: x_olev_rec := l_def_olev_rec;
1849: END IF;
1850: migrate(lx_ole_rec, l_def_olev_rec);
1851: -- Set OUT values
1852: x_olev_rec := l_def_olev_rec;
1853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1854:
1855: IF (l_debug = 'Y') THEN
1856: okc_debug.log('6800: Leaving insert_row', 2);
1857: okc_debug.Reset_Indentation;
1857: okc_debug.Reset_Indentation;
1858: END IF;
1859:
1860: EXCEPTION
1861: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1865: okc_debug.Reset_Indentation;
1860: EXCEPTION
1861: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1865: okc_debug.Reset_Indentation;
1866: END IF;
1867:
1868: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1864: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1865: okc_debug.Reset_Indentation;
1866: END IF;
1867:
1868: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1869: (
1870: l_api_name,
1871: G_PKG_NAME,
1872: 'OKC_API.G_RET_STS_ERROR',
1868: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1869: (
1870: l_api_name,
1871: G_PKG_NAME,
1872: 'OKC_API.G_RET_STS_ERROR',
1873: x_msg_count,
1874: x_msg_data,
1875: '_PVT'
1876: );
1873: x_msg_count,
1874: x_msg_data,
1875: '_PVT'
1876: );
1877: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1878:
1879: IF (l_debug = 'Y') THEN
1880: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1881: okc_debug.Reset_Indentation;
1876: );
1877: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1878:
1879: IF (l_debug = 'Y') THEN
1880: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1881: okc_debug.Reset_Indentation;
1882: END IF;
1883:
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1880: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1881: okc_debug.Reset_Indentation;
1882: END IF;
1883:
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1886: l_api_name,
1887: G_PKG_NAME,
1888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1886: l_api_name,
1887: G_PKG_NAME,
1888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1889: x_msg_count,
1890: x_msg_data,
1891: '_PVT'
1892: );
1896: okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
1897: okc_debug.Reset_Indentation;
1898: END IF;
1899:
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1904: 'OTHERS',
1921: x_olev_tbl OUT NOCOPY olev_tbl_type) IS
1922:
1923: l_api_version CONSTANT NUMBER := 1;
1924: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1926: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1927: i NUMBER := 0;
1928: BEGIN
1929:
1922:
1923: l_api_version CONSTANT NUMBER := 1;
1924: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1926: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1927: i NUMBER := 0;
1928: BEGIN
1929:
1930: IF (l_debug = 'Y') THEN
1931: okc_debug.Set_Indentation('OKC_OLE_PVT');
1932: okc_debug.log('7200: Entered insert_row', 2);
1933: END IF;
1934:
1935: OKC_API.init_msg_list(p_init_msg_list);
1936: -- Make sure PL/SQL table has records in it before passing
1937: IF (p_olev_tbl.COUNT > 0) THEN
1938: i := p_olev_tbl.FIRST;
1939: LOOP
1938: i := p_olev_tbl.FIRST;
1939: LOOP
1940: insert_row (
1941: p_api_version => p_api_version,
1942: p_init_msg_list => OKC_API.G_FALSE,
1943: x_return_status => x_return_status,
1944: x_msg_count => x_msg_count,
1945: x_msg_data => x_msg_data,
1946: p_olev_rec => p_olev_tbl(i),
1946: p_olev_rec => p_olev_tbl(i),
1947: x_olev_rec => x_olev_tbl(i));
1948:
1949: -- store the highest degree of error
1950: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1951: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1952: l_overall_status := x_return_status;
1953: End If;
1954: End If;
1947: x_olev_rec => x_olev_tbl(i));
1948:
1949: -- store the highest degree of error
1950: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1951: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1952: l_overall_status := x_return_status;
1953: End If;
1954: End If;
1955:
1965: okc_debug.Reset_Indentation;
1966: END IF;
1967:
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1973: okc_debug.Reset_Indentation;
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1972: okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1980: 'OKC_API.G_RET_STS_ERROR',
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1977: (
1978: l_api_name,
1979: G_PKG_NAME,
1980: 'OKC_API.G_RET_STS_ERROR',
1981: x_msg_count,
1982: x_msg_data,
1983: '_PVT'
1984: );
1981: x_msg_count,
1982: x_msg_data,
1983: '_PVT'
1984: );
1985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986:
1987: IF (l_debug = 'Y') THEN
1988: okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1989: okc_debug.Reset_Indentation;
1984: );
1985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986:
1987: IF (l_debug = 'Y') THEN
1988: okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1989: okc_debug.Reset_Indentation;
1990: END IF;
1991:
1992: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1988: okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1989: okc_debug.Reset_Indentation;
1990: END IF;
1991:
1992: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1993: (
1994: l_api_name,
1995: G_PKG_NAME,
1996: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1992: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1993: (
1994: l_api_name,
1995: G_PKG_NAME,
1996: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1997: x_msg_count,
1998: x_msg_data,
1999: '_PVT'
2000: );
2004: okc_debug.log('7600: Exiting insert_row:OTHERS Exception', 2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007:
2008: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2009: (
2010: l_api_name,
2011: G_PKG_NAME,
2012: 'OTHERS',
2044: FROM OKC_OPERATION_LINES
2045: WHERE ID = p_ole_rec.id;
2046: l_api_version CONSTANT NUMBER := 1;
2047: l_api_name CONSTANT VARCHAR2(30) := 'LINES_lock_row';
2048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2049: l_object_version_number OKC_OPERATION_LINES.OBJECT_VERSION_NUMBER%TYPE;
2050: lc_object_version_number OKC_OPERATION_LINES.OBJECT_VERSION_NUMBER%TYPE;
2051: l_row_notfound BOOLEAN := FALSE;
2052: lc_row_notfound BOOLEAN := FALSE;
2056: okc_debug.Set_Indentation('OKC_OLE_PVT');
2057: okc_debug.log('7700: Entered lock_row', 2);
2058: END IF;
2059:
2060: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2061: p_init_msg_list,
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2060: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2061: p_init_msg_list,
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2067: RAISE OKC_API.G_EXCEPTION_ERROR;
2068: END IF;
2061: p_init_msg_list,
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2067: RAISE OKC_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2067: RAISE OKC_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2070: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2063: x_return_status);
2064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2067: RAISE OKC_API.G_EXCEPTION_ERROR;
2068: END IF;
2069:
2070: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2071:
2096:
2097: IF (lock_csr%ISOPEN) THEN
2098: CLOSE lock_csr;
2099: END IF;
2100: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2101: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2102: END;
2103:
2104: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2109: lc_row_notfound := lchk_csr%NOTFOUND;
2110: CLOSE lchk_csr;
2111: END IF;
2112: IF (lc_row_notfound) THEN
2113: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: ELSIF lc_object_version_number > p_ole_rec.object_version_number THEN
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2110: CLOSE lchk_csr;
2111: END IF;
2112: IF (lc_row_notfound) THEN
2113: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: ELSIF lc_object_version_number > p_ole_rec.object_version_number THEN
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2112: IF (lc_row_notfound) THEN
2113: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: ELSIF lc_object_version_number > p_ole_rec.object_version_number THEN
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2114: RAISE OKC_API.G_EXCEPTION_ERROR;
2115: ELSIF lc_object_version_number > p_ole_rec.object_version_number THEN
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2121: ELSIF lc_object_version_number = -1 THEN
2115: ELSIF lc_object_version_number > p_ole_rec.object_version_number THEN
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2121: ELSIF lc_object_version_number = -1 THEN
2122: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2116: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2117: RAISE OKC_API.G_EXCEPTION_ERROR;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2121: ELSIF lc_object_version_number = -1 THEN
2122: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2118: ELSIF lc_object_version_number <> p_ole_rec.object_version_number THEN
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2121: ELSIF lc_object_version_number = -1 THEN
2122: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2126:
2119: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2120: RAISE OKC_API.G_EXCEPTION_ERROR;
2121: ELSIF lc_object_version_number = -1 THEN
2122: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2126:
2127: IF (l_debug = 'Y') THEN
2121: ELSIF lc_object_version_number = -1 THEN
2122: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.log('8100: Leaving lock_row', 2);
2129: okc_debug.Reset_Indentation;
2129: okc_debug.Reset_Indentation;
2130: END IF;
2131:
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134:
2135: IF (l_debug = 'Y') THEN
2136: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2137: okc_debug.Reset_Indentation;
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134:
2135: IF (l_debug = 'Y') THEN
2136: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2137: okc_debug.Reset_Indentation;
2138: END IF;
2139:
2140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2136: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2137: okc_debug.Reset_Indentation;
2138: END IF;
2139:
2140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2141: (
2142: l_api_name,
2143: G_PKG_NAME,
2144: 'OKC_API.G_RET_STS_ERROR',
2140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2141: (
2142: l_api_name,
2143: G_PKG_NAME,
2144: 'OKC_API.G_RET_STS_ERROR',
2145: x_msg_count,
2146: x_msg_data,
2147: '_PVT'
2148: );
2145: x_msg_count,
2146: x_msg_data,
2147: '_PVT'
2148: );
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150:
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2153: okc_debug.Reset_Indentation;
2148: );
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150:
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155:
2156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2152: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155:
2156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2157: (
2158: l_api_name,
2159: G_PKG_NAME,
2160: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2157: (
2158: l_api_name,
2159: G_PKG_NAME,
2160: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2161: x_msg_count,
2162: x_msg_data,
2163: '_PVT'
2164: );
2168: okc_debug.log('8400: Exiting lock_row:OTHERS Exception', 2);
2169: okc_debug.Reset_Indentation;
2170: END IF;
2171:
2172: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2173: (
2174: l_api_name,
2175: G_PKG_NAME,
2176: 'OTHERS',
2192: p_olev_rec IN olev_rec_type) IS
2193:
2194: l_api_version CONSTANT NUMBER := 1;
2195: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2196: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2197: l_ole_rec ole_rec_type;
2198: BEGIN
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.Set_Indentation('OKC_OLE_PVT');
2202: okc_debug.log('8500: Entered lock_row', 2);
2203: END IF;
2204:
2205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2206: G_PKG_NAME,
2207: p_init_msg_list,
2208: l_api_version,
2209: p_api_version,
2208: l_api_version,
2209: p_api_version,
2210: '_PVT',
2211: x_return_status);
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2209: p_api_version,
2210: '_PVT',
2211: x_return_status);
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: --------------------------------------
2210: '_PVT',
2211: x_return_status);
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: --------------------------------------
2218: -- Move VIEW record to "Child" records
2211: x_return_status);
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: --------------------------------------
2218: -- Move VIEW record to "Child" records
2219: --------------------------------------
2227: x_msg_count,
2228: x_msg_data,
2229: l_ole_rec
2230: );
2231: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2228: x_msg_data,
2229: l_ole_rec
2230: );
2231: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2229: l_ole_rec
2230: );
2231: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2237:
2230: );
2231: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2237:
2238: IF (l_debug = 'Y') THEN
2232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2234: RAISE OKC_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2237:
2238: IF (l_debug = 'Y') THEN
2239: okc_debug.log('8600: Leaving lock_row', 2);
2240: okc_debug.Reset_Indentation;
2240: okc_debug.Reset_Indentation;
2241: END IF;
2242:
2243: EXCEPTION
2244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2248: okc_debug.Reset_Indentation;
2243: EXCEPTION
2244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2247: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKC_API.G_RET_STS_ERROR',
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKC_API.G_RET_STS_ERROR',
2256: x_msg_count,
2257: x_msg_data,
2258: '_PVT'
2259: );
2256: x_msg_count,
2257: x_msg_data,
2258: '_PVT'
2259: );
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2264: okc_debug.Reset_Indentation;
2259: );
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2264: okc_debug.Reset_Indentation;
2265: END IF;
2266:
2267: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2263: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2264: okc_debug.Reset_Indentation;
2265: END IF;
2266:
2267: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2268: (
2269: l_api_name,
2270: G_PKG_NAME,
2271: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2267: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2268: (
2269: l_api_name,
2270: G_PKG_NAME,
2271: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2272: x_msg_count,
2273: x_msg_data,
2274: '_PVT'
2275: );
2279: okc_debug.log('8900: Exiting lock_row:OTHERS Exception', 2);
2280: okc_debug.Reset_Indentation;
2281: END IF;
2282:
2283: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2284: (
2285: l_api_name,
2286: G_PKG_NAME,
2287: 'OTHERS',
2303: p_olev_tbl IN olev_tbl_type) IS
2304:
2305: l_api_version CONSTANT NUMBER := 1;
2306: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2307: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2308: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2309: i NUMBER := 0;
2310: BEGIN
2311:
2304:
2305: l_api_version CONSTANT NUMBER := 1;
2306: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2307: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2308: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2309: i NUMBER := 0;
2310: BEGIN
2311:
2312: IF (l_debug = 'Y') THEN
2313: okc_debug.Set_Indentation('OKC_OLE_PVT');
2314: okc_debug.log('9000: Entered lock_row', 2);
2315: END IF;
2316:
2317: OKC_API.init_msg_list(p_init_msg_list);
2318: -- Make sure PL/SQL table has records in it before passing
2319: IF (p_olev_tbl.COUNT > 0) THEN
2320: i := p_olev_tbl.FIRST;
2321: LOOP
2320: i := p_olev_tbl.FIRST;
2321: LOOP
2322: lock_row (
2323: p_api_version => p_api_version,
2324: p_init_msg_list => OKC_API.G_FALSE,
2325: x_return_status => x_return_status,
2326: x_msg_count => x_msg_count,
2327: x_msg_data => x_msg_data,
2328: p_olev_rec => p_olev_tbl(i));
2327: x_msg_data => x_msg_data,
2328: p_olev_rec => p_olev_tbl(i));
2329:
2330: -- store the highest degree of error
2331: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2332: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2333: l_overall_status := x_return_status;
2334: End If;
2335: End If;
2328: p_olev_rec => p_olev_tbl(i));
2329:
2330: -- store the highest degree of error
2331: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2332: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2333: l_overall_status := x_return_status;
2334: End If;
2335: End If;
2336:
2346: okc_debug.Reset_Indentation;
2347: END IF;
2348:
2349: EXCEPTION
2350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2351:
2352: IF (l_debug = 'Y') THEN
2353: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2354: okc_debug.Reset_Indentation;
2349: EXCEPTION
2350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2351:
2352: IF (l_debug = 'Y') THEN
2353: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2354: okc_debug.Reset_Indentation;
2355: END IF;
2356:
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2353: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2354: okc_debug.Reset_Indentation;
2355: END IF;
2356:
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2358: (
2359: l_api_name,
2360: G_PKG_NAME,
2361: 'OKC_API.G_RET_STS_ERROR',
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2358: (
2359: l_api_name,
2360: G_PKG_NAME,
2361: 'OKC_API.G_RET_STS_ERROR',
2362: x_msg_count,
2363: x_msg_data,
2364: '_PVT'
2365: );
2362: x_msg_count,
2363: x_msg_data,
2364: '_PVT'
2365: );
2366: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2367:
2368: IF (l_debug = 'Y') THEN
2369: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2370: okc_debug.Reset_Indentation;
2365: );
2366: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2367:
2368: IF (l_debug = 'Y') THEN
2369: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2370: okc_debug.Reset_Indentation;
2371: END IF;
2372:
2373: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2369: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2370: okc_debug.Reset_Indentation;
2371: END IF;
2372:
2373: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2374: (
2375: l_api_name,
2376: G_PKG_NAME,
2377: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2373: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2374: (
2375: l_api_name,
2376: G_PKG_NAME,
2377: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2378: x_msg_count,
2379: x_msg_data,
2380: '_PVT'
2381: );
2385: okc_debug.log('9400: Exiting lock_row:OTHERS Exception', 2);
2386: okc_debug.Reset_Indentation;
2387: END IF;
2388:
2389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2390: (
2391: l_api_name,
2392: G_PKG_NAME,
2393: 'OTHERS',
2413: x_ole_rec OUT NOCOPY ole_rec_type) IS
2414:
2415: l_api_version CONSTANT NUMBER := 1;
2416: l_api_name CONSTANT VARCHAR2(30) := 'LINES_update_row';
2417: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2418: l_ole_rec ole_rec_type := p_ole_rec;
2419: l_def_ole_rec ole_rec_type;
2420: l_row_notfound BOOLEAN := TRUE;
2421: ----------------------------------
2426: x_ole_rec OUT NOCOPY ole_rec_type
2427: ) RETURN VARCHAR2 IS
2428: l_ole_rec ole_rec_type;
2429: l_row_notfound BOOLEAN := TRUE;
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: BEGIN
2432:
2433: IF (l_debug = 'Y') THEN
2434: okc_debug.Set_Indentation('OKC_OLE_PVT');
2438: x_ole_rec := p_ole_rec;
2439: -- Get current database values
2440: l_ole_rec := get_rec(p_ole_rec, l_row_notfound);
2441: IF (l_row_notfound) THEN
2442: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2443: END IF;
2444: IF (x_ole_rec.id = OKC_API.G_MISS_NUM)
2445: THEN
2446: x_ole_rec.id := l_ole_rec.id;
2440: l_ole_rec := get_rec(p_ole_rec, l_row_notfound);
2441: IF (l_row_notfound) THEN
2442: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2443: END IF;
2444: IF (x_ole_rec.id = OKC_API.G_MISS_NUM)
2445: THEN
2446: x_ole_rec.id := l_ole_rec.id;
2447: END IF;
2448: IF (x_ole_rec.select_yn = OKC_API.G_MISS_CHAR)
2444: IF (x_ole_rec.id = OKC_API.G_MISS_NUM)
2445: THEN
2446: x_ole_rec.id := l_ole_rec.id;
2447: END IF;
2448: IF (x_ole_rec.select_yn = OKC_API.G_MISS_CHAR)
2449: THEN
2450: x_ole_rec.select_yn := l_ole_rec.select_yn;
2451: END IF;
2452: IF (x_ole_rec.process_flag = OKC_API.G_MISS_CHAR)
2448: IF (x_ole_rec.select_yn = OKC_API.G_MISS_CHAR)
2449: THEN
2450: x_ole_rec.select_yn := l_ole_rec.select_yn;
2451: END IF;
2452: IF (x_ole_rec.process_flag = OKC_API.G_MISS_CHAR)
2453: THEN
2454: x_ole_rec.process_flag := l_ole_rec.process_flag;
2455: END IF;
2456: IF (x_ole_rec.active_yn = OKC_API.G_MISS_CHAR)
2452: IF (x_ole_rec.process_flag = OKC_API.G_MISS_CHAR)
2453: THEN
2454: x_ole_rec.process_flag := l_ole_rec.process_flag;
2455: END IF;
2456: IF (x_ole_rec.active_yn = OKC_API.G_MISS_CHAR)
2457: THEN
2458: x_ole_rec.active_yn := l_ole_rec.active_yn;
2459: END IF;
2460: IF (x_ole_rec.oie_id = OKC_API.G_MISS_NUM)
2456: IF (x_ole_rec.active_yn = OKC_API.G_MISS_CHAR)
2457: THEN
2458: x_ole_rec.active_yn := l_ole_rec.active_yn;
2459: END IF;
2460: IF (x_ole_rec.oie_id = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_ole_rec.oie_id := l_ole_rec.oie_id;
2463: END IF;
2464: IF (x_ole_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2460: IF (x_ole_rec.oie_id = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_ole_rec.oie_id := l_ole_rec.oie_id;
2463: END IF;
2464: IF (x_ole_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2465: THEN
2466: x_ole_rec.parent_ole_id := l_ole_rec.parent_ole_id;
2467: END IF;
2468: IF (x_ole_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2464: IF (x_ole_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2465: THEN
2466: x_ole_rec.parent_ole_id := l_ole_rec.parent_ole_id;
2467: END IF;
2468: IF (x_ole_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2469: THEN
2470: x_ole_rec.subject_chr_id := l_ole_rec.subject_chr_id;
2471: END IF;
2472: IF (x_ole_rec.object_chr_id = OKC_API.G_MISS_NUM)
2468: IF (x_ole_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2469: THEN
2470: x_ole_rec.subject_chr_id := l_ole_rec.subject_chr_id;
2471: END IF;
2472: IF (x_ole_rec.object_chr_id = OKC_API.G_MISS_NUM)
2473: THEN
2474: x_ole_rec.object_chr_id := l_ole_rec.object_chr_id;
2475: END IF;
2476: IF (x_ole_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2472: IF (x_ole_rec.object_chr_id = OKC_API.G_MISS_NUM)
2473: THEN
2474: x_ole_rec.object_chr_id := l_ole_rec.object_chr_id;
2475: END IF;
2476: IF (x_ole_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2477: THEN
2478: x_ole_rec.subject_cle_id := l_ole_rec.subject_cle_id;
2479: END IF;
2480: IF (x_ole_rec.object_cle_id = OKC_API.G_MISS_NUM)
2476: IF (x_ole_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2477: THEN
2478: x_ole_rec.subject_cle_id := l_ole_rec.subject_cle_id;
2479: END IF;
2480: IF (x_ole_rec.object_cle_id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_ole_rec.object_cle_id := l_ole_rec.object_cle_id;
2483: END IF;
2484: IF (x_ole_rec.object_version_number = OKC_API.G_MISS_NUM)
2480: IF (x_ole_rec.object_cle_id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_ole_rec.object_cle_id := l_ole_rec.object_cle_id;
2483: END IF;
2484: IF (x_ole_rec.object_version_number = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_ole_rec.object_version_number := l_ole_rec.object_version_number;
2487: END IF;
2488: IF (x_ole_rec.created_by = OKC_API.G_MISS_NUM)
2484: IF (x_ole_rec.object_version_number = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_ole_rec.object_version_number := l_ole_rec.object_version_number;
2487: END IF;
2488: IF (x_ole_rec.created_by = OKC_API.G_MISS_NUM)
2489: THEN
2490: x_ole_rec.created_by := l_ole_rec.created_by;
2491: END IF;
2492: IF (x_ole_rec.creation_date = OKC_API.G_MISS_DATE)
2488: IF (x_ole_rec.created_by = OKC_API.G_MISS_NUM)
2489: THEN
2490: x_ole_rec.created_by := l_ole_rec.created_by;
2491: END IF;
2492: IF (x_ole_rec.creation_date = OKC_API.G_MISS_DATE)
2493: THEN
2494: x_ole_rec.creation_date := l_ole_rec.creation_date;
2495: END IF;
2496: IF (x_ole_rec.last_updated_by = OKC_API.G_MISS_NUM)
2492: IF (x_ole_rec.creation_date = OKC_API.G_MISS_DATE)
2493: THEN
2494: x_ole_rec.creation_date := l_ole_rec.creation_date;
2495: END IF;
2496: IF (x_ole_rec.last_updated_by = OKC_API.G_MISS_NUM)
2497: THEN
2498: x_ole_rec.last_updated_by := l_ole_rec.last_updated_by;
2499: END IF;
2500: IF (x_ole_rec.last_update_date = OKC_API.G_MISS_DATE)
2496: IF (x_ole_rec.last_updated_by = OKC_API.G_MISS_NUM)
2497: THEN
2498: x_ole_rec.last_updated_by := l_ole_rec.last_updated_by;
2499: END IF;
2500: IF (x_ole_rec.last_update_date = OKC_API.G_MISS_DATE)
2501: THEN
2502: x_ole_rec.last_update_date := l_ole_rec.last_update_date;
2503: END IF;
2504: IF (x_ole_rec.last_update_login = OKC_API.G_MISS_NUM)
2500: IF (x_ole_rec.last_update_date = OKC_API.G_MISS_DATE)
2501: THEN
2502: x_ole_rec.last_update_date := l_ole_rec.last_update_date;
2503: END IF;
2504: IF (x_ole_rec.last_update_login = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_ole_rec.last_update_login := l_ole_rec.last_update_login;
2507: END IF;
2508: IF (x_ole_rec.request_id = OKC_API.G_MISS_NUM)
2504: IF (x_ole_rec.last_update_login = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_ole_rec.last_update_login := l_ole_rec.last_update_login;
2507: END IF;
2508: IF (x_ole_rec.request_id = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_ole_rec.request_id := l_ole_rec.request_id;
2511: END IF;
2512: IF (x_ole_rec.program_application_id = OKC_API.G_MISS_NUM)
2508: IF (x_ole_rec.request_id = OKC_API.G_MISS_NUM)
2509: THEN
2510: x_ole_rec.request_id := l_ole_rec.request_id;
2511: END IF;
2512: IF (x_ole_rec.program_application_id = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_ole_rec.program_application_id := l_ole_rec.program_application_id;
2515: END IF;
2516: IF (x_ole_rec.program_id = OKC_API.G_MISS_NUM)
2512: IF (x_ole_rec.program_application_id = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_ole_rec.program_application_id := l_ole_rec.program_application_id;
2515: END IF;
2516: IF (x_ole_rec.program_id = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_ole_rec.program_id := l_ole_rec.program_id;
2519: END IF;
2520: IF (x_ole_rec.program_update_date = OKC_API.G_MISS_DATE)
2516: IF (x_ole_rec.program_id = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_ole_rec.program_id := l_ole_rec.program_id;
2519: END IF;
2520: IF (x_ole_rec.program_update_date = OKC_API.G_MISS_DATE)
2521: THEN
2522: x_ole_rec.program_update_date := l_ole_rec.program_update_date;
2523: END IF;
2524: IF (x_ole_rec.message_code = OKC_API.G_MISS_CHAR)
2520: IF (x_ole_rec.program_update_date = OKC_API.G_MISS_DATE)
2521: THEN
2522: x_ole_rec.program_update_date := l_ole_rec.program_update_date;
2523: END IF;
2524: IF (x_ole_rec.message_code = OKC_API.G_MISS_CHAR)
2525: THEN
2526: x_ole_rec.message_code := l_ole_rec.message_code;
2527: END IF;
2528:
2540: FUNCTION Set_Attributes (
2541: p_ole_rec IN ole_rec_type,
2542: x_ole_rec OUT NOCOPY ole_rec_type
2543: ) RETURN VARCHAR2 IS
2544: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2545: BEGIN
2546:
2547: x_ole_rec := p_ole_rec;
2548: RETURN(l_return_status);
2554: okc_debug.Set_Indentation('OKC_OLE_PVT');
2555: okc_debug.log('9700: Entered update_row', 2);
2556: END IF;
2557:
2558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2559: p_init_msg_list,
2560: '_PVT',
2561: x_return_status);
2562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2559: p_init_msg_list,
2560: '_PVT',
2561: x_return_status);
2562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_ERROR;
2566: END IF;
2559: p_init_msg_list,
2560: '_PVT',
2561: x_return_status);
2562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_ERROR;
2566: END IF;
2567: --- Setting item attributes
2560: '_PVT',
2561: x_return_status);
2562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_ERROR;
2566: END IF;
2567: --- Setting item attributes
2568: l_return_status := Set_Attributes(
2561: x_return_status);
2562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_ERROR;
2566: END IF;
2567: --- Setting item attributes
2568: l_return_status := Set_Attributes(
2569: p_ole_rec, -- IN
2568: l_return_status := Set_Attributes(
2569: p_ole_rec, -- IN
2570: l_ole_rec); -- OUT
2571: --- If any errors happen abort API
2572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2569: p_ole_rec, -- IN
2570: l_ole_rec); -- OUT
2571: --- If any errors happen abort API
2572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2570: l_ole_rec); -- OUT
2571: --- If any errors happen abort API
2572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2571: --- If any errors happen abort API
2572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2575: RAISE OKC_API.G_EXCEPTION_ERROR;
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: UPDATE OKC_OPERATION_LINES
2576: END IF;
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: UPDATE OKC_OPERATION_LINES
2584: SET SELECT_YN = l_def_ole_rec.select_yn,
2577: l_return_status := populate_new_record(l_ole_rec, l_def_ole_rec);
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: UPDATE OKC_OPERATION_LINES
2584: SET SELECT_YN = l_def_ole_rec.select_yn,
2585: PROCESS_FLAG = l_def_ole_rec.process_flag,
2603: MESSAGE_CODE = l_def_ole_rec.message_code
2604: WHERE ID = l_def_ole_rec.id;
2605:
2606: x_ole_rec := l_def_ole_rec;
2607: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2608:
2609: IF (l_debug = 'Y') THEN
2610: okc_debug.log('9800: Leaving update_row', 2);
2611: okc_debug.Reset_Indentation;
2611: okc_debug.Reset_Indentation;
2612: END IF;
2613:
2614: EXCEPTION
2615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2616:
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2619: okc_debug.Reset_Indentation;
2614: EXCEPTION
2615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2616:
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2619: okc_debug.Reset_Indentation;
2620: END IF;
2621:
2622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2618: okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2619: okc_debug.Reset_Indentation;
2620: END IF;
2621:
2622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2623: (
2624: l_api_name,
2625: G_PKG_NAME,
2626: 'OKC_API.G_RET_STS_ERROR',
2622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2623: (
2624: l_api_name,
2625: G_PKG_NAME,
2626: 'OKC_API.G_RET_STS_ERROR',
2627: x_msg_count,
2628: x_msg_data,
2629: '_PVT'
2630: );
2627: x_msg_count,
2628: x_msg_data,
2629: '_PVT'
2630: );
2631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2632:
2633: IF (l_debug = 'Y') THEN
2634: okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2635: okc_debug.Reset_Indentation;
2630: );
2631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2632:
2633: IF (l_debug = 'Y') THEN
2634: okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2635: okc_debug.Reset_Indentation;
2636: END IF;
2637:
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2634: okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2635: okc_debug.Reset_Indentation;
2636: END IF;
2637:
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2643: x_msg_count,
2644: x_msg_data,
2645: '_PVT'
2646: );
2650: okc_debug.log('10100: Exiting update_row:OTHERS Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2655: (
2656: l_api_name,
2657: G_PKG_NAME,
2658: 'OTHERS',
2675: x_olev_rec OUT NOCOPY olev_rec_type) IS
2676:
2677: l_api_version CONSTANT NUMBER := 1;
2678: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2679: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2680: l_olev_rec olev_rec_type := p_olev_rec;
2681: l_def_olev_rec olev_rec_type;
2682: l_ole_rec ole_rec_type;
2683: lx_ole_rec ole_rec_type;
2704: x_olev_rec OUT NOCOPY olev_rec_type
2705: ) RETURN VARCHAR2 IS
2706: l_olev_rec olev_rec_type;
2707: l_row_notfound BOOLEAN := TRUE;
2708: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2709: BEGIN
2710:
2711: IF (l_debug = 'Y') THEN
2712: okc_debug.Set_Indentation('OKC_OLE_PVT');
2716: x_olev_rec := p_olev_rec;
2717: -- Get current database values
2718: l_olev_rec := get_rec(p_olev_rec, l_row_notfound);
2719: IF (l_row_notfound) THEN
2720: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2721: END IF;
2722: IF (x_olev_rec.id = OKC_API.G_MISS_NUM)
2723: THEN
2724: x_olev_rec.id := l_olev_rec.id;
2718: l_olev_rec := get_rec(p_olev_rec, l_row_notfound);
2719: IF (l_row_notfound) THEN
2720: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2721: END IF;
2722: IF (x_olev_rec.id = OKC_API.G_MISS_NUM)
2723: THEN
2724: x_olev_rec.id := l_olev_rec.id;
2725: END IF;
2726: IF (x_olev_rec.select_yn = OKC_API.G_MISS_CHAR)
2722: IF (x_olev_rec.id = OKC_API.G_MISS_NUM)
2723: THEN
2724: x_olev_rec.id := l_olev_rec.id;
2725: END IF;
2726: IF (x_olev_rec.select_yn = OKC_API.G_MISS_CHAR)
2727: THEN
2728: x_olev_rec.select_yn := l_olev_rec.select_yn;
2729: END IF;
2730: IF (x_olev_rec.process_flag = OKC_API.G_MISS_CHAR)
2726: IF (x_olev_rec.select_yn = OKC_API.G_MISS_CHAR)
2727: THEN
2728: x_olev_rec.select_yn := l_olev_rec.select_yn;
2729: END IF;
2730: IF (x_olev_rec.process_flag = OKC_API.G_MISS_CHAR)
2731: THEN
2732: x_olev_rec.process_flag := l_olev_rec.process_flag;
2733: END IF;
2734: IF (x_olev_rec.active_yn = OKC_API.G_MISS_CHAR)
2730: IF (x_olev_rec.process_flag = OKC_API.G_MISS_CHAR)
2731: THEN
2732: x_olev_rec.process_flag := l_olev_rec.process_flag;
2733: END IF;
2734: IF (x_olev_rec.active_yn = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_olev_rec.active_yn := l_olev_rec.active_yn;
2737: END IF;
2738: IF (x_olev_rec.oie_id = OKC_API.G_MISS_NUM)
2734: IF (x_olev_rec.active_yn = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_olev_rec.active_yn := l_olev_rec.active_yn;
2737: END IF;
2738: IF (x_olev_rec.oie_id = OKC_API.G_MISS_NUM)
2739: THEN
2740: x_olev_rec.oie_id := l_olev_rec.oie_id;
2741: END IF;
2742: IF (x_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2738: IF (x_olev_rec.oie_id = OKC_API.G_MISS_NUM)
2739: THEN
2740: x_olev_rec.oie_id := l_olev_rec.oie_id;
2741: END IF;
2742: IF (x_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2743: THEN
2744: x_olev_rec.parent_ole_id := l_olev_rec.parent_ole_id;
2745: END IF;
2746: IF (x_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2742: IF (x_olev_rec.parent_ole_id = OKC_API.G_MISS_NUM)
2743: THEN
2744: x_olev_rec.parent_ole_id := l_olev_rec.parent_ole_id;
2745: END IF;
2746: IF (x_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_olev_rec.subject_chr_id := l_olev_rec.subject_chr_id;
2749: END IF;
2750: IF (x_olev_rec.object_chr_id = OKC_API.G_MISS_NUM)
2746: IF (x_olev_rec.subject_chr_id = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_olev_rec.subject_chr_id := l_olev_rec.subject_chr_id;
2749: END IF;
2750: IF (x_olev_rec.object_chr_id = OKC_API.G_MISS_NUM)
2751: THEN
2752: x_olev_rec.object_chr_id := l_olev_rec.object_chr_id;
2753: END IF;
2754: IF (x_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2750: IF (x_olev_rec.object_chr_id = OKC_API.G_MISS_NUM)
2751: THEN
2752: x_olev_rec.object_chr_id := l_olev_rec.object_chr_id;
2753: END IF;
2754: IF (x_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2755: THEN
2756: x_olev_rec.subject_cle_id := l_olev_rec.subject_cle_id;
2757: END IF;
2758: IF (x_olev_rec.object_cle_id = OKC_API.G_MISS_NUM)
2754: IF (x_olev_rec.subject_cle_id = OKC_API.G_MISS_NUM)
2755: THEN
2756: x_olev_rec.subject_cle_id := l_olev_rec.subject_cle_id;
2757: END IF;
2758: IF (x_olev_rec.object_cle_id = OKC_API.G_MISS_NUM)
2759: THEN
2760: x_olev_rec.object_cle_id := l_olev_rec.object_cle_id;
2761: END IF;
2762: IF (x_olev_rec.object_version_number = OKC_API.G_MISS_NUM)
2758: IF (x_olev_rec.object_cle_id = OKC_API.G_MISS_NUM)
2759: THEN
2760: x_olev_rec.object_cle_id := l_olev_rec.object_cle_id;
2761: END IF;
2762: IF (x_olev_rec.object_version_number = OKC_API.G_MISS_NUM)
2763: THEN
2764: x_olev_rec.object_version_number := l_olev_rec.object_version_number;
2765: END IF;
2766: IF (x_olev_rec.created_by = OKC_API.G_MISS_NUM)
2762: IF (x_olev_rec.object_version_number = OKC_API.G_MISS_NUM)
2763: THEN
2764: x_olev_rec.object_version_number := l_olev_rec.object_version_number;
2765: END IF;
2766: IF (x_olev_rec.created_by = OKC_API.G_MISS_NUM)
2767: THEN
2768: x_olev_rec.created_by := l_olev_rec.created_by;
2769: END IF;
2770: IF (x_olev_rec.creation_date = OKC_API.G_MISS_DATE)
2766: IF (x_olev_rec.created_by = OKC_API.G_MISS_NUM)
2767: THEN
2768: x_olev_rec.created_by := l_olev_rec.created_by;
2769: END IF;
2770: IF (x_olev_rec.creation_date = OKC_API.G_MISS_DATE)
2771: THEN
2772: x_olev_rec.creation_date := l_olev_rec.creation_date;
2773: END IF;
2774: IF (x_olev_rec.last_updated_by = OKC_API.G_MISS_NUM)
2770: IF (x_olev_rec.creation_date = OKC_API.G_MISS_DATE)
2771: THEN
2772: x_olev_rec.creation_date := l_olev_rec.creation_date;
2773: END IF;
2774: IF (x_olev_rec.last_updated_by = OKC_API.G_MISS_NUM)
2775: THEN
2776: x_olev_rec.last_updated_by := l_olev_rec.last_updated_by;
2777: END IF;
2778: IF (x_olev_rec.last_update_date = OKC_API.G_MISS_DATE)
2774: IF (x_olev_rec.last_updated_by = OKC_API.G_MISS_NUM)
2775: THEN
2776: x_olev_rec.last_updated_by := l_olev_rec.last_updated_by;
2777: END IF;
2778: IF (x_olev_rec.last_update_date = OKC_API.G_MISS_DATE)
2779: THEN
2780: x_olev_rec.last_update_date := l_olev_rec.last_update_date;
2781: END IF;
2782: IF (x_olev_rec.last_update_login = OKC_API.G_MISS_NUM)
2778: IF (x_olev_rec.last_update_date = OKC_API.G_MISS_DATE)
2779: THEN
2780: x_olev_rec.last_update_date := l_olev_rec.last_update_date;
2781: END IF;
2782: IF (x_olev_rec.last_update_login = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_olev_rec.last_update_login := l_olev_rec.last_update_login;
2785: END IF;
2786: IF (x_olev_rec.request_id = OKC_API.G_MISS_NUM)
2782: IF (x_olev_rec.last_update_login = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_olev_rec.last_update_login := l_olev_rec.last_update_login;
2785: END IF;
2786: IF (x_olev_rec.request_id = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_olev_rec.request_id := l_olev_rec.request_id;
2789: END IF;
2790: IF (x_olev_rec.program_application_id = OKC_API.G_MISS_NUM)
2786: IF (x_olev_rec.request_id = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_olev_rec.request_id := l_olev_rec.request_id;
2789: END IF;
2790: IF (x_olev_rec.program_application_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_olev_rec.program_application_id := l_olev_rec.program_application_id;
2793: END IF;
2794: IF (x_olev_rec.program_id = OKC_API.G_MISS_NUM)
2790: IF (x_olev_rec.program_application_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_olev_rec.program_application_id := l_olev_rec.program_application_id;
2793: END IF;
2794: IF (x_olev_rec.program_id = OKC_API.G_MISS_NUM)
2795: THEN
2796: x_olev_rec.program_id := l_olev_rec.program_id;
2797: END IF;
2798: IF (x_olev_rec.program_update_date = OKC_API.G_MISS_DATE)
2794: IF (x_olev_rec.program_id = OKC_API.G_MISS_NUM)
2795: THEN
2796: x_olev_rec.program_id := l_olev_rec.program_id;
2797: END IF;
2798: IF (x_olev_rec.program_update_date = OKC_API.G_MISS_DATE)
2799: THEN
2800: x_olev_rec.program_update_date := l_olev_rec.program_update_date;
2801: END IF;
2802: IF (x_olev_rec.message_code = OKC_API.G_MISS_CHAR)
2798: IF (x_olev_rec.program_update_date = OKC_API.G_MISS_DATE)
2799: THEN
2800: x_olev_rec.program_update_date := l_olev_rec.program_update_date;
2801: END IF;
2802: IF (x_olev_rec.message_code = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_olev_rec.message_code := l_olev_rec.message_code;
2805: END IF;
2806:
2818: FUNCTION Set_Attributes (
2819: p_olev_rec IN olev_rec_type,
2820: x_olev_rec OUT NOCOPY olev_rec_type
2821: ) RETURN VARCHAR2 IS
2822: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2823: BEGIN
2824:
2825: x_olev_rec := p_olev_rec;
2826: x_olev_rec.OBJECT_VERSION_NUMBER := NVL(x_olev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2836: okc_debug.Set_Indentation('OKC_OLE_PVT');
2837: okc_debug.log('10500: Entered update_row', 2);
2838: END IF;
2839:
2840: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2841: G_PKG_NAME,
2842: p_init_msg_list,
2843: l_api_version,
2844: p_api_version,
2843: l_api_version,
2844: p_api_version,
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2844: p_api_version,
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2854: p_olev_rec, -- IN
2853: l_return_status := Set_Attributes(
2854: p_olev_rec, -- IN
2855: l_olev_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2854: p_olev_rec, -- IN
2855: l_olev_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2855: l_olev_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
2861: END IF;
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
2869: --- Validate all non-missing attributes (Item Level Validation)
2862: l_return_status := populate_new_record(l_olev_rec, l_def_olev_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
2869: --- Validate all non-missing attributes (Item Level Validation)
2870: l_return_status := Validate_Attributes(l_def_olev_rec);
2868: l_def_olev_rec := fill_who_columns(l_def_olev_rec);
2869: --- Validate all non-missing attributes (Item Level Validation)
2870: l_return_status := Validate_Attributes(l_def_olev_rec);
2871: --- If any errors happen abort API
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2869: --- Validate all non-missing attributes (Item Level Validation)
2870: l_return_status := Validate_Attributes(l_def_olev_rec);
2871: --- If any errors happen abort API
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2870: l_return_status := Validate_Attributes(l_def_olev_rec);
2871: --- If any errors happen abort API
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: --- If any errors happen abort API
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2881: RAISE OKC_API.G_EXCEPTION_ERROR;
2882: END IF;
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2881: RAISE OKC_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2876: END IF;
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2881: RAISE OKC_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2884: --------------------------------------
2877: l_return_status := Validate_Record(l_def_olev_rec);
2878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2881: RAISE OKC_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2884: --------------------------------------
2885: -- Move VIEW record to "Child" records
2895: x_msg_data,
2896: l_ole_rec,
2897: lx_ole_rec
2898: );
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2896: l_ole_rec,
2897: lx_ole_rec
2898: );
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: migrate(lx_ole_rec, l_def_olev_rec);
2897: lx_ole_rec
2898: );
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: migrate(lx_ole_rec, l_def_olev_rec);
2905: x_olev_rec := l_def_olev_rec;
2898: );
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: migrate(lx_ole_rec, l_def_olev_rec);
2905: x_olev_rec := l_def_olev_rec;
2906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: migrate(lx_ole_rec, l_def_olev_rec);
2905: x_olev_rec := l_def_olev_rec;
2906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.log('10600: Leaving update_row', 2);
2910: okc_debug.Reset_Indentation;
2910: okc_debug.Reset_Indentation;
2911: END IF;
2912:
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915:
2916: IF (l_debug = 'Y') THEN
2917: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2918: okc_debug.Reset_Indentation;
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915:
2916: IF (l_debug = 'Y') THEN
2917: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2918: okc_debug.Reset_Indentation;
2919: END IF;
2920:
2921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2917: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2918: okc_debug.Reset_Indentation;
2919: END IF;
2920:
2921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2922: (
2923: l_api_name,
2924: G_PKG_NAME,
2925: 'OKC_API.G_RET_STS_ERROR',
2921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2922: (
2923: l_api_name,
2924: G_PKG_NAME,
2925: 'OKC_API.G_RET_STS_ERROR',
2926: x_msg_count,
2927: x_msg_data,
2928: '_PVT'
2929: );
2926: x_msg_count,
2927: x_msg_data,
2928: '_PVT'
2929: );
2930: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931:
2932: IF (l_debug = 'Y') THEN
2933: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2934: okc_debug.Reset_Indentation;
2929: );
2930: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931:
2932: IF (l_debug = 'Y') THEN
2933: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2934: okc_debug.Reset_Indentation;
2935: END IF;
2936:
2937: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2933: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2934: okc_debug.Reset_Indentation;
2935: END IF;
2936:
2937: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name,
2940: G_PKG_NAME,
2941: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2937: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name,
2940: G_PKG_NAME,
2941: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2942: x_msg_count,
2943: x_msg_data,
2944: '_PVT'
2945: );
2949: okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
2950: okc_debug.Reset_Indentation;
2951: END IF;
2952:
2953: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2957: 'OTHERS',
2974: x_olev_tbl OUT NOCOPY olev_tbl_type) IS
2975:
2976: l_api_version CONSTANT NUMBER := 1;
2977: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2978: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2979: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2980: i NUMBER := 0;
2981: BEGIN
2982:
2975:
2976: l_api_version CONSTANT NUMBER := 1;
2977: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2978: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2979: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2980: i NUMBER := 0;
2981: BEGIN
2982:
2983: IF (l_debug = 'Y') THEN
2984: okc_debug.Set_Indentation('OKC_OLE_PVT');
2985: okc_debug.log('11000: Entered update_row', 2);
2986: END IF;
2987:
2988: OKC_API.init_msg_list(p_init_msg_list);
2989: -- Make sure PL/SQL table has records in it before passing
2990: IF (p_olev_tbl.COUNT > 0) THEN
2991: i := p_olev_tbl.FIRST;
2992: LOOP
2991: i := p_olev_tbl.FIRST;
2992: LOOP
2993: update_row (
2994: p_api_version => p_api_version,
2995: p_init_msg_list => OKC_API.G_FALSE,
2996: x_return_status => x_return_status,
2997: x_msg_count => x_msg_count,
2998: x_msg_data => x_msg_data,
2999: p_olev_rec => p_olev_tbl(i),
2999: p_olev_rec => p_olev_tbl(i),
3000: x_olev_rec => x_olev_tbl(i));
3001:
3002: -- store the highest degree of error
3003: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3004: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3005: l_overall_status := x_return_status;
3006: End If;
3007: End If;
3000: x_olev_rec => x_olev_tbl(i));
3001:
3002: -- store the highest degree of error
3003: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3004: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3005: l_overall_status := x_return_status;
3006: End If;
3007: End If;
3008:
3018: okc_debug.Reset_Indentation;
3019: END IF;
3020:
3021: EXCEPTION
3022: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3023:
3024: IF (l_debug = 'Y') THEN
3025: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3026: okc_debug.Reset_Indentation;
3021: EXCEPTION
3022: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3023:
3024: IF (l_debug = 'Y') THEN
3025: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3026: okc_debug.Reset_Indentation;
3027: END IF;
3028:
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3025: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3026: okc_debug.Reset_Indentation;
3027: END IF;
3028:
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3031: l_api_name,
3032: G_PKG_NAME,
3033: 'OKC_API.G_RET_STS_ERROR',
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3031: l_api_name,
3032: G_PKG_NAME,
3033: 'OKC_API.G_RET_STS_ERROR',
3034: x_msg_count,
3035: x_msg_data,
3036: '_PVT'
3037: );
3034: x_msg_count,
3035: x_msg_data,
3036: '_PVT'
3037: );
3038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3042: okc_debug.Reset_Indentation;
3037: );
3038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3041: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3046: (
3047: l_api_name,
3048: G_PKG_NAME,
3049: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3045: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3046: (
3047: l_api_name,
3048: G_PKG_NAME,
3049: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3050: x_msg_count,
3051: x_msg_data,
3052: '_PVT'
3053: );
3057: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3058: okc_debug.Reset_Indentation;
3059: END IF;
3060:
3061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3062: (
3063: l_api_name,
3064: G_PKG_NAME,
3065: 'OTHERS',
3084: p_ole_rec IN ole_rec_type) IS
3085:
3086: l_api_version CONSTANT NUMBER := 1;
3087: l_api_name CONSTANT VARCHAR2(30) := 'LINES_delete_row';
3088: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3089: l_ole_rec ole_rec_type:= p_ole_rec;
3090: l_row_notfound BOOLEAN := TRUE;
3091: BEGIN
3092:
3094: okc_debug.Set_Indentation('OKC_OLE_PVT');
3095: okc_debug.log('11500: Entered delete_row', 2);
3096: END IF;
3097:
3098: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3099: p_init_msg_list,
3100: '_PVT',
3101: x_return_status);
3102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3098: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3099: p_init_msg_list,
3100: '_PVT',
3101: x_return_status);
3102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3105: RAISE OKC_API.G_EXCEPTION_ERROR;
3106: END IF;
3099: p_init_msg_list,
3100: '_PVT',
3101: x_return_status);
3102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3105: RAISE OKC_API.G_EXCEPTION_ERROR;
3106: END IF;
3107: DELETE FROM OKC_OPERATION_LINES
3100: '_PVT',
3101: x_return_status);
3102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3105: RAISE OKC_API.G_EXCEPTION_ERROR;
3106: END IF;
3107: DELETE FROM OKC_OPERATION_LINES
3108: WHERE ID = l_ole_rec.id;
3101: x_return_status);
3102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3105: RAISE OKC_API.G_EXCEPTION_ERROR;
3106: END IF;
3107: DELETE FROM OKC_OPERATION_LINES
3108: WHERE ID = l_ole_rec.id;
3109:
3106: END IF;
3107: DELETE FROM OKC_OPERATION_LINES
3108: WHERE ID = l_ole_rec.id;
3109:
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111:
3112: IF (l_debug = 'Y') THEN
3113: okc_debug.log('11600: Leaving delete_row', 2);
3114: okc_debug.Reset_Indentation;
3114: okc_debug.Reset_Indentation;
3115: END IF;
3116:
3117: EXCEPTION
3118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3119:
3120: IF (l_debug = 'Y') THEN
3121: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3122: okc_debug.Reset_Indentation;
3117: EXCEPTION
3118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3119:
3120: IF (l_debug = 'Y') THEN
3121: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3122: okc_debug.Reset_Indentation;
3123: END IF;
3124:
3125: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3121: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3122: okc_debug.Reset_Indentation;
3123: END IF;
3124:
3125: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3126: (
3127: l_api_name,
3128: G_PKG_NAME,
3129: 'OKC_API.G_RET_STS_ERROR',
3125: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3126: (
3127: l_api_name,
3128: G_PKG_NAME,
3129: 'OKC_API.G_RET_STS_ERROR',
3130: x_msg_count,
3131: x_msg_data,
3132: '_PVT'
3133: );
3130: x_msg_count,
3131: x_msg_data,
3132: '_PVT'
3133: );
3134: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3135:
3136: IF (l_debug = 'Y') THEN
3137: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3138: okc_debug.Reset_Indentation;
3133: );
3134: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3135:
3136: IF (l_debug = 'Y') THEN
3137: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3138: okc_debug.Reset_Indentation;
3139: END IF;
3140:
3141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3137: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3138: okc_debug.Reset_Indentation;
3139: END IF;
3140:
3141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3146: x_msg_count,
3147: x_msg_data,
3148: '_PVT'
3149: );
3153: okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
3154: okc_debug.Reset_Indentation;
3155: END IF;
3156:
3157: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3158: (
3159: l_api_name,
3160: G_PKG_NAME,
3161: 'OTHERS',
3177: p_olev_rec IN olev_rec_type) IS
3178:
3179: l_api_version CONSTANT NUMBER := 1;
3180: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3182: l_olev_rec olev_rec_type := p_olev_rec;
3183: l_ole_rec ole_rec_type;
3184: BEGIN
3185:
3187: okc_debug.Set_Indentation('OKC_OLE_PVT');
3188: okc_debug.log('12000: Entered delete_row', 2);
3189: END IF;
3190:
3191: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3192: G_PKG_NAME,
3193: p_init_msg_list,
3194: l_api_version,
3195: p_api_version,
3194: l_api_version,
3195: p_api_version,
3196: '_PVT',
3197: x_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_ERROR;
3202: END IF;
3195: p_api_version,
3196: '_PVT',
3197: x_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --------------------------------------
3196: '_PVT',
3197: x_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --------------------------------------
3204: -- Move VIEW record to "Child" records
3197: x_return_status);
3198: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3201: RAISE OKC_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --------------------------------------
3204: -- Move VIEW record to "Child" records
3205: --------------------------------------
3213: x_msg_count,
3214: x_msg_data,
3215: l_ole_rec
3216: );
3217: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3214: x_msg_data,
3215: l_ole_rec
3216: );
3217: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3215: l_ole_rec
3216: );
3217: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223:
3216: );
3217: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223:
3224: IF (l_debug = 'Y') THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223:
3224: IF (l_debug = 'Y') THEN
3225: okc_debug.log('12100: Leaving delete_row', 2);
3226: okc_debug.Reset_Indentation;
3226: okc_debug.Reset_Indentation;
3227: END IF;
3228:
3229: EXCEPTION
3230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3231:
3232: IF (l_debug = 'Y') THEN
3233: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3234: okc_debug.Reset_Indentation;
3229: EXCEPTION
3230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3231:
3232: IF (l_debug = 'Y') THEN
3233: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3234: okc_debug.Reset_Indentation;
3235: END IF;
3236:
3237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3233: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3234: okc_debug.Reset_Indentation;
3235: END IF;
3236:
3237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3238: (
3239: l_api_name,
3240: G_PKG_NAME,
3241: 'OKC_API.G_RET_STS_ERROR',
3237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3238: (
3239: l_api_name,
3240: G_PKG_NAME,
3241: 'OKC_API.G_RET_STS_ERROR',
3242: x_msg_count,
3243: x_msg_data,
3244: '_PVT'
3245: );
3242: x_msg_count,
3243: x_msg_data,
3244: '_PVT'
3245: );
3246: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247:
3248: IF (l_debug = 'Y') THEN
3249: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3250: okc_debug.Reset_Indentation;
3245: );
3246: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247:
3248: IF (l_debug = 'Y') THEN
3249: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3250: okc_debug.Reset_Indentation;
3251: END IF;
3252:
3253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3249: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3250: okc_debug.Reset_Indentation;
3251: END IF;
3252:
3253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3254: (
3255: l_api_name,
3256: G_PKG_NAME,
3257: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3254: (
3255: l_api_name,
3256: G_PKG_NAME,
3257: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3258: x_msg_count,
3259: x_msg_data,
3260: '_PVT'
3261: );
3265: okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
3266: okc_debug.Reset_Indentation;
3267: END IF;
3268:
3269: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3270: (
3271: l_api_name,
3272: G_PKG_NAME,
3273: 'OTHERS',
3289: p_olev_tbl IN olev_tbl_type) IS
3290:
3291: l_api_version CONSTANT NUMBER := 1;
3292: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3294: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3295: i NUMBER := 0;
3296: BEGIN
3297:
3290:
3291: l_api_version CONSTANT NUMBER := 1;
3292: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3294: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3295: i NUMBER := 0;
3296: BEGIN
3297:
3298: IF (l_debug = 'Y') THEN
3299: okc_debug.Set_Indentation('OKC_OLE_PVT');
3300: okc_debug.log('12500: Entered delete_row', 2);
3301: END IF;
3302:
3303: OKC_API.init_msg_list(p_init_msg_list);
3304: -- Make sure PL/SQL table has records in it before passing
3305: IF (p_olev_tbl.COUNT > 0) THEN
3306: i := p_olev_tbl.FIRST;
3307: LOOP
3306: i := p_olev_tbl.FIRST;
3307: LOOP
3308: delete_row (
3309: p_api_version => p_api_version,
3310: p_init_msg_list => OKC_API.G_FALSE,
3311: x_return_status => x_return_status,
3312: x_msg_count => x_msg_count,
3313: x_msg_data => x_msg_data,
3314: p_olev_rec => p_olev_tbl(i));
3313: x_msg_data => x_msg_data,
3314: p_olev_rec => p_olev_tbl(i));
3315:
3316: -- store the highest degree of error
3317: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3318: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3319: l_overall_status := x_return_status;
3320: End If;
3321: End If;
3314: p_olev_rec => p_olev_tbl(i));
3315:
3316: -- store the highest degree of error
3317: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3318: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3319: l_overall_status := x_return_status;
3320: End If;
3321: End If;
3322:
3332: okc_debug.Reset_Indentation;
3333: END IF;
3334:
3335: EXCEPTION
3336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3337:
3338: IF (l_debug = 'Y') THEN
3339: okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3340: okc_debug.Reset_Indentation;
3335: EXCEPTION
3336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3337:
3338: IF (l_debug = 'Y') THEN
3339: okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3340: okc_debug.Reset_Indentation;
3341: END IF;
3342:
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3339: okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3340: okc_debug.Reset_Indentation;
3341: END IF;
3342:
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3344: (
3345: l_api_name,
3346: G_PKG_NAME,
3347: 'OKC_API.G_RET_STS_ERROR',
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3344: (
3345: l_api_name,
3346: G_PKG_NAME,
3347: 'OKC_API.G_RET_STS_ERROR',
3348: x_msg_count,
3349: x_msg_data,
3350: '_PVT'
3351: );
3348: x_msg_count,
3349: x_msg_data,
3350: '_PVT'
3351: );
3352: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3353:
3354: IF (l_debug = 'Y') THEN
3355: okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3356: okc_debug.Reset_Indentation;
3351: );
3352: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3353:
3354: IF (l_debug = 'Y') THEN
3355: okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3356: okc_debug.Reset_Indentation;
3357: END IF;
3358:
3359: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3355: okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3356: okc_debug.Reset_Indentation;
3357: END IF;
3358:
3359: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3360: (
3361: l_api_name,
3362: G_PKG_NAME,
3363: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3359: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3360: (
3361: l_api_name,
3362: G_PKG_NAME,
3363: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3364: x_msg_count,
3365: x_msg_data,
3366: '_PVT'
3367: );
3371: okc_debug.log('12900: Exiting delete_row:OTHERS Exception', 2);
3372: okc_debug.Reset_Indentation;
3373: END IF;
3374:
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3376: (
3377: l_api_name,
3378: G_PKG_NAME,
3379: 'OTHERS',