[Home] [Help]
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
13: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_K_LINES_V';
14: G_EXCEPTION_HALT_VALIDATION exception;
15: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
16:
17: -- Start of comments
18: --
19: -- Procedure Name : validate_line_number
31: okc_debug.log('100: Entered validate_line_number', 2);
32: END IF;
33:
34: -- initialize return status
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36:
37: -- check that data exists
38: If (p_clev_rec.line_number = OKC_API.G_MISS_CHAR or
39: p_clev_rec.line_number IS NULL)
34: -- initialize return status
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36:
37: -- check that data exists
38: If (p_clev_rec.line_number = OKC_API.G_MISS_CHAR or
39: p_clev_rec.line_number IS NULL)
40: Then
41: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
42: p_msg_name => g_required_value,
37: -- check that data exists
38: If (p_clev_rec.line_number = OKC_API.G_MISS_CHAR or
39: p_clev_rec.line_number IS NULL)
40: Then
41: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
42: p_msg_name => g_required_value,
43: p_token1 => g_col_name_token,
44: p_token1_value=> 'line_number');
45: -- notify caller of an error
42: p_msg_name => g_required_value,
43: p_token1 => g_col_name_token,
44: p_token1_value=> 'line_number');
45: -- notify caller of an error
46: x_return_status := OKC_API.G_RET_STS_ERROR;
47:
48: -- halt validation
49: raise G_EXCEPTION_HALT_VALIDATION;
50: End If;
72: okc_debug.Reset_Indentation;
73: END IF;
74:
75: -- store SQL error message on message stack
76: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
77: p_msg_name => g_unexpected_error,
78: p_token1 => g_sqlcode_token,
79: p_token1_value=> sqlcode,
80: p_token2 => g_sqlerrm_token,
79: p_token1_value=> sqlcode,
80: p_token2 => g_sqlerrm_token,
81: p_token2_value=> sqlerrm);
82: -- notify caller of an error as UNEXPETED error
83: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
84:
85: End validate_line_number;
86:
87: -- Start of comments
111: okc_debug.log('500: Entered validate_chr_id', 2);
112: END IF;
113:
114: -- initialize return status
115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
116:
117: -- enforce foreign key, if data exists
118: If (p_clev_rec.chr_id <> OKC_API.G_MISS_NUM and
119: p_clev_rec.chr_id IS NOT NULL)
114: -- initialize return status
115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
116:
117: -- enforce foreign key, if data exists
118: If (p_clev_rec.chr_id <> OKC_API.G_MISS_NUM and
119: p_clev_rec.chr_id IS NOT NULL)
120: Then
121: Open l_chrv_csr;
122: Fetch l_chrv_csr Into l_dummy_var;
123: Close l_chrv_csr;
124:
125: -- if l_dummy_var still set to default, data was not found
126: If (l_dummy_var = '?') Then
127: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
128: p_msg_name => g_no_parent_record,
129: p_token1 => g_col_name_token,
130: p_token1_value=> 'chr_id',
131: p_token2 => g_child_table_token,
132: p_token2_value=> G_VIEW,
133: p_token3 => g_parent_table_token,
134: p_token3_value=> 'OKC_K_HEADERS_V');
135: -- notify caller of an error
136: x_return_status := OKC_API.G_RET_STS_ERROR;
137: End If;
138: End If;
139:
140: IF (l_debug = 'Y') THEN
150: okc_debug.Reset_Indentation;
151: END IF;
152:
153: -- store SQL error message on message stack
154: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
155: p_msg_name => g_unexpected_error,
156: p_token1 => g_sqlcode_token,
157: p_token1_value => sqlcode,
158: p_token2 => g_sqlerrm_token,
157: p_token1_value => sqlcode,
158: p_token2 => g_sqlerrm_token,
159: p_token2_value => sqlerrm);
160: -- notify caller of an error as UNEXPETED error
161: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
162:
163: -- verify that cursor was closed
164: if l_chrv_csr%ISOPEN then
165: close l_chrv_csr;
190: okc_debug.log('800: Entered validate_cle_id', 2);
191: END IF;
192:
193: -- initialize return status
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
195:
196: -- enforce foreign key, if data exists
197: If (p_clev_rec.cle_id <> OKC_API.G_MISS_NUM and
198: p_clev_rec.cle_id IS NOT NULL)
193: -- initialize return status
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
195:
196: -- enforce foreign key, if data exists
197: If (p_clev_rec.cle_id <> OKC_API.G_MISS_NUM and
198: p_clev_rec.cle_id IS NOT NULL)
199: Then
200: Open l_clev_csr;
201: Fetch l_clev_csr Into l_dummy_var;
202: Close l_clev_csr;
203:
204: -- if l_dummy_var still set to default, data was not found
205: If (l_dummy_var = '?') Then
206: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
207: p_msg_name => g_no_parent_record,
208: p_token1 => g_col_name_token,
209: p_token1_value => 'cle_id',
210: p_token2 => g_child_table_token,
211: p_token2_value => G_VIEW,
212: p_token3 => g_parent_table_token,
213: p_token3_value => G_VIEW);
214: -- notify caller of an error
215: x_return_status := OKC_API.G_RET_STS_ERROR;
216: End If;
217: End If;
218:
219: IF (l_debug = 'Y') THEN
229: okc_debug.Reset_Indentation;
230: END IF;
231:
232: -- store SQL error message on message stack
233: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
234: p_msg_name => g_unexpected_error,
235: p_token1 => g_sqlcode_token,
236: p_token1_value => sqlcode,
237: p_token2 => g_sqlerrm_token,
236: p_token1_value => sqlcode,
237: p_token2 => g_sqlerrm_token,
238: p_token2_value => sqlerrm);
239: -- notify caller of an error as UNEXPETED error
240: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
241:
242: -- verify that cursor was closed
243: if l_clev_csr%ISOPEN then
244: close l_clev_csr;
282: okc_debug.log('1100: Entered validate_lse_id', 2);
283: END IF;
284:
285: -- initialize return status
286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
287:
288: -- check that data exists
289: If (p_clev_rec.lse_id = OKC_API.G_MISS_NUM or
290: p_clev_rec.lse_id IS NULL)
285: -- initialize return status
286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
287:
288: -- check that data exists
289: If (p_clev_rec.lse_id = OKC_API.G_MISS_NUM or
290: p_clev_rec.lse_id IS NULL)
291: Then
292: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
293: p_msg_name => g_required_value,
288: -- check that data exists
289: If (p_clev_rec.lse_id = OKC_API.G_MISS_NUM or
290: p_clev_rec.lse_id IS NULL)
291: Then
292: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
293: p_msg_name => g_required_value,
294: p_token1 => g_col_name_token,
295: p_token1_value => 'lse_id');
296: -- notify caller of an error
293: p_msg_name => g_required_value,
294: p_token1 => g_col_name_token,
295: p_token1_value => 'lse_id');
296: -- notify caller of an error
297: x_return_status := OKC_API.G_RET_STS_ERROR;
298:
299: -- halt validation
300: raise G_EXCEPTION_HALT_VALIDATION;
301: End If;
313: Close l_lslv_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(p_app_name => g_app_name,
318: p_msg_name => g_no_parent_record,
319: p_token1 => g_col_name_token,
320: p_token1_value => 'lse_id',
321: p_token2 => g_child_table_token,
322: p_token2_value => G_VIEW,
323: p_token3 => g_parent_table_token,
324: p_token3_value => 'OKC_LINE_STYLES_V');
325: -- notify caller of an error
326: x_return_status := OKC_API.G_RET_STS_ERROR;
327: ELSIF (p_clev_rec.lse_id=61 AND p_clev_rec.CHR_id IS NOT NULL
328: AND p_clev_rec.cle_id IS NULL ) THEN
329: l_dummy_var := '?';
330: -- Should be just one Price Hold TopLine
333: Close c_lines61;
334:
335: -- if l_dummy_var still set to default, data was not found
336: If (l_dummy_var <> '?') Then
337: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
338: p_msg_name => 'OKC_JUST_1_PH_TOPLINE_ALLOWED');
339: -- notify caller of an error
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: End If;
336: If (l_dummy_var <> '?') Then
337: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
338: p_msg_name => 'OKC_JUST_1_PH_TOPLINE_ALLOWED');
339: -- notify caller of an error
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: End If;
342: End If;
343: -- Rajendra
344: End If; -- if user defined line style
366: okc_debug.Reset_Indentation;
367: END IF;
368:
369: -- store SQL error message on message stack
370: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
371: p_msg_name => g_unexpected_error,
372: p_token1 => g_sqlcode_token,
373: p_token1_value => sqlcode,
374: p_token2 => g_sqlerrm_token,
373: p_token1_value => sqlcode,
374: p_token2 => g_sqlerrm_token,
375: p_token2_value => sqlerrm);
376: -- notify caller of an error as UNEXPETED error
377: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
378:
379: -- verify that cursor was closed
380: if l_lslv_csr%ISOPEN then
381: close l_lslv_csr;
400: okc_debug.log('1500: Entered validate_display_sequence', 2);
401: END IF;
402:
403: -- initialize return status
404: x_return_status := OKC_API.G_RET_STS_SUCCESS;
405:
406: -- check that data exists
407: If (p_clev_rec.display_sequence = OKC_API.G_MISS_NUM or
408: p_clev_rec.display_sequence IS NULL)
403: -- initialize return status
404: x_return_status := OKC_API.G_RET_STS_SUCCESS;
405:
406: -- check that data exists
407: If (p_clev_rec.display_sequence = OKC_API.G_MISS_NUM or
408: p_clev_rec.display_sequence IS NULL)
409: Then
410: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
411: p_msg_name => g_required_value,
406: -- check that data exists
407: If (p_clev_rec.display_sequence = OKC_API.G_MISS_NUM or
408: p_clev_rec.display_sequence IS NULL)
409: Then
410: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
411: p_msg_name => g_required_value,
412: p_token1 => g_col_name_token,
413: p_token1_value => 'display_sequence');
414: -- notify caller of an error
411: p_msg_name => g_required_value,
412: p_token1 => g_col_name_token,
413: p_token1_value => 'display_sequence');
414: -- notify caller of an error
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416:
417: -- halt validation
418: raise G_EXCEPTION_HALT_VALIDATION;
419: End If;
419: End If;
420:
421: -- check for display sequence > 0
422: If (p_clev_rec.display_sequence < 0) Then
423: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
424: p_msg_name => g_invalid_value,
425: p_token1 => g_col_name_token,
426: p_token1_value => 'display_sequence');
427: x_return_status := OKC_API.G_RET_STS_ERROR;
423: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
424: p_msg_name => g_invalid_value,
425: p_token1 => g_col_name_token,
426: p_token1_value => 'display_sequence');
427: x_return_status := OKC_API.G_RET_STS_ERROR;
428: End If;
429:
430: IF (l_debug = 'Y') THEN
431: okc_debug.log('1600: Leaving validate_display_sequence with return status '||x_return_status, 2);
450: okc_debug.Reset_Indentation;
451: END IF;
452:
453: -- store SQL error message on message stack
454: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
455: p_msg_name => g_unexpected_error,
456: p_token1 => g_sqlcode_token,
457: p_token1_value => sqlcode,
458: p_token2 => g_sqlerrm_token,
457: p_token1_value => sqlcode,
458: p_token2 => g_sqlerrm_token,
459: p_token2_value => sqlerrm);
460: -- notify caller of an error as UNEXPETED error
461: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
462:
463: End validate_display_sequence;
464:
465: -- Start of comments
479: okc_debug.log('1900: Entered validate_trn_code', 2);
480: END IF;
481:
482: -- initialize return status
483: x_return_status := OKC_API.G_RET_STS_SUCCESS;
484:
485: -- enforce foreign key if data exists
486: If (p_clev_rec.trn_code <> OKC_API.G_MISS_CHAR and
487: p_clev_rec.trn_code IS NOT NULL)
482: -- initialize return status
483: x_return_status := OKC_API.G_RET_STS_SUCCESS;
484:
485: -- enforce foreign key if data exists
486: If (p_clev_rec.trn_code <> OKC_API.G_MISS_CHAR and
487: p_clev_rec.trn_code IS NOT NULL)
488: Then
489: -- Check if the value is a valid code from lookup table
490: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
488: Then
489: -- Check if the value is a valid code from lookup table
490: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
491: p_clev_rec.trn_code);
492: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
493: --set error message in message stack
494: OKC_API.SET_MESSAGE(
495: p_app_name => G_APP_NAME,
496: p_msg_name => G_INVALID_VALUE,
490: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
491: p_clev_rec.trn_code);
492: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
493: --set error message in message stack
494: OKC_API.SET_MESSAGE(
495: p_app_name => G_APP_NAME,
496: p_msg_name => G_INVALID_VALUE,
497: p_token1 => G_COL_NAME_TOKEN,
498: p_token1_value => 'TERMINATION_REASON');
496: p_msg_name => G_INVALID_VALUE,
497: p_token1 => G_COL_NAME_TOKEN,
498: p_token1_value => 'TERMINATION_REASON');
499: raise G_EXCEPTION_HALT_VALIDATION;
500: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
501: raise G_EXCEPTION_HALT_VALIDATION;
502: End If;
503: End If;
504:
515: okc_debug.Reset_Indentation;
516: END IF;
517:
518: -- store SQL error message on message stack
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
520: p_msg_name => g_unexpected_error,
521: p_token1 => g_sqlcode_token,
522: p_token1_value => sqlcode,
523: p_token2 => g_sqlerrm_token,
522: p_token1_value => sqlcode,
523: p_token2 => g_sqlerrm_token,
524: p_token2_value => sqlerrm);
525: -- notify caller of an error as UNEXPETED error
526: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
527:
528: End validate_trn_code;
529:
530: -- Start of comments
554: okc_debug.log('2200: Entered validate_dnz_chr_id', 2);
555: END IF;
556:
557: -- initialize return status
558: x_return_status := OKC_API.G_RET_STS_SUCCESS;
559: -- check that data exists
560: If (p_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM or
561: p_clev_rec.dnz_chr_id IS NULL)
562: Then
556:
557: -- initialize return status
558: x_return_status := OKC_API.G_RET_STS_SUCCESS;
559: -- check that data exists
560: If (p_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM or
561: p_clev_rec.dnz_chr_id IS NULL)
562: Then
563: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
564: p_msg_name => g_required_value,
559: -- check that data exists
560: If (p_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM or
561: p_clev_rec.dnz_chr_id IS NULL)
562: Then
563: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
564: p_msg_name => g_required_value,
565: p_token1 => g_col_name_token,
566: p_token1_value => 'dnz_chr_id');
567: -- notify caller of an error
564: p_msg_name => g_required_value,
565: p_token1 => g_col_name_token,
566: p_token1_value => 'dnz_chr_id');
567: -- notify caller of an error
568: x_return_status := OKC_API.G_RET_STS_ERROR;
569:
570: -- halt validation
571: raise G_EXCEPTION_HALT_VALIDATION;
572: End If;
577: Close l_chrv_csr;
578:
579: -- if l_dummy_var still set to default, data was not found
580: If (l_dummy_var = '?') Then
581: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
582: p_msg_name => g_no_parent_record,
583: p_token1 => g_col_name_token,
584: p_token1_value => 'dnz_chr_id',
585: p_token2 => g_child_table_token,
586: p_token2_value => G_VIEW,
587: p_token3 => g_parent_table_token,
588: p_token3_value => 'OKC_K_HEADERS_V');
589: -- notify caller of an error
590: x_return_status := OKC_API.G_RET_STS_ERROR;
591: End If;
592:
593: IF (l_debug = 'Y') THEN
594: okc_debug.log('2300: Leaving validate_dnz_chr_id with return status '||x_return_status, 2);
613: okc_debug.Reset_Indentation;
614: END IF;
615:
616: -- store SQL error message on message stack
617: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
618: p_msg_name => g_unexpected_error,
619: p_token1 => g_sqlcode_token,
620: p_token1_value => sqlcode,
621: p_token2 => g_sqlerrm_token,
620: p_token1_value => sqlcode,
621: p_token2 => g_sqlerrm_token,
622: p_token2_value => sqlerrm);
623: -- notify caller of an error as UNEXPETED error
624: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
625:
626: -- verify that cursor was closed
627: if l_chrv_csr%ISOPEN then
628: close l_chrv_csr;
647: okc_debug.log('2600: Entered validate_exception_yn', 2);
648: END IF;
649:
650: -- initialize return status
651: x_return_status := OKC_API.G_RET_STS_SUCCESS;
652:
653: -- check that data exists
654: If (p_clev_rec.exception_yn = OKC_API.G_MISS_CHAR or
655: p_clev_rec.exception_yn IS NULL)
650: -- initialize return status
651: x_return_status := OKC_API.G_RET_STS_SUCCESS;
652:
653: -- check that data exists
654: If (p_clev_rec.exception_yn = OKC_API.G_MISS_CHAR or
655: p_clev_rec.exception_yn IS NULL)
656: Then
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
658: p_msg_name => g_required_value,
653: -- check that data exists
654: If (p_clev_rec.exception_yn = OKC_API.G_MISS_CHAR or
655: p_clev_rec.exception_yn IS NULL)
656: Then
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
658: p_msg_name => g_required_value,
659: p_token1 => g_col_name_token,
660: p_token1_value => 'exception_yn');
661: -- notify caller of an error
658: p_msg_name => g_required_value,
659: p_token1 => g_col_name_token,
660: p_token1_value => 'exception_yn');
661: -- notify caller of an error
662: x_return_status := OKC_API.G_RET_STS_ERROR;
663:
664: -- halt validation
665: raise G_EXCEPTION_HALT_VALIDATION;
666: End If;
666: End If;
667:
668: -- check allowed values
669: If (upper(p_clev_rec.exception_yn) NOT IN ('Y','N')) Then
670: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
671: p_msg_name => g_invalid_value,
672: p_token1 => g_col_name_token,
673: p_token1_value => 'exception_yn');
674: -- notify caller of an error
671: p_msg_name => g_invalid_value,
672: p_token1 => g_col_name_token,
673: p_token1_value => 'exception_yn');
674: -- notify caller of an error
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: End If;
677:
678: IF (l_debug = 'Y') THEN
679: okc_debug.log('2700: Leaving validate_exception_yn with return status '||x_return_status, 2);
698: okc_debug.Reset_Indentation;
699: END IF;
700:
701: -- store SQL error message on message stack
702: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
703: p_msg_name => g_unexpected_error,
704: p_token1 => g_sqlcode_token,
705: p_token1_value => sqlcode,
706: p_token2 => g_sqlerrm_token,
705: p_token1_value => sqlcode,
706: p_token2 => g_sqlerrm_token,
707: p_token2_value => sqlerrm);
708: -- notify caller of an error as UNEXPETED error
709: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
710:
711: End validate_exception_yn;
712:
713: -- Start of comments
727: okc_debug.log('3000: Entered validate_hidden_ind', 2);
728: END IF;
729:
730: -- initialize return status
731: x_return_status := OKC_API.G_RET_STS_SUCCESS;
732: If (p_clev_rec.hidden_ind <> OKC_API.G_MISS_CHAR and
733: p_clev_rec.hidden_ind IS NOT NULL)
734: Then
735: -- check allowed values
728: END IF;
729:
730: -- initialize return status
731: x_return_status := OKC_API.G_RET_STS_SUCCESS;
732: If (p_clev_rec.hidden_ind <> OKC_API.G_MISS_CHAR and
733: p_clev_rec.hidden_ind IS NOT NULL)
734: Then
735: -- check allowed values
736: If (upper(p_clev_rec.hidden_ind) NOT IN ('Y','N')) Then
733: p_clev_rec.hidden_ind IS NOT NULL)
734: Then
735: -- check allowed values
736: If (upper(p_clev_rec.hidden_ind) NOT IN ('Y','N')) Then
737: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
738: p_msg_name => g_invalid_value,
739: p_token1 => g_col_name_token,
740: p_token1_value => 'hidden_ind');
741: -- notify caller of an error
738: p_msg_name => g_invalid_value,
739: p_token1 => g_col_name_token,
740: p_token1_value => 'hidden_ind');
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: End validate_hidden_ind;
770:
771: -- Start of comments
785: okc_debug.log('3300: Entered validate_price_level_ind', 2);
786: END IF;
787:
788: -- initialize return status
789: x_return_status := OKC_API.G_RET_STS_SUCCESS;
790:
791: If (p_clev_rec.price_level_ind <> OKC_API.G_MISS_CHAR and
792: p_clev_rec.price_level_ind IS NOT NULL)
793: Then
787:
788: -- initialize return status
789: x_return_status := OKC_API.G_RET_STS_SUCCESS;
790:
791: If (p_clev_rec.price_level_ind <> OKC_API.G_MISS_CHAR and
792: p_clev_rec.price_level_ind IS NOT NULL)
793: Then
794: -- check allowed values
795: If (upper(p_clev_rec.price_level_ind) NOT IN ('Y','N')) Then
792: p_clev_rec.price_level_ind IS NOT NULL)
793: Then
794: -- check allowed values
795: If (upper(p_clev_rec.price_level_ind) NOT IN ('Y','N')) Then
796: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
797: p_msg_name => g_invalid_value,
798: p_token1 => g_col_name_token,
799: p_token1_value => 'price_level_ind');
800: -- notify caller of an error
797: p_msg_name => g_invalid_value,
798: p_token1 => g_col_name_token,
799: p_token1_value => 'price_level_ind');
800: -- notify caller of an error
801: x_return_status := OKC_API.G_RET_STS_ERROR;
802: End If;
803: End If;
804:
805: IF (l_debug = 'Y') THEN
815: okc_debug.Reset_Indentation;
816: END IF;
817:
818: -- store SQL error message on message stack
819: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
820: p_msg_name => g_unexpected_error,
821: p_token1 => g_sqlcode_token,
822: p_token1_value => sqlcode,
823: p_token2 => g_sqlerrm_token,
822: p_token1_value => sqlcode,
823: p_token2 => g_sqlerrm_token,
824: p_token2_value => sqlerrm);
825: -- notify caller of an error as UNEXPETED error
826: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
827:
828: End validate_price_level_ind;
829:
830: -- Start of comments
844: okc_debug.log('3600: Entered validate_inv_line_level_ind', 2);
845: END IF;
846:
847: -- initialize return status
848: x_return_status := OKC_API.G_RET_STS_SUCCESS;
849:
850: If (p_clev_rec.invoice_line_level_ind <> OKC_API.G_MISS_CHAR and
851: p_clev_rec.invoice_line_level_ind IS NOT NULL)
852: Then
846:
847: -- initialize return status
848: x_return_status := OKC_API.G_RET_STS_SUCCESS;
849:
850: If (p_clev_rec.invoice_line_level_ind <> OKC_API.G_MISS_CHAR and
851: p_clev_rec.invoice_line_level_ind IS NOT NULL)
852: Then
853: -- check allowed values
854: If (upper(p_clev_rec.invoice_line_level_ind) NOT IN ('Y','N')) Then
851: p_clev_rec.invoice_line_level_ind IS NOT NULL)
852: Then
853: -- check allowed values
854: If (upper(p_clev_rec.invoice_line_level_ind) NOT IN ('Y','N')) Then
855: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
856: p_msg_name => g_invalid_value,
857: p_token1 => g_col_name_token,
858: p_token1_value => 'invoice_line_level_ind');
859: -- notify caller of an error
856: p_msg_name => g_invalid_value,
857: p_token1 => g_col_name_token,
858: p_token1_value => 'invoice_line_level_ind');
859: -- notify caller of an error
860: x_return_status := OKC_API.G_RET_STS_ERROR;
861: End If;
862: End If;
863:
864: IF (l_debug = 'Y') THEN
874: okc_debug.Reset_Indentation;
875: END IF;
876:
877: -- store SQL error message on message stack
878: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
879: p_msg_name => g_unexpected_error,
880: p_token1 => g_sqlcode_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
883: p_token2_value => sqlerrm);
884: -- notify caller of an error as UNEXPETED error
885: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
886:
887: End validate_inv_line_level_ind;
888:
889: -- Start of comments
903: okc_debug.log('3900: Entered validate_price_type', 2);
904: END IF;
905:
906: -- initialize return status
907: x_return_status := OKC_API.G_RET_STS_SUCCESS;
908:
909: -- check data is in lookup table only if data is not null
910: If (p_clev_rec.price_type <> OKC_API.G_MISS_CHAR and
911: p_clev_rec.price_type IS NOT NULL)
906: -- initialize return status
907: x_return_status := OKC_API.G_RET_STS_SUCCESS;
908:
909: -- check data is in lookup table only if data is not null
910: If (p_clev_rec.price_type <> OKC_API.G_MISS_CHAR and
911: p_clev_rec.price_type IS NOT NULL)
912: Then
913: -- Check if the value is a valid code from lookup table
914: x_return_status:=OKC_UTIL.check_lookup_code('OKC_PRICE_TYPE',p_clev_rec.price_type);
911: p_clev_rec.price_type IS NOT NULL)
912: Then
913: -- Check if the value is a valid code from lookup table
914: x_return_status:=OKC_UTIL.check_lookup_code('OKC_PRICE_TYPE',p_clev_rec.price_type);
915: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
916: --set error message in message stack
917: OKC_API.SET_MESSAGE(
918: p_app_name => G_APP_NAME,
919: p_msg_name => G_INVALID_VALUE,
913: -- Check if the value is a valid code from lookup table
914: x_return_status:=OKC_UTIL.check_lookup_code('OKC_PRICE_TYPE',p_clev_rec.price_type);
915: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
916: --set error message in message stack
917: OKC_API.SET_MESSAGE(
918: p_app_name => G_APP_NAME,
919: p_msg_name => G_INVALID_VALUE,
920: p_token1 => G_COL_NAME_TOKEN,
921: p_token1_value => 'PRICE_TYPE');
919: p_msg_name => G_INVALID_VALUE,
920: p_token1 => G_COL_NAME_TOKEN,
921: p_token1_value => 'PRICE_TYPE');
922: raise G_EXCEPTION_HALT_VALIDATION;
923: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
924: raise G_EXCEPTION_HALT_VALIDATION;
925: End If;
926: End If;
927:
948: okc_debug.Reset_Indentation;
949: END IF;
950:
951: -- store SQL error message on message stack
952: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
953: p_msg_name => g_unexpected_error,
954: p_token1 => g_sqlcode_token,
955: p_token1_value => sqlcode,
956: p_token2 => g_sqlerrm_token,
955: p_token1_value => sqlcode,
956: p_token2 => g_sqlerrm_token,
957: p_token2_value => sqlerrm);
958: -- notify caller of an error as UNEXPETED error
959: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
960:
961: End validate_price_type;
962:
963: -- Start of comments
982: okc_debug.log('4300: Entered validate_sts_code', 2);
983: END IF;
984:
985: -- initialize return status
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987:
988: -- check that data exists
989: If (p_clev_rec.sts_code = OKC_API.G_MISS_CHAR or
990: p_clev_rec.sts_code IS NULL)
985: -- initialize return status
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987:
988: -- check that data exists
989: If (p_clev_rec.sts_code = OKC_API.G_MISS_CHAR or
990: p_clev_rec.sts_code IS NULL)
991: Then
992: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
993: p_msg_name => g_required_value,
988: -- check that data exists
989: If (p_clev_rec.sts_code = OKC_API.G_MISS_CHAR or
990: p_clev_rec.sts_code IS NULL)
991: Then
992: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
993: p_msg_name => g_required_value,
994: p_token1 => g_col_name_token,
995: p_token1_value => 'sts_code');
996: -- notify caller of an error
993: p_msg_name => g_required_value,
994: p_token1 => g_col_name_token,
995: p_token1_value => 'sts_code');
996: -- notify caller of an error
997: x_return_status := OKC_API.G_RET_STS_ERROR;
998:
999: -- halt validation
1000: raise G_EXCEPTION_HALT_VALIDATION;
1001: End If;
1006: Close l_stsv_csr;
1007:
1008: If (l_dummy_var = '?') Then
1009: --set error message in message stack
1010: OKC_API.SET_MESSAGE(
1011: p_app_name => g_app_name,
1012: p_msg_name => g_no_parent_record,
1013: p_token1 => g_col_name_token,
1014: p_token1_value => 'sts_code',
1016: p_token2_value => G_VIEW,
1017: p_token3 => g_parent_table_token,
1018: p_token3_value => 'OKC_STATUSES_V');
1019: -- notify caller of an error
1020: x_return_status := OKC_API.G_RET_STS_ERROR;
1021:
1022: End If;
1023:
1024: IF (l_debug = 'Y') THEN
1044: okc_debug.Reset_Indentation;
1045: END IF;
1046:
1047: -- store SQL error message on message stack
1048: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1049: p_msg_name => g_unexpected_error,
1050: p_token1 => g_sqlcode_token,
1051: p_token1_value => sqlcode,
1052: p_token2 => g_sqlerrm_token,
1051: p_token1_value => sqlcode,
1052: p_token2 => g_sqlerrm_token,
1053: p_token2_value => sqlerrm);
1054: -- notify caller of an error as UNEXPETED error
1055: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1056:
1057: End validate_sts_code;
1058:
1059: -- Start of comments
1082: okc_debug.log('4700: Entered validate_currency_code', 2);
1083: END IF;
1084:
1085: -- initialize return status
1086: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1087:
1088: -- check data is in lookup table only if data is not null
1089: If (p_clev_rec.currency_code <> OKC_API.G_MISS_CHAR and
1090: p_clev_rec.currency_code IS NOT NULL)
1085: -- initialize return status
1086: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1087:
1088: -- check data is in lookup table only if data is not null
1089: If (p_clev_rec.currency_code <> OKC_API.G_MISS_CHAR and
1090: p_clev_rec.currency_code IS NOT NULL)
1091: Then
1092: Open l_fndv_csr;
1093: Fetch l_fndv_csr Into l_dummy_var;
1094: Close l_fndv_csr;
1095:
1096: -- if l_dummy_var still set to default, data was not found
1097: If (l_dummy_var = '?') Then
1098: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1099: p_msg_name => g_no_parent_record,
1100: p_token1 => g_col_name_token,
1101: p_token1_value => 'currency_code',
1102: p_token2 => g_child_table_token,
1103: p_token2_value => G_VIEW,
1104: p_token3 => g_parent_table_token,
1105: p_token3_value => 'FND_CURRENCIES');
1106: -- notify caller of an error
1107: x_return_status := OKC_API.G_RET_STS_ERROR;
1108: End If;
1109: End If;
1110:
1111: IF (l_debug = 'Y') THEN
1121: okc_debug.Reset_Indentation;
1122: END IF;
1123:
1124: -- store SQL error message on message stack
1125: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1126: p_msg_name => g_unexpected_error,
1127: p_token1 => g_sqlcode_token,
1128: p_token1_value => sqlcode,
1129: p_token2 => g_sqlerrm_token,
1128: p_token1_value => sqlcode,
1129: p_token2 => g_sqlerrm_token,
1130: p_token2_value => sqlerrm);
1131: -- notify caller of an error as UNEXPETED error
1132: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1133:
1134: -- verify that cursor was closed
1135: if l_fndv_csr%ISOPEN then
1136: close l_fndv_csr;
1175: okc_debug.log('5000: Entered validate_start_date', 2);
1176: END IF;
1177:
1178: -- initialize return status
1179: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1180:
1181: -- check that data exists
1182: If (p_clev_rec.start_date <> OKC_API.G_MISS_DATE and
1183: p_clev_rec.start_date IS NOT NULL)
1178: -- initialize return status
1179: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1180:
1181: -- check that data exists
1182: If (p_clev_rec.start_date <> OKC_API.G_MISS_DATE and
1183: p_clev_rec.start_date IS NOT NULL)
1184: Then
1185: If (p_clev_rec.chr_id is not null and
1186: p_clev_rec.chr_id <> OKC_API.G_MISS_NUM)
1182: If (p_clev_rec.start_date <> OKC_API.G_MISS_DATE and
1183: p_clev_rec.start_date IS NOT NULL)
1184: Then
1185: If (p_clev_rec.chr_id is not null and
1186: p_clev_rec.chr_id <> OKC_API.G_MISS_NUM)
1187: Then
1188: open l_chrv_csr;
1189: fetch l_chrv_csr into l_start_date, l_end_date;
1190: l_not_found := l_chrv_csr%NOTFOUND;
1189: fetch l_chrv_csr into l_start_date, l_end_date;
1190: l_not_found := l_chrv_csr%NOTFOUND;
1191: close l_chrv_csr;
1192: Elsif (p_clev_rec.cle_id is not null and
1193: p_clev_rec.cle_id <> OKC_API.G_MISS_NUM)
1194: Then
1195: open l_clev_csr;
1196: fetch l_clev_csr into l_start_date, l_end_date;
1197: l_not_found := l_clev_csr%NOTFOUND;
1198: close l_clev_csr;
1199: End If;
1200:
1201: If (l_not_found) Then
1202: x_return_status := OKC_API.G_RET_STS_ERROR;
1203: raise NO_HEADER_FOUND;
1204: End If;
1205: If (l_start_date IS NOT NULL and l_end_date IS NOT NULL) Then
1206: If (trunc(p_clev_rec.start_date) < trunc(l_start_date) OR
1205: If (l_start_date IS NOT NULL and l_end_date IS NOT NULL) Then
1206: If (trunc(p_clev_rec.start_date) < trunc(l_start_date) OR
1207: trunc(p_clev_rec.start_date) > trunc(l_end_date))
1208: Then
1209: x_return_status := OKC_API.G_RET_STS_ERROR;
1210: End If;
1211: /* --Bug-1970094 --------------------------------------------------
1212: Elsif (l_start_date IS NOT NULL and
1213: p_clev_rec.start_date < l_start_date)
1215: -------------------------------------------------------------------*/
1216: Elsif (l_start_date IS NOT NULL and
1217: trunc(p_clev_rec.start_date) < trunc(l_start_date))
1218: Then
1219: x_return_status := OKC_API.G_RET_STS_ERROR;
1220: End If;
1221: End If;
1222:
1223: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1219: x_return_status := OKC_API.G_RET_STS_ERROR;
1220: End If;
1221: End If;
1222:
1223: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1225: p_msg_name => 'OKC_WRONG_CHILD_DATE',
1226: p_token1 => 'VALUE1',
1227: p_token1_value => 'Line Start Date');
1220: End If;
1221: End If;
1222:
1223: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1225: p_msg_name => 'OKC_WRONG_CHILD_DATE',
1226: p_token1 => 'VALUE1',
1227: p_token1_value => 'Line Start Date');
1228: End If;
1240: okc_debug.Reset_Indentation;
1241: END IF;
1242:
1243: -- store SQL error message on message stack
1244: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1245: p_msg_name => 'OKC_NOT_FOUND',
1246: p_token1 => 'VALUE1',
1247: p_token1_value => 'Start/End Dates',
1248: p_token2 => 'VALUE2',
1254: okc_debug.Reset_Indentation;
1255: END IF;
1256:
1257: -- store SQL error message on message stack
1258: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1259: p_msg_name => g_unexpected_error,
1260: p_token1 => g_sqlcode_token,
1261: p_token1_value => sqlcode,
1262: p_token2 => g_sqlerrm_token,
1261: p_token1_value => sqlcode,
1262: p_token2 => g_sqlerrm_token,
1263: p_token2_value => sqlerrm);
1264: -- notify caller of an error as UNEXPETED error
1265: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1266:
1267: End validate_start_date;
1268:
1269: -- Start of comments
1303: okc_debug.log('5400: Entered validate_end_date', 2);
1304: END IF;
1305:
1306: -- initialize return status
1307: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1308:
1309: -- check that data exists
1310: If (p_clev_rec.end_date <> OKC_API.G_MISS_DATE and
1311: p_clev_rec.end_date IS NOT NULL)
1306: -- initialize return status
1307: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1308:
1309: -- check that data exists
1310: If (p_clev_rec.end_date <> OKC_API.G_MISS_DATE and
1311: p_clev_rec.end_date IS NOT NULL)
1312: Then
1313: If (p_clev_rec.chr_id is not null and
1314: p_clev_rec.chr_id <> OKC_API.G_MISS_NUM)
1310: If (p_clev_rec.end_date <> OKC_API.G_MISS_DATE and
1311: p_clev_rec.end_date IS NOT NULL)
1312: Then
1313: If (p_clev_rec.chr_id is not null and
1314: p_clev_rec.chr_id <> OKC_API.G_MISS_NUM)
1315: Then
1316: open l_chrv_csr;
1317: fetch l_chrv_csr into l_start_date, l_end_date;
1318: l_not_found := l_chrv_csr%NOTFOUND;
1317: fetch l_chrv_csr into l_start_date, l_end_date;
1318: l_not_found := l_chrv_csr%NOTFOUND;
1319: close l_chrv_csr;
1320: Elsif (p_clev_rec.cle_id is not null and
1321: p_clev_rec.cle_id <> OKC_API.G_MISS_NUM)
1322: Then
1323: open l_clev_csr;
1324: fetch l_clev_csr into l_start_date, l_end_date;
1325: l_not_found := l_clev_csr%NOTFOUND;
1326: close l_clev_csr;
1327: End If;
1328:
1329: If (l_not_found) Then
1330: x_return_status := OKC_API.G_RET_STS_ERROR;
1331: raise NO_HEADER_FOUND;
1332: End If;
1333: If (l_start_date IS NOT NULL and l_end_date IS NOT NULL) Then
1334: If (trunc(p_clev_rec.end_date) < trunc(l_start_date) OR
1333: If (l_start_date IS NOT NULL and l_end_date IS NOT NULL) Then
1334: If (trunc(p_clev_rec.end_date) < trunc(l_start_date) OR
1335: trunc(p_clev_rec.end_date) > trunc(l_end_date))
1336: Then
1337: x_return_status := OKC_API.G_RET_STS_ERROR;
1338: End If;
1339: Elsif (l_end_date IS NOT NULL and
1340: trunc(p_clev_rec.end_date) > trunc(l_end_date))
1341: Then
1338: End If;
1339: Elsif (l_end_date IS NOT NULL and
1340: trunc(p_clev_rec.end_date) > trunc(l_end_date))
1341: Then
1342: x_return_status := OKC_API.G_RET_STS_ERROR;
1343: End If;
1344: End If;
1345:
1346: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1342: x_return_status := OKC_API.G_RET_STS_ERROR;
1343: End If;
1344: End If;
1345:
1346: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1347: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1348: p_msg_name => 'OKC_WRONG_CHILD_DATE',
1349: p_token1 => 'VALUE1',
1350: p_token1_value => 'Line End Date');
1343: End If;
1344: End If;
1345:
1346: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1347: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1348: p_msg_name => 'OKC_WRONG_CHILD_DATE',
1349: p_token1 => 'VALUE1',
1350: p_token1_value => 'Line End Date');
1351: End If;
1363: okc_debug.Reset_Indentation;
1364: END IF;
1365:
1366: -- store SQL error message on message stack
1367: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1368: p_msg_name => 'OKC_NOT_FOUND',
1369: p_token1 => 'VALUE1',
1370: p_token1_value => 'Start/End Dates',
1371: p_token2 => 'VALUE2',
1377: okc_debug.Reset_Indentation;
1378: END IF;
1379:
1380: -- store SQL error message on message stack
1381: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1382: p_msg_name => g_unexpected_error,
1383: p_token1 => g_sqlcode_token,
1384: p_token1_value => sqlcode,
1385: p_token2 => g_sqlerrm_token,
1384: p_token1_value => sqlcode,
1385: p_token2 => g_sqlerrm_token,
1386: p_token2_value => sqlerrm);
1387: -- notify caller of an error as UNEXPETED error
1388: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1389:
1390: End validate_end_date;
1391:
1392:
1408: okc_debug.log('5711: Entered validate_line_renewal_type', 2);
1409: END IF;
1410:
1411: -- initialize return status
1412: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1413:
1414: -- check that data exists
1415: If (p_clev_rec.line_renewal_type_code <> OKC_API.G_MISS_CHAR or
1416: p_clev_rec.line_renewal_type_code IS NOT NULL)
1411: -- initialize return status
1412: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1413:
1414: -- check that data exists
1415: If (p_clev_rec.line_renewal_type_code <> OKC_API.G_MISS_CHAR or
1416: p_clev_rec.line_renewal_type_code IS NOT NULL)
1417: Then
1418: -- Check if the value is a valid code from lookup table
1419: x_return_status := OKC_UTIL.check_lookup_code('OKC_LINE_RENEWAL_TYPE',
1418: -- Check if the value is a valid code from lookup table
1419: x_return_status := OKC_UTIL.check_lookup_code('OKC_LINE_RENEWAL_TYPE',
1420: p_clev_rec.line_renewal_type_code);
1421:
1422: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1423: --set error message in message stack
1424: OKC_API.SET_MESSAGE(
1425: p_app_name => G_APP_NAME,
1426: p_msg_name => G_INVALID_VALUE,
1420: p_clev_rec.line_renewal_type_code);
1421:
1422: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1423: --set error message in message stack
1424: OKC_API.SET_MESSAGE(
1425: p_app_name => G_APP_NAME,
1426: p_msg_name => G_INVALID_VALUE,
1427: p_token1 => G_COL_NAME_TOKEN,
1428: p_token1_value => 'LINE_RENEWAL_TYPE');
1426: p_msg_name => G_INVALID_VALUE,
1427: p_token1 => G_COL_NAME_TOKEN,
1428: p_token1_value => 'LINE_RENEWAL_TYPE');
1429:
1430: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1431: raise G_EXCEPTION_HALT_VALIDATION;
1432: End If;
1433: End IF;
1434: IF (l_debug = 'Y') THEN
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: -- store SQL error message on message stack
1450: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1451: p_msg_name => g_unexpected_error,
1452: p_token1 => g_sqlcode_token,
1453: p_token1_value => sqlcode,
1454: p_token2 => g_sqlerrm_token,
1453: p_token1_value => sqlcode,
1454: p_token2 => g_sqlerrm_token,
1455: p_token2_value => sqlerrm);
1456: -- notify caller of an error as UNEXPETED error
1457: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1458:
1459:
1460:
1461: End validate_line_renewal_type;
1486: okc_debug.log('5800: Entered get_next_line_number', 2);
1487: END IF;
1488:
1489: -- initialize return status
1490: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1491: x_line_number := 0;
1492:
1493: If (p_chr_id is not null) Then
1494: -- get next line number in the first level of lines
1580: okc_debug.Reset_Indentation;
1581: END IF;
1582:
1583: -- store SQL error message on message stack
1584: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1585: p_msg_name => g_unexpected_error,
1586: p_token1 => g_sqlcode_token,
1587: p_token1_value => sqlcode,
1588: p_token2 => g_sqlerrm_token,
1588: p_token2 => g_sqlerrm_token,
1589: p_token2_value => sqlerrm);
1590:
1591: -- notify caller of an UNEXPETED error
1592: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1593:
1594: END get_next_line_number;
1595:
1596: -- Start of comments
1619: okc_debug.log('6800: Entered validate_curr_code_rnwd', 2);
1620: END IF;
1621:
1622: -- initialize return status
1623: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1624:
1625: -- check data is in lookup table only if data is not null
1626: If (p_clev_rec.currency_code_renewed <> OKC_API.G_MISS_CHAR and
1627: p_clev_rec.currency_code_renewed IS NOT NULL)
1622: -- initialize return status
1623: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1624:
1625: -- check data is in lookup table only if data is not null
1626: If (p_clev_rec.currency_code_renewed <> OKC_API.G_MISS_CHAR and
1627: p_clev_rec.currency_code_renewed IS NOT NULL)
1628: Then
1629: Open l_fndv_csr;
1630: Fetch l_fndv_csr Into l_dummy_var;
1631: Close l_fndv_csr;
1632:
1633: -- if l_dummy_var still set to default, data was not found
1634: If (l_dummy_var = '?') Then
1635: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1636: p_msg_name => g_no_parent_record,
1637: p_token1 => g_col_name_token,
1638: p_token1_value => 'currency_code_renewed',
1639: p_token2 => g_child_table_token,
1640: p_token2_value => G_VIEW,
1641: p_token3 => g_parent_table_token,
1642: p_token3_value => 'FND_CURRENCIES');
1643: -- notify caller of an error
1644: x_return_status := OKC_API.G_RET_STS_ERROR;
1645: End If;
1646: End If;
1647:
1648: IF (l_debug = 'Y') THEN
1658: okc_debug.Reset_Indentation;
1659: END IF;
1660:
1661: -- store SQL error message on message stack
1662: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1663: p_msg_name => g_unexpected_error,
1664: p_token1 => g_sqlcode_token,
1665: p_token1_value => sqlcode,
1666: p_token2 => g_sqlerrm_token,
1665: p_token1_value => sqlcode,
1666: p_token2 => g_sqlerrm_token,
1667: p_token2_value => sqlerrm);
1668: -- notify caller of an error as UNEXPETED error
1669: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1670:
1671: -- verify that cursor was closed
1672: if l_fndv_csr%ISOPEN then
1673: close l_fndv_csr;
1690: okc_debug.log('7100: Entered validate_orig_sys_code', 2);
1691: END IF;
1692:
1693: -- initialize return status
1694: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1695:
1696: -- enforce foreign key if data exists
1697: If (p_clev_rec.orig_system_source_code <> OKC_API.G_MISS_CHAR and
1698: p_clev_rec.orig_system_source_code IS NOT NULL)
1693: -- initialize return status
1694: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1695:
1696: -- enforce foreign key if data exists
1697: If (p_clev_rec.orig_system_source_code <> OKC_API.G_MISS_CHAR and
1698: p_clev_rec.orig_system_source_code IS NOT NULL)
1699: Then
1700: -- Check if the value is a valid code from lookup table
1701: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1699: Then
1700: -- Check if the value is a valid code from lookup table
1701: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1702: p_clev_rec.orig_system_source_code);
1703: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1704: --set error message in message stack
1705: OKC_API.SET_MESSAGE(
1706: p_app_name => G_APP_NAME,
1707: p_msg_name => G_INVALID_VALUE,
1701: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1702: p_clev_rec.orig_system_source_code);
1703: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1704: --set error message in message stack
1705: OKC_API.SET_MESSAGE(
1706: p_app_name => G_APP_NAME,
1707: p_msg_name => G_INVALID_VALUE,
1708: p_token1 => G_COL_NAME_TOKEN,
1709: p_token1_value => 'ORIG_SYSTEM_SOURCE_CODE');
1707: p_msg_name => G_INVALID_VALUE,
1708: p_token1 => G_COL_NAME_TOKEN,
1709: p_token1_value => 'ORIG_SYSTEM_SOURCE_CODE');
1710: raise G_EXCEPTION_HALT_VALIDATION;
1711: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1712: raise G_EXCEPTION_HALT_VALIDATION;
1713: End If;
1714: End If;
1715:
1726: okc_debug.Reset_Indentation;
1727: END IF;
1728:
1729: -- store SQL error message on message stack
1730: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1731: p_msg_name => g_unexpected_error,
1732: p_token1 => g_sqlcode_token,
1733: p_token1_value => sqlcode,
1734: p_token2 => g_sqlerrm_token,
1733: p_token1_value => sqlcode,
1734: p_token2 => g_sqlerrm_token,
1735: p_token2_value => sqlerrm);
1736: -- notify caller of an error as UNEXPETED error
1737: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1738:
1739: End validate_orig_sys_code;
1740:
1741: -- Start of comments
1763: okc_debug.log('7400: Entered validate_config_complete_yn', 2);
1764: END IF;
1765:
1766: -- initialize return status
1767: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1768:
1769: -- check that data exists
1770: If (p_clev_rec.config_complete_yn <> OKC_API.G_MISS_CHAR and
1771: p_clev_rec.config_complete_yn IS NOT NULL)
1766: -- initialize return status
1767: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1768:
1769: -- check that data exists
1770: If (p_clev_rec.config_complete_yn <> OKC_API.G_MISS_CHAR and
1771: p_clev_rec.config_complete_yn IS NOT NULL)
1772: Then
1773: If p_clev_rec.config_complete_yn NOT IN ('Y','N') Then
1774: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1770: If (p_clev_rec.config_complete_yn <> OKC_API.G_MISS_CHAR and
1771: p_clev_rec.config_complete_yn IS NOT NULL)
1772: Then
1773: If p_clev_rec.config_complete_yn NOT IN ('Y','N') Then
1774: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1775: p_msg_name => g_invalid_value,
1776: p_token1 => g_col_name_token,
1777: p_token1_value => 'config_complete_yn');
1778: -- notify caller of an error
1775: p_msg_name => g_invalid_value,
1776: p_token1 => g_col_name_token,
1777: p_token1_value => 'config_complete_yn');
1778: -- notify caller of an error
1779: x_return_status := OKC_API.G_RET_STS_ERROR;
1780:
1781: -- halt validation
1782: raise G_EXCEPTION_HALT_VALIDATION;
1783: end if;
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: -- store SQL error message on message stack
1810: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1811: p_msg_name => g_unexpected_error,
1812: p_token1 => g_sqlcode_token,
1813: p_token1_value => sqlcode,
1814: p_token2 => g_sqlerrm_token,
1813: p_token1_value => sqlcode,
1814: p_token2 => g_sqlerrm_token,
1815: p_token2_value => sqlerrm);
1816: -- notify caller of an error as UNEXPETED error
1817: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1818:
1819: End validate_config_complete_yn;
1820:
1821: -------------------------------------------------------------------------------------
1836: okc_debug.log('7800: Entered validate_config_valid_yn', 2);
1837: END IF;
1838:
1839: -- initialize return status
1840: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1841:
1842: -- check that data exists
1843: If (p_clev_rec.config_valid_yn <> OKC_API.G_MISS_CHAR and
1844: p_clev_rec.config_valid_yn IS NOT NULL)
1839: -- initialize return status
1840: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1841:
1842: -- check that data exists
1843: If (p_clev_rec.config_valid_yn <> OKC_API.G_MISS_CHAR and
1844: p_clev_rec.config_valid_yn IS NOT NULL)
1845: Then
1846: If p_clev_rec.config_valid_yn NOT IN ('Y','N') Then
1847: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1843: If (p_clev_rec.config_valid_yn <> OKC_API.G_MISS_CHAR and
1844: p_clev_rec.config_valid_yn IS NOT NULL)
1845: Then
1846: If p_clev_rec.config_valid_yn NOT IN ('Y','N') Then
1847: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1848: p_msg_name => g_invalid_value,
1849: p_token1 => g_col_name_token,
1850: p_token1_value => 'config_valid_yn');
1851: -- notify caller of an error
1848: p_msg_name => g_invalid_value,
1849: p_token1 => g_col_name_token,
1850: p_token1_value => 'config_valid_yn');
1851: -- notify caller of an error
1852: x_return_status := OKC_API.G_RET_STS_ERROR;
1853:
1854: -- halt validation
1855: raise G_EXCEPTION_HALT_VALIDATION;
1856: end if;
1879: okc_debug.Reset_Indentation;
1880: END IF;
1881:
1882: -- store SQL error message on message stack
1883: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1884: p_msg_name => g_unexpected_error,
1885: p_token1 => g_sqlcode_token,
1886: p_token1_value => sqlcode,
1887: p_token2 => g_sqlerrm_token,
1886: p_token1_value => sqlcode,
1887: p_token2 => g_sqlerrm_token,
1888: p_token2_value => sqlerrm);
1889: -- notify caller of an error as UNEXPETED error
1890: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1891:
1892: End validate_config_valid_yn;
1893: --------------------------------------------------------------------------
1894: -- Start of comments
1908: okc_debug.log('8200: Entered validate_item_to_price_yn', 2);
1909: END IF;
1910:
1911: -- initialize return status
1912: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1913:
1914: -- check that data exists
1915: If (p_clev_rec.item_to_price_yn <> OKC_API.G_MISS_CHAR and
1916: p_clev_rec.item_to_price_yn IS NOT NULL)
1911: -- initialize return status
1912: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1913:
1914: -- check that data exists
1915: If (p_clev_rec.item_to_price_yn <> OKC_API.G_MISS_CHAR and
1916: p_clev_rec.item_to_price_yn IS NOT NULL)
1917: Then
1918: If p_clev_rec.item_to_price_yn NOT IN ('Y','N') Then
1919: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1915: If (p_clev_rec.item_to_price_yn <> OKC_API.G_MISS_CHAR and
1916: p_clev_rec.item_to_price_yn IS NOT NULL)
1917: Then
1918: If p_clev_rec.item_to_price_yn NOT IN ('Y','N') Then
1919: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1920: p_msg_name => g_invalid_value,
1921: p_token1 => g_col_name_token,
1922: p_token1_value => 'item_to_price_yn');
1923: -- notify caller of an error
1920: p_msg_name => g_invalid_value,
1921: p_token1 => g_col_name_token,
1922: p_token1_value => 'item_to_price_yn');
1923: -- notify caller of an error
1924: x_return_status := OKC_API.G_RET_STS_ERROR;
1925:
1926: -- halt validation
1927: raise G_EXCEPTION_HALT_VALIDATION;
1928: end if;
1951: okc_debug.Reset_Indentation;
1952: END IF;
1953:
1954: -- store SQL error message on message stack
1955: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1956: p_msg_name => g_unexpected_error,
1957: p_token1 => g_sqlcode_token,
1958: p_token1_value => sqlcode,
1959: p_token2 => g_sqlerrm_token,
1958: p_token1_value => sqlcode,
1959: p_token2 => g_sqlerrm_token,
1960: p_token2_value => sqlerrm);
1961: -- notify caller of an error as UNEXPETED error
1962: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1963:
1964: End validate_item_to_price_yn;
1965: --------------------------------------------------------------------------
1966: -- Start of comments
1980: okc_debug.log('8600: Entered validate_price_basis_yn', 2);
1981: END IF;
1982:
1983: -- initialize return status
1984: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1985:
1986: -- check that data exists
1987: If (p_clev_rec.price_basis_yn <> OKC_API.G_MISS_CHAR and
1988: p_clev_rec.price_basis_yn IS NOT NULL)
1983: -- initialize return status
1984: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1985:
1986: -- check that data exists
1987: If (p_clev_rec.price_basis_yn <> OKC_API.G_MISS_CHAR and
1988: p_clev_rec.price_basis_yn IS NOT NULL)
1989: Then
1990: If p_clev_rec.price_basis_yn NOT IN ('Y','N') Then
1991: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1987: If (p_clev_rec.price_basis_yn <> OKC_API.G_MISS_CHAR and
1988: p_clev_rec.price_basis_yn IS NOT NULL)
1989: Then
1990: If p_clev_rec.price_basis_yn NOT IN ('Y','N') Then
1991: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1992: p_msg_name => g_invalid_value,
1993: p_token1 => g_col_name_token,
1994: p_token1_value => 'price_basis_yn');
1995: -- notify caller of an error
1992: p_msg_name => g_invalid_value,
1993: p_token1 => g_col_name_token,
1994: p_token1_value => 'price_basis_yn');
1995: -- notify caller of an error
1996: x_return_status := OKC_API.G_RET_STS_ERROR;
1997:
1998: -- halt validation
1999: raise G_EXCEPTION_HALT_VALIDATION;
2000: end if;
2023: okc_debug.Reset_Indentation;
2024: END IF;
2025:
2026: -- store SQL error message on message stack
2027: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2028: p_msg_name => g_unexpected_error,
2029: p_token1 => g_sqlcode_token,
2030: p_token1_value => sqlcode,
2031: p_token2 => g_sqlerrm_token,
2030: p_token1_value => sqlcode,
2031: p_token2 => g_sqlerrm_token,
2032: p_token2_value => sqlerrm);
2033: -- notify caller of an error as UNEXPETED error
2034: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2035:
2036: End validate_price_basis_yn;
2037: -----------------------------------------------------------------------------
2038: -- Start of comments
2052: okc_debug.log('9000: Entered validate_config_item_type', 2);
2053: END IF;
2054:
2055: -- initialize return status
2056: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2057:
2058: -- check that data exists
2059: If (p_clev_rec.config_item_type <> OKC_API.G_MISS_CHAR and
2060: p_clev_rec.config_item_type IS NOT NULL)
2055: -- initialize return status
2056: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2057:
2058: -- check that data exists
2059: If (p_clev_rec.config_item_type <> OKC_API.G_MISS_CHAR and
2060: p_clev_rec.config_item_type IS NOT NULL)
2061: Then
2062: If p_clev_rec.config_item_type NOT IN
2063: ('TOP_MODEL_LINE','TOP_BASE_LINE','CONFIG') then
2060: p_clev_rec.config_item_type IS NOT NULL)
2061: Then
2062: If p_clev_rec.config_item_type NOT IN
2063: ('TOP_MODEL_LINE','TOP_BASE_LINE','CONFIG') then
2064: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2065: p_msg_name => g_invalid_value,
2066: p_token1 => g_col_name_token,
2067: p_token1_value => 'config_item_type');
2068: -- notify caller of an error
2065: p_msg_name => g_invalid_value,
2066: p_token1 => g_col_name_token,
2067: p_token1_value => 'config_item_type');
2068: -- notify caller of an error
2069: x_return_status := OKC_API.G_RET_STS_ERROR;
2070:
2071: -- halt validation
2072: raise G_EXCEPTION_HALT_VALIDATION;
2073: end if;
2096: okc_debug.Reset_Indentation;
2097: END IF;
2098:
2099: -- store SQL error message on message stack
2100: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2101: p_msg_name => g_unexpected_error,
2102: p_token1 => g_sqlcode_token,
2103: p_token1_value => sqlcode,
2104: p_token2 => g_sqlerrm_token,
2103: p_token1_value => sqlcode,
2104: p_token2 => g_sqlerrm_token,
2105: p_token2_value => sqlerrm);
2106: -- notify caller of an error as UNEXPETED error
2107: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2108:
2109: End validate_config_item_type;
2110: -----------------------------------------------------------------------------
2111: -- Start of comments
2151: okc_debug.log('9400: Entered validate_price_list_id', 2);
2152: END IF;
2153:
2154: -- initialize return status
2155: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2156:
2157: -- enforce foreign key, if data exists
2158: If (p_clev_rec.price_list_id <> OKC_API.G_MISS_NUM and
2159: p_clev_rec.price_list_id IS NOT NULL)
2154: -- initialize return status
2155: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2156:
2157: -- enforce foreign key, if data exists
2158: If (p_clev_rec.price_list_id <> OKC_API.G_MISS_NUM and
2159: p_clev_rec.price_list_id IS NOT NULL)
2160: Then
2161: Open l_chrv_csr;
2162: Fetch l_chrv_csr Into l_dummy_var;
2163: Close l_chrv_csr;
2164:
2165: -- if l_dummy_var still set to default, data was not found
2166: If (l_dummy_var = '?') Then
2167: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2168: p_msg_name => g_no_parent_record,
2169: p_token1 => g_col_name_token,
2170: p_token1_value=> 'PRICE_LIST_ID',
2171: p_token2 => g_child_table_token,
2172: p_token2_value=> G_VIEW,
2173: p_token3 => g_parent_table_token,
2174: p_token3_value=> 'QP_PRICE_LISTS_V');
2175: -- notify caller of an error
2176: x_return_status := OKC_API.G_RET_STS_ERROR;
2177: End If;
2178: End If;
2179:
2180: IF (l_debug = 'Y') THEN
2190: okc_debug.Reset_Indentation;
2191: END IF;
2192:
2193: -- store SQL error message on message stack
2194: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2195: p_msg_name => g_unexpected_error,
2196: p_token1 => g_sqlcode_token,
2197: p_token1_value => sqlcode,
2198: p_token2 => g_sqlerrm_token,
2197: p_token1_value => sqlcode,
2198: p_token2 => g_sqlerrm_token,
2199: p_token2_value => sqlerrm);
2200: -- notify caller of an error as UNEXPETED error
2201: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2202:
2203: -- verify that cursor was closed
2204: if l_chrv_csr%ISOPEN then
2205: close l_chrv_csr;
2242: okc_debug.log('9700: Entered validate_price_list_line_id', 2);
2243: END IF;
2244:
2245: -- initialize return status
2246: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2247:
2248: -- enforce foreign key, if data exists
2249: If (p_clev_rec.price_list_line_id <> OKC_API.G_MISS_NUM and
2250: p_clev_rec.price_list_line_id IS NOT NULL)
2245: -- initialize return status
2246: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2247:
2248: -- enforce foreign key, if data exists
2249: If (p_clev_rec.price_list_line_id <> OKC_API.G_MISS_NUM and
2250: p_clev_rec.price_list_line_id IS NOT NULL)
2251: Then
2252: Open l_chrv_csr;
2253: Fetch l_chrv_csr Into l_dummy_var;
2254: Close l_chrv_csr;
2255:
2256: -- if l_dummy_var still set to default, data was not found
2257: If (l_dummy_var = '?') Then
2258: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2259: p_msg_name => g_no_parent_record,
2260: p_token1 => g_col_name_token,
2261: p_token1_value=> 'PRICE_LIST_LINE_ID',
2262: p_token2 => g_child_table_token,
2263: p_token2_value=> G_VIEW,
2264: p_token3 => g_parent_table_token,
2265: p_token3_value=> 'QP_PRICE_LIST_LINES_V');
2266: -- notify caller of an error
2267: x_return_status := OKC_API.G_RET_STS_ERROR;
2268: End If;
2269: End If;
2270:
2271: IF (l_debug = 'Y') THEN
2281: okc_debug.Reset_Indentation;
2282: END IF;
2283:
2284: -- store SQL error message on message stack
2285: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2286: p_msg_name => g_unexpected_error,
2287: p_token1 => g_sqlcode_token,
2288: p_token1_value => sqlcode,
2289: p_token2 => g_sqlerrm_token,
2288: p_token1_value => sqlcode,
2289: p_token2 => g_sqlerrm_token,
2290: p_token2_value => sqlerrm);
2291: -- notify caller of an error as UNEXPETED error
2292: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2293:
2294: -- verify that cursor was closed
2295: if l_chrv_csr%ISOPEN then
2296: close l_chrv_csr;
2322: okc_debug.log('10000: Entered validate_conf_top_mod_ln_id', 2);
2323: END IF;
2324:
2325: -- initialize return status
2326: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2327:
2328: -- enforce foreign key, if data exists
2329: If (p_clev_rec.config_top_model_line_id <> OKC_API.G_MISS_NUM and
2330: p_clev_rec.config_top_model_line_id IS NOT NULL)
2325: -- initialize return status
2326: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2327:
2328: -- enforce foreign key, if data exists
2329: If (p_clev_rec.config_top_model_line_id <> OKC_API.G_MISS_NUM and
2330: p_clev_rec.config_top_model_line_id IS NOT NULL)
2331: Then
2332: Open l_tml_id_csr;
2333: Fetch l_tml_id_csr Into l_dummy_var;
2334: Close l_tml_id_csr;
2335:
2336: -- if l_dummy_var still set to default, data was not found
2337: If (l_dummy_var = '?') Then
2338: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2339: p_msg_name => g_no_parent_record,
2340: p_token1 => g_col_name_token,
2341: p_token1_value => 'CONFIG_TOP_MODEL_LINE_ID',
2342: p_token2 => g_child_table_token,
2343: p_token2_value => G_VIEW,
2344: p_token3 => g_parent_table_token,
2345: p_token3_value => 'OKC_K_LINES_V');
2346: -- notify caller of an error
2347: x_return_status := OKC_API.G_RET_STS_ERROR;
2348: End If;
2349: End If;
2350:
2351: IF (l_debug = 'Y') THEN
2361: okc_debug.Reset_Indentation;
2362: END IF;
2363:
2364: -- store SQL error message on message stack
2365: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2366: p_msg_name => g_unexpected_error,
2367: p_token1 => g_sqlcode_token,
2368: p_token1_value => sqlcode,
2369: p_token2 => g_sqlerrm_token,
2368: p_token1_value => sqlcode,
2369: p_token2 => g_sqlerrm_token,
2370: p_token2_value => sqlerrm);
2371: -- notify caller of an error as UNEXPETED error
2372: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2373:
2374: -- verify that cursor was closed
2375: if l_tml_id_csr%ISOPEN then
2376: close l_tml_id_csr;
2395: okc_debug.log('10000: Entered validate_ph_pricing_type', 2);
2396: END IF;
2397:
2398: -- initialize return status
2399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2400:
2401: -- enforce foreign key, if data exists
2402: IF (p_clev_rec.ph_pricing_type <> OKC_API.G_MISS_CHAR AND
2403: p_clev_rec.ph_pricing_type IS NOT NULL)
2398: -- initialize return status
2399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2400:
2401: -- enforce foreign key, if data exists
2402: IF (p_clev_rec.ph_pricing_type <> OKC_API.G_MISS_CHAR AND
2403: p_clev_rec.ph_pricing_type IS NOT NULL)
2404: THEN
2405: Open l_tmp_csr;
2406: Fetch l_tmp_csr Into l_dummy_var;
2407: Close l_tmp_csr;
2408:
2409: -- if l_dummy_var still set to default, data was not found
2410: If (l_dummy_var = '?') Then
2411: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2412: p_msg_name => g_invalid_value,
2413: p_token1 => g_col_name_token,
2414: p_token1_value => 'ph_pricing_type');
2415: x_return_status := OKC_API.G_RET_STS_ERROR;
2411: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2412: p_msg_name => g_invalid_value,
2413: p_token1 => g_col_name_token,
2414: p_token1_value => 'ph_pricing_type');
2415: x_return_status := OKC_API.G_RET_STS_ERROR;
2416: -- halt validation
2417: raise G_EXCEPTION_HALT_VALIDATION;
2418: END IF;
2419: END IF;
2441: okc_debug.Reset_Indentation;
2442: END IF;
2443:
2444: -- store SQL error message on message stack
2445: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2446: ,p_msg_name => G_UNEXPECTED_ERROR
2447: ,p_token1 => G_SQLCODE_TOKEN
2448: ,p_token1_value => SQLCODE
2449: ,p_token2 => G_SQLERRM_TOKEN
2447: ,p_token1 => G_SQLCODE_TOKEN
2448: ,p_token1_value => SQLCODE
2449: ,p_token2 => G_SQLERRM_TOKEN
2450: ,p_token2_value => SQLERRM);
2451: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2452: END validate_ph_pricing_type;
2453: ---------------------------------------------------
2454: -- Validate_Attributes for: PH_PRICE_BREAK_BASIS --
2455: ---------------------------------------------------
2468: okc_debug.log('10000: Entered validate_ph_price_break_basis', 2);
2469: END IF;
2470:
2471: -- initialize return status
2472: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2473:
2474: -- enforce foreign key, if data exists
2475: IF (p_clev_rec.ph_price_break_basis <> OKC_API.G_MISS_CHAR AND
2476: p_clev_rec.ph_price_break_basis IS NOT NULL)
2471: -- initialize return status
2472: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2473:
2474: -- enforce foreign key, if data exists
2475: IF (p_clev_rec.ph_price_break_basis <> OKC_API.G_MISS_CHAR AND
2476: p_clev_rec.ph_price_break_basis IS NOT NULL)
2477: THEN
2478: Open l_tmp_csr;
2479: Fetch l_tmp_csr Into l_dummy_var;
2480: Close l_tmp_csr;
2481:
2482: -- if l_dummy_var still set to default, data was not found
2483: If (l_dummy_var = '?') Then
2484: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => g_invalid_value,
2486: p_token1 => g_col_name_token,
2487: p_token1_value => 'ph_price_break_basis');
2488: x_return_status := OKC_API.G_RET_STS_ERROR;
2484: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => g_invalid_value,
2486: p_token1 => g_col_name_token,
2487: p_token1_value => 'ph_price_break_basis');
2488: x_return_status := OKC_API.G_RET_STS_ERROR;
2489: -- halt validation
2490: raise G_EXCEPTION_HALT_VALIDATION;
2491: END IF;
2492: END IF;
2514: okc_debug.Reset_Indentation;
2515: END IF;
2516:
2517: -- store SQL error message on message stack
2518: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2519: ,p_msg_name => G_UNEXPECTED_ERROR
2520: ,p_token1 => G_SQLCODE_TOKEN
2521: ,p_token1_value => SQLCODE
2522: ,p_token2 => G_SQLERRM_TOKEN
2520: ,p_token1 => G_SQLCODE_TOKEN
2521: ,p_token1_value => SQLCODE
2522: ,p_token2 => G_SQLERRM_TOKEN
2523: ,p_token2_value => SQLERRM);
2524: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2525: END validate_ph_price_break_basis;
2526: -------------------------------------------------
2527: -- Validate_Attributes for: PH_QP_REFERENCE_ID --
2528: -------------------------------------------------
2544: okc_debug.log('10000: Entered validate_ph_qp_reference_id', 2);
2545: END IF;
2546:
2547: -- initialize return status
2548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2549:
2550: -- enforce foreign key, if data exists
2551: IF (p_clev_rec.ph_qp_reference_id <> OKC_API.G_MISS_NUM AND
2552: p_clev_rec.ph_qp_reference_id IS NOT NULL)
2547: -- initialize return status
2548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2549:
2550: -- enforce foreign key, if data exists
2551: IF (p_clev_rec.ph_qp_reference_id <> OKC_API.G_MISS_NUM AND
2552: p_clev_rec.ph_qp_reference_id IS NOT NULL)
2553: THEN
2554: IF p_clev_rec.cle_id IS NULL THEN -- top level line should point to QP_LIST_HEADERS
2555: Open l_tmp_1_csr;
2562: END IF;
2563:
2564: -- if l_dummy_var still set to default, data was not found
2565: If (l_dummy_var = '?') Then
2566: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2567: p_msg_name => g_invalid_value,
2568: p_token1 => g_col_name_token,
2569: p_token1_value => 'ph_qp_reference_id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2566: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2567: p_msg_name => g_invalid_value,
2568: p_token1 => g_col_name_token,
2569: p_token1_value => 'ph_qp_reference_id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: -- halt validation
2572: raise G_EXCEPTION_HALT_VALIDATION;
2573: END IF;
2574: END IF;
2596: okc_debug.Reset_Indentation;
2597: END IF;
2598:
2599: -- store SQL error message on message stack
2600: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2601: ,p_msg_name => G_UNEXPECTED_ERROR
2602: ,p_token1 => G_SQLCODE_TOKEN
2603: ,p_token1_value => SQLCODE
2604: ,p_token2 => G_SQLERRM_TOKEN
2602: ,p_token1 => G_SQLCODE_TOKEN
2603: ,p_token1_value => SQLCODE
2604: ,p_token2 => G_SQLERRM_TOKEN
2605: ,p_token2_value => SQLERRM);
2606: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2607: END validate_ph_qp_reference_id;
2608: -------------------------------------------------
2609: -- Validate_Attributes for: PH_ENFORCE_PRICE_LIST_YN --
2610: -------------------------------------------------
2618: okc_debug.log('8200: Entered validate_ph_enforce_price_list_yn', 2);
2619: END IF;
2620:
2621: -- initialize return status
2622: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2623:
2624: -- check that data exists
2625: If (p_clev_rec.ph_enforce_price_list_yn <> OKC_API.G_MISS_CHAR and
2626: p_clev_rec.ph_enforce_price_list_yn IS NOT NULL)
2621: -- initialize return status
2622: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2623:
2624: -- check that data exists
2625: If (p_clev_rec.ph_enforce_price_list_yn <> OKC_API.G_MISS_CHAR and
2626: p_clev_rec.ph_enforce_price_list_yn IS NOT NULL)
2627: Then
2628: If p_clev_rec.ph_enforce_price_list_yn NOT IN ('Y','N') Then
2629: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2625: If (p_clev_rec.ph_enforce_price_list_yn <> OKC_API.G_MISS_CHAR and
2626: p_clev_rec.ph_enforce_price_list_yn IS NOT NULL)
2627: Then
2628: If p_clev_rec.ph_enforce_price_list_yn NOT IN ('Y','N') Then
2629: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2630: p_msg_name => g_invalid_value,
2631: p_token1 => g_col_name_token,
2632: p_token1_value => 'ph_enforce_price_list_yn');
2633: -- notify caller of an error
2630: p_msg_name => g_invalid_value,
2631: p_token1 => g_col_name_token,
2632: p_token1_value => 'ph_enforce_price_list_yn');
2633: -- notify caller of an error
2634: x_return_status := OKC_API.G_RET_STS_ERROR;
2635:
2636: -- halt validation
2637: raise G_EXCEPTION_HALT_VALIDATION;
2638: end if;
2661: okc_debug.Reset_Indentation;
2662: END IF;
2663:
2664: -- store SQL error message on message stack
2665: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2666: p_msg_name => g_unexpected_error,
2667: p_token1 => g_sqlcode_token,
2668: p_token1_value => sqlcode,
2669: p_token2 => g_sqlerrm_token,
2668: p_token1_value => sqlcode,
2669: p_token2 => g_sqlerrm_token,
2670: p_token2_value => sqlerrm);
2671: -- notify caller of an error as UNEXPETED error
2672: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2673:
2674: End validate_ph_enforce_price_list;
2675: -------------------------------------------------
2676: -- Validate_Attributes for: PH_INTEGRATED_WITH_QP --
2685: okc_debug.log('8200: Entered validate_ph_integrated_with_qp', 2);
2686: END IF;
2687:
2688: -- initialize return status
2689: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2690:
2691: -- check that data exists
2692: If (p_clev_rec.ph_integrated_with_qp <> OKC_API.G_MISS_CHAR and
2693: p_clev_rec.ph_integrated_with_qp IS NOT NULL)
2688: -- initialize return status
2689: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2690:
2691: -- check that data exists
2692: If (p_clev_rec.ph_integrated_with_qp <> OKC_API.G_MISS_CHAR and
2693: p_clev_rec.ph_integrated_with_qp IS NOT NULL)
2694: Then
2695: If p_clev_rec.ph_integrated_with_qp NOT IN ('Y','N') Then
2696: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2692: If (p_clev_rec.ph_integrated_with_qp <> OKC_API.G_MISS_CHAR and
2693: p_clev_rec.ph_integrated_with_qp IS NOT NULL)
2694: Then
2695: If p_clev_rec.ph_integrated_with_qp NOT IN ('Y','N') Then
2696: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2697: p_msg_name => g_invalid_value,
2698: p_token1 => g_col_name_token,
2699: p_token1_value => 'ph_integrated_with_qp');
2700: -- notify caller of an error
2697: p_msg_name => g_invalid_value,
2698: p_token1 => g_col_name_token,
2699: p_token1_value => 'ph_integrated_with_qp');
2700: -- notify caller of an error
2701: x_return_status := OKC_API.G_RET_STS_ERROR;
2702:
2703: -- halt validation
2704: raise G_EXCEPTION_HALT_VALIDATION;
2705: end if;
2728: okc_debug.Reset_Indentation;
2729: END IF;
2730:
2731: -- store SQL error message on message stack
2732: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2733: p_msg_name => g_unexpected_error,
2734: p_token1 => g_sqlcode_token,
2735: p_token1_value => sqlcode,
2736: p_token2 => g_sqlerrm_token,
2735: p_token1_value => sqlcode,
2736: p_token2 => g_sqlerrm_token,
2737: p_token2_value => sqlerrm);
2738: -- notify caller of an error as UNEXPETED error
2739: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2740:
2741: End validate_ph_integrated_with_qp;
2742: ---------------------------------------------------------------------------
2743: -- FUNCTION get_seq_id
3581: okc_debug.Set_Indentation('OKC_CLE_PVT');
3582: okc_debug.log('11400: Entered null_out_defaults', 2);
3583: END IF;
3584:
3585: IF (l_clev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3586: l_clev_rec.object_version_number := NULL;
3587: END IF;
3588: IF (l_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3589: l_clev_rec.sfwt_flag := NULL;
3584:
3585: IF (l_clev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3586: l_clev_rec.object_version_number := NULL;
3587: END IF;
3588: IF (l_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3589: l_clev_rec.sfwt_flag := NULL;
3590: END IF;
3591: IF (l_clev_rec.chr_id = OKC_API.G_MISS_NUM) THEN
3592: l_clev_rec.chr_id := NULL;
3587: END IF;
3588: IF (l_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3589: l_clev_rec.sfwt_flag := NULL;
3590: END IF;
3591: IF (l_clev_rec.chr_id = OKC_API.G_MISS_NUM) THEN
3592: l_clev_rec.chr_id := NULL;
3593: END IF;
3594: IF (l_clev_rec.cle_id = OKC_API.G_MISS_NUM) THEN
3595: l_clev_rec.cle_id := NULL;
3590: END IF;
3591: IF (l_clev_rec.chr_id = OKC_API.G_MISS_NUM) THEN
3592: l_clev_rec.chr_id := NULL;
3593: END IF;
3594: IF (l_clev_rec.cle_id = OKC_API.G_MISS_NUM) THEN
3595: l_clev_rec.cle_id := NULL;
3596: END IF;
3597: IF (l_clev_rec.lse_id = OKC_API.G_MISS_NUM) THEN
3598: l_clev_rec.lse_id := NULL;
3593: END IF;
3594: IF (l_clev_rec.cle_id = OKC_API.G_MISS_NUM) THEN
3595: l_clev_rec.cle_id := NULL;
3596: END IF;
3597: IF (l_clev_rec.lse_id = OKC_API.G_MISS_NUM) THEN
3598: l_clev_rec.lse_id := NULL;
3599: END IF;
3600: IF (l_clev_rec.line_number = OKC_API.G_MISS_CHAR) THEN
3601: l_clev_rec.line_number := NULL;
3596: END IF;
3597: IF (l_clev_rec.lse_id = OKC_API.G_MISS_NUM) THEN
3598: l_clev_rec.lse_id := NULL;
3599: END IF;
3600: IF (l_clev_rec.line_number = OKC_API.G_MISS_CHAR) THEN
3601: l_clev_rec.line_number := NULL;
3602: END IF;
3603: IF (l_clev_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3604: l_clev_rec.sts_code := NULL;
3599: END IF;
3600: IF (l_clev_rec.line_number = OKC_API.G_MISS_CHAR) THEN
3601: l_clev_rec.line_number := NULL;
3602: END IF;
3603: IF (l_clev_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3604: l_clev_rec.sts_code := NULL;
3605: END IF;
3606: IF (l_clev_rec.display_sequence = OKC_API.G_MISS_NUM) THEN
3607: l_clev_rec.display_sequence := NULL;
3602: END IF;
3603: IF (l_clev_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3604: l_clev_rec.sts_code := NULL;
3605: END IF;
3606: IF (l_clev_rec.display_sequence = OKC_API.G_MISS_NUM) THEN
3607: l_clev_rec.display_sequence := NULL;
3608: END IF;
3609: IF (l_clev_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3610: l_clev_rec.trn_code := NULL;
3605: END IF;
3606: IF (l_clev_rec.display_sequence = OKC_API.G_MISS_NUM) THEN
3607: l_clev_rec.display_sequence := NULL;
3608: END IF;
3609: IF (l_clev_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3610: l_clev_rec.trn_code := NULL;
3611: END IF;
3612: IF (l_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
3613: l_clev_rec.dnz_chr_id := NULL;
3608: END IF;
3609: IF (l_clev_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3610: l_clev_rec.trn_code := NULL;
3611: END IF;
3612: IF (l_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
3613: l_clev_rec.dnz_chr_id := NULL;
3614: END IF;
3615: IF (l_clev_rec.comments = OKC_API.G_MISS_CHAR) THEN
3616: l_clev_rec.comments := NULL;
3611: END IF;
3612: IF (l_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
3613: l_clev_rec.dnz_chr_id := NULL;
3614: END IF;
3615: IF (l_clev_rec.comments = OKC_API.G_MISS_CHAR) THEN
3616: l_clev_rec.comments := NULL;
3617: END IF;
3618: IF (l_clev_rec.item_description = OKC_API.G_MISS_CHAR) THEN
3619: l_clev_rec.item_description := NULL;
3614: END IF;
3615: IF (l_clev_rec.comments = OKC_API.G_MISS_CHAR) THEN
3616: l_clev_rec.comments := NULL;
3617: END IF;
3618: IF (l_clev_rec.item_description = OKC_API.G_MISS_CHAR) THEN
3619: l_clev_rec.item_description := NULL;
3620: END IF;
3621: IF (l_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR) THEN
3622: l_clev_rec.oke_boe_description := NULL;
3617: END IF;
3618: IF (l_clev_rec.item_description = OKC_API.G_MISS_CHAR) THEN
3619: l_clev_rec.item_description := NULL;
3620: END IF;
3621: IF (l_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR) THEN
3622: l_clev_rec.oke_boe_description := NULL;
3623: END IF;
3624: IF (l_clev_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3625: l_clev_rec.cognomen := NULL;
3620: END IF;
3621: IF (l_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR) THEN
3622: l_clev_rec.oke_boe_description := NULL;
3623: END IF;
3624: IF (l_clev_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3625: l_clev_rec.cognomen := NULL;
3626: END IF;
3627: IF (l_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR) THEN
3628: l_clev_rec.hidden_ind := NULL;
3623: END IF;
3624: IF (l_clev_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3625: l_clev_rec.cognomen := NULL;
3626: END IF;
3627: IF (l_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR) THEN
3628: l_clev_rec.hidden_ind := NULL;
3629: END IF;
3630: IF (l_clev_rec.price_unit = OKC_API.G_MISS_NUM) THEN
3631: l_clev_rec.price_unit := NULL;
3626: END IF;
3627: IF (l_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR) THEN
3628: l_clev_rec.hidden_ind := NULL;
3629: END IF;
3630: IF (l_clev_rec.price_unit = OKC_API.G_MISS_NUM) THEN
3631: l_clev_rec.price_unit := NULL;
3632: END IF;
3633: IF (l_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM) THEN
3634: l_clev_rec.price_unit_percent := NULL;
3629: END IF;
3630: IF (l_clev_rec.price_unit = OKC_API.G_MISS_NUM) THEN
3631: l_clev_rec.price_unit := NULL;
3632: END IF;
3633: IF (l_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM) THEN
3634: l_clev_rec.price_unit_percent := NULL;
3635: END IF;
3636: IF (l_clev_rec.price_negotiated = OKC_API.G_MISS_NUM) THEN
3637: l_clev_rec.price_negotiated := NULL;
3632: END IF;
3633: IF (l_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM) THEN
3634: l_clev_rec.price_unit_percent := NULL;
3635: END IF;
3636: IF (l_clev_rec.price_negotiated = OKC_API.G_MISS_NUM) THEN
3637: l_clev_rec.price_negotiated := NULL;
3638: END IF;
3639: IF (l_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM) THEN
3640: l_clev_rec.price_negotiated_renewed := NULL;
3635: END IF;
3636: IF (l_clev_rec.price_negotiated = OKC_API.G_MISS_NUM) THEN
3637: l_clev_rec.price_negotiated := NULL;
3638: END IF;
3639: IF (l_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM) THEN
3640: l_clev_rec.price_negotiated_renewed := NULL;
3641: END IF;
3642: IF (l_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR) THEN
3643: l_clev_rec.price_level_ind := NULL;
3638: END IF;
3639: IF (l_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM) THEN
3640: l_clev_rec.price_negotiated_renewed := NULL;
3641: END IF;
3642: IF (l_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR) THEN
3643: l_clev_rec.price_level_ind := NULL;
3644: END IF;
3645: IF (l_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR) THEN
3646: l_clev_rec.invoice_line_level_ind := NULL;
3641: END IF;
3642: IF (l_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR) THEN
3643: l_clev_rec.price_level_ind := NULL;
3644: END IF;
3645: IF (l_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR) THEN
3646: l_clev_rec.invoice_line_level_ind := NULL;
3647: END IF;
3648: IF (l_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3649: l_clev_rec.dpas_rating := NULL;
3644: END IF;
3645: IF (l_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR) THEN
3646: l_clev_rec.invoice_line_level_ind := NULL;
3647: END IF;
3648: IF (l_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3649: l_clev_rec.dpas_rating := NULL;
3650: END IF;
3651: IF (l_clev_rec.block23text = OKC_API.G_MISS_CHAR) THEN
3652: l_clev_rec.block23text := NULL;
3647: END IF;
3648: IF (l_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3649: l_clev_rec.dpas_rating := NULL;
3650: END IF;
3651: IF (l_clev_rec.block23text = OKC_API.G_MISS_CHAR) THEN
3652: l_clev_rec.block23text := NULL;
3653: END IF;
3654: IF (l_clev_rec.exception_yn = OKC_API.G_MISS_CHAR) THEN
3655: l_clev_rec.exception_yn := NULL;
3650: END IF;
3651: IF (l_clev_rec.block23text = OKC_API.G_MISS_CHAR) THEN
3652: l_clev_rec.block23text := NULL;
3653: END IF;
3654: IF (l_clev_rec.exception_yn = OKC_API.G_MISS_CHAR) THEN
3655: l_clev_rec.exception_yn := NULL;
3656: END IF;
3657: IF (l_clev_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3658: l_clev_rec.template_used := NULL;
3653: END IF;
3654: IF (l_clev_rec.exception_yn = OKC_API.G_MISS_CHAR) THEN
3655: l_clev_rec.exception_yn := NULL;
3656: END IF;
3657: IF (l_clev_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3658: l_clev_rec.template_used := NULL;
3659: END IF;
3660: IF (l_clev_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3661: l_clev_rec.date_terminated := NULL;
3656: END IF;
3657: IF (l_clev_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3658: l_clev_rec.template_used := NULL;
3659: END IF;
3660: IF (l_clev_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3661: l_clev_rec.date_terminated := NULL;
3662: END IF;
3663: IF (l_clev_rec.name = OKC_API.G_MISS_CHAR) THEN
3664: l_clev_rec.name := NULL;
3659: END IF;
3660: IF (l_clev_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3661: l_clev_rec.date_terminated := NULL;
3662: END IF;
3663: IF (l_clev_rec.name = OKC_API.G_MISS_CHAR) THEN
3664: l_clev_rec.name := NULL;
3665: END IF;
3666: IF (l_clev_rec.start_date = OKC_API.G_MISS_DATE) THEN
3667: l_clev_rec.start_date := NULL;
3662: END IF;
3663: IF (l_clev_rec.name = OKC_API.G_MISS_CHAR) THEN
3664: l_clev_rec.name := NULL;
3665: END IF;
3666: IF (l_clev_rec.start_date = OKC_API.G_MISS_DATE) THEN
3667: l_clev_rec.start_date := NULL;
3668: END IF;
3669: IF (l_clev_rec.end_date = OKC_API.G_MISS_DATE) THEN
3670: l_clev_rec.end_date := NULL;
3665: END IF;
3666: IF (l_clev_rec.start_date = OKC_API.G_MISS_DATE) THEN
3667: l_clev_rec.start_date := NULL;
3668: END IF;
3669: IF (l_clev_rec.end_date = OKC_API.G_MISS_DATE) THEN
3670: l_clev_rec.end_date := NULL;
3671: END IF;
3672: IF (l_clev_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3673: l_clev_rec.date_renewed := NULL;
3668: END IF;
3669: IF (l_clev_rec.end_date = OKC_API.G_MISS_DATE) THEN
3670: l_clev_rec.end_date := NULL;
3671: END IF;
3672: IF (l_clev_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3673: l_clev_rec.date_renewed := NULL;
3674: END IF;
3675: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF = OKC_API.G_MISS_CHAR) THEN
3676: l_clev_rec.UPG_ORIG_SYSTEM_REF := NULL;
3671: END IF;
3672: IF (l_clev_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3673: l_clev_rec.date_renewed := NULL;
3674: END IF;
3675: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF = OKC_API.G_MISS_CHAR) THEN
3676: l_clev_rec.UPG_ORIG_SYSTEM_REF := NULL;
3677: END IF;
3678: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF_ID = OKC_API.G_MISS_NUM) THEN
3679: l_clev_rec.UPG_ORIG_SYSTEM_REF_ID := NULL;
3674: END IF;
3675: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF = OKC_API.G_MISS_CHAR) THEN
3676: l_clev_rec.UPG_ORIG_SYSTEM_REF := NULL;
3677: END IF;
3678: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF_ID = OKC_API.G_MISS_NUM) THEN
3679: l_clev_rec.UPG_ORIG_SYSTEM_REF_ID := NULL;
3680: END IF;
3681: IF (l_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3682: l_clev_rec.orig_system_source_code := NULL;
3677: END IF;
3678: IF (l_clev_rec.UPG_ORIG_SYSTEM_REF_ID = OKC_API.G_MISS_NUM) THEN
3679: l_clev_rec.UPG_ORIG_SYSTEM_REF_ID := NULL;
3680: END IF;
3681: IF (l_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3682: l_clev_rec.orig_system_source_code := NULL;
3683: END IF;
3684: IF (l_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3685: l_clev_rec.orig_system_id1 := NULL;
3680: END IF;
3681: IF (l_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3682: l_clev_rec.orig_system_source_code := NULL;
3683: END IF;
3684: IF (l_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3685: l_clev_rec.orig_system_id1 := NULL;
3686: END IF;
3687: IF (l_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3688: l_clev_rec.orig_system_reference1 := NULL;
3683: END IF;
3684: IF (l_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3685: l_clev_rec.orig_system_id1 := NULL;
3686: END IF;
3687: IF (l_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3688: l_clev_rec.orig_system_reference1 := NULL;
3689: END IF;
3690:
3691: IF (l_clev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3687: IF (l_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3688: l_clev_rec.orig_system_reference1 := NULL;
3689: END IF;
3690:
3691: IF (l_clev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3692: l_clev_rec.program_application_id := NULL;
3693: END IF;
3694: IF (l_clev_rec.program_id = OKC_API.G_MISS_NUM) THEN
3695: l_clev_rec.program_id := NULL;
3690:
3691: IF (l_clev_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3692: l_clev_rec.program_application_id := NULL;
3693: END IF;
3694: IF (l_clev_rec.program_id = OKC_API.G_MISS_NUM) THEN
3695: l_clev_rec.program_id := NULL;
3696: END IF;
3697: IF (l_clev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3698: l_clev_rec.program_update_date := NULL;
3693: END IF;
3694: IF (l_clev_rec.program_id = OKC_API.G_MISS_NUM) THEN
3695: l_clev_rec.program_id := NULL;
3696: END IF;
3697: IF (l_clev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3698: l_clev_rec.program_update_date := NULL;
3699: END IF;
3700: IF (l_clev_rec.request_id = OKC_API.G_MISS_NUM) THEN
3701: l_clev_rec.request_id := NULL;
3696: END IF;
3697: IF (l_clev_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3698: l_clev_rec.program_update_date := NULL;
3699: END IF;
3700: IF (l_clev_rec.request_id = OKC_API.G_MISS_NUM) THEN
3701: l_clev_rec.request_id := NULL;
3702: END IF;
3703: IF (l_clev_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3704: l_clev_rec.price_list_id := NULL;
3699: END IF;
3700: IF (l_clev_rec.request_id = OKC_API.G_MISS_NUM) THEN
3701: l_clev_rec.request_id := NULL;
3702: END IF;
3703: IF (l_clev_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3704: l_clev_rec.price_list_id := NULL;
3705: END IF;
3706: IF (l_clev_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3707: l_clev_rec.pricing_date := NULL;
3702: END IF;
3703: IF (l_clev_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3704: l_clev_rec.price_list_id := NULL;
3705: END IF;
3706: IF (l_clev_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3707: l_clev_rec.pricing_date := NULL;
3708: END IF;
3709: IF (l_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM) THEN
3710: l_clev_rec.price_list_line_id := NULL;
3705: END IF;
3706: IF (l_clev_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3707: l_clev_rec.pricing_date := NULL;
3708: END IF;
3709: IF (l_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM) THEN
3710: l_clev_rec.price_list_line_id := NULL;
3711: END IF;
3712: IF (l_clev_rec.line_list_price = OKC_API.G_MISS_NUM) THEN
3713: l_clev_rec.line_list_price := NULL;
3708: END IF;
3709: IF (l_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM) THEN
3710: l_clev_rec.price_list_line_id := NULL;
3711: END IF;
3712: IF (l_clev_rec.line_list_price = OKC_API.G_MISS_NUM) THEN
3713: l_clev_rec.line_list_price := NULL;
3714: END IF;
3715: IF (l_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
3716: l_clev_rec.item_to_price_yn := NULL;
3711: END IF;
3712: IF (l_clev_rec.line_list_price = OKC_API.G_MISS_NUM) THEN
3713: l_clev_rec.line_list_price := NULL;
3714: END IF;
3715: IF (l_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
3716: l_clev_rec.item_to_price_yn := NULL;
3717: END IF;
3718: IF (l_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
3719: l_clev_rec.price_basis_yn := NULL;
3714: END IF;
3715: IF (l_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
3716: l_clev_rec.item_to_price_yn := NULL;
3717: END IF;
3718: IF (l_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
3719: l_clev_rec.price_basis_yn := NULL;
3720: END IF;
3721: IF (l_clev_rec.config_header_id = OKC_API.G_MISS_NUM) THEN
3722: l_clev_rec.config_header_id := NULL;
3717: END IF;
3718: IF (l_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
3719: l_clev_rec.price_basis_yn := NULL;
3720: END IF;
3721: IF (l_clev_rec.config_header_id = OKC_API.G_MISS_NUM) THEN
3722: l_clev_rec.config_header_id := NULL;
3723: END IF;
3724: IF (l_clev_rec.config_revision_number = OKC_API.G_MISS_NUM) THEN
3725: l_clev_rec.config_revision_number := NULL;
3720: END IF;
3721: IF (l_clev_rec.config_header_id = OKC_API.G_MISS_NUM) THEN
3722: l_clev_rec.config_header_id := NULL;
3723: END IF;
3724: IF (l_clev_rec.config_revision_number = OKC_API.G_MISS_NUM) THEN
3725: l_clev_rec.config_revision_number := NULL;
3726: END IF;
3727: IF (l_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
3728: l_clev_rec.config_complete_yn := NULL;
3723: END IF;
3724: IF (l_clev_rec.config_revision_number = OKC_API.G_MISS_NUM) THEN
3725: l_clev_rec.config_revision_number := NULL;
3726: END IF;
3727: IF (l_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
3728: l_clev_rec.config_complete_yn := NULL;
3729: END IF;
3730: IF (l_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
3731: l_clev_rec.config_valid_yn := NULL;
3726: END IF;
3727: IF (l_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
3728: l_clev_rec.config_complete_yn := NULL;
3729: END IF;
3730: IF (l_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
3731: l_clev_rec.config_valid_yn := NULL;
3732: END IF;
3733: IF (l_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM) THEN
3734: l_clev_rec.config_top_model_line_id := NULL;
3729: END IF;
3730: IF (l_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
3731: l_clev_rec.config_valid_yn := NULL;
3732: END IF;
3733: IF (l_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM) THEN
3734: l_clev_rec.config_top_model_line_id := NULL;
3735: END IF;
3736: IF (l_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
3737: l_clev_rec.config_item_type := NULL;
3732: END IF;
3733: IF (l_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM) THEN
3734: l_clev_rec.config_top_model_line_id := NULL;
3735: END IF;
3736: IF (l_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
3737: l_clev_rec.config_item_type := NULL;
3738: END IF;
3739: --Bug.No-1942374--
3740: IF (l_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
3736: IF (l_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
3737: l_clev_rec.config_item_type := NULL;
3738: END IF;
3739: --Bug.No-1942374--
3740: IF (l_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
3741: l_clev_rec.CONFIG_ITEM_ID := NULL;
3742: END IF;
3743: --bug.No-1942374--
3744: IF (l_clev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3740: IF (l_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
3741: l_clev_rec.CONFIG_ITEM_ID := NULL;
3742: END IF;
3743: --bug.No-1942374--
3744: IF (l_clev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3745: l_clev_rec.attribute_category := NULL;
3746: END IF;
3747: IF (l_clev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3748: l_clev_rec.attribute1 := NULL;
3743: --bug.No-1942374--
3744: IF (l_clev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3745: l_clev_rec.attribute_category := NULL;
3746: END IF;
3747: IF (l_clev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3748: l_clev_rec.attribute1 := NULL;
3749: END IF;
3750: IF (l_clev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3751: l_clev_rec.attribute2 := NULL;
3746: END IF;
3747: IF (l_clev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3748: l_clev_rec.attribute1 := NULL;
3749: END IF;
3750: IF (l_clev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3751: l_clev_rec.attribute2 := NULL;
3752: END IF;
3753: IF (l_clev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3754: l_clev_rec.attribute3 := NULL;
3749: END IF;
3750: IF (l_clev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3751: l_clev_rec.attribute2 := NULL;
3752: END IF;
3753: IF (l_clev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3754: l_clev_rec.attribute3 := NULL;
3755: END IF;
3756: IF (l_clev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3757: l_clev_rec.attribute4 := NULL;
3752: END IF;
3753: IF (l_clev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3754: l_clev_rec.attribute3 := NULL;
3755: END IF;
3756: IF (l_clev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3757: l_clev_rec.attribute4 := NULL;
3758: END IF;
3759: IF (l_clev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3760: l_clev_rec.attribute5 := NULL;
3755: END IF;
3756: IF (l_clev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3757: l_clev_rec.attribute4 := NULL;
3758: END IF;
3759: IF (l_clev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3760: l_clev_rec.attribute5 := NULL;
3761: END IF;
3762: IF (l_clev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3763: l_clev_rec.attribute6 := NULL;
3758: END IF;
3759: IF (l_clev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3760: l_clev_rec.attribute5 := NULL;
3761: END IF;
3762: IF (l_clev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3763: l_clev_rec.attribute6 := NULL;
3764: END IF;
3765: IF (l_clev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3766: l_clev_rec.attribute7 := NULL;
3761: END IF;
3762: IF (l_clev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3763: l_clev_rec.attribute6 := NULL;
3764: END IF;
3765: IF (l_clev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3766: l_clev_rec.attribute7 := NULL;
3767: END IF;
3768: IF (l_clev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3769: l_clev_rec.attribute8 := NULL;
3764: END IF;
3765: IF (l_clev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3766: l_clev_rec.attribute7 := NULL;
3767: END IF;
3768: IF (l_clev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3769: l_clev_rec.attribute8 := NULL;
3770: END IF;
3771: IF (l_clev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3772: l_clev_rec.attribute9 := NULL;
3767: END IF;
3768: IF (l_clev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3769: l_clev_rec.attribute8 := NULL;
3770: END IF;
3771: IF (l_clev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3772: l_clev_rec.attribute9 := NULL;
3773: END IF;
3774: IF (l_clev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3775: l_clev_rec.attribute10 := NULL;
3770: END IF;
3771: IF (l_clev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3772: l_clev_rec.attribute9 := NULL;
3773: END IF;
3774: IF (l_clev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3775: l_clev_rec.attribute10 := NULL;
3776: END IF;
3777: IF (l_clev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3778: l_clev_rec.attribute11 := NULL;
3773: END IF;
3774: IF (l_clev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3775: l_clev_rec.attribute10 := NULL;
3776: END IF;
3777: IF (l_clev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3778: l_clev_rec.attribute11 := NULL;
3779: END IF;
3780: IF (l_clev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3781: l_clev_rec.attribute12 := NULL;
3776: END IF;
3777: IF (l_clev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3778: l_clev_rec.attribute11 := NULL;
3779: END IF;
3780: IF (l_clev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3781: l_clev_rec.attribute12 := NULL;
3782: END IF;
3783: IF (l_clev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3784: l_clev_rec.attribute13 := NULL;
3779: END IF;
3780: IF (l_clev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3781: l_clev_rec.attribute12 := NULL;
3782: END IF;
3783: IF (l_clev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3784: l_clev_rec.attribute13 := NULL;
3785: END IF;
3786: IF (l_clev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3787: l_clev_rec.attribute14 := NULL;
3782: END IF;
3783: IF (l_clev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3784: l_clev_rec.attribute13 := NULL;
3785: END IF;
3786: IF (l_clev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3787: l_clev_rec.attribute14 := NULL;
3788: END IF;
3789: IF (l_clev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3790: l_clev_rec.attribute15 := NULL;
3785: END IF;
3786: IF (l_clev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3787: l_clev_rec.attribute14 := NULL;
3788: END IF;
3789: IF (l_clev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3790: l_clev_rec.attribute15 := NULL;
3791: END IF;
3792: IF (l_clev_rec.created_by = OKC_API.G_MISS_NUM) THEN
3793: l_clev_rec.created_by := NULL;
3788: END IF;
3789: IF (l_clev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3790: l_clev_rec.attribute15 := NULL;
3791: END IF;
3792: IF (l_clev_rec.created_by = OKC_API.G_MISS_NUM) THEN
3793: l_clev_rec.created_by := NULL;
3794: END IF;
3795: IF (l_clev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3796: l_clev_rec.creation_date := NULL;
3791: END IF;
3792: IF (l_clev_rec.created_by = OKC_API.G_MISS_NUM) THEN
3793: l_clev_rec.created_by := NULL;
3794: END IF;
3795: IF (l_clev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3796: l_clev_rec.creation_date := NULL;
3797: END IF;
3798: IF (l_clev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3799: l_clev_rec.last_updated_by := NULL;
3794: END IF;
3795: IF (l_clev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3796: l_clev_rec.creation_date := NULL;
3797: END IF;
3798: IF (l_clev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3799: l_clev_rec.last_updated_by := NULL;
3800: END IF;
3801: IF (l_clev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3802: l_clev_rec.last_update_date := NULL;
3797: END IF;
3798: IF (l_clev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3799: l_clev_rec.last_updated_by := NULL;
3800: END IF;
3801: IF (l_clev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3802: l_clev_rec.last_update_date := NULL;
3803: END IF;
3804: IF (l_clev_rec.price_type = OKC_API.G_MISS_CHAR) THEN
3805: l_clev_rec.price_type := NULL;
3800: END IF;
3801: IF (l_clev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3802: l_clev_rec.last_update_date := NULL;
3803: END IF;
3804: IF (l_clev_rec.price_type = OKC_API.G_MISS_CHAR) THEN
3805: l_clev_rec.price_type := NULL;
3806: END IF;
3807: IF (l_clev_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3808: l_clev_rec.currency_code := NULL;
3803: END IF;
3804: IF (l_clev_rec.price_type = OKC_API.G_MISS_CHAR) THEN
3805: l_clev_rec.price_type := NULL;
3806: END IF;
3807: IF (l_clev_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3808: l_clev_rec.currency_code := NULL;
3809: END IF;
3810: IF (l_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3811: l_clev_rec.currency_code_renewed := NULL;
3806: END IF;
3807: IF (l_clev_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3808: l_clev_rec.currency_code := NULL;
3809: END IF;
3810: IF (l_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3811: l_clev_rec.currency_code_renewed := NULL;
3812: END IF;
3813: IF (l_clev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3814: l_clev_rec.last_update_login := NULL;
3809: END IF;
3810: IF (l_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3811: l_clev_rec.currency_code_renewed := NULL;
3812: END IF;
3813: IF (l_clev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3814: l_clev_rec.last_update_login := NULL;
3815: END IF;
3816: IF (l_clev_rec.service_item_yn = OKC_API.G_MISS_CHAR) THEN
3817: l_clev_rec.service_item_yn := NULL;
3812: END IF;
3813: IF (l_clev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3814: l_clev_rec.last_update_login := NULL;
3815: END IF;
3816: IF (l_clev_rec.service_item_yn = OKC_API.G_MISS_CHAR) THEN
3817: l_clev_rec.service_item_yn := NULL;
3818: END IF;
3819: --new columns for price hold
3820: IF (l_clev_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
3816: IF (l_clev_rec.service_item_yn = OKC_API.G_MISS_CHAR) THEN
3817: l_clev_rec.service_item_yn := NULL;
3818: END IF;
3819: --new columns for price hold
3820: IF (l_clev_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
3821: l_clev_rec.ph_pricing_type := NULL;
3822: END IF;
3823: IF (l_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
3824: l_clev_rec.ph_price_break_basis := NULL;
3819: --new columns for price hold
3820: IF (l_clev_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
3821: l_clev_rec.ph_pricing_type := NULL;
3822: END IF;
3823: IF (l_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
3824: l_clev_rec.ph_price_break_basis := NULL;
3825: END IF;
3826: IF (l_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
3827: l_clev_rec.ph_min_qty := NULL;
3822: END IF;
3823: IF (l_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
3824: l_clev_rec.ph_price_break_basis := NULL;
3825: END IF;
3826: IF (l_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
3827: l_clev_rec.ph_min_qty := NULL;
3828: END IF;
3829: IF (l_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
3830: l_clev_rec.ph_min_amt := NULL;
3825: END IF;
3826: IF (l_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
3827: l_clev_rec.ph_min_qty := NULL;
3828: END IF;
3829: IF (l_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
3830: l_clev_rec.ph_min_amt := NULL;
3831: END IF;
3832: IF (l_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
3833: l_clev_rec.ph_qp_reference_id := NULL;
3828: END IF;
3829: IF (l_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
3830: l_clev_rec.ph_min_amt := NULL;
3831: END IF;
3832: IF (l_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
3833: l_clev_rec.ph_qp_reference_id := NULL;
3834: END IF;
3835: IF (l_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
3836: l_clev_rec.ph_value := NULL;
3831: END IF;
3832: IF (l_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
3833: l_clev_rec.ph_qp_reference_id := NULL;
3834: END IF;
3835: IF (l_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
3836: l_clev_rec.ph_value := NULL;
3837: END IF;
3838: IF (l_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
3839: l_clev_rec.ph_enforce_price_list_yn := NULL;
3834: END IF;
3835: IF (l_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
3836: l_clev_rec.ph_value := NULL;
3837: END IF;
3838: IF (l_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
3839: l_clev_rec.ph_enforce_price_list_yn := NULL;
3840: END IF;
3841: IF (l_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
3842: l_clev_rec.ph_adjustment := NULL;
3837: END IF;
3838: IF (l_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
3839: l_clev_rec.ph_enforce_price_list_yn := NULL;
3840: END IF;
3841: IF (l_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
3842: l_clev_rec.ph_adjustment := NULL;
3843: END IF;
3844: IF (l_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
3845: l_clev_rec.ph_integrated_with_qp := NULL;
3840: END IF;
3841: IF (l_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
3842: l_clev_rec.ph_adjustment := NULL;
3843: END IF;
3844: IF (l_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
3845: l_clev_rec.ph_integrated_with_qp := NULL;
3846: END IF;
3847: -- new columns to replace rules
3848: IF (l_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3844: IF (l_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
3845: l_clev_rec.ph_integrated_with_qp := NULL;
3846: END IF;
3847: -- new columns to replace rules
3848: IF (l_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3849: l_clev_rec.cust_acct_id := NULL;
3850: END IF;
3851: IF (l_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3852: l_clev_rec.bill_to_site_use_id := NULL;
3847: -- new columns to replace rules
3848: IF (l_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3849: l_clev_rec.cust_acct_id := NULL;
3850: END IF;
3851: IF (l_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3852: l_clev_rec.bill_to_site_use_id := NULL;
3853: END IF;
3854: IF (l_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3855: l_clev_rec.inv_rule_id := NULL;
3850: END IF;
3851: IF (l_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3852: l_clev_rec.bill_to_site_use_id := NULL;
3853: END IF;
3854: IF (l_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3855: l_clev_rec.inv_rule_id := NULL;
3856: END IF;
3857: IF (l_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3858: l_clev_rec.line_renewal_type_code := NULL;
3853: END IF;
3854: IF (l_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3855: l_clev_rec.inv_rule_id := NULL;
3856: END IF;
3857: IF (l_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3858: l_clev_rec.line_renewal_type_code := NULL;
3859: END IF;
3860: IF (l_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3861: l_clev_rec.ship_to_site_use_id := NULL;
3856: END IF;
3857: IF (l_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3858: l_clev_rec.line_renewal_type_code := NULL;
3859: END IF;
3860: IF (l_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3861: l_clev_rec.ship_to_site_use_id := NULL;
3862: END IF;
3863: IF (l_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3864: l_clev_rec.payment_term_id := NULL;
3859: END IF;
3860: IF (l_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3861: l_clev_rec.ship_to_site_use_id := NULL;
3862: END IF;
3863: IF (l_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3864: l_clev_rec.payment_term_id := NULL;
3865: END IF;
3866: -- Line level cancellation --
3867: IF (l_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
3863: IF (l_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3864: l_clev_rec.payment_term_id := NULL;
3865: END IF;
3866: -- Line level cancellation --
3867: IF (l_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
3868: l_clev_rec.date_cancelled := NULL;
3869: END IF;
3870: /*IF (l_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
3871: l_clev_rec.canc_reason_code := NULL;
3866: -- Line level cancellation --
3867: IF (l_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
3868: l_clev_rec.date_cancelled := NULL;
3869: END IF;
3870: /*IF (l_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
3871: l_clev_rec.canc_reason_code := NULL;
3872: END IF;*/
3873: IF (l_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3874: l_clev_rec.term_cancel_source := NULL;
3869: END IF;
3870: /*IF (l_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
3871: l_clev_rec.canc_reason_code := NULL;
3872: END IF;*/
3873: IF (l_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3874: l_clev_rec.term_cancel_source := NULL;
3875: END IF;
3876: IF (l_clev_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3877: l_clev_rec.cancelled_amount := NULL;
3872: END IF;*/
3873: IF (l_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3874: l_clev_rec.term_cancel_source := NULL;
3875: END IF;
3876: IF (l_clev_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3877: l_clev_rec.cancelled_amount := NULL;
3878: END IF;
3879: --added by mchoudha 22-JUL
3880: IF (l_clev_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3876: IF (l_clev_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3877: l_clev_rec.cancelled_amount := NULL;
3878: END IF;
3879: --added by mchoudha 22-JUL
3880: IF (l_clev_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3881: l_clev_rec.payment_instruction_type := NULL;
3882: END IF;
3883: IF (l_clev_rec.annualized_factor = OKC_API.G_MISS_NUM) THEN
3884: l_clev_rec.annualized_factor := NULL;
3879: --added by mchoudha 22-JUL
3880: IF (l_clev_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3881: l_clev_rec.payment_instruction_type := NULL;
3882: END IF;
3883: IF (l_clev_rec.annualized_factor = OKC_API.G_MISS_NUM) THEN
3884: l_clev_rec.annualized_factor := NULL;
3885: END IF;
3886:
3887: --
3901: -------------------------------------------
3902: FUNCTION Validate_Attributes (
3903: p_clev_rec IN clev_rec_type
3904: ) RETURN VARCHAR2 IS
3905: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3906: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3907: /* Bug 3652127 */
3908: l_application_id Number;
3909: Cursor l_application_csr Is
3902: FUNCTION Validate_Attributes (
3903: p_clev_rec IN clev_rec_type
3904: ) RETURN VARCHAR2 IS
3905: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3906: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3907: /* Bug 3652127 */
3908: l_application_id Number;
3909: Cursor l_application_csr Is
3910: --npalepu 08-11-2005 modified for bug # 4691662.
3926: (x_return_status => l_return_status,
3927: p_clev_rec => p_clev_rec);
3928:
3929: -- store the highest degree of error
3930: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3931: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3932: x_return_status := l_return_status;
3933: End If;
3934: End If;
3927: p_clev_rec => p_clev_rec);
3928:
3929: -- store the highest degree of error
3930: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3931: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3932: x_return_status := l_return_status;
3933: End If;
3934: End If;
3935:
3937: (x_return_status => l_return_status,
3938: p_clev_rec => p_clev_rec);
3939:
3940: -- store the highest degree of error
3941: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3942: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3943: x_return_status := l_return_status;
3944: End If;
3945: End If;
3938: p_clev_rec => p_clev_rec);
3939:
3940: -- store the highest degree of error
3941: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3942: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3943: x_return_status := l_return_status;
3944: End If;
3945: End If;
3946:
3948: (x_return_status => l_return_status,
3949: p_clev_rec => p_clev_rec);
3950:
3951: -- store the highest degree of error
3952: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3953: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3954: x_return_status := l_return_status;
3955: End If;
3956: End If;
3949: p_clev_rec => p_clev_rec);
3950:
3951: -- store the highest degree of error
3952: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3953: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3954: x_return_status := l_return_status;
3955: End If;
3956: End If;
3957:
3959: (x_return_status => l_return_status,
3960: p_clev_rec => p_clev_rec);
3961:
3962: -- store the highest degree of error
3963: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3964: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3965: x_return_status := l_return_status;
3966: End If;
3967: End If;
3960: p_clev_rec => p_clev_rec);
3961:
3962: -- store the highest degree of error
3963: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3964: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3965: x_return_status := l_return_status;
3966: End If;
3967: End If;
3968:
3970: (x_return_status => l_return_status,
3971: p_clev_rec => p_clev_rec);
3972:
3973: -- store the highest degree of error
3974: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3975: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3976: x_return_status := l_return_status;
3977: End If;
3978: End If;
3971: p_clev_rec => p_clev_rec);
3972:
3973: -- store the highest degree of error
3974: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3975: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3976: x_return_status := l_return_status;
3977: End If;
3978: End If;
3979:
3981: (x_return_status => l_return_status,
3982: p_clev_rec => p_clev_rec);
3983:
3984: -- store the highest degree of error
3985: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3986: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3987: x_return_status := l_return_status;
3988: End If;
3989: End If;
3982: p_clev_rec => p_clev_rec);
3983:
3984: -- store the highest degree of error
3985: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3986: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3987: x_return_status := l_return_status;
3988: End If;
3989: End If;
3990:
3992: (x_return_status => l_return_status,
3993: p_clev_rec => p_clev_rec);
3994:
3995: -- store the highest degree of error
3996: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3997: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3998: x_return_status := l_return_status;
3999: End If;
4000: End If;
3993: p_clev_rec => p_clev_rec);
3994:
3995: -- store the highest degree of error
3996: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3997: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3998: x_return_status := l_return_status;
3999: End If;
4000: End If;
4001:
4003: (x_return_status => l_return_status,
4004: p_clev_rec => p_clev_rec);
4005:
4006: -- store the highest degree of error
4007: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4008: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4009: x_return_status := l_return_status;
4010: End If;
4011: End If;
4004: p_clev_rec => p_clev_rec);
4005:
4006: -- store the highest degree of error
4007: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4008: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4009: x_return_status := l_return_status;
4010: End If;
4011: End If;
4012:
4014: (x_return_status => l_return_status,
4015: p_clev_rec => p_clev_rec);
4016:
4017: -- store the highest degree of error
4018: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4019: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4020: x_return_status := l_return_status;
4021: End If;
4022: End If;
4015: p_clev_rec => p_clev_rec);
4016:
4017: -- store the highest degree of error
4018: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4019: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4020: x_return_status := l_return_status;
4021: End If;
4022: End If;
4023:
4025: (x_return_status => l_return_status,
4026: p_clev_rec => p_clev_rec);
4027:
4028: -- store the highest degree of error
4029: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4030: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4031: x_return_status := l_return_status;
4032: End If;
4033: End If;
4026: p_clev_rec => p_clev_rec);
4027:
4028: -- store the highest degree of error
4029: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4030: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4031: x_return_status := l_return_status;
4032: End If;
4033: End If;
4034:
4036: (x_return_status => l_return_status,
4037: p_clev_rec => p_clev_rec);
4038:
4039: -- store the highest degree of error
4040: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4041: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4042: x_return_status := l_return_status;
4043: End If;
4044: End If;
4037: p_clev_rec => p_clev_rec);
4038:
4039: -- store the highest degree of error
4040: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4041: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4042: x_return_status := l_return_status;
4043: End If;
4044: End If;
4045:
4047: (x_return_status => l_return_status,
4048: p_clev_rec => p_clev_rec);
4049:
4050: -- store the highest degree of error
4051: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4052: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4053: x_return_status := l_return_status;
4054: End If;
4055: End If;
4048: p_clev_rec => p_clev_rec);
4049:
4050: -- store the highest degree of error
4051: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4052: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4053: x_return_status := l_return_status;
4054: End If;
4055: End If;
4056:
4058: (x_return_status => l_return_status,
4059: p_clev_rec => p_clev_rec);
4060:
4061: -- store the highest degree of error
4062: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4063: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4064: x_return_status := l_return_status;
4065: End If;
4066: End If;
4059: p_clev_rec => p_clev_rec);
4060:
4061: -- store the highest degree of error
4062: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4063: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4064: x_return_status := l_return_status;
4065: End If;
4066: End If;
4067:
4069: (x_return_status => l_return_status,
4070: p_clev_rec => p_clev_rec);
4071:
4072: -- store the highest degree of error
4073: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4074: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4075: x_return_status := l_return_status;
4076: End If;
4077: End If;
4070: p_clev_rec => p_clev_rec);
4071:
4072: -- store the highest degree of error
4073: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4074: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4075: x_return_status := l_return_status;
4076: End If;
4077: End If;
4078:
4080: (x_return_status => l_return_status,
4081: p_clev_rec => p_clev_rec);
4082:
4083: -- store the highest degree of error
4084: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4085: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4086: x_return_status := l_return_status;
4087: End If;
4088: End If;
4081: p_clev_rec => p_clev_rec);
4082:
4083: -- store the highest degree of error
4084: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4085: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4086: x_return_status := l_return_status;
4087: End If;
4088: End If;
4089:
4091: (x_return_status => l_return_status,
4092: p_clev_rec => p_clev_rec);
4093:
4094: -- store the highest degree of error
4095: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4096: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4097: x_return_status := l_return_status;
4098: End If;
4099: End If;
4092: p_clev_rec => p_clev_rec);
4093:
4094: -- store the highest degree of error
4095: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4096: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4097: x_return_status := l_return_status;
4098: End If;
4099: End If;
4100:
4102: (x_return_status => l_return_status,
4103: p_clev_rec => p_clev_rec);
4104:
4105: -- store the highest degree of error
4106: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4107: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4108: x_return_status := l_return_status;
4109: End If;
4110: End If;
4103: p_clev_rec => p_clev_rec);
4104:
4105: -- store the highest degree of error
4106: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4107: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4108: x_return_status := l_return_status;
4109: End If;
4110: End If;
4111: ---------------------------
4113: (x_return_status => l_return_status,
4114: p_clev_rec => p_clev_rec);
4115:
4116: -- store the highest degree of error
4117: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4118: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4119: x_return_status := l_return_status;
4120: End If;
4121: End If;
4114: p_clev_rec => p_clev_rec);
4115:
4116: -- store the highest degree of error
4117: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4118: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4119: x_return_status := l_return_status;
4120: End If;
4121: End If;
4122: -------------------------
4124: (x_return_status => l_return_status,
4125: p_clev_rec => p_clev_rec);
4126:
4127: -- store the highest degree of error
4128: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4129: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4130: x_return_status := l_return_status;
4131: End If;
4132: End If;
4125: p_clev_rec => p_clev_rec);
4126:
4127: -- store the highest degree of error
4128: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4129: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4130: x_return_status := l_return_status;
4131: End If;
4132: End If;
4133: --------------------------
4135: (x_return_status => l_return_status,
4136: p_clev_rec => p_clev_rec);
4137:
4138: -- store the highest degree of error
4139: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4140: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4141: x_return_status := l_return_status;
4142: End If;
4143: End If;
4136: p_clev_rec => p_clev_rec);
4137:
4138: -- store the highest degree of error
4139: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4140: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4141: x_return_status := l_return_status;
4142: End If;
4143: End If;
4144: --------------------------
4146: (x_return_status => l_return_status,
4147: p_clev_rec => p_clev_rec);
4148:
4149: -- store the highest degree of error
4150: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4151: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4152: x_return_status := l_return_status;
4153: End If;
4154: End If;
4147: p_clev_rec => p_clev_rec);
4148:
4149: -- store the highest degree of error
4150: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4151: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4152: x_return_status := l_return_status;
4153: End If;
4154: End If;
4155: --------------------------
4157: (x_return_status => l_return_status,
4158: p_clev_rec => p_clev_rec);
4159:
4160: -- store the highest degree of error
4161: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4162: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4163: x_return_status := l_return_status;
4164: End If;
4165: End If;
4158: p_clev_rec => p_clev_rec);
4159:
4160: -- store the highest degree of error
4161: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4162: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4163: x_return_status := l_return_status;
4164: End If;
4165: End If;
4166: --------------------------
4175: (x_return_status => l_return_status,
4176: p_clev_rec => p_clev_rec);
4177:
4178: -- store the highest degree of error
4179: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4180: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4181: x_return_status := l_return_status;
4182: End If;
4183: End If;
4176: p_clev_rec => p_clev_rec);
4177:
4178: -- store the highest degree of error
4179: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4180: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4181: x_return_status := l_return_status;
4182: End If;
4183: End If;
4184: End If;
4187: (x_return_status => l_return_status,
4188: p_clev_rec => p_clev_rec);
4189:
4190: -- store the highest degree of error
4191: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4192: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4193: x_return_status := l_return_status;
4194: End If;
4195: End If;
4188: p_clev_rec => p_clev_rec);
4189:
4190: -- store the highest degree of error
4191: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4192: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4193: x_return_status := l_return_status;
4194: End If;
4195: End If;
4196: --------------------------
4198: (x_return_status => l_return_status,
4199: p_clev_rec => p_clev_rec);
4200:
4201: -- store the highest degree of error
4202: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4203: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4204: x_return_status := l_return_status;
4205: End If;
4206: End If;
4199: p_clev_rec => p_clev_rec);
4200:
4201: -- store the highest degree of error
4202: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4203: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4204: x_return_status := l_return_status;
4205: End If;
4206: End If;
4207: --------------------------
4209: (x_return_status => l_return_status,
4210: p_clev_rec => p_clev_rec);
4211:
4212: -- store the highest degree of error
4213: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4214: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4215: x_return_status := l_return_status;
4216: End If;
4217: End If;
4210: p_clev_rec => p_clev_rec);
4211:
4212: -- store the highest degree of error
4213: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4214: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4215: x_return_status := l_return_status;
4216: End If;
4217: End If;
4218: --------------------------
4220: (x_return_status => l_return_status,
4221: p_clev_rec => p_clev_rec);
4222:
4223: -- store the highest degree of error
4224: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4225: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4226: x_return_status := l_return_status;
4227: End If;
4228: End If;
4221: p_clev_rec => p_clev_rec);
4222:
4223: -- store the highest degree of error
4224: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4225: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4226: x_return_status := l_return_status;
4227: End If;
4228: End If;
4229: --------------------------
4231: (x_return_status => l_return_status,
4232: p_clev_rec => p_clev_rec);
4233:
4234: -- store the highest degree of error
4235: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4236: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4237: x_return_status := l_return_status;
4238: End If;
4239: End If;
4232: p_clev_rec => p_clev_rec);
4233:
4234: -- store the highest degree of error
4235: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4236: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4237: x_return_status := l_return_status;
4238: End If;
4239: End If;
4240: --------------------------
4242: (x_return_status => l_return_status,
4243: p_clev_rec => p_clev_rec);
4244:
4245: -- store the highest degree of error
4246: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4247: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4248: x_return_status := l_return_status;
4249: End If;
4250: End If;
4243: p_clev_rec => p_clev_rec);
4244:
4245: -- store the highest degree of error
4246: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4247: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4248: x_return_status := l_return_status;
4249: End If;
4250: End If;
4251: --------------------------
4253: (x_return_status => l_return_status,
4254: p_clev_rec => p_clev_rec);
4255:
4256: -- store the highest degree of error
4257: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4258: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4259: x_return_status := l_return_status;
4260: End If;
4261: End If;
4254: p_clev_rec => p_clev_rec);
4255:
4256: -- store the highest degree of error
4257: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4258: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4259: x_return_status := l_return_status;
4260: End If;
4261: End If;
4262: ----------------------------
4276: okc_debug.Reset_Indentation;
4277: END IF;
4278:
4279: -- store SQL error message on message stack
4280: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4281: p_msg_name => g_unexpected_error,
4282: p_token1 => g_sqlcode_token,
4283: p_token1_value=> sqlcode,
4284: p_token2 => g_sqlerrm_token,
4284: p_token2 => g_sqlerrm_token,
4285: p_token2_value=> sqlerrm);
4286:
4287: -- notify caller of an UNEXPETED error
4288: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4289:
4290: -- return status to caller
4291: RETURN(x_return_status);
4292: --------------------------------
4294: (x_return_status => l_return_status,
4295: p_clev_rec => p_clev_rec);
4296:
4297: -- store the highest degree of error
4298: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4299: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4300: x_return_status := l_return_status;
4301: End If;
4302: End If;
4295: p_clev_rec => p_clev_rec);
4296:
4297: -- store the highest degree of error
4298: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4299: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4300: x_return_status := l_return_status;
4301: End If;
4302: End If;
4303: /*********************** END HAND-CODED ********************************/
4312: ---------------------------------------
4313: FUNCTION Validate_Record (
4314: p_clev_rec IN clev_rec_type
4315: ) RETURN VARCHAR2 IS
4316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4317: -- Cursor to get header end dates
4318: Cursor l_chrv_csr Is
4319: SELECT END_DATE
4320: --npalepu 08-11-2005 modified for bug # 4691662.
4337: p_clev_rec.cle_id IS NULL) or
4338: (p_clev_rec.chr_id IS NOT NULL and
4339: p_clev_rec.cle_id IS NOT NULL)
4340: Then
4341: l_return_status := OKC_API.G_RET_STS_ERROR;
4342: OKC_API.SET_MESSAGE(
4343: p_app_name => g_app_name,
4344: p_msg_name => g_invalid_value,
4345: p_token1 => g_col_name_token,
4338: (p_clev_rec.chr_id IS NOT NULL and
4339: p_clev_rec.cle_id IS NOT NULL)
4340: Then
4341: l_return_status := OKC_API.G_RET_STS_ERROR;
4342: OKC_API.SET_MESSAGE(
4343: p_app_name => g_app_name,
4344: p_msg_name => g_invalid_value,
4345: p_token1 => g_col_name_token,
4346: p_token1_value => 'chr_id',
4348: p_token2_value => 'cle_id');
4349: End If;
4350: ---Pricing date cannot be greater than line/contract end date for advanced pricing
4351:
4352: If ((l_return_status = OKC_API.G_RET_STS_SUCCESS) AND
4353: Nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N') = 'Y') Then
4354: If p_clev_rec.PRICING_DATE is not null Then
4355:
4356: open l_chrv_csr;
4360:
4361: If (p_clev_rec.END_DATE is not null OR l_end_date is not null) Then
4362: If (p_clev_rec.PRICING_DATE > nvl(p_clev_rec.END_DATE,l_end_date)) Then
4363: -- notify caller of an error as UNEXPETED error
4364: l_return_status := OKC_API.G_RET_STS_ERROR;
4365: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4366: p_msg_name => 'OKC_INVALID_LINE_PRICING_DATE');
4367: End If;
4368: End If;
4361: If (p_clev_rec.END_DATE is not null OR l_end_date is not null) Then
4362: If (p_clev_rec.PRICING_DATE > nvl(p_clev_rec.END_DATE,l_end_date)) Then
4363: -- notify caller of an error as UNEXPETED error
4364: l_return_status := OKC_API.G_RET_STS_ERROR;
4365: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4366: p_msg_name => 'OKC_INVALID_LINE_PRICING_DATE');
4367: End If;
4368: End If;
4369: End If;
4662: p_clev_rec IN clev_rec_type) IS
4663:
4664: l_api_version CONSTANT NUMBER := 1;
4665: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4666: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4667: l_clev_rec clev_rec_type := p_clev_rec;
4668: l_cle_rec cle_rec_type;
4669: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
4670: BEGIN
4673: okc_debug.Set_Indentation('OKC_CLE_PVT');
4674: okc_debug.log('12300: Entered validate_row', 2);
4675: END IF;
4676:
4677: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4678: G_PKG_NAME,
4679: p_init_msg_list,
4680: l_api_version,
4681: p_api_version,
4680: l_api_version,
4681: p_api_version,
4682: '_PVT',
4683: x_return_status);
4684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4687: RAISE OKC_API.G_EXCEPTION_ERROR;
4688: END IF;
4681: p_api_version,
4682: '_PVT',
4683: x_return_status);
4684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4687: RAISE OKC_API.G_EXCEPTION_ERROR;
4688: END IF;
4689:
4682: '_PVT',
4683: x_return_status);
4684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4687: RAISE OKC_API.G_EXCEPTION_ERROR;
4688: END IF;
4689:
4690: IF p_clev_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4683: x_return_status);
4684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4687: RAISE OKC_API.G_EXCEPTION_ERROR;
4688: END IF;
4689:
4690: IF p_clev_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4691: --- Validate all non-missing attributes (Item Level Validation)
4692: l_return_status := Validate_Attributes(l_clev_rec);
4693: END IF;---Bug#3150149
4694:
4695: --- If any errors happen abort API
4696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4693: END IF;---Bug#3150149
4694:
4695: --- If any errors happen abort API
4696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4694:
4695: --- If any errors happen abort API
4696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4695: --- If any errors happen abort API
4696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4697: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4698: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4705: RAISE OKC_API.G_EXCEPTION_ERROR;
4706: END IF;
4699: RAISE OKC_API.G_EXCEPTION_ERROR;
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4705: RAISE OKC_API.G_EXCEPTION_ERROR;
4706: END IF;
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4700: END IF;
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4705: RAISE OKC_API.G_EXCEPTION_ERROR;
4706: END IF;
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4708:
4701: l_return_status := Validate_Record(l_clev_rec);
4702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4705: RAISE OKC_API.G_EXCEPTION_ERROR;
4706: END IF;
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4708:
4709: IF (l_debug = 'Y') THEN
4703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4705: RAISE OKC_API.G_EXCEPTION_ERROR;
4706: END IF;
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4708:
4709: IF (l_debug = 'Y') THEN
4710: okc_debug.log('12400: Exiting validate_row', 2);
4711: okc_debug.Reset_Indentation;
4711: okc_debug.Reset_Indentation;
4712: END IF;
4713:
4714: EXCEPTION
4715: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4716:
4717: IF (l_debug = 'Y') THEN
4718: okc_debug.log('12500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4719: okc_debug.Reset_Indentation;
4714: EXCEPTION
4715: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4716:
4717: IF (l_debug = 'Y') THEN
4718: okc_debug.log('12500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4719: okc_debug.Reset_Indentation;
4720: END IF;
4721:
4722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4718: okc_debug.log('12500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4719: okc_debug.Reset_Indentation;
4720: END IF;
4721:
4722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4723: (
4724: l_api_name,
4725: G_PKG_NAME,
4726: 'OKC_API.G_RET_STS_ERROR',
4722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4723: (
4724: l_api_name,
4725: G_PKG_NAME,
4726: 'OKC_API.G_RET_STS_ERROR',
4727: x_msg_count,
4728: x_msg_data,
4729: '_PVT'
4730: );
4727: x_msg_count,
4728: x_msg_data,
4729: '_PVT'
4730: );
4731: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4732:
4733: IF (l_debug = 'Y') THEN
4734: okc_debug.log('12600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4735: okc_debug.Reset_Indentation;
4730: );
4731: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4732:
4733: IF (l_debug = 'Y') THEN
4734: okc_debug.log('12600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4735: okc_debug.Reset_Indentation;
4736: END IF;
4737:
4738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4734: okc_debug.log('12600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4735: okc_debug.Reset_Indentation;
4736: END IF;
4737:
4738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4739: (
4740: l_api_name,
4741: G_PKG_NAME,
4742: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4739: (
4740: l_api_name,
4741: G_PKG_NAME,
4742: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4743: x_msg_count,
4744: x_msg_data,
4745: '_PVT'
4746: );
4750: okc_debug.log('12700: Exiting validate_row:OTHERS Exception', 2);
4751: okc_debug.Reset_Indentation;
4752: END IF;
4753:
4754: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4755: (
4756: l_api_name,
4757: G_PKG_NAME,
4758: 'OTHERS',
4774: p_clev_tbl IN clev_tbl_type) IS
4775:
4776: l_api_version CONSTANT NUMBER := 1;
4777: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4779: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4780: i NUMBER := 0;
4781: BEGIN
4782:
4775:
4776: l_api_version CONSTANT NUMBER := 1;
4777: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4779: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4780: i NUMBER := 0;
4781: BEGIN
4782:
4783: IF (l_debug = 'Y') THEN
4784: okc_debug.Set_Indentation('OKC_CLE_PVT');
4785: okc_debug.log('12800: Entered validate_row', 2);
4786: END IF;
4787:
4788: OKC_API.init_msg_list(p_init_msg_list);
4789: -- Make sure PL/SQL table has records in it before passing
4790: IF (p_clev_tbl.COUNT > 0) THEN
4791: i := p_clev_tbl.FIRST;
4792: LOOP
4791: i := p_clev_tbl.FIRST;
4792: LOOP
4793: validate_row (
4794: p_api_version => p_api_version,
4795: p_init_msg_list => OKC_API.G_FALSE,
4796: x_return_status => x_return_status,
4797: x_msg_count => x_msg_count,
4798: x_msg_data => x_msg_data,
4799: p_clev_rec => p_clev_tbl(i));
4798: x_msg_data => x_msg_data,
4799: p_clev_rec => p_clev_tbl(i));
4800:
4801: -- store the highest degree of error
4802: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4803: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4804: l_overall_status := x_return_status;
4805: End If;
4806: End If;
4799: p_clev_rec => p_clev_tbl(i));
4800:
4801: -- store the highest degree of error
4802: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
4803: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
4804: l_overall_status := x_return_status;
4805: End If;
4806: End If;
4807:
4817: okc_debug.Reset_Indentation;
4818: END IF;
4819:
4820: EXCEPTION
4821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4822:
4823: IF (l_debug = 'Y') THEN
4824: okc_debug.log('13000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4825: okc_debug.Reset_Indentation;
4820: EXCEPTION
4821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4822:
4823: IF (l_debug = 'Y') THEN
4824: okc_debug.log('13000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4825: okc_debug.Reset_Indentation;
4826: END IF;
4827:
4828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4824: okc_debug.log('13000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4825: okc_debug.Reset_Indentation;
4826: END IF;
4827:
4828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4829: (
4830: l_api_name,
4831: G_PKG_NAME,
4832: 'OKC_API.G_RET_STS_ERROR',
4828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4829: (
4830: l_api_name,
4831: G_PKG_NAME,
4832: 'OKC_API.G_RET_STS_ERROR',
4833: x_msg_count,
4834: x_msg_data,
4835: '_PVT'
4836: );
4833: x_msg_count,
4834: x_msg_data,
4835: '_PVT'
4836: );
4837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4838:
4839: IF (l_debug = 'Y') THEN
4840: okc_debug.log('13100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4841: okc_debug.Reset_Indentation;
4836: );
4837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4838:
4839: IF (l_debug = 'Y') THEN
4840: okc_debug.log('13100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4841: okc_debug.Reset_Indentation;
4842: END IF;
4843:
4844: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4840: okc_debug.log('13100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4841: okc_debug.Reset_Indentation;
4842: END IF;
4843:
4844: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4845: (
4846: l_api_name,
4847: G_PKG_NAME,
4848: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4844: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4845: (
4846: l_api_name,
4847: G_PKG_NAME,
4848: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4849: x_msg_count,
4850: x_msg_data,
4851: '_PVT'
4852: );
4856: okc_debug.log('13200: Exiting validate_row:OTHERS Exception', 2);
4857: okc_debug.Reset_Indentation;
4858: END IF;
4859:
4860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4861: (
4862: l_api_name,
4863: G_PKG_NAME,
4864: 'OTHERS',
4884: x_cle_rec OUT NOCOPY cle_rec_type) IS
4885:
4886: l_api_version CONSTANT NUMBER := 1;
4887: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
4888: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4889: l_cle_rec cle_rec_type := p_cle_rec;
4890: l_def_cle_rec cle_rec_type;
4891: --------------------------------------
4892: -- Set_Attributes for:OKC_K_LINES_B --
4894: FUNCTION Set_Attributes (
4895: p_cle_rec IN cle_rec_type,
4896: x_cle_rec OUT NOCOPY cle_rec_type
4897: ) RETURN VARCHAR2 IS
4898: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4899: BEGIN
4900:
4901: x_cle_rec := p_cle_rec;
4902: RETURN(l_return_status);
4908: okc_debug.Set_Indentation('OKC_CLE_PVT');
4909: okc_debug.log('13400: Entered insert_row', 2);
4910: END IF;
4911:
4912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4913: p_init_msg_list,
4914: '_PVT',
4915: x_return_status);
4916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4913: p_init_msg_list,
4914: '_PVT',
4915: x_return_status);
4916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4919: RAISE OKC_API.G_EXCEPTION_ERROR;
4920: END IF;
4913: p_init_msg_list,
4914: '_PVT',
4915: x_return_status);
4916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4919: RAISE OKC_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: --- Setting item attributes
4914: '_PVT',
4915: x_return_status);
4916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4919: RAISE OKC_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: --- Setting item attributes
4922: l_return_status := Set_Attributes(
4915: x_return_status);
4916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4919: RAISE OKC_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: --- Setting item attributes
4922: l_return_status := Set_Attributes(
4923: p_cle_rec, -- IN
4922: l_return_status := Set_Attributes(
4923: p_cle_rec, -- IN
4924: l_cle_rec); -- OUT
4925: --- If any errors happen abort API
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4923: p_cle_rec, -- IN
4924: l_cle_rec); -- OUT
4925: --- If any errors happen abort API
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: INSERT INTO OKC_K_LINES_B(
4924: l_cle_rec); -- OUT
4925: --- If any errors happen abort API
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: INSERT INTO OKC_K_LINES_B(
4932: id,
4925: --- If any errors happen abort API
4926: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4929: RAISE OKC_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: INSERT INTO OKC_K_LINES_B(
4932: id,
4933: line_number,
5138: );
5139: --END NPALEPU
5140: -- Set OUT values
5141: x_cle_rec := l_cle_rec;
5142: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5143:
5144: IF (l_debug = 'Y') THEN
5145: okc_debug.log('13500: Exiting insert_row', 2);
5146: okc_debug.Reset_Indentation;
5146: okc_debug.Reset_Indentation;
5147: END IF;
5148:
5149: EXCEPTION
5150: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5151:
5152: IF (l_debug = 'Y') THEN
5153: okc_debug.log('13600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5154: okc_debug.Reset_Indentation;
5149: EXCEPTION
5150: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5151:
5152: IF (l_debug = 'Y') THEN
5153: okc_debug.log('13600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5154: okc_debug.Reset_Indentation;
5155: END IF;
5156:
5157: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5153: okc_debug.log('13600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5154: okc_debug.Reset_Indentation;
5155: END IF;
5156:
5157: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5158: (
5159: l_api_name,
5160: G_PKG_NAME,
5161: 'OKC_API.G_RET_STS_ERROR',
5157: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5158: (
5159: l_api_name,
5160: G_PKG_NAME,
5161: 'OKC_API.G_RET_STS_ERROR',
5162: x_msg_count,
5163: x_msg_data,
5164: '_PVT'
5165: );
5162: x_msg_count,
5163: x_msg_data,
5164: '_PVT'
5165: );
5166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5167:
5168: IF (l_debug = 'Y') THEN
5169: okc_debug.log('13700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5170: okc_debug.Reset_Indentation;
5165: );
5166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5167:
5168: IF (l_debug = 'Y') THEN
5169: okc_debug.log('13700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5170: okc_debug.Reset_Indentation;
5171: END IF;
5172:
5173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5169: okc_debug.log('13700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5170: okc_debug.Reset_Indentation;
5171: END IF;
5172:
5173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5174: (
5175: l_api_name,
5176: G_PKG_NAME,
5177: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5174: (
5175: l_api_name,
5176: G_PKG_NAME,
5177: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5178: x_msg_count,
5179: x_msg_data,
5180: '_PVT'
5181: );
5185: okc_debug.log('13800: Exiting insert_row:OTHERS Exception', 2);
5186: okc_debug.Reset_Indentation;
5187: END IF;
5188:
5189: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5190: (
5191: l_api_name,
5192: G_PKG_NAME,
5193: 'OTHERS',
5209: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type) IS
5210:
5211: l_api_version CONSTANT NUMBER := 1;
5212: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5214: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type := p_okc_k_lines_tl_rec;
5215: l_def_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
5216: CURSOR get_languages IS
5217: SELECT *
5223: FUNCTION Set_Attributes (
5224: p_okc_k_lines_tl_rec IN okc_k_lines_tl_rec_type,
5225: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type
5226: ) RETURN VARCHAR2 IS
5227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5228: BEGIN
5229:
5230: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
5231: x_okc_k_lines_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5240: okc_debug.Set_Indentation('OKC_CLE_PVT');
5241: okc_debug.log('14000: Entered insert_row', 2);
5242: END IF;
5243:
5244: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5245: p_init_msg_list,
5246: '_PVT',
5247: x_return_status);
5248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5244: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5245: p_init_msg_list,
5246: '_PVT',
5247: x_return_status);
5248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5251: RAISE OKC_API.G_EXCEPTION_ERROR;
5252: END IF;
5245: p_init_msg_list,
5246: '_PVT',
5247: x_return_status);
5248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5251: RAISE OKC_API.G_EXCEPTION_ERROR;
5252: END IF;
5253: --- Setting item attributes
5246: '_PVT',
5247: x_return_status);
5248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5251: RAISE OKC_API.G_EXCEPTION_ERROR;
5252: END IF;
5253: --- Setting item attributes
5254: l_return_status := Set_Attributes(
5247: x_return_status);
5248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5251: RAISE OKC_API.G_EXCEPTION_ERROR;
5252: END IF;
5253: --- Setting item attributes
5254: l_return_status := Set_Attributes(
5255: p_okc_k_lines_tl_rec, -- IN
5254: l_return_status := Set_Attributes(
5255: p_okc_k_lines_tl_rec, -- IN
5256: l_okc_k_lines_tl_rec); -- OUT
5257: --- If any errors happen abort API
5258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKC_API.G_EXCEPTION_ERROR;
5262: END IF;
5255: p_okc_k_lines_tl_rec, -- IN
5256: l_okc_k_lines_tl_rec); -- OUT
5257: --- If any errors happen abort API
5258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKC_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: FOR l_lang_rec IN get_languages LOOP
5256: l_okc_k_lines_tl_rec); -- OUT
5257: --- If any errors happen abort API
5258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKC_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: FOR l_lang_rec IN get_languages LOOP
5264: l_okc_k_lines_tl_rec.language := l_lang_rec.language_code;
5257: --- If any errors happen abort API
5258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKC_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: FOR l_lang_rec IN get_languages LOOP
5264: l_okc_k_lines_tl_rec.language := l_lang_rec.language_code;
5265: INSERT INTO OKC_K_LINES_TL(
5296: l_okc_k_lines_tl_rec.last_update_login);
5297: END LOOP;
5298: -- Set OUT values
5299: x_okc_k_lines_tl_rec := l_okc_k_lines_tl_rec;
5300: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5301:
5302: IF (l_debug = 'Y') THEN
5303: okc_debug.log('14100: Exiting insert_row', 2);
5304: okc_debug.Reset_Indentation;
5304: okc_debug.Reset_Indentation;
5305: END IF;
5306:
5307: EXCEPTION
5308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5309:
5310: IF (l_debug = 'Y') THEN
5311: okc_debug.log('14200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5312: okc_debug.Reset_Indentation;
5307: EXCEPTION
5308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5309:
5310: IF (l_debug = 'Y') THEN
5311: okc_debug.log('14200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5312: okc_debug.Reset_Indentation;
5313: END IF;
5314:
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5311: okc_debug.log('14200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5312: okc_debug.Reset_Indentation;
5313: END IF;
5314:
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (
5317: l_api_name,
5318: G_PKG_NAME,
5319: 'OKC_API.G_RET_STS_ERROR',
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (
5317: l_api_name,
5318: G_PKG_NAME,
5319: 'OKC_API.G_RET_STS_ERROR',
5320: x_msg_count,
5321: x_msg_data,
5322: '_PVT'
5323: );
5320: x_msg_count,
5321: x_msg_data,
5322: '_PVT'
5323: );
5324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5325:
5326: IF (l_debug = 'Y') THEN
5327: okc_debug.log('14300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5328: okc_debug.Reset_Indentation;
5323: );
5324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5325:
5326: IF (l_debug = 'Y') THEN
5327: okc_debug.log('14300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5328: okc_debug.Reset_Indentation;
5329: END IF;
5330:
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5327: okc_debug.log('14300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5328: okc_debug.Reset_Indentation;
5329: END IF;
5330:
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5332: (
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5332: (
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5336: x_msg_count,
5337: x_msg_data,
5338: '_PVT'
5339: );
5343: okc_debug.log('14400: Exiting insert_row:OTHERS Exception', 2);
5344: okc_debug.Reset_Indentation;
5345: END IF;
5346:
5347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5348: (
5349: l_api_name,
5350: G_PKG_NAME,
5351: 'OTHERS',
5368: x_clev_rec OUT NOCOPY clev_rec_type) IS
5369:
5370: l_api_version CONSTANT NUMBER := 1;
5371: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
5372: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5373: l_clev_rec clev_rec_type;
5374: l_def_clev_rec clev_rec_type;
5375: l_cle_rec cle_rec_type;
5376: lx_cle_rec cle_rec_type;
5400: FUNCTION Set_Attributes (
5401: p_clev_rec IN clev_rec_type,
5402: x_clev_rec OUT NOCOPY clev_rec_type
5403: ) RETURN VARCHAR2 IS
5404: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5405: BEGIN
5406:
5407: x_clev_rec := p_clev_rec;
5408: x_clev_rec.OBJECT_VERSION_NUMBER := 1;
5410: /************************ HAND-CODED *********************************/
5411: x_clev_rec.HIDDEN_IND := UPPER(x_clev_rec.HIDDEN_IND);
5412: x_clev_rec.PRICE_LEVEL_IND := UPPER(x_clev_rec.PRICE_LEVEL_IND);
5413: If (x_clev_rec.PRICE_LEVEL_IND is null OR
5414: x_clev_rec.PRICE_LEVEL_IND = OKC_API.G_MISS_CHAR)
5415: Then
5416: x_clev_rec.PRICE_LEVEL_IND := 'N';
5417: End If;
5418: x_clev_rec.INVOICE_LINE_LEVEL_IND := UPPER(x_clev_rec.INVOICE_LINE_LEVEL_IND);
5434: okc_debug.log('14700: Entered insert_row', 2);
5435: END IF;
5436:
5437:
5438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5439: G_PKG_NAME,
5440: p_init_msg_list,
5441: l_api_version,
5442: p_api_version,
5441: l_api_version,
5442: p_api_version,
5443: '_PVT',
5444: x_return_status);
5445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5448: RAISE OKC_API.G_EXCEPTION_ERROR;
5449: END IF;
5442: p_api_version,
5443: '_PVT',
5444: x_return_status);
5445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5448: RAISE OKC_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: l_clev_rec := null_out_defaults(p_clev_rec);
5443: '_PVT',
5444: x_return_status);
5445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5448: RAISE OKC_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: l_clev_rec := null_out_defaults(p_clev_rec);
5451: -- Set primary key value
5444: x_return_status);
5445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5448: RAISE OKC_API.G_EXCEPTION_ERROR;
5449: END IF;
5450: l_clev_rec := null_out_defaults(p_clev_rec);
5451: -- Set primary key value
5452: l_clev_rec.ID := get_seq_id;
5454: l_return_status := Set_Attributes(
5455: l_clev_rec, -- IN
5456: l_def_clev_rec); -- OUT
5457: --- If any errors happen abort API
5458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5461: RAISE OKC_API.G_EXCEPTION_ERROR;
5462: END IF;
5455: l_clev_rec, -- IN
5456: l_def_clev_rec); -- OUT
5457: --- If any errors happen abort API
5458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5461: RAISE OKC_API.G_EXCEPTION_ERROR;
5462: END IF;
5463: /************************ HAND-CODED ***************************/
5456: l_def_clev_rec); -- OUT
5457: --- If any errors happen abort API
5458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5461: RAISE OKC_API.G_EXCEPTION_ERROR;
5462: END IF;
5463: /************************ HAND-CODED ***************************/
5464: If (l_clev_rec.line_number is null) Then
5457: --- If any errors happen abort API
5458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5461: RAISE OKC_API.G_EXCEPTION_ERROR;
5462: END IF;
5463: /************************ HAND-CODED ***************************/
5464: If (l_clev_rec.line_number is null) Then
5465: get_next_line_number(p_chr_id => l_clev_rec.chr_id,
5465: get_next_line_number(p_chr_id => l_clev_rec.chr_id,
5466: p_cle_id => l_clev_rec.cle_id,
5467: x_return_status => l_return_status,
5468: x_line_number => l_def_clev_rec.line_number);
5469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: END IF;
5472: Else
5473: l_def_clev_rec.line_number := l_clev_rec.line_number;
5466: p_cle_id => l_clev_rec.cle_id,
5467: x_return_status => l_return_status,
5468: x_line_number => l_def_clev_rec.line_number);
5469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5471: END IF;
5472: Else
5473: l_def_clev_rec.line_number := l_clev_rec.line_number;
5474: End If;
5481: l_return_status := Validate_Attributes(l_def_clev_rec);
5482: END IF;
5483:
5484: --- If any errors happen abort API
5485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5482: END IF;
5483:
5484: --- If any errors happen abort API
5485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5483:
5484: --- If any errors happen abort API
5485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5484: --- If any errors happen abort API
5485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5494: RAISE OKC_API.G_EXCEPTION_ERROR;
5495: END IF;
5488: RAISE OKC_API.G_EXCEPTION_ERROR;
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5494: RAISE OKC_API.G_EXCEPTION_ERROR;
5495: END IF;
5496: --------------------------------------
5489: END IF;
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5494: RAISE OKC_API.G_EXCEPTION_ERROR;
5495: END IF;
5496: --------------------------------------
5497: -- Move VIEW record to "Child" records
5490: l_return_status := Validate_Record(l_def_clev_rec);
5491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5494: RAISE OKC_API.G_EXCEPTION_ERROR;
5495: END IF;
5496: --------------------------------------
5497: -- Move VIEW record to "Child" records
5498: --------------------------------------
5508: x_msg_data,
5509: l_cle_rec,
5510: lx_cle_rec
5511: );
5512: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5509: l_cle_rec,
5510: lx_cle_rec
5511: );
5512: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5517: migrate(lx_cle_rec, l_def_clev_rec);
5510: lx_cle_rec
5511: );
5512: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5517: migrate(lx_cle_rec, l_def_clev_rec);
5518: insert_row(
5511: );
5512: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5517: migrate(lx_cle_rec, l_def_clev_rec);
5518: insert_row(
5519: p_init_msg_list,
5522: x_msg_data,
5523: l_okc_k_lines_tl_rec,
5524: lx_okc_k_lines_tl_rec
5525: );
5526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5529: RAISE OKC_API.G_EXCEPTION_ERROR;
5530: END IF;
5523: l_okc_k_lines_tl_rec,
5524: lx_okc_k_lines_tl_rec
5525: );
5526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5529: RAISE OKC_API.G_EXCEPTION_ERROR;
5530: END IF;
5531: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
5524: lx_okc_k_lines_tl_rec
5525: );
5526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5529: RAISE OKC_API.G_EXCEPTION_ERROR;
5530: END IF;
5531: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
5532: -- Set OUT values
5525: );
5526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5529: RAISE OKC_API.G_EXCEPTION_ERROR;
5530: END IF;
5531: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
5532: -- Set OUT values
5533: x_clev_rec := l_def_clev_rec;
5531: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
5532: -- Set OUT values
5533: x_clev_rec := l_def_clev_rec;
5534:
5535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5536:
5537: IF (l_debug = 'Y') THEN
5538: okc_debug.log('14800: Exiting insert_row', 2);
5539: okc_debug.Reset_Indentation;
5539: okc_debug.Reset_Indentation;
5540: END IF;
5541:
5542: EXCEPTION
5543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5544:
5545: IF (l_debug = 'Y') THEN
5546: okc_debug.log('14900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5547: okc_debug.Reset_Indentation;
5542: EXCEPTION
5543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5544:
5545: IF (l_debug = 'Y') THEN
5546: okc_debug.log('14900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5547: okc_debug.Reset_Indentation;
5548: END IF;
5549:
5550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5546: okc_debug.log('14900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5547: okc_debug.Reset_Indentation;
5548: END IF;
5549:
5550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5551: (
5552: l_api_name,
5553: G_PKG_NAME,
5554: 'OKC_API.G_RET_STS_ERROR',
5550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5551: (
5552: l_api_name,
5553: G_PKG_NAME,
5554: 'OKC_API.G_RET_STS_ERROR',
5555: x_msg_count,
5556: x_msg_data,
5557: '_PVT'
5558: );
5555: x_msg_count,
5556: x_msg_data,
5557: '_PVT'
5558: );
5559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5560:
5561: IF (l_debug = 'Y') THEN
5562: okc_debug.log('15000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5563: okc_debug.Reset_Indentation;
5558: );
5559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5560:
5561: IF (l_debug = 'Y') THEN
5562: okc_debug.log('15000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5563: okc_debug.Reset_Indentation;
5564: END IF;
5565:
5566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5562: okc_debug.log('15000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5563: okc_debug.Reset_Indentation;
5564: END IF;
5565:
5566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5567: (
5568: l_api_name,
5569: G_PKG_NAME,
5570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5567: (
5568: l_api_name,
5569: G_PKG_NAME,
5570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5571: x_msg_count,
5572: x_msg_data,
5573: '_PVT'
5574: );
5578: okc_debug.log('15100: Exiting insert_row:OTHERS Exception', 2);
5579: okc_debug.Reset_Indentation;
5580: END IF;
5581:
5582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5583: (
5584: l_api_name,
5585: G_PKG_NAME,
5586: 'OTHERS',
5603: x_clev_tbl OUT NOCOPY clev_tbl_type) IS
5604:
5605: l_api_version CONSTANT NUMBER := 1;
5606: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5607: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5608: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5609: i NUMBER := 0;
5610: BEGIN
5611:
5604:
5605: l_api_version CONSTANT NUMBER := 1;
5606: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5607: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5608: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5609: i NUMBER := 0;
5610: BEGIN
5611:
5612: IF (l_debug = 'Y') THEN
5613: okc_debug.Set_Indentation('OKC_CLE_PVT');
5614: okc_debug.log('15200: Entered insert_row', 2);
5615: END IF;
5616:
5617: OKC_API.init_msg_list(p_init_msg_list);
5618: -- Make sure PL/SQL table has records in it before passing
5619: IF (p_clev_tbl.COUNT > 0) THEN
5620: i := p_clev_tbl.FIRST;
5621: LOOP
5620: i := p_clev_tbl.FIRST;
5621: LOOP
5622: insert_row (
5623: p_api_version => p_api_version,
5624: p_init_msg_list => OKC_API.G_FALSE,
5625: x_return_status => x_return_status,
5626: x_msg_count => x_msg_count,
5627: x_msg_data => x_msg_data,
5628: p_clev_rec => p_clev_tbl(i),
5628: p_clev_rec => p_clev_tbl(i),
5629: x_clev_rec => x_clev_tbl(i));
5630:
5631: -- store the highest degree of error
5632: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
5633: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
5634: l_overall_status := x_return_status;
5635: End If;
5636: End If;
5629: x_clev_rec => x_clev_tbl(i));
5630:
5631: -- store the highest degree of error
5632: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
5633: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
5634: l_overall_status := x_return_status;
5635: End If;
5636: End If;
5637:
5647: okc_debug.Reset_Indentation;
5648: END IF;
5649:
5650: EXCEPTION
5651: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.log('15400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5655: okc_debug.Reset_Indentation;
5650: EXCEPTION
5651: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.log('15400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5655: okc_debug.Reset_Indentation;
5656: END IF;
5657:
5658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5654: okc_debug.log('15400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5655: okc_debug.Reset_Indentation;
5656: END IF;
5657:
5658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5659: (
5660: l_api_name,
5661: G_PKG_NAME,
5662: 'OKC_API.G_RET_STS_ERROR',
5658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5659: (
5660: l_api_name,
5661: G_PKG_NAME,
5662: 'OKC_API.G_RET_STS_ERROR',
5663: x_msg_count,
5664: x_msg_data,
5665: '_PVT'
5666: );
5663: x_msg_count,
5664: x_msg_data,
5665: '_PVT'
5666: );
5667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.log('15500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5671: okc_debug.Reset_Indentation;
5666: );
5667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.log('15500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5671: okc_debug.Reset_Indentation;
5672: END IF;
5673:
5674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5670: okc_debug.log('15500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5671: okc_debug.Reset_Indentation;
5672: END IF;
5673:
5674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5675: (
5676: l_api_name,
5677: G_PKG_NAME,
5678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5675: (
5676: l_api_name,
5677: G_PKG_NAME,
5678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5679: x_msg_count,
5680: x_msg_data,
5681: '_PVT'
5682: );
5686: okc_debug.log('15600: Exiting insert_row:OTHERS Exception', 2);
5687: okc_debug.Reset_Indentation;
5688: END IF;
5689:
5690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5691: (
5692: l_api_name,
5693: G_PKG_NAME,
5694: 'OTHERS',
5726: FROM OKC_K_LINES_B
5727: WHERE ID = p_cle_rec.id;
5728: l_api_version CONSTANT NUMBER := 1;
5729: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5730: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5731: l_object_version_number OKC_K_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
5732: lc_object_version_number OKC_K_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
5733: l_row_notfound BOOLEAN := FALSE;
5734: lc_row_notfound BOOLEAN := FALSE;
5738: okc_debug.Set_Indentation('OKC_CLE_PVT');
5739: okc_debug.log('15700: Entered lock_row', 2);
5740: END IF;
5741:
5742: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5743: p_init_msg_list,
5744: '_PVT',
5745: x_return_status);
5746: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5742: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5743: p_init_msg_list,
5744: '_PVT',
5745: x_return_status);
5746: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5749: RAISE OKC_API.G_EXCEPTION_ERROR;
5750: END IF;
5743: p_init_msg_list,
5744: '_PVT',
5745: x_return_status);
5746: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5749: RAISE OKC_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: BEGIN
5744: '_PVT',
5745: x_return_status);
5746: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5749: RAISE OKC_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: BEGIN
5752:
5745: x_return_status);
5746: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5749: RAISE OKC_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: BEGIN
5752:
5753: IF (l_debug = 'Y') THEN
5775:
5776: IF (lock_csr%ISOPEN) THEN
5777: CLOSE lock_csr;
5778: END IF;
5779: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
5780: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5781: END;
5782:
5783: IF ( l_row_notfound ) THEN
5786: lc_row_notfound := lchk_csr%NOTFOUND;
5787: CLOSE lchk_csr;
5788: END IF;
5789: IF (lc_row_notfound) THEN
5790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5791: RAISE OKC_API.G_EXCEPTION_ERROR;
5792: ELSIF lc_object_version_number > p_cle_rec.object_version_number THEN
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5787: CLOSE lchk_csr;
5788: END IF;
5789: IF (lc_row_notfound) THEN
5790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5791: RAISE OKC_API.G_EXCEPTION_ERROR;
5792: ELSIF lc_object_version_number > p_cle_rec.object_version_number THEN
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5789: IF (lc_row_notfound) THEN
5790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5791: RAISE OKC_API.G_EXCEPTION_ERROR;
5792: ELSIF lc_object_version_number > p_cle_rec.object_version_number THEN
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5791: RAISE OKC_API.G_EXCEPTION_ERROR;
5792: ELSIF lc_object_version_number > p_cle_rec.object_version_number THEN
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5798: ELSIF lc_object_version_number = -1 THEN
5792: ELSIF lc_object_version_number > p_cle_rec.object_version_number THEN
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5798: ELSIF lc_object_version_number = -1 THEN
5799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5800: RAISE OKC_API.G_EXCEPTION_ERROR;
5793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5794: RAISE OKC_API.G_EXCEPTION_ERROR;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5798: ELSIF lc_object_version_number = -1 THEN
5799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5800: RAISE OKC_API.G_EXCEPTION_ERROR;
5801: END IF;
5795: ELSIF lc_object_version_number <> p_cle_rec.object_version_number THEN
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5798: ELSIF lc_object_version_number = -1 THEN
5799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5800: RAISE OKC_API.G_EXCEPTION_ERROR;
5801: END IF;
5802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5803:
5796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5797: RAISE OKC_API.G_EXCEPTION_ERROR;
5798: ELSIF lc_object_version_number = -1 THEN
5799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5800: RAISE OKC_API.G_EXCEPTION_ERROR;
5801: END IF;
5802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5803:
5804: IF (l_debug = 'Y') THEN
5798: ELSIF lc_object_version_number = -1 THEN
5799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5800: RAISE OKC_API.G_EXCEPTION_ERROR;
5801: END IF;
5802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5803:
5804: IF (l_debug = 'Y') THEN
5805: okc_debug.log('16100: Leaving lock_row', 2);
5806: okc_debug.Reset_Indentation;
5806: okc_debug.Reset_Indentation;
5807: END IF;
5808:
5809: EXCEPTION
5810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5811:
5812: IF (l_debug = 'Y') THEN
5813: okc_debug.log('16200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5814: okc_debug.Reset_Indentation;
5809: EXCEPTION
5810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5811:
5812: IF (l_debug = 'Y') THEN
5813: okc_debug.log('16200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5814: okc_debug.Reset_Indentation;
5815: END IF;
5816:
5817: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5813: okc_debug.log('16200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5814: okc_debug.Reset_Indentation;
5815: END IF;
5816:
5817: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5818: (
5819: l_api_name,
5820: G_PKG_NAME,
5821: 'OKC_API.G_RET_STS_ERROR',
5817: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5818: (
5819: l_api_name,
5820: G_PKG_NAME,
5821: 'OKC_API.G_RET_STS_ERROR',
5822: x_msg_count,
5823: x_msg_data,
5824: '_PVT'
5825: );
5822: x_msg_count,
5823: x_msg_data,
5824: '_PVT'
5825: );
5826: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827:
5828: IF (l_debug = 'Y') THEN
5829: okc_debug.log('16300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5830: okc_debug.Reset_Indentation;
5825: );
5826: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827:
5828: IF (l_debug = 'Y') THEN
5829: okc_debug.log('16300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5830: okc_debug.Reset_Indentation;
5831: END IF;
5832:
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5829: okc_debug.log('16300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5830: okc_debug.Reset_Indentation;
5831: END IF;
5832:
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5834: (
5835: l_api_name,
5836: G_PKG_NAME,
5837: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5834: (
5835: l_api_name,
5836: G_PKG_NAME,
5837: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5838: x_msg_count,
5839: x_msg_data,
5840: '_PVT'
5841: );
5845: okc_debug.log('16400: Exiting lock_row:OTHERS Exception', 2);
5846: okc_debug.Reset_Indentation;
5847: END IF;
5848:
5849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5850: (
5851: l_api_name,
5852: G_PKG_NAME,
5853: 'OTHERS',
5876: FOR UPDATE NOWAIT;
5877:
5878: l_api_version CONSTANT NUMBER := 1;
5879: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
5880: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5881: l_lock_var lock_csr%ROWTYPE;
5882: l_row_notfound BOOLEAN := FALSE;
5883: lc_row_notfound BOOLEAN := FALSE;
5884: BEGIN
5887: okc_debug.Set_Indentation('OKC_CLE_PVT');
5888: okc_debug.log('16500: Entered lock_row', 2);
5889: END IF;
5890:
5891: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5892: p_init_msg_list,
5893: '_PVT',
5894: x_return_status);
5895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5891: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5892: p_init_msg_list,
5893: '_PVT',
5894: x_return_status);
5895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5898: RAISE OKC_API.G_EXCEPTION_ERROR;
5899: END IF;
5892: p_init_msg_list,
5893: '_PVT',
5894: x_return_status);
5895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5898: RAISE OKC_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: BEGIN
5893: '_PVT',
5894: x_return_status);
5895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5898: RAISE OKC_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: BEGIN
5901:
5894: x_return_status);
5895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5898: RAISE OKC_API.G_EXCEPTION_ERROR;
5899: END IF;
5900: BEGIN
5901:
5902: IF (l_debug = 'Y') THEN
5924:
5925: IF (lock_csr%ISOPEN) THEN
5926: CLOSE lock_csr;
5927: END IF;
5928: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
5929: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5930: END;
5931:
5932: IF ( l_row_notfound ) THEN
5929: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5930: END;
5931:
5932: IF ( l_row_notfound ) THEN
5933: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5934: RAISE OKC_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5937:
5930: END;
5931:
5932: IF ( l_row_notfound ) THEN
5933: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5934: RAISE OKC_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5937:
5938: IF (l_debug = 'Y') THEN
5932: IF ( l_row_notfound ) THEN
5933: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5934: RAISE OKC_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5937:
5938: IF (l_debug = 'Y') THEN
5939: okc_debug.log('16900: Exiting lock_row', 2);
5940: okc_debug.Reset_Indentation;
5940: okc_debug.Reset_Indentation;
5941: END IF;
5942:
5943: EXCEPTION
5944: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5945:
5946: IF (l_debug = 'Y') THEN
5947: okc_debug.log('17000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5948: okc_debug.Reset_Indentation;
5943: EXCEPTION
5944: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5945:
5946: IF (l_debug = 'Y') THEN
5947: okc_debug.log('17000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5948: okc_debug.Reset_Indentation;
5949: END IF;
5950:
5951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5947: okc_debug.log('17000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5948: okc_debug.Reset_Indentation;
5949: END IF;
5950:
5951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5952: (
5953: l_api_name,
5954: G_PKG_NAME,
5955: 'OKC_API.G_RET_STS_ERROR',
5951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5952: (
5953: l_api_name,
5954: G_PKG_NAME,
5955: 'OKC_API.G_RET_STS_ERROR',
5956: x_msg_count,
5957: x_msg_data,
5958: '_PVT'
5959: );
5956: x_msg_count,
5957: x_msg_data,
5958: '_PVT'
5959: );
5960: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5961:
5962: IF (l_debug = 'Y') THEN
5963: okc_debug.log('17100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5964: okc_debug.Reset_Indentation;
5959: );
5960: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5961:
5962: IF (l_debug = 'Y') THEN
5963: okc_debug.log('17100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5964: okc_debug.Reset_Indentation;
5965: END IF;
5966:
5967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5963: okc_debug.log('17100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5964: okc_debug.Reset_Indentation;
5965: END IF;
5966:
5967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5968: (
5969: l_api_name,
5970: G_PKG_NAME,
5971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5968: (
5969: l_api_name,
5970: G_PKG_NAME,
5971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5972: x_msg_count,
5973: x_msg_data,
5974: '_PVT'
5975: );
5979: okc_debug.log('17200: Exiting lock_row:OTHERS Exception', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5982:
5983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5984: (
5985: l_api_name,
5986: G_PKG_NAME,
5987: 'OTHERS',
6003: p_clev_rec IN clev_rec_type) IS
6004:
6005: l_api_version CONSTANT NUMBER := 1;
6006: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
6007: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6008: l_cle_rec cle_rec_type;
6009: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
6010: BEGIN
6011:
6013: okc_debug.Set_Indentation('OKC_CLE_PVT');
6014: okc_debug.log('17300: Entered lock_row', 2);
6015: END IF;
6016:
6017: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6018: G_PKG_NAME,
6019: p_init_msg_list,
6020: l_api_version,
6021: p_api_version,
6020: l_api_version,
6021: p_api_version,
6022: '_PVT',
6023: x_return_status);
6024: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6027: RAISE OKC_API.G_EXCEPTION_ERROR;
6028: END IF;
6021: p_api_version,
6022: '_PVT',
6023: x_return_status);
6024: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6027: RAISE OKC_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: --------------------------------------
6022: '_PVT',
6023: x_return_status);
6024: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6027: RAISE OKC_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: --------------------------------------
6030: -- Move VIEW record to "Child" records
6023: x_return_status);
6024: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6027: RAISE OKC_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: --------------------------------------
6030: -- Move VIEW record to "Child" records
6031: --------------------------------------
6040: x_msg_count,
6041: x_msg_data,
6042: l_cle_rec
6043: );
6044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6047: RAISE OKC_API.G_EXCEPTION_ERROR;
6048: END IF;
6041: x_msg_data,
6042: l_cle_rec
6043: );
6044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6047: RAISE OKC_API.G_EXCEPTION_ERROR;
6048: END IF;
6049: lock_row(
6042: l_cle_rec
6043: );
6044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6047: RAISE OKC_API.G_EXCEPTION_ERROR;
6048: END IF;
6049: lock_row(
6050: p_init_msg_list,
6043: );
6044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6047: RAISE OKC_API.G_EXCEPTION_ERROR;
6048: END IF;
6049: lock_row(
6050: p_init_msg_list,
6051: x_return_status,
6052: x_msg_count,
6053: x_msg_data,
6054: l_okc_k_lines_tl_rec
6055: );
6056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6059: RAISE OKC_API.G_EXCEPTION_ERROR;
6060: END IF;
6053: x_msg_data,
6054: l_okc_k_lines_tl_rec
6055: );
6056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6059: RAISE OKC_API.G_EXCEPTION_ERROR;
6060: END IF;
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6054: l_okc_k_lines_tl_rec
6055: );
6056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6059: RAISE OKC_API.G_EXCEPTION_ERROR;
6060: END IF;
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6062:
6055: );
6056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6059: RAISE OKC_API.G_EXCEPTION_ERROR;
6060: END IF;
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6062:
6063: IF (l_debug = 'Y') THEN
6057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6059: RAISE OKC_API.G_EXCEPTION_ERROR;
6060: END IF;
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6062:
6063: IF (l_debug = 'Y') THEN
6064: okc_debug.log('17400: Exiting lock_row', 2);
6065: okc_debug.Reset_Indentation;
6065: okc_debug.Reset_Indentation;
6066: END IF;
6067:
6068: EXCEPTION
6069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6070:
6071: IF (l_debug = 'Y') THEN
6072: okc_debug.log('17500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6073: okc_debug.Reset_Indentation;
6068: EXCEPTION
6069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6070:
6071: IF (l_debug = 'Y') THEN
6072: okc_debug.log('17500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6073: okc_debug.Reset_Indentation;
6074: END IF;
6075:
6076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6072: okc_debug.log('17500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6073: okc_debug.Reset_Indentation;
6074: END IF;
6075:
6076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6077: (
6078: l_api_name,
6079: G_PKG_NAME,
6080: 'OKC_API.G_RET_STS_ERROR',
6076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6077: (
6078: l_api_name,
6079: G_PKG_NAME,
6080: 'OKC_API.G_RET_STS_ERROR',
6081: x_msg_count,
6082: x_msg_data,
6083: '_PVT'
6084: );
6081: x_msg_count,
6082: x_msg_data,
6083: '_PVT'
6084: );
6085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6086:
6087: IF (l_debug = 'Y') THEN
6088: okc_debug.log('17600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6089: okc_debug.Reset_Indentation;
6084: );
6085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6086:
6087: IF (l_debug = 'Y') THEN
6088: okc_debug.log('17600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6089: okc_debug.Reset_Indentation;
6090: END IF;
6091:
6092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6088: okc_debug.log('17600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6089: okc_debug.Reset_Indentation;
6090: END IF;
6091:
6092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6093: (
6094: l_api_name,
6095: G_PKG_NAME,
6096: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6093: (
6094: l_api_name,
6095: G_PKG_NAME,
6096: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6097: x_msg_count,
6098: x_msg_data,
6099: '_PVT'
6100: );
6104: okc_debug.log('17700: Exiting lock_row:OTHERS Exception', 2);
6105: okc_debug.Reset_Indentation;
6106: END IF;
6107:
6108: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6109: (
6110: l_api_name,
6111: G_PKG_NAME,
6112: 'OTHERS',
6128: p_clev_tbl IN clev_tbl_type) IS
6129:
6130: l_api_version CONSTANT NUMBER := 1;
6131: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6133: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6134: i NUMBER := 0;
6135: BEGIN
6136:
6129:
6130: l_api_version CONSTANT NUMBER := 1;
6131: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6133: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6134: i NUMBER := 0;
6135: BEGIN
6136:
6137: IF (l_debug = 'Y') THEN
6138: okc_debug.Set_Indentation('OKC_CLE_PVT');
6139: okc_debug.log('17800: Entered lock_row', 2);
6140: END IF;
6141:
6142: OKC_API.init_msg_list(p_init_msg_list);
6143: -- Make sure PL/SQL table has records in it before passing
6144: IF (p_clev_tbl.COUNT > 0) THEN
6145: i := p_clev_tbl.FIRST;
6146: LOOP
6145: i := p_clev_tbl.FIRST;
6146: LOOP
6147: lock_row (
6148: p_api_version => p_api_version,
6149: p_init_msg_list => OKC_API.G_FALSE,
6150: x_return_status => x_return_status,
6151: x_msg_count => x_msg_count,
6152: x_msg_data => x_msg_data,
6153: p_clev_rec => p_clev_tbl(i));
6152: x_msg_data => x_msg_data,
6153: p_clev_rec => p_clev_tbl(i));
6154:
6155: -- store the highest degree of error
6156: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
6157: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
6158: l_overall_status := x_return_status;
6159: End If;
6160: End If;
6153: p_clev_rec => p_clev_tbl(i));
6154:
6155: -- store the highest degree of error
6156: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
6157: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
6158: l_overall_status := x_return_status;
6159: End If;
6160: End If;
6161:
6171: okc_debug.Reset_Indentation;
6172: END IF;
6173:
6174: EXCEPTION
6175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6176:
6177: IF (l_debug = 'Y') THEN
6178: okc_debug.log('18000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6179: okc_debug.Reset_Indentation;
6174: EXCEPTION
6175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6176:
6177: IF (l_debug = 'Y') THEN
6178: okc_debug.log('18000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6179: okc_debug.Reset_Indentation;
6180: END IF;
6181:
6182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6178: okc_debug.log('18000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6179: okc_debug.Reset_Indentation;
6180: END IF;
6181:
6182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6183: (
6184: l_api_name,
6185: G_PKG_NAME,
6186: 'OKC_API.G_RET_STS_ERROR',
6182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6183: (
6184: l_api_name,
6185: G_PKG_NAME,
6186: 'OKC_API.G_RET_STS_ERROR',
6187: x_msg_count,
6188: x_msg_data,
6189: '_PVT'
6190: );
6187: x_msg_count,
6188: x_msg_data,
6189: '_PVT'
6190: );
6191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6192:
6193: IF (l_debug = 'Y') THEN
6194: okc_debug.log('18100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6195: okc_debug.Reset_Indentation;
6190: );
6191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6192:
6193: IF (l_debug = 'Y') THEN
6194: okc_debug.log('18100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6195: okc_debug.Reset_Indentation;
6196: END IF;
6197:
6198: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6194: okc_debug.log('18100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6195: okc_debug.Reset_Indentation;
6196: END IF;
6197:
6198: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6199: (
6200: l_api_name,
6201: G_PKG_NAME,
6202: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6198: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6199: (
6200: l_api_name,
6201: G_PKG_NAME,
6202: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6203: x_msg_count,
6204: x_msg_data,
6205: '_PVT'
6206: );
6210: okc_debug.log('18200: Exiting lock_row:OTHERS Exception', 2);
6211: okc_debug.Reset_Indentation;
6212: END IF;
6213:
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6215: (
6216: l_api_name,
6217: G_PKG_NAME,
6218: 'OTHERS',
6239: x_cle_rec OUT NOCOPY cle_rec_type) IS
6240:
6241: l_api_version CONSTANT NUMBER := 1;
6242: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
6243: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6244: l_cle_rec cle_rec_type := p_cle_rec;
6245: l_def_cle_rec cle_rec_type;
6246: l_row_notfound BOOLEAN := TRUE;
6247: ----------------------------------
6252: x_cle_rec OUT NOCOPY cle_rec_type
6253: ) RETURN VARCHAR2 IS
6254: l_cle_rec cle_rec_type;
6255: l_row_notfound BOOLEAN := TRUE;
6256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6257: BEGIN
6258:
6259: IF (l_debug = 'Y') THEN
6260: okc_debug.Set_Indentation('OKC_CLE_PVT');
6264: x_cle_rec := p_cle_rec;
6265: -- Get current database values
6266: l_cle_rec := get_rec(p_cle_rec, l_row_notfound);
6267: IF (l_row_notfound) THEN
6268: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6269: END IF;
6270: IF (x_cle_rec.id = OKC_API.G_MISS_NUM)
6271: THEN
6272: x_cle_rec.id := l_cle_rec.id;
6266: l_cle_rec := get_rec(p_cle_rec, l_row_notfound);
6267: IF (l_row_notfound) THEN
6268: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6269: END IF;
6270: IF (x_cle_rec.id = OKC_API.G_MISS_NUM)
6271: THEN
6272: x_cle_rec.id := l_cle_rec.id;
6273: END IF;
6274: IF (x_cle_rec.line_number = OKC_API.G_MISS_CHAR)
6270: IF (x_cle_rec.id = OKC_API.G_MISS_NUM)
6271: THEN
6272: x_cle_rec.id := l_cle_rec.id;
6273: END IF;
6274: IF (x_cle_rec.line_number = OKC_API.G_MISS_CHAR)
6275: THEN
6276: x_cle_rec.line_number := l_cle_rec.line_number;
6277: END IF;
6278: IF (x_cle_rec.chr_id = OKC_API.G_MISS_NUM)
6274: IF (x_cle_rec.line_number = OKC_API.G_MISS_CHAR)
6275: THEN
6276: x_cle_rec.line_number := l_cle_rec.line_number;
6277: END IF;
6278: IF (x_cle_rec.chr_id = OKC_API.G_MISS_NUM)
6279: THEN
6280: x_cle_rec.chr_id := l_cle_rec.chr_id;
6281: END IF;
6282: IF (x_cle_rec.cle_id = OKC_API.G_MISS_NUM)
6278: IF (x_cle_rec.chr_id = OKC_API.G_MISS_NUM)
6279: THEN
6280: x_cle_rec.chr_id := l_cle_rec.chr_id;
6281: END IF;
6282: IF (x_cle_rec.cle_id = OKC_API.G_MISS_NUM)
6283: THEN
6284: x_cle_rec.cle_id := l_cle_rec.cle_id;
6285: END IF;
6286: IF (x_cle_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
6282: IF (x_cle_rec.cle_id = OKC_API.G_MISS_NUM)
6283: THEN
6284: x_cle_rec.cle_id := l_cle_rec.cle_id;
6285: END IF;
6286: IF (x_cle_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
6287: THEN
6288: x_cle_rec.dnz_chr_id := l_cle_rec.dnz_chr_id;
6289: END IF;
6290: IF (x_cle_rec.display_sequence = OKC_API.G_MISS_NUM)
6286: IF (x_cle_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
6287: THEN
6288: x_cle_rec.dnz_chr_id := l_cle_rec.dnz_chr_id;
6289: END IF;
6290: IF (x_cle_rec.display_sequence = OKC_API.G_MISS_NUM)
6291: THEN
6292: x_cle_rec.display_sequence := l_cle_rec.display_sequence;
6293: END IF;
6294: IF (x_cle_rec.sts_code = OKC_API.G_MISS_CHAR)
6290: IF (x_cle_rec.display_sequence = OKC_API.G_MISS_NUM)
6291: THEN
6292: x_cle_rec.display_sequence := l_cle_rec.display_sequence;
6293: END IF;
6294: IF (x_cle_rec.sts_code = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_cle_rec.sts_code := l_cle_rec.sts_code;
6297: END IF;
6298: IF (x_cle_rec.trn_code = OKC_API.G_MISS_CHAR)
6294: IF (x_cle_rec.sts_code = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_cle_rec.sts_code := l_cle_rec.sts_code;
6297: END IF;
6298: IF (x_cle_rec.trn_code = OKC_API.G_MISS_CHAR)
6299: THEN
6300: x_cle_rec.trn_code := l_cle_rec.trn_code;
6301: END IF;
6302: IF (x_cle_rec.lse_id = OKC_API.G_MISS_NUM)
6298: IF (x_cle_rec.trn_code = OKC_API.G_MISS_CHAR)
6299: THEN
6300: x_cle_rec.trn_code := l_cle_rec.trn_code;
6301: END IF;
6302: IF (x_cle_rec.lse_id = OKC_API.G_MISS_NUM)
6303: THEN
6304: x_cle_rec.lse_id := l_cle_rec.lse_id;
6305: END IF;
6306: IF (x_cle_rec.exception_yn = OKC_API.G_MISS_CHAR)
6302: IF (x_cle_rec.lse_id = OKC_API.G_MISS_NUM)
6303: THEN
6304: x_cle_rec.lse_id := l_cle_rec.lse_id;
6305: END IF;
6306: IF (x_cle_rec.exception_yn = OKC_API.G_MISS_CHAR)
6307: THEN
6308: x_cle_rec.exception_yn := l_cle_rec.exception_yn;
6309: END IF;
6310: IF (x_cle_rec.object_version_number = OKC_API.G_MISS_NUM)
6306: IF (x_cle_rec.exception_yn = OKC_API.G_MISS_CHAR)
6307: THEN
6308: x_cle_rec.exception_yn := l_cle_rec.exception_yn;
6309: END IF;
6310: IF (x_cle_rec.object_version_number = OKC_API.G_MISS_NUM)
6311: THEN
6312: x_cle_rec.object_version_number := l_cle_rec.object_version_number;
6313: END IF;
6314: IF (x_cle_rec.created_by = OKC_API.G_MISS_NUM)
6310: IF (x_cle_rec.object_version_number = OKC_API.G_MISS_NUM)
6311: THEN
6312: x_cle_rec.object_version_number := l_cle_rec.object_version_number;
6313: END IF;
6314: IF (x_cle_rec.created_by = OKC_API.G_MISS_NUM)
6315: THEN
6316: x_cle_rec.created_by := l_cle_rec.created_by;
6317: END IF;
6318: IF (x_cle_rec.creation_date = OKC_API.G_MISS_DATE)
6314: IF (x_cle_rec.created_by = OKC_API.G_MISS_NUM)
6315: THEN
6316: x_cle_rec.created_by := l_cle_rec.created_by;
6317: END IF;
6318: IF (x_cle_rec.creation_date = OKC_API.G_MISS_DATE)
6319: THEN
6320: x_cle_rec.creation_date := l_cle_rec.creation_date;
6321: END IF;
6322: IF (x_cle_rec.last_updated_by = OKC_API.G_MISS_NUM)
6318: IF (x_cle_rec.creation_date = OKC_API.G_MISS_DATE)
6319: THEN
6320: x_cle_rec.creation_date := l_cle_rec.creation_date;
6321: END IF;
6322: IF (x_cle_rec.last_updated_by = OKC_API.G_MISS_NUM)
6323: THEN
6324: x_cle_rec.last_updated_by := l_cle_rec.last_updated_by;
6325: END IF;
6326: IF (x_cle_rec.last_update_date = OKC_API.G_MISS_DATE)
6322: IF (x_cle_rec.last_updated_by = OKC_API.G_MISS_NUM)
6323: THEN
6324: x_cle_rec.last_updated_by := l_cle_rec.last_updated_by;
6325: END IF;
6326: IF (x_cle_rec.last_update_date = OKC_API.G_MISS_DATE)
6327: THEN
6328: x_cle_rec.last_update_date := l_cle_rec.last_update_date;
6329: END IF;
6330: IF (x_cle_rec.hidden_ind = OKC_API.G_MISS_CHAR)
6326: IF (x_cle_rec.last_update_date = OKC_API.G_MISS_DATE)
6327: THEN
6328: x_cle_rec.last_update_date := l_cle_rec.last_update_date;
6329: END IF;
6330: IF (x_cle_rec.hidden_ind = OKC_API.G_MISS_CHAR)
6331: THEN
6332: x_cle_rec.hidden_ind := l_cle_rec.hidden_ind;
6333: END IF;
6334: IF (x_cle_rec.price_unit = OKC_API.G_MISS_NUM)
6330: IF (x_cle_rec.hidden_ind = OKC_API.G_MISS_CHAR)
6331: THEN
6332: x_cle_rec.hidden_ind := l_cle_rec.hidden_ind;
6333: END IF;
6334: IF (x_cle_rec.price_unit = OKC_API.G_MISS_NUM)
6335: THEN
6336: x_cle_rec.price_unit := l_cle_rec.price_unit;
6337: END IF;
6338: IF (x_cle_rec.price_unit_percent = OKC_API.G_MISS_NUM)
6334: IF (x_cle_rec.price_unit = OKC_API.G_MISS_NUM)
6335: THEN
6336: x_cle_rec.price_unit := l_cle_rec.price_unit;
6337: END IF;
6338: IF (x_cle_rec.price_unit_percent = OKC_API.G_MISS_NUM)
6339: THEN
6340: x_cle_rec.price_unit_percent := l_cle_rec.price_unit_percent;
6341: END IF;
6342: IF (x_cle_rec.price_negotiated = OKC_API.G_MISS_NUM)
6338: IF (x_cle_rec.price_unit_percent = OKC_API.G_MISS_NUM)
6339: THEN
6340: x_cle_rec.price_unit_percent := l_cle_rec.price_unit_percent;
6341: END IF;
6342: IF (x_cle_rec.price_negotiated = OKC_API.G_MISS_NUM)
6343: THEN
6344: x_cle_rec.price_negotiated := l_cle_rec.price_negotiated;
6345: END IF;
6346: IF (x_cle_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
6342: IF (x_cle_rec.price_negotiated = OKC_API.G_MISS_NUM)
6343: THEN
6344: x_cle_rec.price_negotiated := l_cle_rec.price_negotiated;
6345: END IF;
6346: IF (x_cle_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
6347: THEN
6348: x_cle_rec.price_negotiated_renewed := l_cle_rec.price_negotiated_renewed;
6349: END IF;
6350: IF (x_cle_rec.price_level_ind = OKC_API.G_MISS_CHAR)
6346: IF (x_cle_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
6347: THEN
6348: x_cle_rec.price_negotiated_renewed := l_cle_rec.price_negotiated_renewed;
6349: END IF;
6350: IF (x_cle_rec.price_level_ind = OKC_API.G_MISS_CHAR)
6351: THEN
6352: x_cle_rec.price_level_ind := l_cle_rec.price_level_ind;
6353: END IF;
6354: IF (x_cle_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
6350: IF (x_cle_rec.price_level_ind = OKC_API.G_MISS_CHAR)
6351: THEN
6352: x_cle_rec.price_level_ind := l_cle_rec.price_level_ind;
6353: END IF;
6354: IF (x_cle_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
6355: THEN
6356: x_cle_rec.invoice_line_level_ind := l_cle_rec.invoice_line_level_ind;
6357: END IF;
6358: IF (x_cle_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6354: IF (x_cle_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
6355: THEN
6356: x_cle_rec.invoice_line_level_ind := l_cle_rec.invoice_line_level_ind;
6357: END IF;
6358: IF (x_cle_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6359: THEN
6360: x_cle_rec.dpas_rating := l_cle_rec.dpas_rating;
6361: END IF;
6362: IF (x_cle_rec.template_used = OKC_API.G_MISS_CHAR)
6358: IF (x_cle_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6359: THEN
6360: x_cle_rec.dpas_rating := l_cle_rec.dpas_rating;
6361: END IF;
6362: IF (x_cle_rec.template_used = OKC_API.G_MISS_CHAR)
6363: THEN
6364: x_cle_rec.template_used := l_cle_rec.template_used;
6365: END IF;
6366: IF (x_cle_rec.price_type = OKC_API.G_MISS_CHAR)
6362: IF (x_cle_rec.template_used = OKC_API.G_MISS_CHAR)
6363: THEN
6364: x_cle_rec.template_used := l_cle_rec.template_used;
6365: END IF;
6366: IF (x_cle_rec.price_type = OKC_API.G_MISS_CHAR)
6367: THEN
6368: x_cle_rec.price_type := l_cle_rec.price_type;
6369: END IF;
6370: IF (x_cle_rec.currency_code = OKC_API.G_MISS_CHAR)
6366: IF (x_cle_rec.price_type = OKC_API.G_MISS_CHAR)
6367: THEN
6368: x_cle_rec.price_type := l_cle_rec.price_type;
6369: END IF;
6370: IF (x_cle_rec.currency_code = OKC_API.G_MISS_CHAR)
6371: THEN
6372: x_cle_rec.currency_code := l_cle_rec.currency_code;
6373: END IF;
6374: IF (x_cle_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6370: IF (x_cle_rec.currency_code = OKC_API.G_MISS_CHAR)
6371: THEN
6372: x_cle_rec.currency_code := l_cle_rec.currency_code;
6373: END IF;
6374: IF (x_cle_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6375: THEN
6376: x_cle_rec.currency_code_renewed := l_cle_rec.currency_code_renewed;
6377: END IF;
6378: IF (x_cle_rec.last_update_login = OKC_API.G_MISS_NUM)
6374: IF (x_cle_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6375: THEN
6376: x_cle_rec.currency_code_renewed := l_cle_rec.currency_code_renewed;
6377: END IF;
6378: IF (x_cle_rec.last_update_login = OKC_API.G_MISS_NUM)
6379: THEN
6380: x_cle_rec.last_update_login := l_cle_rec.last_update_login;
6381: END IF;
6382: IF (x_cle_rec.date_terminated = OKC_API.G_MISS_DATE)
6378: IF (x_cle_rec.last_update_login = OKC_API.G_MISS_NUM)
6379: THEN
6380: x_cle_rec.last_update_login := l_cle_rec.last_update_login;
6381: END IF;
6382: IF (x_cle_rec.date_terminated = OKC_API.G_MISS_DATE)
6383: THEN
6384: x_cle_rec.date_terminated := l_cle_rec.date_terminated;
6385: END IF;
6386: --NPALEPU
6386: --NPALEPU
6387: --24-JUN-2005
6388: --ANNUALIZED AMOUNTS PROJECT
6389: --ADDED CONDITION TO CALCULATE THE ANNUALIZED_FACTOR VALUE
6390: IF ((x_cle_rec.start_date = OKC_API.G_MISS_DATE) AND (x_cle_rec.end_date = OKC_API.G_MISS_DATE)) THEN
6391:
6392: x_cle_rec.annualized_factor := l_cle_rec.annualized_factor;
6393:
6394: ELSE
6419: x_cle_rec.annualized_factor := 0;
6420:
6421: END IF; /* IF
6422:
6423: END IF; /* IF <((x_cle_rec.start_date = OKC_API.G_MISS_DATE) AND (x_cle_rec.end_date = OKC_API.G_MISS_DATE))> */
6424: --END NPALEPU
6425: IF (x_cle_rec.start_date = OKC_API.G_MISS_DATE)
6426: THEN
6427: x_cle_rec.start_date := l_cle_rec.start_date;
6421: END IF; /* IF
6422:
6423: END IF; /* IF <((x_cle_rec.start_date = OKC_API.G_MISS_DATE) AND (x_cle_rec.end_date = OKC_API.G_MISS_DATE))> */
6424: --END NPALEPU
6425: IF (x_cle_rec.start_date = OKC_API.G_MISS_DATE)
6426: THEN
6427: x_cle_rec.start_date := l_cle_rec.start_date;
6428: END IF;
6429: IF (x_cle_rec.end_date = OKC_API.G_MISS_DATE)
6425: IF (x_cle_rec.start_date = OKC_API.G_MISS_DATE)
6426: THEN
6427: x_cle_rec.start_date := l_cle_rec.start_date;
6428: END IF;
6429: IF (x_cle_rec.end_date = OKC_API.G_MISS_DATE)
6430: THEN
6431: x_cle_rec.end_date := l_cle_rec.end_date;
6432: END IF;
6433: IF (x_cle_rec.date_renewed = OKC_API.G_MISS_DATE)
6429: IF (x_cle_rec.end_date = OKC_API.G_MISS_DATE)
6430: THEN
6431: x_cle_rec.end_date := l_cle_rec.end_date;
6432: END IF;
6433: IF (x_cle_rec.date_renewed = OKC_API.G_MISS_DATE)
6434: THEN
6435: x_cle_rec.date_renewed := l_cle_rec.date_renewed;
6436: END IF;
6437: IF (x_cle_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6433: IF (x_cle_rec.date_renewed = OKC_API.G_MISS_DATE)
6434: THEN
6435: x_cle_rec.date_renewed := l_cle_rec.date_renewed;
6436: END IF;
6437: IF (x_cle_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6438: THEN
6439: x_cle_rec.upg_orig_system_ref := l_cle_rec.upg_orig_system_ref;
6440: END IF;
6441: IF (x_cle_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6437: IF (x_cle_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6438: THEN
6439: x_cle_rec.upg_orig_system_ref := l_cle_rec.upg_orig_system_ref;
6440: END IF;
6441: IF (x_cle_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6442: THEN
6443: x_cle_rec.upg_orig_system_ref_id := l_cle_rec.upg_orig_system_ref_id;
6444: END IF;
6445: IF (x_cle_rec.orig_system_source_code = OKC_API.G_MISS_CHAR) THEN
6441: IF (x_cle_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6442: THEN
6443: x_cle_rec.upg_orig_system_ref_id := l_cle_rec.upg_orig_system_ref_id;
6444: END IF;
6445: IF (x_cle_rec.orig_system_source_code = OKC_API.G_MISS_CHAR) THEN
6446: x_cle_rec.orig_system_source_code := l_cle_rec.orig_system_source_code;
6447: END IF;
6448: IF (x_cle_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
6449: x_cle_rec.orig_system_id1 := l_cle_rec.orig_system_id1;
6444: END IF;
6445: IF (x_cle_rec.orig_system_source_code = OKC_API.G_MISS_CHAR) THEN
6446: x_cle_rec.orig_system_source_code := l_cle_rec.orig_system_source_code;
6447: END IF;
6448: IF (x_cle_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
6449: x_cle_rec.orig_system_id1 := l_cle_rec.orig_system_id1;
6450: END IF;
6451: IF (x_cle_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
6452: x_cle_rec.orig_system_reference1 := l_cle_rec.orig_system_reference1 ;
6447: END IF;
6448: IF (x_cle_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
6449: x_cle_rec.orig_system_id1 := l_cle_rec.orig_system_id1;
6450: END IF;
6451: IF (x_cle_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
6452: x_cle_rec.orig_system_reference1 := l_cle_rec.orig_system_reference1 ;
6453: END IF;
6454: IF (x_cle_rec.program_application_id = OKC_API.G_MISS_NUM)
6455: THEN
6450: END IF;
6451: IF (x_cle_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
6452: x_cle_rec.orig_system_reference1 := l_cle_rec.orig_system_reference1 ;
6453: END IF;
6454: IF (x_cle_rec.program_application_id = OKC_API.G_MISS_NUM)
6455: THEN
6456: x_cle_rec.program_application_id := l_cle_rec.program_application_id;
6457: END IF;
6458: IF (x_cle_rec.program_id = OKC_API.G_MISS_NUM)
6454: IF (x_cle_rec.program_application_id = OKC_API.G_MISS_NUM)
6455: THEN
6456: x_cle_rec.program_application_id := l_cle_rec.program_application_id;
6457: END IF;
6458: IF (x_cle_rec.program_id = OKC_API.G_MISS_NUM)
6459: THEN
6460: x_cle_rec.program_id := l_cle_rec.program_id;
6461: END IF;
6462: IF (x_cle_rec.program_update_date = OKC_API.G_MISS_DATE)
6458: IF (x_cle_rec.program_id = OKC_API.G_MISS_NUM)
6459: THEN
6460: x_cle_rec.program_id := l_cle_rec.program_id;
6461: END IF;
6462: IF (x_cle_rec.program_update_date = OKC_API.G_MISS_DATE)
6463: THEN
6464: x_cle_rec.program_update_date := l_cle_rec.program_update_date ;
6465: END IF;
6466: IF (x_cle_rec.request_id = OKC_API.G_MISS_NUM)
6462: IF (x_cle_rec.program_update_date = OKC_API.G_MISS_DATE)
6463: THEN
6464: x_cle_rec.program_update_date := l_cle_rec.program_update_date ;
6465: END IF;
6466: IF (x_cle_rec.request_id = OKC_API.G_MISS_NUM)
6467: THEN
6468: x_cle_rec.request_id := l_cle_rec.request_id;
6469: END IF;
6470: IF (x_cle_rec.price_list_id = OKC_API.G_MISS_NUM)
6466: IF (x_cle_rec.request_id = OKC_API.G_MISS_NUM)
6467: THEN
6468: x_cle_rec.request_id := l_cle_rec.request_id;
6469: END IF;
6470: IF (x_cle_rec.price_list_id = OKC_API.G_MISS_NUM)
6471: THEN
6472: x_cle_rec.price_list_id := l_cle_rec.price_list_id;
6473: END IF;
6474: IF (x_cle_rec.pricing_date = OKC_API.G_MISS_DATE)
6470: IF (x_cle_rec.price_list_id = OKC_API.G_MISS_NUM)
6471: THEN
6472: x_cle_rec.price_list_id := l_cle_rec.price_list_id;
6473: END IF;
6474: IF (x_cle_rec.pricing_date = OKC_API.G_MISS_DATE)
6475: THEN
6476: x_cle_rec.pricing_date := l_cle_rec.pricing_date ;
6477: END IF;
6478: IF (x_cle_rec.price_list_line_id = OKC_API.G_MISS_NUM)
6474: IF (x_cle_rec.pricing_date = OKC_API.G_MISS_DATE)
6475: THEN
6476: x_cle_rec.pricing_date := l_cle_rec.pricing_date ;
6477: END IF;
6478: IF (x_cle_rec.price_list_line_id = OKC_API.G_MISS_NUM)
6479: THEN
6480: x_cle_rec.price_list_line_id := l_cle_rec.price_list_line_id;
6481: END IF;
6482: IF (x_cle_rec.line_list_price = OKC_API.G_MISS_NUM)
6478: IF (x_cle_rec.price_list_line_id = OKC_API.G_MISS_NUM)
6479: THEN
6480: x_cle_rec.price_list_line_id := l_cle_rec.price_list_line_id;
6481: END IF;
6482: IF (x_cle_rec.line_list_price = OKC_API.G_MISS_NUM)
6483: THEN
6484: x_cle_rec.line_list_price := l_cle_rec.line_list_price;
6485: END IF;
6486: IF (x_cle_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
6482: IF (x_cle_rec.line_list_price = OKC_API.G_MISS_NUM)
6483: THEN
6484: x_cle_rec.line_list_price := l_cle_rec.line_list_price;
6485: END IF;
6486: IF (x_cle_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
6487: x_cle_rec.item_to_price_yn := l_cle_rec.item_to_price_yn;
6488: END IF;
6489: IF (x_cle_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
6490: x_cle_rec.price_basis_yn := l_cle_rec.price_basis_yn;
6485: END IF;
6486: IF (x_cle_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
6487: x_cle_rec.item_to_price_yn := l_cle_rec.item_to_price_yn;
6488: END IF;
6489: IF (x_cle_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
6490: x_cle_rec.price_basis_yn := l_cle_rec.price_basis_yn;
6491: END IF;
6492: IF (x_cle_rec.config_header_id = OKC_API.G_MISS_NUM)
6493: THEN
6488: END IF;
6489: IF (x_cle_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
6490: x_cle_rec.price_basis_yn := l_cle_rec.price_basis_yn;
6491: END IF;
6492: IF (x_cle_rec.config_header_id = OKC_API.G_MISS_NUM)
6493: THEN
6494: x_cle_rec.config_header_id := l_cle_rec.config_header_id;
6495: END IF;
6496: IF (x_cle_rec.config_revision_number = OKC_API.G_MISS_NUM)
6492: IF (x_cle_rec.config_header_id = OKC_API.G_MISS_NUM)
6493: THEN
6494: x_cle_rec.config_header_id := l_cle_rec.config_header_id;
6495: END IF;
6496: IF (x_cle_rec.config_revision_number = OKC_API.G_MISS_NUM)
6497: THEN
6498: x_cle_rec.config_revision_number := l_cle_rec.config_revision_number;
6499: END IF;
6500: IF (x_cle_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
6496: IF (x_cle_rec.config_revision_number = OKC_API.G_MISS_NUM)
6497: THEN
6498: x_cle_rec.config_revision_number := l_cle_rec.config_revision_number;
6499: END IF;
6500: IF (x_cle_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
6501: x_cle_rec.config_complete_yn := l_cle_rec.config_complete_yn;
6502: END IF;
6503: IF (x_cle_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
6504: x_cle_rec.config_valid_yn := l_cle_rec.config_valid_yn;
6499: END IF;
6500: IF (x_cle_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
6501: x_cle_rec.config_complete_yn := l_cle_rec.config_complete_yn;
6502: END IF;
6503: IF (x_cle_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
6504: x_cle_rec.config_valid_yn := l_cle_rec.config_valid_yn;
6505: END IF;
6506: IF (x_cle_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
6507: THEN
6502: END IF;
6503: IF (x_cle_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
6504: x_cle_rec.config_valid_yn := l_cle_rec.config_valid_yn;
6505: END IF;
6506: IF (x_cle_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
6507: THEN
6508: x_cle_rec.config_top_model_line_id := l_cle_rec.config_top_model_line_id;
6509: END IF;
6510: IF (x_cle_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
6506: IF (x_cle_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
6507: THEN
6508: x_cle_rec.config_top_model_line_id := l_cle_rec.config_top_model_line_id;
6509: END IF;
6510: IF (x_cle_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
6511: x_cle_rec.config_item_type := l_cle_rec.config_item_type;
6512: END IF;
6513: ---Bug.No.-1942374
6514: IF (x_cle_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM)
6510: IF (x_cle_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
6511: x_cle_rec.config_item_type := l_cle_rec.config_item_type;
6512: END IF;
6513: ---Bug.No.-1942374
6514: IF (x_cle_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM)
6515: THEN
6516: x_cle_rec.CONFIG_ITEM_ID := l_cle_rec.CONFIG_ITEM_ID;
6517: END IF;
6518: ---Bug.No.-1942374
6515: THEN
6516: x_cle_rec.CONFIG_ITEM_ID := l_cle_rec.CONFIG_ITEM_ID;
6517: END IF;
6518: ---Bug.No.-1942374
6519: IF (x_cle_rec.attribute_category = OKC_API.G_MISS_CHAR)
6520: THEN
6521: x_cle_rec.attribute_category := l_cle_rec.attribute_category;
6522: END IF;
6523: IF (x_cle_rec.attribute1 = OKC_API.G_MISS_CHAR)
6519: IF (x_cle_rec.attribute_category = OKC_API.G_MISS_CHAR)
6520: THEN
6521: x_cle_rec.attribute_category := l_cle_rec.attribute_category;
6522: END IF;
6523: IF (x_cle_rec.attribute1 = OKC_API.G_MISS_CHAR)
6524: THEN
6525: x_cle_rec.attribute1 := l_cle_rec.attribute1;
6526: END IF;
6527: IF (x_cle_rec.attribute2 = OKC_API.G_MISS_CHAR)
6523: IF (x_cle_rec.attribute1 = OKC_API.G_MISS_CHAR)
6524: THEN
6525: x_cle_rec.attribute1 := l_cle_rec.attribute1;
6526: END IF;
6527: IF (x_cle_rec.attribute2 = OKC_API.G_MISS_CHAR)
6528: THEN
6529: x_cle_rec.attribute2 := l_cle_rec.attribute2;
6530: END IF;
6531: IF (x_cle_rec.attribute3 = OKC_API.G_MISS_CHAR)
6527: IF (x_cle_rec.attribute2 = OKC_API.G_MISS_CHAR)
6528: THEN
6529: x_cle_rec.attribute2 := l_cle_rec.attribute2;
6530: END IF;
6531: IF (x_cle_rec.attribute3 = OKC_API.G_MISS_CHAR)
6532: THEN
6533: x_cle_rec.attribute3 := l_cle_rec.attribute3;
6534: END IF;
6535: IF (x_cle_rec.attribute4 = OKC_API.G_MISS_CHAR)
6531: IF (x_cle_rec.attribute3 = OKC_API.G_MISS_CHAR)
6532: THEN
6533: x_cle_rec.attribute3 := l_cle_rec.attribute3;
6534: END IF;
6535: IF (x_cle_rec.attribute4 = OKC_API.G_MISS_CHAR)
6536: THEN
6537: x_cle_rec.attribute4 := l_cle_rec.attribute4;
6538: END IF;
6539: IF (x_cle_rec.attribute5 = OKC_API.G_MISS_CHAR)
6535: IF (x_cle_rec.attribute4 = OKC_API.G_MISS_CHAR)
6536: THEN
6537: x_cle_rec.attribute4 := l_cle_rec.attribute4;
6538: END IF;
6539: IF (x_cle_rec.attribute5 = OKC_API.G_MISS_CHAR)
6540: THEN
6541: x_cle_rec.attribute5 := l_cle_rec.attribute5;
6542: END IF;
6543: IF (x_cle_rec.attribute6 = OKC_API.G_MISS_CHAR)
6539: IF (x_cle_rec.attribute5 = OKC_API.G_MISS_CHAR)
6540: THEN
6541: x_cle_rec.attribute5 := l_cle_rec.attribute5;
6542: END IF;
6543: IF (x_cle_rec.attribute6 = OKC_API.G_MISS_CHAR)
6544: THEN
6545: x_cle_rec.attribute6 := l_cle_rec.attribute6;
6546: END IF;
6547: IF (x_cle_rec.attribute7 = OKC_API.G_MISS_CHAR)
6543: IF (x_cle_rec.attribute6 = OKC_API.G_MISS_CHAR)
6544: THEN
6545: x_cle_rec.attribute6 := l_cle_rec.attribute6;
6546: END IF;
6547: IF (x_cle_rec.attribute7 = OKC_API.G_MISS_CHAR)
6548: THEN
6549: x_cle_rec.attribute7 := l_cle_rec.attribute7;
6550: END IF;
6551: IF (x_cle_rec.attribute8 = OKC_API.G_MISS_CHAR)
6547: IF (x_cle_rec.attribute7 = OKC_API.G_MISS_CHAR)
6548: THEN
6549: x_cle_rec.attribute7 := l_cle_rec.attribute7;
6550: END IF;
6551: IF (x_cle_rec.attribute8 = OKC_API.G_MISS_CHAR)
6552: THEN
6553: x_cle_rec.attribute8 := l_cle_rec.attribute8;
6554: END IF;
6555: IF (x_cle_rec.attribute9 = OKC_API.G_MISS_CHAR)
6551: IF (x_cle_rec.attribute8 = OKC_API.G_MISS_CHAR)
6552: THEN
6553: x_cle_rec.attribute8 := l_cle_rec.attribute8;
6554: END IF;
6555: IF (x_cle_rec.attribute9 = OKC_API.G_MISS_CHAR)
6556: THEN
6557: x_cle_rec.attribute9 := l_cle_rec.attribute9;
6558: END IF;
6559: IF (x_cle_rec.attribute10 = OKC_API.G_MISS_CHAR)
6555: IF (x_cle_rec.attribute9 = OKC_API.G_MISS_CHAR)
6556: THEN
6557: x_cle_rec.attribute9 := l_cle_rec.attribute9;
6558: END IF;
6559: IF (x_cle_rec.attribute10 = OKC_API.G_MISS_CHAR)
6560: THEN
6561: x_cle_rec.attribute10 := l_cle_rec.attribute10;
6562: END IF;
6563: IF (x_cle_rec.attribute11 = OKC_API.G_MISS_CHAR)
6559: IF (x_cle_rec.attribute10 = OKC_API.G_MISS_CHAR)
6560: THEN
6561: x_cle_rec.attribute10 := l_cle_rec.attribute10;
6562: END IF;
6563: IF (x_cle_rec.attribute11 = OKC_API.G_MISS_CHAR)
6564: THEN
6565: x_cle_rec.attribute11 := l_cle_rec.attribute11;
6566: END IF;
6567: IF (x_cle_rec.attribute12 = OKC_API.G_MISS_CHAR)
6563: IF (x_cle_rec.attribute11 = OKC_API.G_MISS_CHAR)
6564: THEN
6565: x_cle_rec.attribute11 := l_cle_rec.attribute11;
6566: END IF;
6567: IF (x_cle_rec.attribute12 = OKC_API.G_MISS_CHAR)
6568: THEN
6569: x_cle_rec.attribute12 := l_cle_rec.attribute12;
6570: END IF;
6571: IF (x_cle_rec.attribute13 = OKC_API.G_MISS_CHAR)
6567: IF (x_cle_rec.attribute12 = OKC_API.G_MISS_CHAR)
6568: THEN
6569: x_cle_rec.attribute12 := l_cle_rec.attribute12;
6570: END IF;
6571: IF (x_cle_rec.attribute13 = OKC_API.G_MISS_CHAR)
6572: THEN
6573: x_cle_rec.attribute13 := l_cle_rec.attribute13;
6574: END IF;
6575: IF (x_cle_rec.attribute14 = OKC_API.G_MISS_CHAR)
6571: IF (x_cle_rec.attribute13 = OKC_API.G_MISS_CHAR)
6572: THEN
6573: x_cle_rec.attribute13 := l_cle_rec.attribute13;
6574: END IF;
6575: IF (x_cle_rec.attribute14 = OKC_API.G_MISS_CHAR)
6576: THEN
6577: x_cle_rec.attribute14 := l_cle_rec.attribute14;
6578: END IF;
6579: IF (x_cle_rec.attribute15 = OKC_API.G_MISS_CHAR)
6575: IF (x_cle_rec.attribute14 = OKC_API.G_MISS_CHAR)
6576: THEN
6577: x_cle_rec.attribute14 := l_cle_rec.attribute14;
6578: END IF;
6579: IF (x_cle_rec.attribute15 = OKC_API.G_MISS_CHAR)
6580: THEN
6581: x_cle_rec.attribute15 := l_cle_rec.attribute15;
6582: END IF;
6583: IF (x_cle_rec.service_item_yn = OKC_API.G_MISS_CHAR)
6579: IF (x_cle_rec.attribute15 = OKC_API.G_MISS_CHAR)
6580: THEN
6581: x_cle_rec.attribute15 := l_cle_rec.attribute15;
6582: END IF;
6583: IF (x_cle_rec.service_item_yn = OKC_API.G_MISS_CHAR)
6584: THEN
6585: x_cle_rec.service_item_yn := l_cle_rec.service_item_yn;
6586: END IF;
6587: --new columns for price hold
6584: THEN
6585: x_cle_rec.service_item_yn := l_cle_rec.service_item_yn;
6586: END IF;
6587: --new columns for price hold
6588: IF (x_cle_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
6589: x_cle_rec.ph_pricing_type := l_cle_rec.ph_pricing_type;
6590: END IF;
6591: IF (x_cle_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
6592: x_cle_rec.ph_price_break_basis := l_cle_rec.ph_price_break_basis;
6587: --new columns for price hold
6588: IF (x_cle_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
6589: x_cle_rec.ph_pricing_type := l_cle_rec.ph_pricing_type;
6590: END IF;
6591: IF (x_cle_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
6592: x_cle_rec.ph_price_break_basis := l_cle_rec.ph_price_break_basis;
6593: END IF;
6594: IF (x_cle_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
6595: x_cle_rec.ph_min_qty := l_cle_rec.ph_min_qty;
6590: END IF;
6591: IF (x_cle_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
6592: x_cle_rec.ph_price_break_basis := l_cle_rec.ph_price_break_basis;
6593: END IF;
6594: IF (x_cle_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
6595: x_cle_rec.ph_min_qty := l_cle_rec.ph_min_qty;
6596: END IF;
6597: IF (x_cle_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
6598: x_cle_rec.ph_min_amt := l_cle_rec.ph_min_amt;
6593: END IF;
6594: IF (x_cle_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
6595: x_cle_rec.ph_min_qty := l_cle_rec.ph_min_qty;
6596: END IF;
6597: IF (x_cle_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
6598: x_cle_rec.ph_min_amt := l_cle_rec.ph_min_amt;
6599: END IF;
6600: IF (x_cle_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
6601: x_cle_rec.ph_qp_reference_id := l_cle_rec.ph_qp_reference_id;
6596: END IF;
6597: IF (x_cle_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
6598: x_cle_rec.ph_min_amt := l_cle_rec.ph_min_amt;
6599: END IF;
6600: IF (x_cle_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
6601: x_cle_rec.ph_qp_reference_id := l_cle_rec.ph_qp_reference_id;
6602: END IF;
6603: IF (x_cle_rec.ph_value = OKC_API.G_MISS_NUM) THEN
6604: x_cle_rec.ph_value := l_cle_rec.ph_value;
6599: END IF;
6600: IF (x_cle_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
6601: x_cle_rec.ph_qp_reference_id := l_cle_rec.ph_qp_reference_id;
6602: END IF;
6603: IF (x_cle_rec.ph_value = OKC_API.G_MISS_NUM) THEN
6604: x_cle_rec.ph_value := l_cle_rec.ph_value;
6605: END IF;
6606: IF (x_cle_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
6607: x_cle_rec.ph_enforce_price_list_yn := l_cle_rec.ph_enforce_price_list_yn;
6602: END IF;
6603: IF (x_cle_rec.ph_value = OKC_API.G_MISS_NUM) THEN
6604: x_cle_rec.ph_value := l_cle_rec.ph_value;
6605: END IF;
6606: IF (x_cle_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
6607: x_cle_rec.ph_enforce_price_list_yn := l_cle_rec.ph_enforce_price_list_yn;
6608: END IF;
6609: IF (x_cle_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
6610: x_cle_rec.ph_adjustment := l_cle_rec.ph_adjustment;
6605: END IF;
6606: IF (x_cle_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
6607: x_cle_rec.ph_enforce_price_list_yn := l_cle_rec.ph_enforce_price_list_yn;
6608: END IF;
6609: IF (x_cle_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
6610: x_cle_rec.ph_adjustment := l_cle_rec.ph_adjustment;
6611: END IF;
6612: IF (x_cle_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
6613: x_cle_rec.ph_integrated_with_qp := l_cle_rec.ph_integrated_with_qp;
6608: END IF;
6609: IF (x_cle_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
6610: x_cle_rec.ph_adjustment := l_cle_rec.ph_adjustment;
6611: END IF;
6612: IF (x_cle_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
6613: x_cle_rec.ph_integrated_with_qp := l_cle_rec.ph_integrated_with_qp;
6614: END IF;
6615: -- new columns to replace rules
6616: IF (x_cle_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6612: IF (x_cle_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
6613: x_cle_rec.ph_integrated_with_qp := l_cle_rec.ph_integrated_with_qp;
6614: END IF;
6615: -- new columns to replace rules
6616: IF (x_cle_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6617: x_cle_rec.cust_acct_id := l_cle_rec.cust_acct_id;
6618: END IF;
6619: IF (x_cle_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6620: x_cle_rec.bill_to_site_use_id := l_cle_rec.bill_to_site_use_id;
6615: -- new columns to replace rules
6616: IF (x_cle_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6617: x_cle_rec.cust_acct_id := l_cle_rec.cust_acct_id;
6618: END IF;
6619: IF (x_cle_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6620: x_cle_rec.bill_to_site_use_id := l_cle_rec.bill_to_site_use_id;
6621: END IF;
6622: IF (x_cle_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6623: x_cle_rec.inv_rule_id := l_cle_rec.inv_rule_id;
6618: END IF;
6619: IF (x_cle_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6620: x_cle_rec.bill_to_site_use_id := l_cle_rec.bill_to_site_use_id;
6621: END IF;
6622: IF (x_cle_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6623: x_cle_rec.inv_rule_id := l_cle_rec.inv_rule_id;
6624: END IF;
6625: IF (x_cle_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6626: x_cle_rec.line_renewal_type_code := l_cle_rec.line_renewal_type_code;
6621: END IF;
6622: IF (x_cle_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6623: x_cle_rec.inv_rule_id := l_cle_rec.inv_rule_id;
6624: END IF;
6625: IF (x_cle_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6626: x_cle_rec.line_renewal_type_code := l_cle_rec.line_renewal_type_code;
6627: END IF;
6628: IF (x_cle_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6629: x_cle_rec.ship_to_site_use_id := l_cle_rec.ship_to_site_use_id;
6624: END IF;
6625: IF (x_cle_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6626: x_cle_rec.line_renewal_type_code := l_cle_rec.line_renewal_type_code;
6627: END IF;
6628: IF (x_cle_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6629: x_cle_rec.ship_to_site_use_id := l_cle_rec.ship_to_site_use_id;
6630: END IF;
6631: IF (x_cle_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6632: x_cle_rec.payment_term_id := l_cle_rec.payment_term_id;
6627: END IF;
6628: IF (x_cle_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6629: x_cle_rec.ship_to_site_use_id := l_cle_rec.ship_to_site_use_id;
6630: END IF;
6631: IF (x_cle_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6632: x_cle_rec.payment_term_id := l_cle_rec.payment_term_id;
6633: END IF;
6634: ---- line Level Cancellation ---
6635: IF (x_cle_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
6631: IF (x_cle_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6632: x_cle_rec.payment_term_id := l_cle_rec.payment_term_id;
6633: END IF;
6634: ---- line Level Cancellation ---
6635: IF (x_cle_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
6636: x_cle_rec.date_cancelled := l_cle_rec.date_cancelled;
6637: END IF;
6638: /* IF (x_cle_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
6639: x_cle_rec.canc_reason_code := l_cle_rec.canc_reason_code;
6634: ---- line Level Cancellation ---
6635: IF (x_cle_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
6636: x_cle_rec.date_cancelled := l_cle_rec.date_cancelled;
6637: END IF;
6638: /* IF (x_cle_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
6639: x_cle_rec.canc_reason_code := l_cle_rec.canc_reason_code;
6640: END IF; */
6641: IF (x_cle_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6642: x_cle_rec.term_cancel_source := l_cle_rec.term_cancel_source;
6637: END IF;
6638: /* IF (x_cle_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
6639: x_cle_rec.canc_reason_code := l_cle_rec.canc_reason_code;
6640: END IF; */
6641: IF (x_cle_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6642: x_cle_rec.term_cancel_source := l_cle_rec.term_cancel_source;
6643: END IF;
6644: IF (x_cle_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6645: x_cle_rec.cancelled_amount := l_cle_rec.cancelled_amount;
6640: END IF; */
6641: IF (x_cle_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6642: x_cle_rec.term_cancel_source := l_cle_rec.term_cancel_source;
6643: END IF;
6644: IF (x_cle_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6645: x_cle_rec.cancelled_amount := l_cle_rec.cancelled_amount;
6646: END IF;
6647: IF (x_cle_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6648: x_cle_rec.payment_instruction_type := l_cle_rec.payment_instruction_type;
6643: END IF;
6644: IF (x_cle_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6645: x_cle_rec.cancelled_amount := l_cle_rec.cancelled_amount;
6646: END IF;
6647: IF (x_cle_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6648: x_cle_rec.payment_instruction_type := l_cle_rec.payment_instruction_type;
6649: END IF;
6650:
6651: IF (l_debug = 'Y') THEN
6662: FUNCTION Set_Attributes (
6663: p_cle_rec IN cle_rec_type,
6664: x_cle_rec OUT NOCOPY cle_rec_type
6665: ) RETURN VARCHAR2 IS
6666: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6667: BEGIN
6668:
6669: x_cle_rec := p_cle_rec;
6670: RETURN(l_return_status);
6676: okc_debug.Set_Indentation('OKC_CLE_PVT');
6677: okc_debug.log('18500: Entered update_row', 2);
6678: END IF;
6679:
6680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6681: p_init_msg_list,
6682: '_PVT',
6683: x_return_status);
6684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6681: p_init_msg_list,
6682: '_PVT',
6683: x_return_status);
6684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6687: RAISE OKC_API.G_EXCEPTION_ERROR;
6688: END IF;
6681: p_init_msg_list,
6682: '_PVT',
6683: x_return_status);
6684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6687: RAISE OKC_API.G_EXCEPTION_ERROR;
6688: END IF;
6689: --- Setting item attributes
6682: '_PVT',
6683: x_return_status);
6684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6687: RAISE OKC_API.G_EXCEPTION_ERROR;
6688: END IF;
6689: --- Setting item attributes
6690: l_return_status := Set_Attributes(
6683: x_return_status);
6684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6687: RAISE OKC_API.G_EXCEPTION_ERROR;
6688: END IF;
6689: --- Setting item attributes
6690: l_return_status := Set_Attributes(
6691: p_cle_rec, -- IN
6690: l_return_status := Set_Attributes(
6691: p_cle_rec, -- IN
6692: l_cle_rec); -- OUT
6693: --- If any errors happen abort API
6694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6691: p_cle_rec, -- IN
6692: l_cle_rec); -- OUT
6693: --- If any errors happen abort API
6694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6692: l_cle_rec); -- OUT
6693: --- If any errors happen abort API
6694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6693: --- If any errors happen abort API
6694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6703: RAISE OKC_API.G_EXCEPTION_ERROR;
6704: END IF;
6697: RAISE OKC_API.G_EXCEPTION_ERROR;
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6703: RAISE OKC_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6698: END IF;
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6703: RAISE OKC_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6706: UPDATE OKC_K_LINES_B
6699: l_return_status := populate_new_record(l_cle_rec, l_def_cle_rec);
6700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6703: RAISE OKC_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6706: UPDATE OKC_K_LINES_B
6707: SET LINE_NUMBER = l_def_cle_rec.line_number,
6803: payment_instruction_type = l_def_cle_rec.payment_instruction_type
6804: WHERE ID = l_def_cle_rec.id;
6805:
6806: x_cle_rec := l_def_cle_rec;
6807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6808:
6809: IF (l_debug = 'Y') THEN
6810: okc_debug.log('18600: Exiting update_row', 2);
6811: okc_debug.Reset_Indentation;
6811: okc_debug.Reset_Indentation;
6812: END IF;
6813:
6814: EXCEPTION
6815: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6816:
6817: IF (l_debug = 'Y') THEN
6818: okc_debug.log('18700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6819: okc_debug.Reset_Indentation;
6814: EXCEPTION
6815: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6816:
6817: IF (l_debug = 'Y') THEN
6818: okc_debug.log('18700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6819: okc_debug.Reset_Indentation;
6820: END IF;
6821:
6822: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6818: okc_debug.log('18700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6819: okc_debug.Reset_Indentation;
6820: END IF;
6821:
6822: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6823: (
6824: l_api_name,
6825: G_PKG_NAME,
6826: 'OKC_API.G_RET_STS_ERROR',
6822: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6823: (
6824: l_api_name,
6825: G_PKG_NAME,
6826: 'OKC_API.G_RET_STS_ERROR',
6827: x_msg_count,
6828: x_msg_data,
6829: '_PVT'
6830: );
6827: x_msg_count,
6828: x_msg_data,
6829: '_PVT'
6830: );
6831: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6832:
6833: IF (l_debug = 'Y') THEN
6834: okc_debug.log('18800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6835: okc_debug.Reset_Indentation;
6830: );
6831: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6832:
6833: IF (l_debug = 'Y') THEN
6834: okc_debug.log('18800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6835: okc_debug.Reset_Indentation;
6836: END IF;
6837:
6838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6834: okc_debug.log('18800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6835: okc_debug.Reset_Indentation;
6836: END IF;
6837:
6838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6839: (
6840: l_api_name,
6841: G_PKG_NAME,
6842: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6839: (
6840: l_api_name,
6841: G_PKG_NAME,
6842: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6843: x_msg_count,
6844: x_msg_data,
6845: '_PVT'
6846: );
6850: okc_debug.log('18900: Exiting update_row:OTHERS Exception', 2);
6851: okc_debug.Reset_Indentation;
6852: END IF;
6853:
6854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6855: (
6856: l_api_name,
6857: G_PKG_NAME,
6858: 'OTHERS',
6874: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type) IS
6875:
6876: l_api_version CONSTANT NUMBER := 1;
6877: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6879: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type := p_okc_k_lines_tl_rec;
6880: l_def_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
6881: l_row_notfound BOOLEAN := TRUE;
6882: ----------------------------------
6887: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type
6888: ) RETURN VARCHAR2 IS
6889: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
6890: l_row_notfound BOOLEAN := TRUE;
6891: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6892: BEGIN
6893:
6894: IF (l_debug = 'Y') THEN
6895: okc_debug.Set_Indentation('OKC_CLE_PVT');
6899: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
6900: -- Get current database values
6901: l_okc_k_lines_tl_rec := get_rec(p_okc_k_lines_tl_rec, l_row_notfound);
6902: IF (l_row_notfound) THEN
6903: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6904: END IF;
6905: IF (x_okc_k_lines_tl_rec.id = OKC_API.G_MISS_NUM)
6906: THEN
6907: x_okc_k_lines_tl_rec.id := l_okc_k_lines_tl_rec.id;
6901: l_okc_k_lines_tl_rec := get_rec(p_okc_k_lines_tl_rec, l_row_notfound);
6902: IF (l_row_notfound) THEN
6903: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6904: END IF;
6905: IF (x_okc_k_lines_tl_rec.id = OKC_API.G_MISS_NUM)
6906: THEN
6907: x_okc_k_lines_tl_rec.id := l_okc_k_lines_tl_rec.id;
6908: END IF;
6909: IF (x_okc_k_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
6905: IF (x_okc_k_lines_tl_rec.id = OKC_API.G_MISS_NUM)
6906: THEN
6907: x_okc_k_lines_tl_rec.id := l_okc_k_lines_tl_rec.id;
6908: END IF;
6909: IF (x_okc_k_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
6910: THEN
6911: x_okc_k_lines_tl_rec.language := l_okc_k_lines_tl_rec.language;
6912: END IF;
6913: IF (x_okc_k_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6909: IF (x_okc_k_lines_tl_rec.language = OKC_API.G_MISS_CHAR)
6910: THEN
6911: x_okc_k_lines_tl_rec.language := l_okc_k_lines_tl_rec.language;
6912: END IF;
6913: IF (x_okc_k_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6914: THEN
6915: x_okc_k_lines_tl_rec.source_lang := l_okc_k_lines_tl_rec.source_lang;
6916: END IF;
6917: IF (x_okc_k_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6913: IF (x_okc_k_lines_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6914: THEN
6915: x_okc_k_lines_tl_rec.source_lang := l_okc_k_lines_tl_rec.source_lang;
6916: END IF;
6917: IF (x_okc_k_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6918: THEN
6919: x_okc_k_lines_tl_rec.sfwt_flag := l_okc_k_lines_tl_rec.sfwt_flag;
6920: END IF;
6921: IF (x_okc_k_lines_tl_rec.name = OKC_API.G_MISS_CHAR)
6917: IF (x_okc_k_lines_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6918: THEN
6919: x_okc_k_lines_tl_rec.sfwt_flag := l_okc_k_lines_tl_rec.sfwt_flag;
6920: END IF;
6921: IF (x_okc_k_lines_tl_rec.name = OKC_API.G_MISS_CHAR)
6922: THEN
6923: x_okc_k_lines_tl_rec.name := l_okc_k_lines_tl_rec.name;
6924: END IF;
6925: IF (x_okc_k_lines_tl_rec.comments = OKC_API.G_MISS_CHAR)
6921: IF (x_okc_k_lines_tl_rec.name = OKC_API.G_MISS_CHAR)
6922: THEN
6923: x_okc_k_lines_tl_rec.name := l_okc_k_lines_tl_rec.name;
6924: END IF;
6925: IF (x_okc_k_lines_tl_rec.comments = OKC_API.G_MISS_CHAR)
6926: THEN
6927: x_okc_k_lines_tl_rec.comments := l_okc_k_lines_tl_rec.comments;
6928: END IF;
6929: IF (x_okc_k_lines_tl_rec.item_description = OKC_API.G_MISS_CHAR)
6925: IF (x_okc_k_lines_tl_rec.comments = OKC_API.G_MISS_CHAR)
6926: THEN
6927: x_okc_k_lines_tl_rec.comments := l_okc_k_lines_tl_rec.comments;
6928: END IF;
6929: IF (x_okc_k_lines_tl_rec.item_description = OKC_API.G_MISS_CHAR)
6930: THEN
6931: x_okc_k_lines_tl_rec.item_description := l_okc_k_lines_tl_rec.item_description;
6932: END IF;
6933: IF (x_okc_k_lines_tl_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
6929: IF (x_okc_k_lines_tl_rec.item_description = OKC_API.G_MISS_CHAR)
6930: THEN
6931: x_okc_k_lines_tl_rec.item_description := l_okc_k_lines_tl_rec.item_description;
6932: END IF;
6933: IF (x_okc_k_lines_tl_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
6934: THEN
6935: x_okc_k_lines_tl_rec.oke_boe_description := l_okc_k_lines_tl_rec.oke_boe_description;
6936: END IF;
6937: IF (x_okc_k_lines_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6933: IF (x_okc_k_lines_tl_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
6934: THEN
6935: x_okc_k_lines_tl_rec.oke_boe_description := l_okc_k_lines_tl_rec.oke_boe_description;
6936: END IF;
6937: IF (x_okc_k_lines_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6938: THEN
6939: x_okc_k_lines_tl_rec.cognomen := l_okc_k_lines_tl_rec.cognomen;
6940: END IF;
6941: IF (x_okc_k_lines_tl_rec.block23text = OKC_API.G_MISS_CHAR)
6937: IF (x_okc_k_lines_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6938: THEN
6939: x_okc_k_lines_tl_rec.cognomen := l_okc_k_lines_tl_rec.cognomen;
6940: END IF;
6941: IF (x_okc_k_lines_tl_rec.block23text = OKC_API.G_MISS_CHAR)
6942: THEN
6943: x_okc_k_lines_tl_rec.block23text := l_okc_k_lines_tl_rec.block23text;
6944: END IF;
6945: IF (x_okc_k_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
6941: IF (x_okc_k_lines_tl_rec.block23text = OKC_API.G_MISS_CHAR)
6942: THEN
6943: x_okc_k_lines_tl_rec.block23text := l_okc_k_lines_tl_rec.block23text;
6944: END IF;
6945: IF (x_okc_k_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
6946: THEN
6947: x_okc_k_lines_tl_rec.created_by := l_okc_k_lines_tl_rec.created_by;
6948: END IF;
6949: IF (x_okc_k_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6945: IF (x_okc_k_lines_tl_rec.created_by = OKC_API.G_MISS_NUM)
6946: THEN
6947: x_okc_k_lines_tl_rec.created_by := l_okc_k_lines_tl_rec.created_by;
6948: END IF;
6949: IF (x_okc_k_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6950: THEN
6951: x_okc_k_lines_tl_rec.creation_date := l_okc_k_lines_tl_rec.creation_date;
6952: END IF;
6953: IF (x_okc_k_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6949: IF (x_okc_k_lines_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6950: THEN
6951: x_okc_k_lines_tl_rec.creation_date := l_okc_k_lines_tl_rec.creation_date;
6952: END IF;
6953: IF (x_okc_k_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6954: THEN
6955: x_okc_k_lines_tl_rec.last_updated_by := l_okc_k_lines_tl_rec.last_updated_by;
6956: END IF;
6957: IF (x_okc_k_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6953: IF (x_okc_k_lines_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6954: THEN
6955: x_okc_k_lines_tl_rec.last_updated_by := l_okc_k_lines_tl_rec.last_updated_by;
6956: END IF;
6957: IF (x_okc_k_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6958: THEN
6959: x_okc_k_lines_tl_rec.last_update_date := l_okc_k_lines_tl_rec.last_update_date;
6960: END IF;
6961: IF (x_okc_k_lines_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6957: IF (x_okc_k_lines_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6958: THEN
6959: x_okc_k_lines_tl_rec.last_update_date := l_okc_k_lines_tl_rec.last_update_date;
6960: END IF;
6961: IF (x_okc_k_lines_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6962: THEN
6963: x_okc_k_lines_tl_rec.last_update_login := l_okc_k_lines_tl_rec.last_update_login;
6964: END IF;
6965:
6977: FUNCTION Set_Attributes (
6978: p_okc_k_lines_tl_rec IN okc_k_lines_tl_rec_type,
6979: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type
6980: ) RETURN VARCHAR2 IS
6981: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6982: BEGIN
6983:
6984: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
6985: x_okc_k_lines_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6994: okc_debug.Set_Indentation('OKC_CLE_PVT');
6995: okc_debug.log('19200: Entered update_row', 2);
6996: END IF;
6997:
6998: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6999: p_init_msg_list,
7000: '_PVT',
7001: x_return_status);
7002: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6998: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6999: p_init_msg_list,
7000: '_PVT',
7001: x_return_status);
7002: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7004: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7005: RAISE OKC_API.G_EXCEPTION_ERROR;
7006: END IF;
6999: p_init_msg_list,
7000: '_PVT',
7001: x_return_status);
7002: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7004: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7005: RAISE OKC_API.G_EXCEPTION_ERROR;
7006: END IF;
7007: --- Setting item attributes
7000: '_PVT',
7001: x_return_status);
7002: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7004: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7005: RAISE OKC_API.G_EXCEPTION_ERROR;
7006: END IF;
7007: --- Setting item attributes
7008: l_return_status := Set_Attributes(
7001: x_return_status);
7002: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7004: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7005: RAISE OKC_API.G_EXCEPTION_ERROR;
7006: END IF;
7007: --- Setting item attributes
7008: l_return_status := Set_Attributes(
7009: p_okc_k_lines_tl_rec, -- IN
7008: l_return_status := Set_Attributes(
7009: p_okc_k_lines_tl_rec, -- IN
7010: l_okc_k_lines_tl_rec); -- OUT
7011: --- If any errors happen abort API
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7014: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7009: p_okc_k_lines_tl_rec, -- IN
7010: l_okc_k_lines_tl_rec); -- OUT
7011: --- If any errors happen abort API
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7014: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7010: l_okc_k_lines_tl_rec); -- OUT
7011: --- If any errors happen abort API
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7014: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7011: --- If any errors happen abort API
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7014: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7014: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7021: RAISE OKC_API.G_EXCEPTION_ERROR;
7022: END IF;
7015: RAISE OKC_API.G_EXCEPTION_ERROR;
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7021: RAISE OKC_API.G_EXCEPTION_ERROR;
7022: END IF;
7023: UPDATE OKC_K_LINES_TL
7016: END IF;
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7021: RAISE OKC_API.G_EXCEPTION_ERROR;
7022: END IF;
7023: UPDATE OKC_K_LINES_TL
7024: SET NAME = l_def_okc_k_lines_tl_rec.name,
7017: l_return_status := populate_new_record(l_okc_k_lines_tl_rec, l_def_okc_k_lines_tl_rec);
7018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7021: RAISE OKC_API.G_EXCEPTION_ERROR;
7022: END IF;
7023: UPDATE OKC_K_LINES_TL
7024: SET NAME = l_def_okc_k_lines_tl_rec.name,
7025: COMMENTS = l_def_okc_k_lines_tl_rec.comments,
7041: WHERE ID = l_def_okc_k_lines_tl_rec.id
7042: AND SOURCE_LANG <> USERENV('LANG');
7043:
7044: x_okc_k_lines_tl_rec := l_def_okc_k_lines_tl_rec;
7045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7046:
7047: IF (l_debug = 'Y') THEN
7048: okc_debug.log('19300: Exiting update_row', 2);
7049: okc_debug.Reset_Indentation;
7049: okc_debug.Reset_Indentation;
7050: END IF;
7051:
7052: EXCEPTION
7053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7054:
7055: IF (l_debug = 'Y') THEN
7056: okc_debug.log('19400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7057: okc_debug.Reset_Indentation;
7052: EXCEPTION
7053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7054:
7055: IF (l_debug = 'Y') THEN
7056: okc_debug.log('19400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7057: okc_debug.Reset_Indentation;
7058: END IF;
7059:
7060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7056: okc_debug.log('19400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7057: okc_debug.Reset_Indentation;
7058: END IF;
7059:
7060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7061: (
7062: l_api_name,
7063: G_PKG_NAME,
7064: 'OKC_API.G_RET_STS_ERROR',
7060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7061: (
7062: l_api_name,
7063: G_PKG_NAME,
7064: 'OKC_API.G_RET_STS_ERROR',
7065: x_msg_count,
7066: x_msg_data,
7067: '_PVT'
7068: );
7065: x_msg_count,
7066: x_msg_data,
7067: '_PVT'
7068: );
7069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7070:
7071: IF (l_debug = 'Y') THEN
7072: okc_debug.log('19500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7073: okc_debug.Reset_Indentation;
7068: );
7069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7070:
7071: IF (l_debug = 'Y') THEN
7072: okc_debug.log('19500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7073: okc_debug.Reset_Indentation;
7074: END IF;
7075:
7076: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7072: okc_debug.log('19500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7073: okc_debug.Reset_Indentation;
7074: END IF;
7075:
7076: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7077: (
7078: l_api_name,
7079: G_PKG_NAME,
7080: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7076: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7077: (
7078: l_api_name,
7079: G_PKG_NAME,
7080: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7081: x_msg_count,
7082: x_msg_data,
7083: '_PVT'
7084: );
7088: okc_debug.log('19600: Exiting update_row:OTHERS Exception', 2);
7089: okc_debug.Reset_Indentation;
7090: END IF;
7091:
7092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7093: (
7094: l_api_name,
7095: G_PKG_NAME,
7096: 'OTHERS',
7114: x_clev_rec OUT NOCOPY clev_rec_type) IS
7115:
7116: l_api_version CONSTANT NUMBER := 1;
7117: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
7118: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7119: l_clev_rec clev_rec_type := p_clev_rec;
7120: l_def_clev_rec clev_rec_type;
7121: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
7122: lx_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
7145: x_clev_rec OUT NOCOPY clev_rec_type
7146: ) RETURN VARCHAR2 IS
7147: l_clev_rec clev_rec_type;
7148: l_row_notfound BOOLEAN := TRUE;
7149: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7150: BEGIN
7151:
7152: IF (l_debug = 'Y') THEN
7153: okc_debug.Set_Indentation('OKC_CLE_PVT');
7157: x_clev_rec := p_clev_rec;
7158: -- Get current database values
7159: l_clev_rec := get_rec(p_clev_rec, l_row_notfound);
7160: IF (l_row_notfound) THEN
7161: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7162: END IF;
7163: IF (x_clev_rec.id = OKC_API.G_MISS_NUM)
7164: THEN
7165: x_clev_rec.id := l_clev_rec.id;
7159: l_clev_rec := get_rec(p_clev_rec, l_row_notfound);
7160: IF (l_row_notfound) THEN
7161: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7162: END IF;
7163: IF (x_clev_rec.id = OKC_API.G_MISS_NUM)
7164: THEN
7165: x_clev_rec.id := l_clev_rec.id;
7166: END IF;
7167: IF (x_clev_rec.object_version_number = OKC_API.G_MISS_NUM)
7163: IF (x_clev_rec.id = OKC_API.G_MISS_NUM)
7164: THEN
7165: x_clev_rec.id := l_clev_rec.id;
7166: END IF;
7167: IF (x_clev_rec.object_version_number = OKC_API.G_MISS_NUM)
7168: THEN
7169: x_clev_rec.object_version_number := l_clev_rec.object_version_number;
7170: END IF;
7171: IF (x_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7167: IF (x_clev_rec.object_version_number = OKC_API.G_MISS_NUM)
7168: THEN
7169: x_clev_rec.object_version_number := l_clev_rec.object_version_number;
7170: END IF;
7171: IF (x_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_clev_rec.sfwt_flag := l_clev_rec.sfwt_flag;
7174: END IF;
7175: IF (x_clev_rec.chr_id = OKC_API.G_MISS_NUM)
7171: IF (x_clev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_clev_rec.sfwt_flag := l_clev_rec.sfwt_flag;
7174: END IF;
7175: IF (x_clev_rec.chr_id = OKC_API.G_MISS_NUM)
7176: THEN
7177: x_clev_rec.chr_id := l_clev_rec.chr_id;
7178: END IF;
7179: IF (x_clev_rec.cle_id = OKC_API.G_MISS_NUM)
7175: IF (x_clev_rec.chr_id = OKC_API.G_MISS_NUM)
7176: THEN
7177: x_clev_rec.chr_id := l_clev_rec.chr_id;
7178: END IF;
7179: IF (x_clev_rec.cle_id = OKC_API.G_MISS_NUM)
7180: THEN
7181: x_clev_rec.cle_id := l_clev_rec.cle_id;
7182: END IF;
7183: IF (x_clev_rec.lse_id = OKC_API.G_MISS_NUM)
7179: IF (x_clev_rec.cle_id = OKC_API.G_MISS_NUM)
7180: THEN
7181: x_clev_rec.cle_id := l_clev_rec.cle_id;
7182: END IF;
7183: IF (x_clev_rec.lse_id = OKC_API.G_MISS_NUM)
7184: THEN
7185: x_clev_rec.lse_id := l_clev_rec.lse_id;
7186: END IF;
7187: IF (x_clev_rec.line_number = OKC_API.G_MISS_CHAR)
7183: IF (x_clev_rec.lse_id = OKC_API.G_MISS_NUM)
7184: THEN
7185: x_clev_rec.lse_id := l_clev_rec.lse_id;
7186: END IF;
7187: IF (x_clev_rec.line_number = OKC_API.G_MISS_CHAR)
7188: THEN
7189: x_clev_rec.line_number := l_clev_rec.line_number;
7190: END IF;
7191: IF (x_clev_rec.sts_code = OKC_API.G_MISS_CHAR)
7187: IF (x_clev_rec.line_number = OKC_API.G_MISS_CHAR)
7188: THEN
7189: x_clev_rec.line_number := l_clev_rec.line_number;
7190: END IF;
7191: IF (x_clev_rec.sts_code = OKC_API.G_MISS_CHAR)
7192: THEN
7193: x_clev_rec.sts_code := l_clev_rec.sts_code;
7194: END IF;
7195: IF (x_clev_rec.display_sequence = OKC_API.G_MISS_NUM)
7191: IF (x_clev_rec.sts_code = OKC_API.G_MISS_CHAR)
7192: THEN
7193: x_clev_rec.sts_code := l_clev_rec.sts_code;
7194: END IF;
7195: IF (x_clev_rec.display_sequence = OKC_API.G_MISS_NUM)
7196: THEN
7197: x_clev_rec.display_sequence := l_clev_rec.display_sequence;
7198: END IF;
7199: IF (x_clev_rec.trn_code = OKC_API.G_MISS_CHAR)
7195: IF (x_clev_rec.display_sequence = OKC_API.G_MISS_NUM)
7196: THEN
7197: x_clev_rec.display_sequence := l_clev_rec.display_sequence;
7198: END IF;
7199: IF (x_clev_rec.trn_code = OKC_API.G_MISS_CHAR)
7200: THEN
7201: x_clev_rec.trn_code := l_clev_rec.trn_code;
7202: END IF;
7203: IF (x_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
7199: IF (x_clev_rec.trn_code = OKC_API.G_MISS_CHAR)
7200: THEN
7201: x_clev_rec.trn_code := l_clev_rec.trn_code;
7202: END IF;
7203: IF (x_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
7204: THEN
7205: x_clev_rec.dnz_chr_id := l_clev_rec.dnz_chr_id;
7206: END IF;
7207: IF (x_clev_rec.comments = OKC_API.G_MISS_CHAR)
7203: IF (x_clev_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
7204: THEN
7205: x_clev_rec.dnz_chr_id := l_clev_rec.dnz_chr_id;
7206: END IF;
7207: IF (x_clev_rec.comments = OKC_API.G_MISS_CHAR)
7208: THEN
7209: x_clev_rec.comments := l_clev_rec.comments;
7210: END IF;
7211: IF (x_clev_rec.item_description = OKC_API.G_MISS_CHAR)
7207: IF (x_clev_rec.comments = OKC_API.G_MISS_CHAR)
7208: THEN
7209: x_clev_rec.comments := l_clev_rec.comments;
7210: END IF;
7211: IF (x_clev_rec.item_description = OKC_API.G_MISS_CHAR)
7212: THEN
7213: x_clev_rec.item_description := l_clev_rec.item_description;
7214: END IF;
7215: IF (x_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
7211: IF (x_clev_rec.item_description = OKC_API.G_MISS_CHAR)
7212: THEN
7213: x_clev_rec.item_description := l_clev_rec.item_description;
7214: END IF;
7215: IF (x_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
7216: THEN
7217: x_clev_rec.oke_boe_description := l_clev_rec.oke_boe_description;
7218: END IF;
7219: IF (x_clev_rec.cognomen = OKC_API.G_MISS_CHAR)
7215: IF (x_clev_rec.oke_boe_description = OKC_API.G_MISS_CHAR)
7216: THEN
7217: x_clev_rec.oke_boe_description := l_clev_rec.oke_boe_description;
7218: END IF;
7219: IF (x_clev_rec.cognomen = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_clev_rec.cognomen := l_clev_rec.cognomen;
7222: END IF;
7223: IF (x_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR)
7219: IF (x_clev_rec.cognomen = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_clev_rec.cognomen := l_clev_rec.cognomen;
7222: END IF;
7223: IF (x_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_clev_rec.hidden_ind := l_clev_rec.hidden_ind;
7226: END IF;
7227: IF (x_clev_rec.price_unit = OKC_API.G_MISS_NUM)
7223: IF (x_clev_rec.hidden_ind = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_clev_rec.hidden_ind := l_clev_rec.hidden_ind;
7226: END IF;
7227: IF (x_clev_rec.price_unit = OKC_API.G_MISS_NUM)
7228: THEN
7229: x_clev_rec.price_unit := l_clev_rec.price_unit;
7230: END IF;
7231: IF (x_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM)
7227: IF (x_clev_rec.price_unit = OKC_API.G_MISS_NUM)
7228: THEN
7229: x_clev_rec.price_unit := l_clev_rec.price_unit;
7230: END IF;
7231: IF (x_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM)
7232: THEN
7233: x_clev_rec.price_unit_percent := l_clev_rec.price_unit_percent;
7234: END IF;
7235: IF (x_clev_rec.price_negotiated = OKC_API.G_MISS_NUM)
7231: IF (x_clev_rec.price_unit_percent = OKC_API.G_MISS_NUM)
7232: THEN
7233: x_clev_rec.price_unit_percent := l_clev_rec.price_unit_percent;
7234: END IF;
7235: IF (x_clev_rec.price_negotiated = OKC_API.G_MISS_NUM)
7236: THEN
7237: x_clev_rec.price_negotiated := l_clev_rec.price_negotiated;
7238: END IF;
7239: IF (x_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
7235: IF (x_clev_rec.price_negotiated = OKC_API.G_MISS_NUM)
7236: THEN
7237: x_clev_rec.price_negotiated := l_clev_rec.price_negotiated;
7238: END IF;
7239: IF (x_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
7240: THEN
7241: x_clev_rec.price_negotiated_renewed := l_clev_rec.price_negotiated_renewed;
7242: END IF;
7243: IF (x_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR)
7239: IF (x_clev_rec.price_negotiated_renewed = OKC_API.G_MISS_NUM)
7240: THEN
7241: x_clev_rec.price_negotiated_renewed := l_clev_rec.price_negotiated_renewed;
7242: END IF;
7243: IF (x_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR)
7244: THEN
7245: x_clev_rec.price_level_ind := l_clev_rec.price_level_ind;
7246: END IF;
7247: IF (x_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
7243: IF (x_clev_rec.price_level_ind = OKC_API.G_MISS_CHAR)
7244: THEN
7245: x_clev_rec.price_level_ind := l_clev_rec.price_level_ind;
7246: END IF;
7247: IF (x_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
7248: THEN
7249: x_clev_rec.invoice_line_level_ind := l_clev_rec.invoice_line_level_ind;
7250: END IF;
7251: IF (x_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7247: IF (x_clev_rec.invoice_line_level_ind = OKC_API.G_MISS_CHAR)
7248: THEN
7249: x_clev_rec.invoice_line_level_ind := l_clev_rec.invoice_line_level_ind;
7250: END IF;
7251: IF (x_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7252: THEN
7253: x_clev_rec.dpas_rating := l_clev_rec.dpas_rating;
7254: END IF;
7255: IF (x_clev_rec.block23text = OKC_API.G_MISS_CHAR)
7251: IF (x_clev_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7252: THEN
7253: x_clev_rec.dpas_rating := l_clev_rec.dpas_rating;
7254: END IF;
7255: IF (x_clev_rec.block23text = OKC_API.G_MISS_CHAR)
7256: THEN
7257: x_clev_rec.block23text := l_clev_rec.block23text;
7258: END IF;
7259: IF (x_clev_rec.exception_yn = OKC_API.G_MISS_CHAR)
7255: IF (x_clev_rec.block23text = OKC_API.G_MISS_CHAR)
7256: THEN
7257: x_clev_rec.block23text := l_clev_rec.block23text;
7258: END IF;
7259: IF (x_clev_rec.exception_yn = OKC_API.G_MISS_CHAR)
7260: THEN
7261: x_clev_rec.exception_yn := l_clev_rec.exception_yn;
7262: END IF;
7263: IF (x_clev_rec.template_used = OKC_API.G_MISS_CHAR)
7259: IF (x_clev_rec.exception_yn = OKC_API.G_MISS_CHAR)
7260: THEN
7261: x_clev_rec.exception_yn := l_clev_rec.exception_yn;
7262: END IF;
7263: IF (x_clev_rec.template_used = OKC_API.G_MISS_CHAR)
7264: THEN
7265: x_clev_rec.template_used := l_clev_rec.template_used;
7266: END IF;
7267: IF (x_clev_rec.date_terminated = OKC_API.G_MISS_DATE)
7263: IF (x_clev_rec.template_used = OKC_API.G_MISS_CHAR)
7264: THEN
7265: x_clev_rec.template_used := l_clev_rec.template_used;
7266: END IF;
7267: IF (x_clev_rec.date_terminated = OKC_API.G_MISS_DATE)
7268: THEN
7269: x_clev_rec.date_terminated := l_clev_rec.date_terminated;
7270: END IF;
7271: IF (x_clev_rec.name = OKC_API.G_MISS_CHAR)
7267: IF (x_clev_rec.date_terminated = OKC_API.G_MISS_DATE)
7268: THEN
7269: x_clev_rec.date_terminated := l_clev_rec.date_terminated;
7270: END IF;
7271: IF (x_clev_rec.name = OKC_API.G_MISS_CHAR)
7272: THEN
7273: x_clev_rec.name := l_clev_rec.name;
7274: END IF;
7275: IF (x_clev_rec.start_date = OKC_API.G_MISS_DATE)
7271: IF (x_clev_rec.name = OKC_API.G_MISS_CHAR)
7272: THEN
7273: x_clev_rec.name := l_clev_rec.name;
7274: END IF;
7275: IF (x_clev_rec.start_date = OKC_API.G_MISS_DATE)
7276: THEN
7277: x_clev_rec.start_date := l_clev_rec.start_date;
7278: END IF;
7279: IF (x_clev_rec.end_date = OKC_API.G_MISS_DATE)
7275: IF (x_clev_rec.start_date = OKC_API.G_MISS_DATE)
7276: THEN
7277: x_clev_rec.start_date := l_clev_rec.start_date;
7278: END IF;
7279: IF (x_clev_rec.end_date = OKC_API.G_MISS_DATE)
7280: THEN
7281: x_clev_rec.end_date := l_clev_rec.end_date;
7282: END IF;
7283: IF (x_clev_rec.date_renewed = OKC_API.G_MISS_DATE)
7279: IF (x_clev_rec.end_date = OKC_API.G_MISS_DATE)
7280: THEN
7281: x_clev_rec.end_date := l_clev_rec.end_date;
7282: END IF;
7283: IF (x_clev_rec.date_renewed = OKC_API.G_MISS_DATE)
7284: THEN
7285: x_clev_rec.date_renewed := l_clev_rec.date_renewed;
7286: END IF;
7287: IF (x_clev_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7283: IF (x_clev_rec.date_renewed = OKC_API.G_MISS_DATE)
7284: THEN
7285: x_clev_rec.date_renewed := l_clev_rec.date_renewed;
7286: END IF;
7287: IF (x_clev_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7288: THEN
7289: x_clev_rec.upg_orig_system_ref := l_clev_rec.upg_orig_system_ref;
7290: END IF;
7291: IF (x_clev_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7287: IF (x_clev_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7288: THEN
7289: x_clev_rec.upg_orig_system_ref := l_clev_rec.upg_orig_system_ref;
7290: END IF;
7291: IF (x_clev_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7292: THEN
7293: x_clev_rec.upg_orig_system_ref_id := l_clev_rec.upg_orig_system_ref_id;
7294: END IF;
7295: IF (x_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7291: IF (x_clev_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7292: THEN
7293: x_clev_rec.upg_orig_system_ref_id := l_clev_rec.upg_orig_system_ref_id;
7294: END IF;
7295: IF (x_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7296: THEN
7297: x_clev_rec.orig_system_source_code :=l_clev_rec.orig_system_source_code;
7298: END IF;
7299: IF (x_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7295: IF (x_clev_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7296: THEN
7297: x_clev_rec.orig_system_source_code :=l_clev_rec.orig_system_source_code;
7298: END IF;
7299: IF (x_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7300: THEN
7301: x_clev_rec.orig_system_id1 := l_clev_rec.orig_system_id1;
7302: END IF;
7303: IF (x_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7299: IF (x_clev_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7300: THEN
7301: x_clev_rec.orig_system_id1 := l_clev_rec.orig_system_id1;
7302: END IF;
7303: IF (x_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7304: THEN
7305: x_clev_rec.orig_system_reference1 := l_clev_rec.orig_system_reference1;
7306: END IF;
7307: IF (x_clev_rec.program_application_id = OKC_API.G_MISS_NUM)
7303: IF (x_clev_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7304: THEN
7305: x_clev_rec.orig_system_reference1 := l_clev_rec.orig_system_reference1;
7306: END IF;
7307: IF (x_clev_rec.program_application_id = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_clev_rec.program_application_id := l_clev_rec.program_application_id;
7310: END IF;
7311: IF (x_clev_rec.program_id = OKC_API.G_MISS_NUM)
7307: IF (x_clev_rec.program_application_id = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_clev_rec.program_application_id := l_clev_rec.program_application_id;
7310: END IF;
7311: IF (x_clev_rec.program_id = OKC_API.G_MISS_NUM)
7312: THEN
7313: x_clev_rec.program_id := l_clev_rec.program_id;
7314: END IF;
7315: IF (x_clev_rec.program_update_date = OKC_API.G_MISS_DATE)
7311: IF (x_clev_rec.program_id = OKC_API.G_MISS_NUM)
7312: THEN
7313: x_clev_rec.program_id := l_clev_rec.program_id;
7314: END IF;
7315: IF (x_clev_rec.program_update_date = OKC_API.G_MISS_DATE)
7316: THEN
7317: x_clev_rec.program_update_date := l_clev_rec.program_update_date ;
7318: END IF;
7319: IF (x_clev_rec.request_id = OKC_API.G_MISS_NUM)
7315: IF (x_clev_rec.program_update_date = OKC_API.G_MISS_DATE)
7316: THEN
7317: x_clev_rec.program_update_date := l_clev_rec.program_update_date ;
7318: END IF;
7319: IF (x_clev_rec.request_id = OKC_API.G_MISS_NUM)
7320: THEN
7321: x_clev_rec.request_id := l_clev_rec.request_id;
7322: END IF;
7323: IF (x_clev_rec.price_list_id = OKC_API.G_MISS_NUM)
7319: IF (x_clev_rec.request_id = OKC_API.G_MISS_NUM)
7320: THEN
7321: x_clev_rec.request_id := l_clev_rec.request_id;
7322: END IF;
7323: IF (x_clev_rec.price_list_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_clev_rec.price_list_id := l_clev_rec.price_list_id;
7326: END IF;
7327: IF (x_clev_rec.pricing_date = OKC_API.G_MISS_DATE)
7323: IF (x_clev_rec.price_list_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_clev_rec.price_list_id := l_clev_rec.price_list_id;
7326: END IF;
7327: IF (x_clev_rec.pricing_date = OKC_API.G_MISS_DATE)
7328: THEN
7329: x_clev_rec.pricing_date := l_clev_rec.pricing_date ;
7330: END IF;
7331: IF (x_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM)
7327: IF (x_clev_rec.pricing_date = OKC_API.G_MISS_DATE)
7328: THEN
7329: x_clev_rec.pricing_date := l_clev_rec.pricing_date ;
7330: END IF;
7331: IF (x_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM)
7332: THEN
7333: x_clev_rec.price_list_line_id := l_clev_rec.price_list_line_id;
7334: END IF;
7335: IF (x_clev_rec.line_list_price = OKC_API.G_MISS_NUM)
7331: IF (x_clev_rec.price_list_line_id = OKC_API.G_MISS_NUM)
7332: THEN
7333: x_clev_rec.price_list_line_id := l_clev_rec.price_list_line_id;
7334: END IF;
7335: IF (x_clev_rec.line_list_price = OKC_API.G_MISS_NUM)
7336: THEN
7337: x_clev_rec.line_list_price := l_clev_rec.line_list_price;
7338: END IF;
7339: IF (x_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
7335: IF (x_clev_rec.line_list_price = OKC_API.G_MISS_NUM)
7336: THEN
7337: x_clev_rec.line_list_price := l_clev_rec.line_list_price;
7338: END IF;
7339: IF (x_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
7340: x_clev_rec.item_to_price_yn := l_clev_rec.item_to_price_yn;
7341: END IF;
7342: IF (x_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
7343: x_clev_rec.price_basis_yn := l_clev_rec.price_basis_yn;
7338: END IF;
7339: IF (x_clev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
7340: x_clev_rec.item_to_price_yn := l_clev_rec.item_to_price_yn;
7341: END IF;
7342: IF (x_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
7343: x_clev_rec.price_basis_yn := l_clev_rec.price_basis_yn;
7344: END IF;
7345: IF (x_clev_rec.config_header_id = OKC_API.G_MISS_NUM)
7346: THEN
7341: END IF;
7342: IF (x_clev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
7343: x_clev_rec.price_basis_yn := l_clev_rec.price_basis_yn;
7344: END IF;
7345: IF (x_clev_rec.config_header_id = OKC_API.G_MISS_NUM)
7346: THEN
7347: x_clev_rec.config_header_id := l_clev_rec.config_header_id;
7348: END IF;
7349: IF (x_clev_rec.config_revision_number = OKC_API.G_MISS_NUM)
7345: IF (x_clev_rec.config_header_id = OKC_API.G_MISS_NUM)
7346: THEN
7347: x_clev_rec.config_header_id := l_clev_rec.config_header_id;
7348: END IF;
7349: IF (x_clev_rec.config_revision_number = OKC_API.G_MISS_NUM)
7350: THEN
7351: x_clev_rec.config_revision_number := l_clev_rec.config_revision_number;
7352: END IF;
7353: IF (x_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
7349: IF (x_clev_rec.config_revision_number = OKC_API.G_MISS_NUM)
7350: THEN
7351: x_clev_rec.config_revision_number := l_clev_rec.config_revision_number;
7352: END IF;
7353: IF (x_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
7354: x_clev_rec.config_complete_yn := l_clev_rec.config_complete_yn;
7355: END IF;
7356: IF (x_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
7357: x_clev_rec.config_valid_yn := l_clev_rec.config_valid_yn;
7352: END IF;
7353: IF (x_clev_rec.config_complete_yn = OKC_API.G_MISS_CHAR) THEN
7354: x_clev_rec.config_complete_yn := l_clev_rec.config_complete_yn;
7355: END IF;
7356: IF (x_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
7357: x_clev_rec.config_valid_yn := l_clev_rec.config_valid_yn;
7358: END IF;
7359: IF (x_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
7360: THEN
7355: END IF;
7356: IF (x_clev_rec.config_valid_yn = OKC_API.G_MISS_CHAR) THEN
7357: x_clev_rec.config_valid_yn := l_clev_rec.config_valid_yn;
7358: END IF;
7359: IF (x_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
7360: THEN
7361: x_clev_rec.config_top_model_line_id := l_clev_rec.config_top_model_line_id;
7362: END IF;
7363: IF (x_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
7359: IF (x_clev_rec.config_top_model_line_id = OKC_API.G_MISS_NUM)
7360: THEN
7361: x_clev_rec.config_top_model_line_id := l_clev_rec.config_top_model_line_id;
7362: END IF;
7363: IF (x_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
7364: x_clev_rec.config_item_type := l_clev_rec.config_item_type;
7365: END IF;
7366: ---Bug.No.-1942374
7367: IF (x_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
7363: IF (x_clev_rec.config_item_type = OKC_API.G_MISS_CHAR) THEN
7364: x_clev_rec.config_item_type := l_clev_rec.config_item_type;
7365: END IF;
7366: ---Bug.No.-1942374
7367: IF (x_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
7368: x_clev_rec.CONFIG_ITEM_ID := l_clev_rec.CONFIG_ITEM_ID;
7369: END IF;
7370: ---Bug.No.-1942374
7371: IF (x_clev_rec.attribute_category = OKC_API.G_MISS_CHAR)
7367: IF (x_clev_rec.CONFIG_ITEM_ID = OKC_API.G_MISS_NUM) THEN
7368: x_clev_rec.CONFIG_ITEM_ID := l_clev_rec.CONFIG_ITEM_ID;
7369: END IF;
7370: ---Bug.No.-1942374
7371: IF (x_clev_rec.attribute_category = OKC_API.G_MISS_CHAR)
7372: THEN
7373: x_clev_rec.attribute_category := l_clev_rec.attribute_category;
7374: END IF;
7375: IF (x_clev_rec.attribute1 = OKC_API.G_MISS_CHAR)
7371: IF (x_clev_rec.attribute_category = OKC_API.G_MISS_CHAR)
7372: THEN
7373: x_clev_rec.attribute_category := l_clev_rec.attribute_category;
7374: END IF;
7375: IF (x_clev_rec.attribute1 = OKC_API.G_MISS_CHAR)
7376: THEN
7377: x_clev_rec.attribute1 := l_clev_rec.attribute1;
7378: END IF;
7379: IF (x_clev_rec.attribute2 = OKC_API.G_MISS_CHAR)
7375: IF (x_clev_rec.attribute1 = OKC_API.G_MISS_CHAR)
7376: THEN
7377: x_clev_rec.attribute1 := l_clev_rec.attribute1;
7378: END IF;
7379: IF (x_clev_rec.attribute2 = OKC_API.G_MISS_CHAR)
7380: THEN
7381: x_clev_rec.attribute2 := l_clev_rec.attribute2;
7382: END IF;
7383: IF (x_clev_rec.attribute3 = OKC_API.G_MISS_CHAR)
7379: IF (x_clev_rec.attribute2 = OKC_API.G_MISS_CHAR)
7380: THEN
7381: x_clev_rec.attribute2 := l_clev_rec.attribute2;
7382: END IF;
7383: IF (x_clev_rec.attribute3 = OKC_API.G_MISS_CHAR)
7384: THEN
7385: x_clev_rec.attribute3 := l_clev_rec.attribute3;
7386: END IF;
7387: IF (x_clev_rec.attribute4 = OKC_API.G_MISS_CHAR)
7383: IF (x_clev_rec.attribute3 = OKC_API.G_MISS_CHAR)
7384: THEN
7385: x_clev_rec.attribute3 := l_clev_rec.attribute3;
7386: END IF;
7387: IF (x_clev_rec.attribute4 = OKC_API.G_MISS_CHAR)
7388: THEN
7389: x_clev_rec.attribute4 := l_clev_rec.attribute4;
7390: END IF;
7391: IF (x_clev_rec.attribute5 = OKC_API.G_MISS_CHAR)
7387: IF (x_clev_rec.attribute4 = OKC_API.G_MISS_CHAR)
7388: THEN
7389: x_clev_rec.attribute4 := l_clev_rec.attribute4;
7390: END IF;
7391: IF (x_clev_rec.attribute5 = OKC_API.G_MISS_CHAR)
7392: THEN
7393: x_clev_rec.attribute5 := l_clev_rec.attribute5;
7394: END IF;
7395: IF (x_clev_rec.attribute6 = OKC_API.G_MISS_CHAR)
7391: IF (x_clev_rec.attribute5 = OKC_API.G_MISS_CHAR)
7392: THEN
7393: x_clev_rec.attribute5 := l_clev_rec.attribute5;
7394: END IF;
7395: IF (x_clev_rec.attribute6 = OKC_API.G_MISS_CHAR)
7396: THEN
7397: x_clev_rec.attribute6 := l_clev_rec.attribute6;
7398: END IF;
7399: IF (x_clev_rec.attribute7 = OKC_API.G_MISS_CHAR)
7395: IF (x_clev_rec.attribute6 = OKC_API.G_MISS_CHAR)
7396: THEN
7397: x_clev_rec.attribute6 := l_clev_rec.attribute6;
7398: END IF;
7399: IF (x_clev_rec.attribute7 = OKC_API.G_MISS_CHAR)
7400: THEN
7401: x_clev_rec.attribute7 := l_clev_rec.attribute7;
7402: END IF;
7403: IF (x_clev_rec.attribute8 = OKC_API.G_MISS_CHAR)
7399: IF (x_clev_rec.attribute7 = OKC_API.G_MISS_CHAR)
7400: THEN
7401: x_clev_rec.attribute7 := l_clev_rec.attribute7;
7402: END IF;
7403: IF (x_clev_rec.attribute8 = OKC_API.G_MISS_CHAR)
7404: THEN
7405: x_clev_rec.attribute8 := l_clev_rec.attribute8;
7406: END IF;
7407: IF (x_clev_rec.attribute9 = OKC_API.G_MISS_CHAR)
7403: IF (x_clev_rec.attribute8 = OKC_API.G_MISS_CHAR)
7404: THEN
7405: x_clev_rec.attribute8 := l_clev_rec.attribute8;
7406: END IF;
7407: IF (x_clev_rec.attribute9 = OKC_API.G_MISS_CHAR)
7408: THEN
7409: x_clev_rec.attribute9 := l_clev_rec.attribute9;
7410: END IF;
7411: IF (x_clev_rec.attribute10 = OKC_API.G_MISS_CHAR)
7407: IF (x_clev_rec.attribute9 = OKC_API.G_MISS_CHAR)
7408: THEN
7409: x_clev_rec.attribute9 := l_clev_rec.attribute9;
7410: END IF;
7411: IF (x_clev_rec.attribute10 = OKC_API.G_MISS_CHAR)
7412: THEN
7413: x_clev_rec.attribute10 := l_clev_rec.attribute10;
7414: END IF;
7415: IF (x_clev_rec.attribute11 = OKC_API.G_MISS_CHAR)
7411: IF (x_clev_rec.attribute10 = OKC_API.G_MISS_CHAR)
7412: THEN
7413: x_clev_rec.attribute10 := l_clev_rec.attribute10;
7414: END IF;
7415: IF (x_clev_rec.attribute11 = OKC_API.G_MISS_CHAR)
7416: THEN
7417: x_clev_rec.attribute11 := l_clev_rec.attribute11;
7418: END IF;
7419: IF (x_clev_rec.attribute12 = OKC_API.G_MISS_CHAR)
7415: IF (x_clev_rec.attribute11 = OKC_API.G_MISS_CHAR)
7416: THEN
7417: x_clev_rec.attribute11 := l_clev_rec.attribute11;
7418: END IF;
7419: IF (x_clev_rec.attribute12 = OKC_API.G_MISS_CHAR)
7420: THEN
7421: x_clev_rec.attribute12 := l_clev_rec.attribute12;
7422: END IF;
7423: IF (x_clev_rec.attribute13 = OKC_API.G_MISS_CHAR)
7419: IF (x_clev_rec.attribute12 = OKC_API.G_MISS_CHAR)
7420: THEN
7421: x_clev_rec.attribute12 := l_clev_rec.attribute12;
7422: END IF;
7423: IF (x_clev_rec.attribute13 = OKC_API.G_MISS_CHAR)
7424: THEN
7425: x_clev_rec.attribute13 := l_clev_rec.attribute13;
7426: END IF;
7427: IF (x_clev_rec.attribute14 = OKC_API.G_MISS_CHAR)
7423: IF (x_clev_rec.attribute13 = OKC_API.G_MISS_CHAR)
7424: THEN
7425: x_clev_rec.attribute13 := l_clev_rec.attribute13;
7426: END IF;
7427: IF (x_clev_rec.attribute14 = OKC_API.G_MISS_CHAR)
7428: THEN
7429: x_clev_rec.attribute14 := l_clev_rec.attribute14;
7430: END IF;
7431: IF (x_clev_rec.attribute15 = OKC_API.G_MISS_CHAR)
7427: IF (x_clev_rec.attribute14 = OKC_API.G_MISS_CHAR)
7428: THEN
7429: x_clev_rec.attribute14 := l_clev_rec.attribute14;
7430: END IF;
7431: IF (x_clev_rec.attribute15 = OKC_API.G_MISS_CHAR)
7432: THEN
7433: x_clev_rec.attribute15 := l_clev_rec.attribute15;
7434: END IF;
7435: IF (x_clev_rec.created_by = OKC_API.G_MISS_NUM)
7431: IF (x_clev_rec.attribute15 = OKC_API.G_MISS_CHAR)
7432: THEN
7433: x_clev_rec.attribute15 := l_clev_rec.attribute15;
7434: END IF;
7435: IF (x_clev_rec.created_by = OKC_API.G_MISS_NUM)
7436: THEN
7437: x_clev_rec.created_by := l_clev_rec.created_by;
7438: END IF;
7439: IF (x_clev_rec.creation_date = OKC_API.G_MISS_DATE)
7435: IF (x_clev_rec.created_by = OKC_API.G_MISS_NUM)
7436: THEN
7437: x_clev_rec.created_by := l_clev_rec.created_by;
7438: END IF;
7439: IF (x_clev_rec.creation_date = OKC_API.G_MISS_DATE)
7440: THEN
7441: x_clev_rec.creation_date := l_clev_rec.creation_date;
7442: END IF;
7443: IF (x_clev_rec.last_updated_by = OKC_API.G_MISS_NUM)
7439: IF (x_clev_rec.creation_date = OKC_API.G_MISS_DATE)
7440: THEN
7441: x_clev_rec.creation_date := l_clev_rec.creation_date;
7442: END IF;
7443: IF (x_clev_rec.last_updated_by = OKC_API.G_MISS_NUM)
7444: THEN
7445: x_clev_rec.last_updated_by := l_clev_rec.last_updated_by;
7446: END IF;
7447: IF (x_clev_rec.last_update_date = OKC_API.G_MISS_DATE)
7443: IF (x_clev_rec.last_updated_by = OKC_API.G_MISS_NUM)
7444: THEN
7445: x_clev_rec.last_updated_by := l_clev_rec.last_updated_by;
7446: END IF;
7447: IF (x_clev_rec.last_update_date = OKC_API.G_MISS_DATE)
7448: THEN
7449: x_clev_rec.last_update_date := l_clev_rec.last_update_date;
7450: END IF;
7451: IF (x_clev_rec.price_type = OKC_API.G_MISS_CHAR)
7447: IF (x_clev_rec.last_update_date = OKC_API.G_MISS_DATE)
7448: THEN
7449: x_clev_rec.last_update_date := l_clev_rec.last_update_date;
7450: END IF;
7451: IF (x_clev_rec.price_type = OKC_API.G_MISS_CHAR)
7452: THEN
7453: x_clev_rec.price_type := l_clev_rec.price_type;
7454: END IF;
7455: IF (x_clev_rec.currency_code = OKC_API.G_MISS_CHAR)
7451: IF (x_clev_rec.price_type = OKC_API.G_MISS_CHAR)
7452: THEN
7453: x_clev_rec.price_type := l_clev_rec.price_type;
7454: END IF;
7455: IF (x_clev_rec.currency_code = OKC_API.G_MISS_CHAR)
7456: THEN
7457: x_clev_rec.currency_code := l_clev_rec.currency_code;
7458: END IF;
7459: IF (x_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7455: IF (x_clev_rec.currency_code = OKC_API.G_MISS_CHAR)
7456: THEN
7457: x_clev_rec.currency_code := l_clev_rec.currency_code;
7458: END IF;
7459: IF (x_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7460: THEN
7461: x_clev_rec.currency_code_renewed := l_clev_rec.currency_code_renewed;
7462: END IF;
7463: IF (x_clev_rec.last_update_login = OKC_API.G_MISS_NUM)
7459: IF (x_clev_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7460: THEN
7461: x_clev_rec.currency_code_renewed := l_clev_rec.currency_code_renewed;
7462: END IF;
7463: IF (x_clev_rec.last_update_login = OKC_API.G_MISS_NUM)
7464: THEN
7465: x_clev_rec.last_update_login := l_clev_rec.last_update_login;
7466: END IF;
7467: IF (x_clev_rec.service_item_yn = OKC_API.G_MISS_CHAR)
7463: IF (x_clev_rec.last_update_login = OKC_API.G_MISS_NUM)
7464: THEN
7465: x_clev_rec.last_update_login := l_clev_rec.last_update_login;
7466: END IF;
7467: IF (x_clev_rec.service_item_yn = OKC_API.G_MISS_CHAR)
7468: THEN
7469: x_clev_rec.service_item_yn := l_clev_rec.service_item_yn;
7470: END IF;
7471: --new columns for price hold
7468: THEN
7469: x_clev_rec.service_item_yn := l_clev_rec.service_item_yn;
7470: END IF;
7471: --new columns for price hold
7472: IF (x_clev_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
7473: x_clev_rec.ph_pricing_type := l_clev_rec.ph_pricing_type;
7474: END IF;
7475: IF (x_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
7476: x_clev_rec.ph_price_break_basis := l_clev_rec.ph_price_break_basis;
7471: --new columns for price hold
7472: IF (x_clev_rec.ph_pricing_type = OKC_API.G_MISS_CHAR) THEN
7473: x_clev_rec.ph_pricing_type := l_clev_rec.ph_pricing_type;
7474: END IF;
7475: IF (x_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
7476: x_clev_rec.ph_price_break_basis := l_clev_rec.ph_price_break_basis;
7477: END IF;
7478: IF (x_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
7479: x_clev_rec.ph_min_qty := l_clev_rec.ph_min_qty;
7474: END IF;
7475: IF (x_clev_rec.ph_price_break_basis = OKC_API.G_MISS_CHAR) THEN
7476: x_clev_rec.ph_price_break_basis := l_clev_rec.ph_price_break_basis;
7477: END IF;
7478: IF (x_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
7479: x_clev_rec.ph_min_qty := l_clev_rec.ph_min_qty;
7480: END IF;
7481: IF (x_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
7482: x_clev_rec.ph_min_amt := l_clev_rec.ph_min_amt;
7477: END IF;
7478: IF (x_clev_rec.ph_min_qty = OKC_API.G_MISS_NUM) THEN
7479: x_clev_rec.ph_min_qty := l_clev_rec.ph_min_qty;
7480: END IF;
7481: IF (x_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
7482: x_clev_rec.ph_min_amt := l_clev_rec.ph_min_amt;
7483: END IF;
7484: IF (x_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
7485: x_clev_rec.ph_qp_reference_id := l_clev_rec.ph_qp_reference_id;
7480: END IF;
7481: IF (x_clev_rec.ph_min_amt = OKC_API.G_MISS_NUM) THEN
7482: x_clev_rec.ph_min_amt := l_clev_rec.ph_min_amt;
7483: END IF;
7484: IF (x_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
7485: x_clev_rec.ph_qp_reference_id := l_clev_rec.ph_qp_reference_id;
7486: END IF;
7487: IF (x_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
7488: x_clev_rec.ph_value := l_clev_rec.ph_value;
7483: END IF;
7484: IF (x_clev_rec.ph_qp_reference_id = OKC_API.G_MISS_NUM) THEN
7485: x_clev_rec.ph_qp_reference_id := l_clev_rec.ph_qp_reference_id;
7486: END IF;
7487: IF (x_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
7488: x_clev_rec.ph_value := l_clev_rec.ph_value;
7489: END IF;
7490: IF (x_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
7491: x_clev_rec.ph_enforce_price_list_yn := l_clev_rec.ph_enforce_price_list_yn;
7486: END IF;
7487: IF (x_clev_rec.ph_value = OKC_API.G_MISS_NUM) THEN
7488: x_clev_rec.ph_value := l_clev_rec.ph_value;
7489: END IF;
7490: IF (x_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
7491: x_clev_rec.ph_enforce_price_list_yn := l_clev_rec.ph_enforce_price_list_yn;
7492: END IF;
7493: IF (x_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
7494: x_clev_rec.ph_adjustment := l_clev_rec.ph_adjustment;
7489: END IF;
7490: IF (x_clev_rec.ph_enforce_price_list_yn = OKC_API.G_MISS_CHAR) THEN
7491: x_clev_rec.ph_enforce_price_list_yn := l_clev_rec.ph_enforce_price_list_yn;
7492: END IF;
7493: IF (x_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
7494: x_clev_rec.ph_adjustment := l_clev_rec.ph_adjustment;
7495: END IF;
7496: IF (x_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
7497: x_clev_rec.ph_integrated_with_qp := l_clev_rec.ph_integrated_with_qp;
7492: END IF;
7493: IF (x_clev_rec.ph_adjustment = OKC_API.G_MISS_NUM) THEN
7494: x_clev_rec.ph_adjustment := l_clev_rec.ph_adjustment;
7495: END IF;
7496: IF (x_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
7497: x_clev_rec.ph_integrated_with_qp := l_clev_rec.ph_integrated_with_qp;
7498: END IF;
7499: -- new columns to replace rules
7500: IF (x_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7496: IF (x_clev_rec.ph_integrated_with_qp = OKC_API.G_MISS_CHAR) THEN
7497: x_clev_rec.ph_integrated_with_qp := l_clev_rec.ph_integrated_with_qp;
7498: END IF;
7499: -- new columns to replace rules
7500: IF (x_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7501: x_clev_rec.cust_acct_id := l_clev_rec.cust_acct_id;
7502: END IF;
7503: IF (x_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7504: x_clev_rec.bill_to_site_use_id := l_clev_rec.bill_to_site_use_id;
7499: -- new columns to replace rules
7500: IF (x_clev_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7501: x_clev_rec.cust_acct_id := l_clev_rec.cust_acct_id;
7502: END IF;
7503: IF (x_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7504: x_clev_rec.bill_to_site_use_id := l_clev_rec.bill_to_site_use_id;
7505: END IF;
7506: IF (x_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7507: x_clev_rec.inv_rule_id := l_clev_rec.inv_rule_id;
7502: END IF;
7503: IF (x_clev_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7504: x_clev_rec.bill_to_site_use_id := l_clev_rec.bill_to_site_use_id;
7505: END IF;
7506: IF (x_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7507: x_clev_rec.inv_rule_id := l_clev_rec.inv_rule_id;
7508: END IF;
7509: IF (x_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7510: x_clev_rec.line_renewal_type_code := l_clev_rec.line_renewal_type_code;
7505: END IF;
7506: IF (x_clev_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7507: x_clev_rec.inv_rule_id := l_clev_rec.inv_rule_id;
7508: END IF;
7509: IF (x_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7510: x_clev_rec.line_renewal_type_code := l_clev_rec.line_renewal_type_code;
7511: END IF;
7512: IF (x_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7513: x_clev_rec.ship_to_site_use_id := l_clev_rec.ship_to_site_use_id;
7508: END IF;
7509: IF (x_clev_rec.line_renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7510: x_clev_rec.line_renewal_type_code := l_clev_rec.line_renewal_type_code;
7511: END IF;
7512: IF (x_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7513: x_clev_rec.ship_to_site_use_id := l_clev_rec.ship_to_site_use_id;
7514: END IF;
7515: IF (x_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7516: x_clev_rec.payment_term_id := l_clev_rec.payment_term_id;
7511: END IF;
7512: IF (x_clev_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7513: x_clev_rec.ship_to_site_use_id := l_clev_rec.ship_to_site_use_id;
7514: END IF;
7515: IF (x_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7516: x_clev_rec.payment_term_id := l_clev_rec.payment_term_id;
7517: END IF;
7518: ---- line Level Cancellation ---
7519: IF (x_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
7515: IF (x_clev_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7516: x_clev_rec.payment_term_id := l_clev_rec.payment_term_id;
7517: END IF;
7518: ---- line Level Cancellation ---
7519: IF (x_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
7520: x_clev_rec.date_cancelled := l_clev_rec.date_cancelled;
7521: END IF;
7522: /*IF (x_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
7523: x_clev_rec.canc_reason_code := l_clev_rec.canc_reason_code;
7518: ---- line Level Cancellation ---
7519: IF (x_clev_rec.date_cancelled = OKC_API.G_MISS_DATE) THEN
7520: x_clev_rec.date_cancelled := l_clev_rec.date_cancelled;
7521: END IF;
7522: /*IF (x_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
7523: x_clev_rec.canc_reason_code := l_clev_rec.canc_reason_code;
7524: END IF;*/
7525: IF (x_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7526: x_clev_rec.term_cancel_source := l_clev_rec.term_cancel_source;
7521: END IF;
7522: /*IF (x_clev_rec.canc_reason_code = OKC_API.G_MISS_CHAR) THEN
7523: x_clev_rec.canc_reason_code := l_clev_rec.canc_reason_code;
7524: END IF;*/
7525: IF (x_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7526: x_clev_rec.term_cancel_source := l_clev_rec.term_cancel_source;
7527: END IF;
7528: IF (x_clev_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7529: x_clev_rec.cancelled_amount := l_clev_rec.cancelled_amount;
7524: END IF;*/
7525: IF (x_clev_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7526: x_clev_rec.term_cancel_source := l_clev_rec.term_cancel_source;
7527: END IF;
7528: IF (x_clev_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7529: x_clev_rec.cancelled_amount := l_clev_rec.cancelled_amount;
7530: END IF;
7531:
7532: ---- added by mchoudha 22-JUL ---
7529: x_clev_rec.cancelled_amount := l_clev_rec.cancelled_amount;
7530: END IF;
7531:
7532: ---- added by mchoudha 22-JUL ---
7533: IF (x_clev_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7534: x_clev_rec.payment_instruction_type := l_clev_rec.payment_instruction_type;
7535: END IF;
7536:
7537:
7549: FUNCTION Set_Attributes (
7550: p_clev IN clev_rec_type,
7551: x_clev_rec OUT NOCOPY clev_rec_type
7552: ) RETURN VARCHAR2 IS
7553: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7554: BEGIN
7555:
7556: x_clev_rec := p_clev_rec;
7557: x_clev_rec.OBJECT_VERSION_NUMBER := NVL(x_clev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
7576: okc_debug.Set_Indentation('OKC_CLE_PVT');
7577: okc_debug.log('20000: Entered update_row', 2);
7578: END IF;
7579:
7580: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7581:
7582:
7583: G_PKG_NAME,
7584: p_init_msg_list,
7586: p_api_version,
7587: '_PVT',
7588: x_return_status);
7589:
7590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7593: RAISE OKC_API.G_EXCEPTION_ERROR;
7594: END IF;
7587: '_PVT',
7588: x_return_status);
7589:
7590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7593: RAISE OKC_API.G_EXCEPTION_ERROR;
7594: END IF;
7595: --- Setting item attributes
7588: x_return_status);
7589:
7590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7593: RAISE OKC_API.G_EXCEPTION_ERROR;
7594: END IF;
7595: --- Setting item attributes
7596: l_return_status := Set_Attributes(
7589:
7590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7593: RAISE OKC_API.G_EXCEPTION_ERROR;
7594: END IF;
7595: --- Setting item attributes
7596: l_return_status := Set_Attributes(
7597: p_clev_rec, -- IN
7596: l_return_status := Set_Attributes(
7597: p_clev_rec, -- IN
7598: l_clev_rec); -- OUT
7599: --- If any errors happen abort API
7600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7597: p_clev_rec, -- IN
7598: l_clev_rec); -- OUT
7599: --- If any errors happen abort API
7600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7598: l_clev_rec); -- OUT
7599: --- If any errors happen abort API
7600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7599: --- If any errors happen abort API
7600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7609: RAISE OKC_API.G_EXCEPTION_ERROR;
7610: END IF;
7603: RAISE OKC_API.G_EXCEPTION_ERROR;
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7609: RAISE OKC_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: l_def_clev_rec := fill_who_columns(l_def_clev_rec);
7604: END IF;
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7609: RAISE OKC_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: l_def_clev_rec := fill_who_columns(l_def_clev_rec);
7612:
7605: l_return_status := populate_new_record(l_clev_rec, l_def_clev_rec);
7606: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7609: RAISE OKC_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: l_def_clev_rec := fill_who_columns(l_def_clev_rec);
7612:
7613: IF p_clev_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
7618: End If;
7619: END IF; ---Bug#3150149.
7620:
7621: --- If any errors happen abort API
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7619: END IF; ---Bug#3150149.
7620:
7621: --- If any errors happen abort API
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7620:
7621: --- If any errors happen abort API
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7621: --- If any errors happen abort API
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7631: RAISE OKC_API.G_EXCEPTION_ERROR;
7632: END IF;
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7631: RAISE OKC_API.G_EXCEPTION_ERROR;
7632: END IF;
7633:
7626: END IF;
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7631: RAISE OKC_API.G_EXCEPTION_ERROR;
7632: END IF;
7633:
7634: --------------------------------------
7627: l_return_status := Validate_Record(l_def_clev_rec);
7628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7631: RAISE OKC_API.G_EXCEPTION_ERROR;
7632: END IF;
7633:
7634: --------------------------------------
7635: -- Move VIEW record to "Child" records
7646: x_msg_data,
7647: l_okc_k_lines_tl_rec,
7648: lx_okc_k_lines_tl_rec
7649: );
7650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7653: RAISE OKC_API.G_EXCEPTION_ERROR;
7654: END IF;
7647: l_okc_k_lines_tl_rec,
7648: lx_okc_k_lines_tl_rec
7649: );
7650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7653: RAISE OKC_API.G_EXCEPTION_ERROR;
7654: END IF;
7655: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
7648: lx_okc_k_lines_tl_rec
7649: );
7650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7653: RAISE OKC_API.G_EXCEPTION_ERROR;
7654: END IF;
7655: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
7656: update_row(
7649: );
7650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7653: RAISE OKC_API.G_EXCEPTION_ERROR;
7654: END IF;
7655: migrate(lx_okc_k_lines_tl_rec, l_def_clev_rec);
7656: update_row(
7657: p_init_msg_list,
7661: p_restricted_update,
7662: l_cle_rec,
7663: lx_cle_rec
7664: );
7665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7668: RAISE OKC_API.G_EXCEPTION_ERROR;
7669: END IF;
7662: l_cle_rec,
7663: lx_cle_rec
7664: );
7665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7668: RAISE OKC_API.G_EXCEPTION_ERROR;
7669: END IF;
7670: migrate(lx_cle_rec, l_def_clev_rec);
7663: lx_cle_rec
7664: );
7665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7668: RAISE OKC_API.G_EXCEPTION_ERROR;
7669: END IF;
7670: migrate(lx_cle_rec, l_def_clev_rec);
7671: x_clev_rec := l_def_clev_rec;
7664: );
7665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7668: RAISE OKC_API.G_EXCEPTION_ERROR;
7669: END IF;
7670: migrate(lx_cle_rec, l_def_clev_rec);
7671: x_clev_rec := l_def_clev_rec;
7672: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7668: RAISE OKC_API.G_EXCEPTION_ERROR;
7669: END IF;
7670: migrate(lx_cle_rec, l_def_clev_rec);
7671: x_clev_rec := l_def_clev_rec;
7672: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7673:
7674: IF (l_debug = 'Y') THEN
7675: okc_debug.log('20100: Exiting update_row', 2);
7676: okc_debug.Reset_Indentation;
7676: okc_debug.Reset_Indentation;
7677: END IF;
7678:
7679: EXCEPTION
7680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7681:
7682: IF (l_debug = 'Y') THEN
7683: okc_debug.log('20200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7684: okc_debug.Reset_Indentation;
7679: EXCEPTION
7680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7681:
7682: IF (l_debug = 'Y') THEN
7683: okc_debug.log('20200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7684: okc_debug.Reset_Indentation;
7685: END IF;
7686:
7687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7683: okc_debug.log('20200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7684: okc_debug.Reset_Indentation;
7685: END IF;
7686:
7687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7688: (
7689: l_api_name,
7690: G_PKG_NAME,
7691: 'OKC_API.G_RET_STS_ERROR',
7687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7688: (
7689: l_api_name,
7690: G_PKG_NAME,
7691: 'OKC_API.G_RET_STS_ERROR',
7692: x_msg_count,
7693: x_msg_data,
7694: '_PVT'
7695: );
7692: x_msg_count,
7693: x_msg_data,
7694: '_PVT'
7695: );
7696: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7697:
7698: IF (l_debug = 'Y') THEN
7699: okc_debug.log('20300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7700: okc_debug.Reset_Indentation;
7695: );
7696: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7697:
7698: IF (l_debug = 'Y') THEN
7699: okc_debug.log('20300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7700: okc_debug.Reset_Indentation;
7701: END IF;
7702:
7703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7699: okc_debug.log('20300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7700: okc_debug.Reset_Indentation;
7701: END IF;
7702:
7703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7704: (
7705: l_api_name,
7706: G_PKG_NAME,
7707: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7704: (
7705: l_api_name,
7706: G_PKG_NAME,
7707: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7708: x_msg_count,
7709: x_msg_data,
7710: '_PVT'
7711: );
7715: okc_debug.log('20400: Exiting update_row:OTHERS Exception', 2);
7716: okc_debug.Reset_Indentation;
7717: END IF;
7718:
7719: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7720: (
7721: l_api_name,
7722: G_PKG_NAME,
7723: 'OTHERS',
7741: x_clev_tbl OUT NOCOPY clev_tbl_type) IS
7742:
7743: l_api_version CONSTANT NUMBER := 1;
7744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7746: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7747: i NUMBER := 0;
7748: BEGIN
7749:
7742:
7743: l_api_version CONSTANT NUMBER := 1;
7744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7746: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7747: i NUMBER := 0;
7748: BEGIN
7749:
7750: IF (l_debug = 'Y') THEN
7751: okc_debug.Set_Indentation('OKC_CLE_PVT');
7752: okc_debug.log('20500: Entered update_row', 2);
7753: END IF;
7754:
7755: OKC_API.init_msg_list(p_init_msg_list);
7756: -- Make sure PL/SQL table has records in it before passing
7757: IF (p_clev_tbl.COUNT > 0) THEN
7758: i := p_clev_tbl.FIRST;
7759: LOOP
7758: i := p_clev_tbl.FIRST;
7759: LOOP
7760: update_row (
7761: p_api_version => p_api_version,
7762: p_init_msg_list => OKC_API.G_FALSE,
7763: x_return_status => x_return_status,
7764: x_msg_count => x_msg_count,
7765: x_msg_data => x_msg_data,
7766: p_restricted_update => p_restricted_update,
7767: p_clev_rec => p_clev_tbl(i),
7768: x_clev_rec => x_clev_tbl(i));
7769:
7770: -- store the highest degree of error
7771: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
7772: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
7773: l_overall_status := x_return_status;
7774: End If;
7775: End If;
7768: x_clev_rec => x_clev_tbl(i));
7769:
7770: -- store the highest degree of error
7771: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
7772: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
7773: l_overall_status := x_return_status;
7774: End If;
7775: End If;
7776:
7786: okc_debug.Reset_Indentation;
7787: END IF;
7788:
7789: EXCEPTION
7790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7791:
7792: IF (l_debug = 'Y') THEN
7793: okc_debug.log('20700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7794: okc_debug.Reset_Indentation;
7789: EXCEPTION
7790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7791:
7792: IF (l_debug = 'Y') THEN
7793: okc_debug.log('20700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7794: okc_debug.Reset_Indentation;
7795: END IF;
7796:
7797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7793: okc_debug.log('20700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7794: okc_debug.Reset_Indentation;
7795: END IF;
7796:
7797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7798: (
7799: l_api_name,
7800: G_PKG_NAME,
7801: 'OKC_API.G_RET_STS_ERROR',
7797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7798: (
7799: l_api_name,
7800: G_PKG_NAME,
7801: 'OKC_API.G_RET_STS_ERROR',
7802: x_msg_count,
7803: x_msg_data,
7804: '_PVT'
7805: );
7802: x_msg_count,
7803: x_msg_data,
7804: '_PVT'
7805: );
7806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7807:
7808: IF (l_debug = 'Y') THEN
7809: okc_debug.log('20800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7810: okc_debug.Reset_Indentation;
7805: );
7806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7807:
7808: IF (l_debug = 'Y') THEN
7809: okc_debug.log('20800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7810: okc_debug.Reset_Indentation;
7811: END IF;
7812:
7813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7809: okc_debug.log('20800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7810: okc_debug.Reset_Indentation;
7811: END IF;
7812:
7813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7814: (
7815: l_api_name,
7816: G_PKG_NAME,
7817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7814: (
7815: l_api_name,
7816: G_PKG_NAME,
7817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7818: x_msg_count,
7819: x_msg_data,
7820: '_PVT'
7821: );
7825: okc_debug.log('20900: Exiting update_row:OTHERS Exception', 2);
7826: okc_debug.Reset_Indentation;
7827: END IF;
7828:
7829: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7830: (
7831: l_api_name,
7832: G_PKG_NAME,
7833: 'OTHERS',
7852: p_cle_rec IN cle_rec_type) IS
7853:
7854: l_api_version CONSTANT NUMBER := 1;
7855: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
7856: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7857: l_cle_rec cle_rec_type:= p_cle_rec;
7858: l_row_notfound BOOLEAN := TRUE;
7859: BEGIN
7860:
7862: okc_debug.Set_Indentation('OKC_CLE_PVT');
7863: okc_debug.log('21000: Entered delete_row', 2);
7864: END IF;
7865:
7866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7867: p_init_msg_list,
7868: '_PVT',
7869: x_return_status);
7870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7867: p_init_msg_list,
7868: '_PVT',
7869: x_return_status);
7870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7873: RAISE OKC_API.G_EXCEPTION_ERROR;
7874: END IF;
7867: p_init_msg_list,
7868: '_PVT',
7869: x_return_status);
7870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7873: RAISE OKC_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: DELETE FROM OKC_K_LINES_B
7868: '_PVT',
7869: x_return_status);
7870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7873: RAISE OKC_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: DELETE FROM OKC_K_LINES_B
7876: WHERE ID = l_cle_rec.id;
7869: x_return_status);
7870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7873: RAISE OKC_API.G_EXCEPTION_ERROR;
7874: END IF;
7875: DELETE FROM OKC_K_LINES_B
7876: WHERE ID = l_cle_rec.id;
7877:
7874: END IF;
7875: DELETE FROM OKC_K_LINES_B
7876: WHERE ID = l_cle_rec.id;
7877:
7878: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7879:
7880: IF (l_debug = 'Y') THEN
7881: okc_debug.log('21100: Leaving delete_row', 2);
7882: okc_debug.Reset_Indentation;
7882: okc_debug.Reset_Indentation;
7883: END IF;
7884:
7885: EXCEPTION
7886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7887:
7888: IF (l_debug = 'Y') THEN
7889: okc_debug.log('21200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7890: okc_debug.Reset_Indentation;
7885: EXCEPTION
7886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7887:
7888: IF (l_debug = 'Y') THEN
7889: okc_debug.log('21200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7890: okc_debug.Reset_Indentation;
7891: END IF;
7892:
7893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7889: okc_debug.log('21200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7890: okc_debug.Reset_Indentation;
7891: END IF;
7892:
7893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7894: (
7895: l_api_name,
7896: G_PKG_NAME,
7897: 'OKC_API.G_RET_STS_ERROR',
7893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7894: (
7895: l_api_name,
7896: G_PKG_NAME,
7897: 'OKC_API.G_RET_STS_ERROR',
7898: x_msg_count,
7899: x_msg_data,
7900: '_PVT'
7901: );
7898: x_msg_count,
7899: x_msg_data,
7900: '_PVT'
7901: );
7902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7903:
7904: IF (l_debug = 'Y') THEN
7905: okc_debug.log('21300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7906: okc_debug.Reset_Indentation;
7901: );
7902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7903:
7904: IF (l_debug = 'Y') THEN
7905: okc_debug.log('21300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7906: okc_debug.Reset_Indentation;
7907: END IF;
7908:
7909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7905: okc_debug.log('21300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7906: okc_debug.Reset_Indentation;
7907: END IF;
7908:
7909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7910: (
7911: l_api_name,
7912: G_PKG_NAME,
7913: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7910: (
7911: l_api_name,
7912: G_PKG_NAME,
7913: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7914: x_msg_count,
7915: x_msg_data,
7916: '_PVT'
7917: );
7921: okc_debug.log('21400: Exiting delete_row:OTHERS Exception', 2);
7922: okc_debug.Reset_Indentation;
7923: END IF;
7924:
7925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7926: (
7927: l_api_name,
7928: G_PKG_NAME,
7929: 'OTHERS',
7944: p_okc_k_lines_tl_rec IN okc_k_lines_tl_rec_type) IS
7945:
7946: l_api_version CONSTANT NUMBER := 1;
7947: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
7948: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7949: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type:= p_okc_k_lines_tl_rec;
7950: l_row_notfound BOOLEAN := TRUE;
7951: ---------------------------------------
7952: -- Set_Attributes for:OKC_K_LINES_TL --
7954: FUNCTION Set_Attributes (
7955: p_okc_k_lines_tl_rec IN okc_k_lines_tl_rec_type,
7956: x_okc_k_lines_tl_rec OUT NOCOPY okc_k_lines_tl_rec_type
7957: ) RETURN VARCHAR2 IS
7958: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7959: BEGIN
7960:
7961: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
7962: x_okc_k_lines_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
7969: okc_debug.Set_Indentation('OKC_CLE_PVT');
7970: okc_debug.log('21600: Entered delete_row', 2);
7971: END IF;
7972:
7973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7974: p_init_msg_list,
7975: '_PVT',
7976: x_return_status);
7977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7974: p_init_msg_list,
7975: '_PVT',
7976: x_return_status);
7977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7980: RAISE OKC_API.G_EXCEPTION_ERROR;
7981: END IF;
7974: p_init_msg_list,
7975: '_PVT',
7976: x_return_status);
7977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7980: RAISE OKC_API.G_EXCEPTION_ERROR;
7981: END IF;
7982: --- Setting item attributes
7975: '_PVT',
7976: x_return_status);
7977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7980: RAISE OKC_API.G_EXCEPTION_ERROR;
7981: END IF;
7982: --- Setting item attributes
7983: l_return_status := Set_Attributes(
7976: x_return_status);
7977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7980: RAISE OKC_API.G_EXCEPTION_ERROR;
7981: END IF;
7982: --- Setting item attributes
7983: l_return_status := Set_Attributes(
7984: p_okc_k_lines_tl_rec, -- IN
7983: l_return_status := Set_Attributes(
7984: p_okc_k_lines_tl_rec, -- IN
7985: l_okc_k_lines_tl_rec); -- OUT
7986: --- If any errors happen abort API
7987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7990: RAISE OKC_API.G_EXCEPTION_ERROR;
7991: END IF;
7984: p_okc_k_lines_tl_rec, -- IN
7985: l_okc_k_lines_tl_rec); -- OUT
7986: --- If any errors happen abort API
7987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7990: RAISE OKC_API.G_EXCEPTION_ERROR;
7991: END IF;
7992: DELETE FROM OKC_K_LINES_TL
7985: l_okc_k_lines_tl_rec); -- OUT
7986: --- If any errors happen abort API
7987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7990: RAISE OKC_API.G_EXCEPTION_ERROR;
7991: END IF;
7992: DELETE FROM OKC_K_LINES_TL
7993: WHERE ID = l_okc_k_lines_tl_rec.id;
7986: --- If any errors happen abort API
7987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7990: RAISE OKC_API.G_EXCEPTION_ERROR;
7991: END IF;
7992: DELETE FROM OKC_K_LINES_TL
7993: WHERE ID = l_okc_k_lines_tl_rec.id;
7994:
7991: END IF;
7992: DELETE FROM OKC_K_LINES_TL
7993: WHERE ID = l_okc_k_lines_tl_rec.id;
7994:
7995: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7996:
7997: IF (l_debug = 'Y') THEN
7998: okc_debug.log('21700: Exiting delete_row', 2);
7999: okc_debug.Reset_Indentation;
7999: okc_debug.Reset_Indentation;
8000: END IF;
8001:
8002: EXCEPTION
8003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8004:
8005: IF (l_debug = 'Y') THEN
8006: okc_debug.log('21800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8007: okc_debug.Reset_Indentation;
8002: EXCEPTION
8003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8004:
8005: IF (l_debug = 'Y') THEN
8006: okc_debug.log('21800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8007: okc_debug.Reset_Indentation;
8008: END IF;
8009:
8010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8006: okc_debug.log('21800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8007: okc_debug.Reset_Indentation;
8008: END IF;
8009:
8010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8011: (
8012: l_api_name,
8013: G_PKG_NAME,
8014: 'OKC_API.G_RET_STS_ERROR',
8010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8011: (
8012: l_api_name,
8013: G_PKG_NAME,
8014: 'OKC_API.G_RET_STS_ERROR',
8015: x_msg_count,
8016: x_msg_data,
8017: '_PVT'
8018: );
8015: x_msg_count,
8016: x_msg_data,
8017: '_PVT'
8018: );
8019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8020:
8021: IF (l_debug = 'Y') THEN
8022: okc_debug.log('21900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8023: okc_debug.Reset_Indentation;
8018: );
8019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8020:
8021: IF (l_debug = 'Y') THEN
8022: okc_debug.log('21900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8023: okc_debug.Reset_Indentation;
8024: END IF;
8025:
8026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8022: okc_debug.log('21900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8023: okc_debug.Reset_Indentation;
8024: END IF;
8025:
8026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8027: (
8028: l_api_name,
8029: G_PKG_NAME,
8030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8027: (
8028: l_api_name,
8029: G_PKG_NAME,
8030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8031: x_msg_count,
8032: x_msg_data,
8033: '_PVT'
8034: );
8038: okc_debug.log('22000: Exiting delete_row:OTHERS Exception', 2);
8039: okc_debug.Reset_Indentation;
8040: END IF;
8041:
8042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8043: (
8044: l_api_name,
8045: G_PKG_NAME,
8046: 'OTHERS',
8062: p_clev_rec IN clev_rec_type) IS
8063:
8064: l_api_version CONSTANT NUMBER := 1;
8065: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
8066: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8067: l_clev_rec clev_rec_type := p_clev_rec;
8068: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
8069: l_cle_rec cle_rec_type;
8070: l_olev_rec OKC_OPER_INST_PUB.olev_rec_type;
8125: Close ste_csr;
8126:
8127: If (l_ste_code not in ('ENTERED' , 'CANCELLED') ) Then
8128:
8129: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
8130: p_msg_name => 'OKC_CANNOT_DELETE_LINE');
8131:
8132: -- notify caller of an error
8133: x_return_status := OKC_API.G_RET_STS_ERROR;
8129: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
8130: p_msg_name => 'OKC_CANNOT_DELETE_LINE');
8131:
8132: -- notify caller of an error
8133: x_return_status := OKC_API.G_RET_STS_ERROR;
8134:
8135: return ;
8136:
8137: End If;
8135: return ;
8136:
8137: End If;
8138:
8139: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8140: G_PKG_NAME,
8141: p_init_msg_list,
8142: l_api_version,
8143: p_api_version,
8142: l_api_version,
8143: p_api_version,
8144: '_PVT',
8145: x_return_status);
8146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8149: RAISE OKC_API.G_EXCEPTION_ERROR;
8150: END IF;
8143: p_api_version,
8144: '_PVT',
8145: x_return_status);
8146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8149: RAISE OKC_API.G_EXCEPTION_ERROR;
8150: END IF;
8151:
8144: '_PVT',
8145: x_return_status);
8146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8149: RAISE OKC_API.G_EXCEPTION_ERROR;
8150: END IF;
8151:
8152: --------------------------------------
8145: x_return_status);
8146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8149: RAISE OKC_API.G_EXCEPTION_ERROR;
8150: END IF;
8151:
8152: --------------------------------------
8153: -- Move VIEW record to "Child" records
8164: x_msg_count,
8165: x_msg_data,
8166: l_okc_k_lines_tl_rec
8167: );
8168: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8170: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8171: RAISE OKC_API.G_EXCEPTION_ERROR;
8172: END IF;
8165: x_msg_data,
8166: l_okc_k_lines_tl_rec
8167: );
8168: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8170: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8171: RAISE OKC_API.G_EXCEPTION_ERROR;
8172: END IF;
8173: delete_row(
8166: l_okc_k_lines_tl_rec
8167: );
8168: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8170: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8171: RAISE OKC_API.G_EXCEPTION_ERROR;
8172: END IF;
8173: delete_row(
8174: p_init_msg_list,
8167: );
8168: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8170: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8171: RAISE OKC_API.G_EXCEPTION_ERROR;
8172: END IF;
8173: delete_row(
8174: p_init_msg_list,
8175: x_return_status,
8176: x_msg_count,
8177: x_msg_data,
8178: l_cle_rec
8179: );
8180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8183: RAISE OKC_API.G_EXCEPTION_ERROR;
8184: END IF;
8177: x_msg_data,
8178: l_cle_rec
8179: );
8180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8183: RAISE OKC_API.G_EXCEPTION_ERROR;
8184: END IF;
8185:
8178: l_cle_rec
8179: );
8180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8183: RAISE OKC_API.G_EXCEPTION_ERROR;
8184: END IF;
8185:
8186: -- delete all renewal links from operation lines
8179: );
8180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8183: RAISE OKC_API.G_EXCEPTION_ERROR;
8184: END IF;
8185:
8186: -- delete all renewal links from operation lines
8187: -- for the current line as subject line
8263: p_olev_rec => l_olev_rec,
8264: x_olev_rec => x_olev_rec);
8265: End If;
8266:
8267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8270: RAISE OKC_API.G_EXCEPTION_ERROR;
8271: END IF;
8264: x_olev_rec => x_olev_rec);
8265: End If;
8266:
8267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8270: RAISE OKC_API.G_EXCEPTION_ERROR;
8271: END IF;
8272: END LOOP;
8265: End If;
8266:
8267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8270: RAISE OKC_API.G_EXCEPTION_ERROR;
8271: END IF;
8272: END LOOP;
8273:
8266:
8267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8268: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8270: RAISE OKC_API.G_EXCEPTION_ERROR;
8271: END IF;
8272: END LOOP;
8273:
8274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8270: RAISE OKC_API.G_EXCEPTION_ERROR;
8271: END IF;
8272: END LOOP;
8273:
8274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8275:
8276: IF (l_debug = 'Y') THEN
8277: okc_debug.log('22200: Exiting delete_row', 2);
8278: okc_debug.Reset_Indentation;
8278: okc_debug.Reset_Indentation;
8279: END IF;
8280:
8281: EXCEPTION
8282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8283:
8284: IF (l_debug = 'Y') THEN
8285: okc_debug.log('22300: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8286: okc_debug.Reset_Indentation;
8281: EXCEPTION
8282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8283:
8284: IF (l_debug = 'Y') THEN
8285: okc_debug.log('22300: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8286: okc_debug.Reset_Indentation;
8287: END IF;
8288:
8289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8285: okc_debug.log('22300: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8286: okc_debug.Reset_Indentation;
8287: END IF;
8288:
8289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8290: (
8291: l_api_name,
8292: G_PKG_NAME,
8293: 'OKC_API.G_RET_STS_ERROR',
8289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8290: (
8291: l_api_name,
8292: G_PKG_NAME,
8293: 'OKC_API.G_RET_STS_ERROR',
8294: x_msg_count,
8295: x_msg_data,
8296: '_PVT'
8297: );
8294: x_msg_count,
8295: x_msg_data,
8296: '_PVT'
8297: );
8298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8299:
8300: IF (l_debug = 'Y') THEN
8301: okc_debug.log('22400: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8302: okc_debug.Reset_Indentation;
8297: );
8298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8299:
8300: IF (l_debug = 'Y') THEN
8301: okc_debug.log('22400: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8302: okc_debug.Reset_Indentation;
8303: END IF;
8304:
8305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8301: okc_debug.log('22400: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8302: okc_debug.Reset_Indentation;
8303: END IF;
8304:
8305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8306: (
8307: l_api_name,
8308: G_PKG_NAME,
8309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8306: (
8307: l_api_name,
8308: G_PKG_NAME,
8309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8310: x_msg_count,
8311: x_msg_data,
8312: '_PVT'
8313: );
8317: okc_debug.log('22500: Exiting delete_row:OTHERS Exception', 2);
8318: okc_debug.Reset_Indentation;
8319: END IF;
8320:
8321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8322: (
8323: l_api_name,
8324: G_PKG_NAME,
8325: 'OTHERS',
8341: p_clev_tbl IN clev_tbl_type) IS
8342:
8343: l_api_version CONSTANT NUMBER := 1;
8344: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8345: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8346: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8347: i NUMBER := 0;
8348: BEGIN
8349:
8342:
8343: l_api_version CONSTANT NUMBER := 1;
8344: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8345: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8346: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8347: i NUMBER := 0;
8348: BEGIN
8349:
8350: IF (l_debug = 'Y') THEN
8351: okc_debug.Set_Indentation('OKC_CLE_PVT');
8352: okc_debug.log('22600: Entered delete_row', 2);
8353: END IF;
8354:
8355: OKC_API.init_msg_list(p_init_msg_list);
8356: -- Make sure PL/SQL table has records in it before passing
8357: IF (p_clev_tbl.COUNT > 0) THEN
8358: i := p_clev_tbl.FIRST;
8359: LOOP
8358: i := p_clev_tbl.FIRST;
8359: LOOP
8360: delete_row (
8361: p_api_version => p_api_version,
8362: p_init_msg_list => OKC_API.G_FALSE,
8363: x_return_status => x_return_status,
8364: x_msg_count => x_msg_count,
8365: x_msg_data => x_msg_data,
8366: p_clev_rec => p_clev_tbl(i));
8365: x_msg_data => x_msg_data,
8366: p_clev_rec => p_clev_tbl(i));
8367:
8368: -- store the highest degree of error
8369: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
8370: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
8371: l_overall_status := x_return_status;
8372: End If;
8373: End If;
8366: p_clev_rec => p_clev_tbl(i));
8367:
8368: -- store the highest degree of error
8369: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
8370: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
8371: l_overall_status := x_return_status;
8372: End If;
8373: End If;
8374:
8384: okc_debug.Reset_Indentation;
8385: END IF;
8386:
8387: EXCEPTION
8388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8389:
8390: IF (l_debug = 'Y') THEN
8391: okc_debug.log('22800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8392: okc_debug.Reset_Indentation;
8387: EXCEPTION
8388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8389:
8390: IF (l_debug = 'Y') THEN
8391: okc_debug.log('22800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8392: okc_debug.Reset_Indentation;
8393: END IF;
8394:
8395: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8391: okc_debug.log('22800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8392: okc_debug.Reset_Indentation;
8393: END IF;
8394:
8395: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8396: (
8397: l_api_name,
8398: G_PKG_NAME,
8399: 'OKC_API.G_RET_STS_ERROR',
8395: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8396: (
8397: l_api_name,
8398: G_PKG_NAME,
8399: 'OKC_API.G_RET_STS_ERROR',
8400: x_msg_count,
8401: x_msg_data,
8402: '_PVT'
8403: );
8400: x_msg_count,
8401: x_msg_data,
8402: '_PVT'
8403: );
8404: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8405:
8406: IF (l_debug = 'Y') THEN
8407: okc_debug.log('22900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8408: okc_debug.Reset_Indentation;
8403: );
8404: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8405:
8406: IF (l_debug = 'Y') THEN
8407: okc_debug.log('22900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8408: okc_debug.Reset_Indentation;
8409: END IF;
8410:
8411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8407: okc_debug.log('22900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8408: okc_debug.Reset_Indentation;
8409: END IF;
8410:
8411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8412: (
8413: l_api_name,
8414: G_PKG_NAME,
8415: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8412: (
8413: l_api_name,
8414: G_PKG_NAME,
8415: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8416: x_msg_count,
8417: x_msg_data,
8418: '_PVT'
8419: );
8423: okc_debug.log('23000: Exiting delete_row:OTHERS Exception', 2);
8424: okc_debug.Reset_Indentation;
8425: END IF;
8426:
8427: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8428: (
8429: l_api_name,
8430: G_PKG_NAME,
8431: 'OTHERS',
8448: p_clev_rec IN clev_rec_type) IS
8449:
8450: l_api_version CONSTANT NUMBER := 1;
8451: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
8452: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8453: l_clev_rec clev_rec_type := p_clev_rec;
8454: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
8455: l_cle_rec cle_rec_type;
8456: l_olev_rec OKC_OPER_INST_PUB.olev_rec_type;
8494: x_msg_count,
8495: x_msg_data,
8496: l_okc_k_lines_tl_rec
8497: );
8498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8500: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8501: RAISE OKC_API.G_EXCEPTION_ERROR;
8502: END IF;
8495: x_msg_data,
8496: l_okc_k_lines_tl_rec
8497: );
8498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8500: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8501: RAISE OKC_API.G_EXCEPTION_ERROR;
8502: END IF;
8503: delete_row(
8496: l_okc_k_lines_tl_rec
8497: );
8498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8500: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8501: RAISE OKC_API.G_EXCEPTION_ERROR;
8502: END IF;
8503: delete_row(
8504: p_init_msg_list,
8497: );
8498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8500: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8501: RAISE OKC_API.G_EXCEPTION_ERROR;
8502: END IF;
8503: delete_row(
8504: p_init_msg_list,
8505: x_return_status,
8506: x_msg_count,
8507: x_msg_data,
8508: l_cle_rec
8509: );
8510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8513: RAISE OKC_API.G_EXCEPTION_ERROR;
8514: END IF;
8507: x_msg_data,
8508: l_cle_rec
8509: );
8510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8513: RAISE OKC_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8508: l_cle_rec
8509: );
8510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8513: RAISE OKC_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8516: -- delete all renewal links from operation lines
8509: );
8510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8513: RAISE OKC_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8516: -- delete all renewal links from operation lines
8517: -- for the current line as subject line
8569: p_olev_rec => l_olev_rec,
8570: x_olev_rec => x_olev_rec);
8571: End If;
8572:
8573: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8574: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8575: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8576: RAISE OKC_API.G_EXCEPTION_ERROR;
8577: END IF;
8570: x_olev_rec => x_olev_rec);
8571: End If;
8572:
8573: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8574: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8575: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8576: RAISE OKC_API.G_EXCEPTION_ERROR;
8577: END IF;
8578: END LOOP;
8571: End If;
8572:
8573: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8574: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8575: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8576: RAISE OKC_API.G_EXCEPTION_ERROR;
8577: END IF;
8578: END LOOP;
8579:
8572:
8573: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8574: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8575: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8576: RAISE OKC_API.G_EXCEPTION_ERROR;
8577: END IF;
8578: END LOOP;
8579:
8580: EXCEPTION
8577: END IF;
8578: END LOOP;
8579:
8580: EXCEPTION
8581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8582: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8583: (
8584: l_api_name,
8585: G_PKG_NAME,
8578: END LOOP;
8579:
8580: EXCEPTION
8581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8582: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8583: (
8584: l_api_name,
8585: G_PKG_NAME,
8586: 'OKC_API.G_RET_STS_ERROR',
8582: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8583: (
8584: l_api_name,
8585: G_PKG_NAME,
8586: 'OKC_API.G_RET_STS_ERROR',
8587: x_msg_count,
8588: x_msg_data,
8589: '_PVT'
8590: );
8587: x_msg_count,
8588: x_msg_data,
8589: '_PVT'
8590: );
8591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8592: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8593: (
8594: l_api_name,
8595: G_PKG_NAME,
8588: x_msg_data,
8589: '_PVT'
8590: );
8591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8592: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8593: (
8594: l_api_name,
8595: G_PKG_NAME,
8596: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8592: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8593: (
8594: l_api_name,
8595: G_PKG_NAME,
8596: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8597: x_msg_count,
8598: x_msg_data,
8599: '_PVT'
8600: );
8598: x_msg_data,
8599: '_PVT'
8600: );
8601: WHEN OTHERS THEN
8602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8603: (
8604: l_api_name,
8605: G_PKG_NAME,
8606: 'OTHERS',
8622: p_clev_tbl IN clev_tbl_type) IS
8623:
8624: l_api_version CONSTANT NUMBER := 1;
8625: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8626: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8627: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8628: i NUMBER := 0;
8629: BEGIN
8630: OKC_API.init_msg_list(p_init_msg_list);
8623:
8624: l_api_version CONSTANT NUMBER := 1;
8625: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8626: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8627: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8628: i NUMBER := 0;
8629: BEGIN
8630: OKC_API.init_msg_list(p_init_msg_list);
8631: -- Make sure PL/SQL table has records in it before passing
8626: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8627: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8628: i NUMBER := 0;
8629: BEGIN
8630: OKC_API.init_msg_list(p_init_msg_list);
8631: -- Make sure PL/SQL table has records in it before passing
8632: IF (p_clev_tbl.COUNT > 0) THEN
8633: i := p_clev_tbl.FIRST;
8634: LOOP
8633: i := p_clev_tbl.FIRST;
8634: LOOP
8635: force_delete_row (
8636: p_api_version => p_api_version,
8637: p_init_msg_list => OKC_API.G_FALSE,
8638: x_return_status => x_return_status,
8639: x_msg_count => x_msg_count,
8640: x_msg_data => x_msg_data,
8641: p_clev_rec => p_clev_tbl(i));
8640: x_msg_data => x_msg_data,
8641: p_clev_rec => p_clev_tbl(i));
8642:
8643: -- store the highest degree of error
8644: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
8645: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
8646: l_overall_status := x_return_status;
8647: End If;
8648: End If;
8641: p_clev_rec => p_clev_tbl(i));
8642:
8643: -- store the highest degree of error
8644: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
8645: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
8646: l_overall_status := x_return_status;
8647: End If;
8648: End If;
8649:
8653: -- return overall status
8654: x_return_status := l_overall_status;
8655: END IF;
8656: EXCEPTION
8657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8659: (
8660: l_api_name,
8661: G_PKG_NAME,
8654: x_return_status := l_overall_status;
8655: END IF;
8656: EXCEPTION
8657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8659: (
8660: l_api_name,
8661: G_PKG_NAME,
8662: 'OKC_API.G_RET_STS_ERROR',
8658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8659: (
8660: l_api_name,
8661: G_PKG_NAME,
8662: 'OKC_API.G_RET_STS_ERROR',
8663: x_msg_count,
8664: x_msg_data,
8665: '_PVT'
8666: );
8663: x_msg_count,
8664: x_msg_data,
8665: '_PVT'
8666: );
8667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8668: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8669: (
8670: l_api_name,
8671: G_PKG_NAME,
8664: x_msg_data,
8665: '_PVT'
8666: );
8667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8668: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8669: (
8670: l_api_name,
8671: G_PKG_NAME,
8672: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8668: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8669: (
8670: l_api_name,
8671: G_PKG_NAME,
8672: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8673: x_msg_count,
8674: x_msg_data,
8675: '_PVT'
8676: );
8674: x_msg_data,
8675: '_PVT'
8676: );
8677: WHEN OTHERS THEN
8678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8679: (
8680: l_api_name,
8681: G_PKG_NAME,
8682: 'OTHERS',
8806:
8807:
8808: BEGIN
8809: -- Initializing return status
8810: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8811: IF (l_debug = 'Y') THEN
8812: okc_debug.Set_Indentation('OKC_CLE_PVT');
8813: okc_debug.log('23100: Entered INSERT_ROW_UPG', 2);
8814: END IF;
9201: okc_debug.Reset_Indentation;
9202: END IF;
9203:
9204: -- store SQL error message on message stack
9205: OKC_API.SET_MESSAGE(
9206: p_app_name => G_APP_NAME,
9207: p_msg_name => G_UNEXPECTED_ERROR,
9208: p_token1 => G_SQLCODE_TOKEN,
9209: p_token1_value => SQLCODE,
9209: p_token1_value => SQLCODE,
9210: p_token2 => G_SQLERRM_TOKEN,
9211: p_token2_value => SQLERRM);
9212: -- notify caller of an error as UNEXPETED error
9213: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9214:
9215: --RAISE;
9216: END INSERT_ROW_UPG;
9217:
9223: p_chr_id IN NUMBER,
9224: p_major_version IN NUMBER
9225: ) RETURN VARCHAR2 IS
9226:
9227: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
9228:
9229: BEGIN
9230:
9231: IF (l_debug = 'Y') THEN
9497: okc_debug.Reset_Indentation;
9498: END IF;
9499:
9500: -- store SQL error message on message stack
9501: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9502: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9503: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9504: p_token1_value => sqlcode,
9505: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9505: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9506: p_token2_value => sqlerrm);
9507:
9508: -- notify UNEXPECTED error
9509: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9510: return l_return_status;
9511:
9512: END create_version;
9513:
9519: p_chr_id IN NUMBER,
9520: p_major_version IN NUMBER
9521: ) RETURN VARCHAR2 IS
9522:
9523: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
9524:
9525: BEGIN
9526:
9527: IF (l_debug = 'Y') THEN
9792: okc_debug.Reset_Indentation;
9793: END IF;
9794:
9795: -- store SQL error message on message stack
9796: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9797: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9798: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9799: p_token1_value => sqlcode,
9800: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9800: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9801: p_token2_value => sqlerrm);
9802:
9803: -- notify UNEXPECTED error
9804: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9805: return l_return_status;
9806:
9807: END restore_version;
9808: