[Home] [Help]
10: FUNCTION Validate_Attributes (p_chrv_rec IN chrv_rec_type)
11: RETURN VARCHAR2;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_CHILD_RECORD_EXISTS CONSTANT VARCHAR2(200) := 'OKC_CANNOT_DELETE_MASTER';
14: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
15: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
18: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_K_HEADERS_V';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
18: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_K_HEADERS_V';
19: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
20: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21:
22: -- Start of comments
23: --
24: -- Procedure Name : validate_contract_number
37: okc_debug.LOG('100: Entered validate_contract_number', 2);
38: END IF;
39:
40: -- initialize return status
41: x_return_status := OKC_API.G_RET_STS_SUCCESS;
42:
43: -- check that data exists
44: IF (p_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
45: p_chrv_rec.contract_number IS NULL)
40: -- initialize return status
41: x_return_status := OKC_API.G_RET_STS_SUCCESS;
42:
43: -- check that data exists
44: IF (p_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
45: p_chrv_rec.contract_number IS NULL)
46: THEN
47: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
48: p_msg_name => g_required_value,
43: -- check that data exists
44: IF (p_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
45: p_chrv_rec.contract_number IS NULL)
46: THEN
47: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
48: p_msg_name => g_required_value,
49: p_token1 => g_col_name_token,
50: p_token1_value => 'Contract Number');
51: -- notify caller of an error
48: p_msg_name => g_required_value,
49: p_token1 => g_col_name_token,
50: p_token1_value => 'Contract Number');
51: -- notify caller of an error
52: x_return_status := OKC_API.G_RET_STS_ERROR;
53:
54: -- halt validation
55: RAISE G_EXCEPTION_HALT_VALIDATION;
56: END IF;
79: okc_debug.Reset_Indentation;
80: END IF;
81:
82: -- store SQL error message on message stack
83: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
84: p_msg_name => g_unexpected_error,
85: p_token1 => g_sqlcode_token,
86: p_token1_value => SQLCODE,
87: p_token2 => g_sqlerrm_token,
87: p_token2 => g_sqlerrm_token,
88: p_token2_value => SQLERRM);
89:
90: -- notify caller of an error as UNEXPETED error
91: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
92:
93:
94: END validate_contract_number;
95:
118: okc_debug.LOG('500: Entered validate_currency_code', 2);
119: END IF;
120:
121: -- initialize return status
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
123:
124: -- check that data exists
125: IF (p_chrv_rec.currency_code = OKC_API.G_MISS_CHAR OR
126: p_chrv_rec.currency_code IS NULL)
121: -- initialize return status
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
123:
124: -- check that data exists
125: IF (p_chrv_rec.currency_code = OKC_API.G_MISS_CHAR OR
126: p_chrv_rec.currency_code IS NULL)
127: THEN
128: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
129: p_msg_name => g_required_value,
124: -- check that data exists
125: IF (p_chrv_rec.currency_code = OKC_API.G_MISS_CHAR OR
126: p_chrv_rec.currency_code IS NULL)
127: THEN
128: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
129: p_msg_name => g_required_value,
130: p_token1 => g_col_name_token,
131: p_token1_value => 'Currency Code');
132: -- notify caller of an error
129: p_msg_name => g_required_value,
130: p_token1 => g_col_name_token,
131: p_token1_value => 'Currency Code');
132: -- notify caller of an error
133: x_return_status := OKC_API.G_RET_STS_ERROR;
134:
135: -- halt validation
136: RAISE G_EXCEPTION_HALT_VALIDATION;
137: END IF;
142: CLOSE l_fndv_csr;
143:
144: -- if l_dummy_var still set to default, data was not found
145: IF (l_dummy_var = '?') THEN
146: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
147: p_msg_name => g_no_parent_record,
148: p_token1 => g_col_name_token,
149: p_token1_value => 'currency_code',
150: p_token2 => g_child_table_token,
151: p_token2_value => G_VIEW,
152: p_token3 => g_parent_table_token,
153: p_token3_value => 'FND_CURRENCIES');
154: -- notify caller of an error
155: x_return_status := OKC_API.G_RET_STS_ERROR;
156: END IF;
157: IF (l_debug = 'Y') THEN
158: okc_debug.LOG('600: Exiting validate_currency_code', 2);
159: okc_debug.Reset_Indentation;
178: okc_debug.Reset_Indentation;
179: END IF;
180:
181: -- store SQL error message on message stack
182: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
183: p_msg_name => g_unexpected_error,
184: p_token1 => g_sqlcode_token,
185: p_token1_value => SQLCODE,
186: p_token2 => g_sqlerrm_token,
185: p_token1_value => SQLCODE,
186: p_token2 => g_sqlerrm_token,
187: p_token2_value => SQLERRM);
188: -- notify caller of an error as UNEXPETED error
189: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
190:
191: -- verify that cursor was closed
192: IF l_fndv_csr%ISOPEN THEN
193: CLOSE l_fndv_csr;
214: okc_debug.LOG('900: Entered validate_sfwt_flag', 2);
215: END IF;
216:
217: -- initialize return status
218: x_return_status := OKC_API.G_RET_STS_SUCCESS;
219:
220: -- check that data exists
221: IF (p_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR OR
222: p_chrv_rec.sfwt_flag IS NULL)
217: -- initialize return status
218: x_return_status := OKC_API.G_RET_STS_SUCCESS;
219:
220: -- check that data exists
221: IF (p_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR OR
222: p_chrv_rec.sfwt_flag IS NULL)
223: THEN
224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
225: p_msg_name => g_required_value,
220: -- check that data exists
221: IF (p_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR OR
222: p_chrv_rec.sfwt_flag IS NULL)
223: THEN
224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
225: p_msg_name => g_required_value,
226: p_token1 => g_col_name_token,
227: p_token1_value => 'sfwt_flag');
228: -- notify caller of an error
225: p_msg_name => g_required_value,
226: p_token1 => g_col_name_token,
227: p_token1_value => 'sfwt_flag');
228: -- notify caller of an error
229: x_return_status := OKC_API.G_RET_STS_ERROR;
230:
231: -- halt validation
232: RAISE G_EXCEPTION_HALT_VALIDATION;
233: END IF;
233: END IF;
234:
235: -- check allowed values
236: IF (upper(p_chrv_rec.sfwt_flag) NOT IN ('Y', 'N')) THEN
237: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
238: p_msg_name => g_invalid_value,
239: p_token1 => g_col_name_token,
240: p_token1_value => 'sfwt_flag');
241: -- notify caller of an error
238: p_msg_name => g_invalid_value,
239: p_token1 => g_col_name_token,
240: p_token1_value => 'sfwt_flag');
241: -- notify caller of an error
242: x_return_status := OKC_API.G_RET_STS_ERROR;
243: END IF;
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.LOG('1000: Exiting validate_sfwt_flag', 2);
266: okc_debug.Reset_Indentation;
267: END IF;
268:
269: -- store SQL error message on message stack
270: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
271: p_msg_name => g_unexpected_error,
272: p_token1 => g_sqlcode_token,
273: p_token1_value => SQLCODE,
274: p_token2 => g_sqlerrm_token,
273: p_token1_value => SQLCODE,
274: p_token2 => g_sqlerrm_token,
275: p_token2_value => SQLERRM);
276: -- notify caller of an error as UNEXPETED error
277: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
278:
279:
280: END validate_sfwt_flag;
281:
307: okc_debug.LOG('1300: Entered validate_chr_id_response', 2);
308: END IF;
309:
310: -- initialize return status
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312:
313: -- enforce foreign key (chr_id_response is optional)
314: IF (p_chrv_rec.chr_id_response <> OKC_API.G_MISS_NUM AND
315: p_chrv_rec.chr_id_response IS NOT NULL)
310: -- initialize return status
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312:
313: -- enforce foreign key (chr_id_response is optional)
314: IF (p_chrv_rec.chr_id_response <> OKC_API.G_MISS_NUM AND
315: p_chrv_rec.chr_id_response IS NOT NULL)
316: THEN
317: OPEN l_chrv_csr;
318: FETCH l_chrv_csr INTO l_dummy_var;
318: FETCH l_chrv_csr INTO l_dummy_var;
319: CLOSE l_chrv_csr;
320: -- if l_dummy_var still set to default, data was not found
321: IF (l_dummy_var = '?') THEN
322: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
323: p_msg_name => g_no_parent_record,
324: p_token1 => g_col_name_token,
325: p_token1_value => 'chr_id_response',
326: p_token2 => g_child_table_token,
327: p_token2_value => G_VIEW,
328: p_token3 => g_parent_table_token,
329: p_token3_value => G_VIEW);
330: -- notify caller of an error
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: END IF;
333: END IF;
334: IF (l_debug = 'Y') THEN
335: okc_debug.LOG('1400: Exiting validate_chr_id_response', 2);
345: okc_debug.Reset_Indentation;
346: END IF;
347:
348: -- store SQL error message on message stack
349: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
350: p_msg_name => g_unexpected_error,
351: p_token1 => g_sqlcode_token,
352: p_token1_value => SQLCODE,
353: p_token2 => g_sqlerrm_token,
352: p_token1_value => SQLCODE,
353: p_token2 => g_sqlerrm_token,
354: p_token2_value => SQLERRM);
355: -- notify caller of an error as UNEXPETED error
356: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
357:
358: -- verify that cursor was closed
359: IF l_chrv_csr%ISOPEN THEN
360: CLOSE l_chrv_csr;
391: okc_debug.LOG('1600: Entered validate_chr_id_award', 2);
392: END IF;
393:
394: -- initialize return status
395: x_return_status := OKC_API.G_RET_STS_SUCCESS;
396:
397: -- enforce foreign key (chr_id_award is optional)
398: IF (p_chrv_rec.chr_id_award <> OKC_API.G_MISS_NUM AND
399: p_chrv_rec.chr_id_award IS NOT NULL)
394: -- initialize return status
395: x_return_status := OKC_API.G_RET_STS_SUCCESS;
396:
397: -- enforce foreign key (chr_id_award is optional)
398: IF (p_chrv_rec.chr_id_award <> OKC_API.G_MISS_NUM AND
399: p_chrv_rec.chr_id_award IS NOT NULL)
400: THEN
401: OPEN l_chrv_csr;
402: FETCH l_chrv_csr INTO l_dummy_var;
402: FETCH l_chrv_csr INTO l_dummy_var;
403: CLOSE l_chrv_csr;
404: -- if l_dummy_var still set to default, data was not found
405: IF (l_dummy_var = '?') THEN
406: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
407: p_msg_name => g_no_parent_record,
408: p_token1 => g_col_name_token,
409: p_token1_value => 'chr_id_award',
410: p_token2 => g_child_table_token,
411: p_token2_value => G_VIEW,
412: p_token3 => g_parent_table_token,
413: p_token3_value => G_VIEW);
414: -- notify caller of an error
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416: END IF;
417: END IF;
418: IF (l_debug = 'Y') THEN
419: okc_debug.LOG('1700: Exiting validate_chr_id_award', 2);
429: okc_debug.Reset_Indentation;
430: END IF;
431:
432: -- store SQL error message on message stack
433: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
434: p_msg_name => g_unexpected_error,
435: p_token1 => g_sqlcode_token,
436: p_token1_value => SQLCODE,
437: p_token2 => g_sqlerrm_token,
436: p_token1_value => SQLCODE,
437: p_token2 => g_sqlerrm_token,
438: p_token2_value => SQLERRM);
439: -- notify caller of an error as UNEXPETED error
440: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
441:
442: -- verify that cursor was closed
443: IF l_chrv_csr%ISOPEN THEN
444: CLOSE l_chrv_csr;
464: okc_debug.LOG('1900: Entered validate_INV_ORGANIZATION_ID', 2);
465: END IF;
466:
467: -- initialize return status
468: x_return_status := OKC_API.G_RET_STS_SUCCESS;
469:
470: -- check that data exists
471: IF (p_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM OR
472: p_chrv_rec.INV_ORGANIZATION_ID IS NULL)
467: -- initialize return status
468: x_return_status := OKC_API.G_RET_STS_SUCCESS;
469:
470: -- check that data exists
471: IF (p_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM OR
472: p_chrv_rec.INV_ORGANIZATION_ID IS NULL)
473: THEN
474: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
475: p_msg_name => g_required_value,
470: -- check that data exists
471: IF (p_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM OR
472: p_chrv_rec.INV_ORGANIZATION_ID IS NULL)
473: THEN
474: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
475: p_msg_name => g_required_value,
476: p_token1 => g_col_name_token,
477: p_token1_value => 'INV_ORGANIZATION_ID');
478: -- notify caller of an error
475: p_msg_name => g_required_value,
476: p_token1 => g_col_name_token,
477: p_token1_value => 'INV_ORGANIZATION_ID');
478: -- notify caller of an error
479: x_return_status := OKC_API.G_RET_STS_ERROR;
480:
481: -- halt validation
482: RAISE G_EXCEPTION_HALT_VALIDATION;
483: END IF;
505: okc_debug.Reset_Indentation;
506: END IF;
507:
508: -- store SQL error message on message stack
509: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
510: p_msg_name => g_unexpected_error,
511: p_token1 => g_sqlcode_token,
512: p_token1_value => SQLCODE,
513: p_token2 => g_sqlerrm_token,
512: p_token1_value => SQLCODE,
513: p_token2 => g_sqlerrm_token,
514: p_token2_value => SQLERRM);
515: -- notify caller of an error as UNEXPETED error
516: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
517:
518: END validate_INV_ORGANIZATION_ID;
519:
520: -- Start of comments
539: okc_debug.LOG('2300: Entered validate_sts_code', 2);
540: END IF;
541:
542: -- initialize return status
543: x_return_status := OKC_API.G_RET_STS_SUCCESS;
544:
545: -- check that data exists
546: IF (p_chrv_rec.sts_code = OKC_API.G_MISS_CHAR OR
547: p_chrv_rec.sts_code IS NULL)
542: -- initialize return status
543: x_return_status := OKC_API.G_RET_STS_SUCCESS;
544:
545: -- check that data exists
546: IF (p_chrv_rec.sts_code = OKC_API.G_MISS_CHAR OR
547: p_chrv_rec.sts_code IS NULL)
548: THEN
549: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
550: p_msg_name => g_required_value,
545: -- check that data exists
546: IF (p_chrv_rec.sts_code = OKC_API.G_MISS_CHAR OR
547: p_chrv_rec.sts_code IS NULL)
548: THEN
549: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
550: p_msg_name => g_required_value,
551: p_token1 => g_col_name_token,
552: p_token1_value => 'sts_code');
553: -- notify caller of an error
550: p_msg_name => g_required_value,
551: p_token1 => g_col_name_token,
552: p_token1_value => 'sts_code');
553: -- notify caller of an error
554: x_return_status := OKC_API.G_RET_STS_ERROR;
555:
556: -- halt validation
557: RAISE G_EXCEPTION_HALT_VALIDATION;
558: END IF;
563: CLOSE l_stsv_csr;
564:
565: IF (l_dummy_var = '?') THEN
566: --set error message in message stack
567: OKC_API.SET_MESSAGE(
568: p_app_name => g_app_name,
569: p_msg_name => g_no_parent_record,
570: p_token1 => g_col_name_token,
571: p_token1_value => 'sts_code',
573: p_token2_value => G_VIEW,
574: p_token3 => g_parent_table_token,
575: p_token3_value => 'OKC_STATUSES_V');
576: -- notify caller of an error
577: x_return_status := OKC_API.G_RET_STS_ERROR;
578: END IF;
579: IF (l_debug = 'Y') THEN
580: okc_debug.LOG('2400: Exiting validate_sts_code', 2);
581: okc_debug.Reset_Indentation;
600: okc_debug.Reset_Indentation;
601: END IF;
602:
603: -- store SQL error message on message stack
604: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
605: p_msg_name => g_unexpected_error,
606: p_token1 => g_sqlcode_token,
607: p_token1_value => SQLCODE,
608: p_token2 => g_sqlerrm_token,
607: p_token1_value => SQLCODE,
608: p_token2 => g_sqlerrm_token,
609: p_token2_value => SQLERRM);
610: -- notify caller of an error as UNEXPETED error
611: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
612:
613: END validate_sts_code;
614:
615: -- Start of comments
635: okc_debug.LOG('2700: Entered validate_qcl_id', 2);
636: END IF;
637:
638: -- initialize return status
639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
640:
641: -- enforce foreign key (qcl_id is optional)
642: IF (p_chrv_rec.qcl_id <> OKC_API.G_MISS_NUM AND
643: p_chrv_rec.qcl_id IS NOT NULL)
638: -- initialize return status
639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
640:
641: -- enforce foreign key (qcl_id is optional)
642: IF (p_chrv_rec.qcl_id <> OKC_API.G_MISS_NUM AND
643: p_chrv_rec.qcl_id IS NOT NULL)
644: THEN
645: OPEN l_qclv_csr;
646: FETCH l_qclv_csr INTO l_dummy_var;
647: CLOSE l_qclv_csr;
648:
649: -- if l_dummy_var still set to default, data was not found
650: IF (l_dummy_var = '?') THEN
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
652: p_msg_name => g_no_parent_record,
653: p_token1 => g_col_name_token,
654: p_token1_value => 'qcl_id',
655: p_token2 => g_child_table_token,
656: p_token2_value => G_VIEW,
657: p_token3 => g_parent_table_token,
658: p_token3_value => G_VIEW);
659: -- notify caller of an error
660: x_return_status := OKC_API.G_RET_STS_ERROR;
661: END IF;
662: END IF;
663: IF (l_debug = 'Y') THEN
664: okc_debug.LOG('2800: Exiting validate_qcl_id', 2);
674: okc_debug.Reset_Indentation;
675: END IF;
676:
677: -- store SQL error message on message stack
678: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
679: p_msg_name => g_unexpected_error,
680: p_token1 => g_sqlcode_token,
681: p_token1_value => SQLCODE,
682: p_token2 => g_sqlerrm_token,
681: p_token1_value => SQLCODE,
682: p_token2 => g_sqlerrm_token,
683: p_token2_value => SQLERRM);
684: -- notify caller of an error as UNEXPETED error
685: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
686:
687: -- verify that cursor was closed
688: IF l_qclv_csr%ISOPEN THEN
689: CLOSE l_qclv_csr;
709: okc_debug.LOG('3000: Entered validate_org_ids', 2);
710: END IF;
711:
712: -- initialize return status
713: x_return_status := OKC_API.G_RET_STS_SUCCESS;
714:
715:
716:
717: -- check that data exists
714:
715:
716:
717: -- check that data exists
718: IF (p_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM OR
719: p_chrv_rec.authoring_org_id IS NULL)
720: THEN
721:
722: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
718: IF (p_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM OR
719: p_chrv_rec.authoring_org_id IS NULL)
720: THEN
721:
722: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
723: p_msg_name => g_required_value,
724: p_token1 => g_col_name_token,
725: p_token1_value => 'authoring_org_id');
726: -- notify caller of an error
723: p_msg_name => g_required_value,
724: p_token1 => g_col_name_token,
725: p_token1_value => 'authoring_org_id');
726: -- notify caller of an error
727: x_return_status := OKC_API.G_RET_STS_ERROR;
728: -- halt validation
729: RAISE G_EXCEPTION_HALT_VALIDATION;
730:
731: END IF;
731: END IF;
732:
733: --mmadhavi start MOAC
734: -- check that data exists
735: IF (p_chrv_rec.org_id = OKC_API.G_MISS_NUM OR
736: p_chrv_rec.org_id IS NULL)
737: THEN
738:
739: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
735: IF (p_chrv_rec.org_id = OKC_API.G_MISS_NUM OR
736: p_chrv_rec.org_id IS NULL)
737: THEN
738:
739: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
740: p_msg_name => g_required_value,
741: p_token1 => g_col_name_token,
742: p_token1_value => 'org_id');
743: -- notify caller of an error
740: p_msg_name => g_required_value,
741: p_token1 => g_col_name_token,
742: p_token1_value => 'org_id');
743: -- notify caller of an error
744: x_return_status := OKC_API.G_RET_STS_ERROR;
745:
746: -- halt validation
747: RAISE G_EXCEPTION_HALT_VALIDATION;
748:
773: okc_debug.Reset_Indentation;
774: END IF;
775:
776: -- store SQL error message on message stack
777: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
778: p_msg_name => g_unexpected_error,
779: p_token1 => g_sqlcode_token,
780: p_token1_value => SQLCODE,
781: p_token2 => g_sqlerrm_token,
780: p_token1_value => SQLCODE,
781: p_token2 => g_sqlerrm_token,
782: p_token2_value => SQLERRM);
783: -- notify caller of an error as UNEXPETED error
784: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
785:
786: END validate_org_ids;
787:
788: -- Start of comments
802: okc_debug.LOG('3400: Entered validate_buy_or_sell', 2);
803: END IF;
804:
805: -- initialize return status
806: x_return_status := OKC_API.G_RET_STS_SUCCESS;
807:
808: -- check that data exists
809: IF (p_chrv_rec.buy_or_sell <> OKC_API.G_MISS_CHAR AND
810: p_chrv_rec.buy_or_sell IS NOT NULL)
805: -- initialize return status
806: x_return_status := OKC_API.G_RET_STS_SUCCESS;
807:
808: -- check that data exists
809: IF (p_chrv_rec.buy_or_sell <> OKC_API.G_MISS_CHAR AND
810: p_chrv_rec.buy_or_sell IS NOT NULL)
811: THEN
812: IF (upper(p_chrv_rec.buy_or_sell) NOT IN ('B', 'S')) THEN
813: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
809: IF (p_chrv_rec.buy_or_sell <> OKC_API.G_MISS_CHAR AND
810: p_chrv_rec.buy_or_sell IS NOT NULL)
811: THEN
812: IF (upper(p_chrv_rec.buy_or_sell) NOT IN ('B', 'S')) THEN
813: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
814: p_msg_name => g_invalid_value,
815: p_token1 => g_col_name_token,
816: p_token1_value => 'buy_or_sell');
817: -- notify caller of an error
814: p_msg_name => g_invalid_value,
815: p_token1 => g_col_name_token,
816: p_token1_value => 'buy_or_sell');
817: -- notify caller of an error
818: x_return_status := OKC_API.G_RET_STS_ERROR;
819:
820: -- halt validation
821: RAISE G_EXCEPTION_HALT_VALIDATION;
822: END IF;
845: okc_debug.Reset_Indentation;
846: END IF;
847:
848: -- store SQL error message on message stack
849: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
850: p_msg_name => g_unexpected_error,
851: p_token1 => g_sqlcode_token,
852: p_token1_value => SQLCODE,
853: p_token2 => g_sqlerrm_token,
852: p_token1_value => SQLCODE,
853: p_token2 => g_sqlerrm_token,
854: p_token2_value => SQLERRM);
855: -- notify caller of an error as UNEXPETED error
856: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
857:
858: END validate_buy_or_sell;
859:
860: -- Start of comments
874: okc_debug.LOG('3800: Entered validate_issue_or_receive', 2);
875: END IF;
876:
877: -- initialize return status
878: x_return_status := OKC_API.G_RET_STS_SUCCESS;
879:
880: -- check that data exists
881: IF (p_chrv_rec.issue_or_receive <> OKC_API.G_MISS_CHAR AND
882: p_chrv_rec.issue_or_receive IS NOT NULL)
877: -- initialize return status
878: x_return_status := OKC_API.G_RET_STS_SUCCESS;
879:
880: -- check that data exists
881: IF (p_chrv_rec.issue_or_receive <> OKC_API.G_MISS_CHAR AND
882: p_chrv_rec.issue_or_receive IS NOT NULL)
883: THEN
884: IF (upper(p_chrv_rec.issue_or_receive) NOT IN ('I', 'R')) THEN
885: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
881: IF (p_chrv_rec.issue_or_receive <> OKC_API.G_MISS_CHAR AND
882: p_chrv_rec.issue_or_receive IS NOT NULL)
883: THEN
884: IF (upper(p_chrv_rec.issue_or_receive) NOT IN ('I', 'R')) THEN
885: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
886: p_msg_name => g_invalid_value,
887: p_token1 => g_col_name_token,
888: p_token1_value => 'issue_or_receive');
889: -- notify caller of an error
886: p_msg_name => g_invalid_value,
887: p_token1 => g_col_name_token,
888: p_token1_value => 'issue_or_receive');
889: -- notify caller of an error
890: x_return_status := OKC_API.G_RET_STS_ERROR;
891:
892: -- halt validation
893: RAISE G_EXCEPTION_HALT_VALIDATION;
894: END IF;
917: okc_debug.Reset_Indentation;
918: END IF;
919:
920: -- store SQL error message on message stack
921: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
922: p_msg_name => g_unexpected_error,
923: p_token1 => g_sqlcode_token,
924: p_token1_value => SQLCODE,
925: p_token2 => g_sqlerrm_token,
924: p_token1_value => SQLCODE,
925: p_token2 => g_sqlerrm_token,
926: p_token2_value => SQLERRM);
927: -- notify caller of an error as UNEXPETED error
928: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
929:
930: END validate_issue_or_receive;
931:
932: -- Start of comments
951: okc_debug.LOG('4200: Entered validate_scs_code', 2);
952: END IF;
953:
954: -- initialize return status
955: x_return_status := OKC_API.G_RET_STS_SUCCESS;
956:
957: -- check that data exists
958: IF (p_chrv_rec.scs_code = OKC_API.G_MISS_CHAR OR
959: p_chrv_rec.scs_code IS NULL)
954: -- initialize return status
955: x_return_status := OKC_API.G_RET_STS_SUCCESS;
956:
957: -- check that data exists
958: IF (p_chrv_rec.scs_code = OKC_API.G_MISS_CHAR OR
959: p_chrv_rec.scs_code IS NULL)
960: THEN
961: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
962: p_msg_name => g_required_value,
957: -- check that data exists
958: IF (p_chrv_rec.scs_code = OKC_API.G_MISS_CHAR OR
959: p_chrv_rec.scs_code IS NULL)
960: THEN
961: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
962: p_msg_name => g_required_value,
963: p_token1 => g_col_name_token,
964: p_token1_value => 'scs_code');
965: -- notify caller of an error
962: p_msg_name => g_required_value,
963: p_token1 => g_col_name_token,
964: p_token1_value => 'scs_code');
965: -- notify caller of an error
966: x_return_status := OKC_API.G_RET_STS_ERROR;
967:
968: -- halt validation
969: RAISE G_EXCEPTION_HALT_VALIDATION;
970: END IF;
975: CLOSE l_scsv_csr;
976:
977: -- if l_dummy_var still set to default, data was not found
978: IF (l_dummy_var = '?') THEN
979: OKC_API.SET_MESSAGE(
980: p_app_name => g_app_name,
981: p_msg_name => g_no_parent_record,
982: p_token1 => g_col_name_token,
983: p_token1_value => 'scs_code',
985: p_token2_value => G_VIEW,
986: p_token3 => g_parent_table_token,
987: p_token3_value => 'OKC_SUBCLASSES_V');
988: -- notify caller of an error
989: x_return_status := OKC_API.G_RET_STS_ERROR;
990: END IF;
991: IF (l_debug = 'Y') THEN
992: okc_debug.LOG('4300: Exiting validate_scs_code', 2);
993: okc_debug.Reset_Indentation;
1012: okc_debug.Reset_Indentation;
1013: END IF;
1014:
1015: -- store SQL error message on message stack
1016: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1017: p_msg_name => g_unexpected_error,
1018: p_token1 => g_sqlcode_token,
1019: p_token1_value => SQLCODE,
1020: p_token2 => g_sqlerrm_token,
1019: p_token1_value => SQLCODE,
1020: p_token2 => g_sqlerrm_token,
1021: p_token2_value => SQLERRM);
1022: -- notify caller of an error as UNEXPETED error
1023: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1024:
1025: END validate_scs_code;
1026:
1027: -- Start of comments
1041: okc_debug.LOG('4600: Entered validate_archived_yn', 2);
1042: END IF;
1043:
1044: -- initialize return status
1045: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1046:
1047: -- check that data exists
1048: IF (p_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR OR
1049: p_chrv_rec.archived_yn IS NULL)
1044: -- initialize return status
1045: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1046:
1047: -- check that data exists
1048: IF (p_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR OR
1049: p_chrv_rec.archived_yn IS NULL)
1050: THEN
1051: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1052: p_msg_name => g_required_value,
1047: -- check that data exists
1048: IF (p_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR OR
1049: p_chrv_rec.archived_yn IS NULL)
1050: THEN
1051: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1052: p_msg_name => g_required_value,
1053: p_token1 => g_col_name_token,
1054: p_token1_value => 'archived_yn');
1055: -- notify caller of an error
1052: p_msg_name => g_required_value,
1053: p_token1 => g_col_name_token,
1054: p_token1_value => 'archived_yn');
1055: -- notify caller of an error
1056: x_return_status := OKC_API.G_RET_STS_ERROR;
1057:
1058: -- halt validation
1059: RAISE G_EXCEPTION_HALT_VALIDATION;
1060: END IF;
1060: END IF;
1061:
1062: -- check allowed values
1063: IF (upper(p_chrv_rec.archived_yn) NOT IN ('Y', 'N')) THEN
1064: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1065: p_msg_name => g_invalid_value,
1066: p_token1 => g_col_name_token,
1067: p_token1_value => 'archived_yn');
1068: -- notify caller of an error
1065: p_msg_name => g_invalid_value,
1066: p_token1 => g_col_name_token,
1067: p_token1_value => 'archived_yn');
1068: -- notify caller of an error
1069: x_return_status := OKC_API.G_RET_STS_ERROR;
1070: END IF;
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.LOG('4700: Exiting validate_archived_yn', 2);
1073: okc_debug.Reset_Indentation;
1092: okc_debug.Reset_Indentation;
1093: END IF;
1094:
1095: -- store SQL error message on message stack
1096: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1097: p_msg_name => g_unexpected_error,
1098: p_token1 => g_sqlcode_token,
1099: p_token1_value => SQLCODE,
1100: p_token2 => g_sqlerrm_token,
1099: p_token1_value => SQLCODE,
1100: p_token2 => g_sqlerrm_token,
1101: p_token2_value => SQLERRM);
1102: -- notify caller of an error as UNEXPETED error
1103: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1104:
1105: END validate_archived_yn;
1106:
1107: -- Start of comments
1121: okc_debug.LOG('5000: Entered validate_deleted_yn', 2);
1122: END IF;
1123:
1124: -- initialize return status
1125: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1126:
1127: -- check that data exists
1128: IF (p_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR OR
1129: p_chrv_rec.deleted_yn IS NULL)
1124: -- initialize return status
1125: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1126:
1127: -- check that data exists
1128: IF (p_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR OR
1129: p_chrv_rec.deleted_yn IS NULL)
1130: THEN
1131: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1132: p_msg_name => g_required_value,
1127: -- check that data exists
1128: IF (p_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR OR
1129: p_chrv_rec.deleted_yn IS NULL)
1130: THEN
1131: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1132: p_msg_name => g_required_value,
1133: p_token1 => g_col_name_token,
1134: p_token1_value => 'deleted_yn');
1135: -- notify caller of an error
1132: p_msg_name => g_required_value,
1133: p_token1 => g_col_name_token,
1134: p_token1_value => 'deleted_yn');
1135: -- notify caller of an error
1136: x_return_status := OKC_API.G_RET_STS_ERROR;
1137:
1138: -- halt validation
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: END IF;
1140: END IF;
1141:
1142: -- check allowed values
1143: IF (upper(p_chrv_rec.deleted_yn) NOT IN ('Y', 'N')) THEN
1144: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1145: p_msg_name => g_invalid_value,
1146: p_token1 => g_col_name_token,
1147: p_token1_value => 'deleted_yn');
1148: -- notify caller of an error
1145: p_msg_name => g_invalid_value,
1146: p_token1 => g_col_name_token,
1147: p_token1_value => 'deleted_yn');
1148: -- notify caller of an error
1149: x_return_status := OKC_API.G_RET_STS_ERROR;
1150: END IF;
1151: IF (l_debug = 'Y') THEN
1152: okc_debug.LOG('5100: Exiting validate_deleted_yn', 2);
1153: okc_debug.Reset_Indentation;
1172: okc_debug.Reset_Indentation;
1173: END IF;
1174:
1175: -- store SQL error message on message stack
1176: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1177: p_msg_name => g_unexpected_error,
1178: p_token1 => g_sqlcode_token,
1179: p_token1_value => SQLCODE,
1180: p_token2 => g_sqlerrm_token,
1179: p_token1_value => SQLCODE,
1180: p_token2 => g_sqlerrm_token,
1181: p_token2_value => SQLERRM);
1182: -- notify caller of an error as UNEXPETED error
1183: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1184:
1185: END validate_deleted_yn;
1186:
1187: -- Start of comments
1201: okc_debug.LOG('5400: Entered validate_cust_po_number_req_yn', 2);
1202: END IF;
1203:
1204: -- initialize return status
1205: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1206:
1207: -- check that data exists
1208: IF (p_chrv_rec.cust_po_number_req_yn <> OKC_API.G_MISS_CHAR AND
1209: p_chrv_rec.cust_po_number_req_yn IS NOT NULL)
1204: -- initialize return status
1205: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1206:
1207: -- check that data exists
1208: IF (p_chrv_rec.cust_po_number_req_yn <> OKC_API.G_MISS_CHAR AND
1209: p_chrv_rec.cust_po_number_req_yn IS NOT NULL)
1210: THEN
1211: IF (upper(p_chrv_rec.cust_po_number_req_yn) NOT IN ('Y', 'N')) THEN
1212: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1208: IF (p_chrv_rec.cust_po_number_req_yn <> OKC_API.G_MISS_CHAR AND
1209: p_chrv_rec.cust_po_number_req_yn IS NOT NULL)
1210: THEN
1211: IF (upper(p_chrv_rec.cust_po_number_req_yn) NOT IN ('Y', 'N')) THEN
1212: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1213: p_msg_name => g_invalid_value,
1214: p_token1 => g_col_name_token,
1215: p_token1_value => 'cust_po_number_req_yn');
1216: -- notify caller of an error
1213: p_msg_name => g_invalid_value,
1214: p_token1 => g_col_name_token,
1215: p_token1_value => 'cust_po_number_req_yn');
1216: -- notify caller of an error
1217: x_return_status := OKC_API.G_RET_STS_ERROR;
1218:
1219: -- halt validation
1220: RAISE G_EXCEPTION_HALT_VALIDATION;
1221: END IF;
1244: okc_debug.Reset_Indentation;
1245: END IF;
1246:
1247: -- store SQL error message on message stack
1248: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1249: p_msg_name => g_unexpected_error,
1250: p_token1 => g_sqlcode_token,
1251: p_token1_value => SQLCODE,
1252: p_token2 => g_sqlerrm_token,
1251: p_token1_value => SQLCODE,
1252: p_token2 => g_sqlerrm_token,
1253: p_token2_value => SQLERRM);
1254: -- notify caller of an error as UNEXPETED error
1255: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1256:
1257: END validate_cust_po_number_req_yn;
1258:
1259: -- Start of comments
1273: okc_debug.LOG('5800: Entered validate_pre_pay_req_yn', 2);
1274: END IF;
1275:
1276: -- initialize return status
1277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1278:
1279: -- check that data exists
1280: IF (p_chrv_rec.pre_pay_req_yn <> OKC_API.G_MISS_CHAR AND
1281: p_chrv_rec.pre_pay_req_yn IS NOT NULL)
1276: -- initialize return status
1277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1278:
1279: -- check that data exists
1280: IF (p_chrv_rec.pre_pay_req_yn <> OKC_API.G_MISS_CHAR AND
1281: p_chrv_rec.pre_pay_req_yn IS NOT NULL)
1282: THEN
1283: -- check allowed values
1284: IF (upper(p_chrv_rec.cust_po_number_req_yn) NOT IN ('Y', 'N')) THEN
1281: p_chrv_rec.pre_pay_req_yn IS NOT NULL)
1282: THEN
1283: -- check allowed values
1284: IF (upper(p_chrv_rec.cust_po_number_req_yn) NOT IN ('Y', 'N')) THEN
1285: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1286: p_msg_name => g_required_value,
1287: p_token1 => g_col_name_token,
1288: p_token1_value => 'pre_pay_req_yn');
1289: -- notify caller of an error
1286: p_msg_name => g_required_value,
1287: p_token1 => g_col_name_token,
1288: p_token1_value => 'pre_pay_req_yn');
1289: -- notify caller of an error
1290: x_return_status := OKC_API.G_RET_STS_ERROR;
1291:
1292: -- halt validation
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1294: END IF;
1317: okc_debug.Reset_Indentation;
1318: END IF;
1319:
1320: -- store SQL error message on message stack
1321: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1322: p_msg_name => g_unexpected_error,
1323: p_token1 => g_sqlcode_token,
1324: p_token1_value => SQLCODE,
1325: p_token2 => g_sqlerrm_token,
1324: p_token1_value => SQLCODE,
1325: p_token2 => g_sqlerrm_token,
1326: p_token2_value => SQLERRM);
1327: -- notify caller of an error as UNEXPETED error
1328: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1329:
1330: END validate_pre_pay_req_yn;
1331:
1332: -- Start of comments
1346: okc_debug.LOG('6200: Entered validate_template_yn', 2);
1347: END IF;
1348:
1349: -- initialize return status
1350: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1351:
1352: -- check that data exists
1353: IF (p_chrv_rec.template_yn = OKC_API.G_MISS_CHAR OR
1354: p_chrv_rec.template_yn IS NULL)
1349: -- initialize return status
1350: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1351:
1352: -- check that data exists
1353: IF (p_chrv_rec.template_yn = OKC_API.G_MISS_CHAR OR
1354: p_chrv_rec.template_yn IS NULL)
1355: THEN
1356: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1357: p_msg_name => g_required_value,
1352: -- check that data exists
1353: IF (p_chrv_rec.template_yn = OKC_API.G_MISS_CHAR OR
1354: p_chrv_rec.template_yn IS NULL)
1355: THEN
1356: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1357: p_msg_name => g_required_value,
1358: p_token1 => g_col_name_token,
1359: p_token1_value => 'template_yn');
1360: -- notify caller of an error
1357: p_msg_name => g_required_value,
1358: p_token1 => g_col_name_token,
1359: p_token1_value => 'template_yn');
1360: -- notify caller of an error
1361: x_return_status := OKC_API.G_RET_STS_ERROR;
1362:
1363: -- halt validation
1364: RAISE G_EXCEPTION_HALT_VALIDATION;
1365: END IF;
1365: END IF;
1366:
1367: -- check allowed values
1368: IF (upper(p_chrv_rec.template_yn) NOT IN ('Y', 'N')) THEN
1369: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1370: p_msg_name => g_invalid_value,
1371: p_token1 => g_col_name_token,
1372: p_token1_value => 'template_yn');
1373: -- notify caller of an error
1370: p_msg_name => g_invalid_value,
1371: p_token1 => g_col_name_token,
1372: p_token1_value => 'template_yn');
1373: -- notify caller of an error
1374: x_return_status := OKC_API.G_RET_STS_ERROR;
1375: END IF;
1376: IF (l_debug = 'Y') THEN
1377: okc_debug.LOG('6300: Exiting validate_template_yn', 2);
1378: okc_debug.Reset_Indentation;
1397: okc_debug.Reset_Indentation;
1398: END IF;
1399:
1400: -- store SQL error message on message stack
1401: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1402: p_msg_name => g_unexpected_error,
1403: p_token1 => g_sqlcode_token,
1404: p_token1_value => SQLCODE,
1405: p_token2 => g_sqlerrm_token,
1404: p_token1_value => SQLCODE,
1405: p_token2 => g_sqlerrm_token,
1406: p_token2_value => SQLERRM);
1407: -- notify caller of an error as UNEXPETED error
1408: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1409:
1410: END validate_template_yn;
1411:
1412: -- Start of comments
1426: okc_debug.LOG('6600: Entered validate_chr_type', 2);
1427: END IF;
1428:
1429: -- initialize return status
1430: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1431:
1432: -- check that data exists
1433: IF (p_chrv_rec.chr_type = OKC_API.G_MISS_CHAR OR
1434: p_chrv_rec.chr_type IS NULL)
1429: -- initialize return status
1430: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1431:
1432: -- check that data exists
1433: IF (p_chrv_rec.chr_type = OKC_API.G_MISS_CHAR OR
1434: p_chrv_rec.chr_type IS NULL)
1435: THEN
1436: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1437: p_msg_name => g_required_value,
1432: -- check that data exists
1433: IF (p_chrv_rec.chr_type = OKC_API.G_MISS_CHAR OR
1434: p_chrv_rec.chr_type IS NULL)
1435: THEN
1436: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1437: p_msg_name => g_required_value,
1438: p_token1 => g_col_name_token,
1439: p_token1_value => 'chr_type');
1440: -- notify caller of an error
1437: p_msg_name => g_required_value,
1438: p_token1 => g_col_name_token,
1439: p_token1_value => 'chr_type');
1440: -- notify caller of an error
1441: x_return_status := OKC_API.G_RET_STS_ERROR;
1442:
1443: -- halt validation
1444: RAISE G_EXCEPTION_HALT_VALIDATION;
1445: END IF;
1445: END IF;
1446:
1447: -- check allowed values
1448: IF (upper(p_chrv_rec.chr_type) NOT IN ('CYR', 'CYP', 'CYA')) THEN
1449: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1450: p_msg_name => g_invalid_value,
1451: p_token1 => g_col_name_token,
1452: p_token1_value => 'chr_type');
1453: -- notify caller of an error
1450: p_msg_name => g_invalid_value,
1451: p_token1 => g_col_name_token,
1452: p_token1_value => 'chr_type');
1453: -- notify caller of an error
1454: x_return_status := OKC_API.G_RET_STS_ERROR;
1455: END IF;
1456: IF (l_debug = 'Y') THEN
1457: okc_debug.LOG('6700: Exiting validate_chr_type', 2);
1458: okc_debug.Reset_Indentation;
1477: okc_debug.Reset_Indentation;
1478: END IF;
1479:
1480: -- store SQL error message on message stack
1481: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1482: p_msg_name => g_unexpected_error,
1483: p_token1 => g_sqlcode_token,
1484: p_token1_value => SQLCODE,
1485: p_token2 => g_sqlerrm_token,
1484: p_token1_value => SQLCODE,
1485: p_token2 => g_sqlerrm_token,
1486: p_token2_value => SQLERRM);
1487: -- notify caller of an error as UNEXPETED error
1488: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1489:
1490: END validate_chr_type;
1491:
1492: /*
1507: okc_debug.log('7000: Entered validate_datetime_cancelled', 2);
1508: END IF;
1509:
1510: -- initialize return status
1511: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1512: -- check that data exists
1513: If (p_chrv_rec.datetime_cancelled <> OKC_API.G_MISS_DATE and
1514: p_chrv_rec.datetime_cancelled IS NOT NULL)
1515: Then
1509:
1510: -- initialize return status
1511: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1512: -- check that data exists
1513: If (p_chrv_rec.datetime_cancelled <> OKC_API.G_MISS_DATE and
1514: p_chrv_rec.datetime_cancelled IS NOT NULL)
1515: Then
1516: If (p_chrv_rec.date_approved <> OKC_API.G_MISS_DATE and
1517: p_chrv_rec.date_approved IS NOT NULL)
1512: -- check that data exists
1513: If (p_chrv_rec.datetime_cancelled <> OKC_API.G_MISS_DATE and
1514: p_chrv_rec.datetime_cancelled IS NOT NULL)
1515: Then
1516: If (p_chrv_rec.date_approved <> OKC_API.G_MISS_DATE and
1517: p_chrv_rec.date_approved IS NOT NULL)
1518: Then
1519: If (p_chrv_rec.date_approved < p_chrv_rec.datetime_cancelled) Then
1520: x_return_status := OKC_API.G_RET_STS_ERROR;
1516: If (p_chrv_rec.date_approved <> OKC_API.G_MISS_DATE and
1517: p_chrv_rec.date_approved IS NOT NULL)
1518: Then
1519: If (p_chrv_rec.date_approved < p_chrv_rec.datetime_cancelled) Then
1520: x_return_status := OKC_API.G_RET_STS_ERROR;
1521: End If;
1522: Else
1523: x_return_status := OKC_API.G_RET_STS_ERROR;
1524: End If;
1519: If (p_chrv_rec.date_approved < p_chrv_rec.datetime_cancelled) Then
1520: x_return_status := OKC_API.G_RET_STS_ERROR;
1521: End If;
1522: Else
1523: x_return_status := OKC_API.G_RET_STS_ERROR;
1524: End If;
1525: End If;
1526: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1522: Else
1523: x_return_status := OKC_API.G_RET_STS_ERROR;
1524: End If;
1525: End If;
1526: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1528: p_msg_name => g_invalid_value,
1529: p_token1 => g_col_name_token,
1530: p_token1_value => 'datetime_cancelled');
1523: x_return_status := OKC_API.G_RET_STS_ERROR;
1524: End If;
1525: End If;
1526: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1528: p_msg_name => g_invalid_value,
1529: p_token1 => g_col_name_token,
1530: p_token1_value => 'datetime_cancelled');
1531: End If;
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546: -- store SQL error message on message stack
1547: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1548: p_msg_name => g_unexpected_error,
1549: p_token1 => g_sqlcode_token,
1550: p_token1_value => sqlcode,
1551: p_token2 => g_sqlerrm_token,
1550: p_token1_value => sqlcode,
1551: p_token2 => g_sqlerrm_token,
1552: p_token2_value => sqlerrm);
1553: -- notify caller of an error as UNEXPETED error
1554: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1555:
1556: End validate_datetime_cancelled;
1557: */
1558:
1573: okc_debug.LOG('7300: Entered validate_keep_on_mail_list', 2);
1574: END IF;
1575:
1576: -- initialize return status
1577: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1578:
1579: IF (p_chrv_rec.keep_on_mail_list <> OKC_API.G_MISS_CHAR AND
1580: p_chrv_rec.keep_on_mail_list IS NOT NULL)
1581: THEN
1575:
1576: -- initialize return status
1577: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1578:
1579: IF (p_chrv_rec.keep_on_mail_list <> OKC_API.G_MISS_CHAR AND
1580: p_chrv_rec.keep_on_mail_list IS NOT NULL)
1581: THEN
1582: -- check allowed values
1583: IF (upper(p_chrv_rec.keep_on_mail_list) NOT IN ('Y', 'N')) THEN
1580: p_chrv_rec.keep_on_mail_list IS NOT NULL)
1581: THEN
1582: -- check allowed values
1583: IF (upper(p_chrv_rec.keep_on_mail_list) NOT IN ('Y', 'N')) THEN
1584: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1585: p_msg_name => g_invalid_value,
1586: p_token1 => g_col_name_token,
1587: p_token1_value => 'keep_on_mail_list');
1588: -- notify caller of an error
1585: p_msg_name => g_invalid_value,
1586: p_token1 => g_col_name_token,
1587: p_token1_value => 'keep_on_mail_list');
1588: -- notify caller of an error
1589: x_return_status := OKC_API.G_RET_STS_ERROR;
1590: END IF;
1591: END IF;
1592: IF (l_debug = 'Y') THEN
1593: okc_debug.LOG('7400: Exiting validate_keep_on_mail_list', 2);
1603: okc_debug.Reset_Indentation;
1604: END IF;
1605:
1606: -- store SQL error message on message stack
1607: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1608: p_msg_name => g_unexpected_error,
1609: p_token1 => g_sqlcode_token,
1610: p_token1_value => SQLCODE,
1611: p_token2 => g_sqlerrm_token,
1610: p_token1_value => SQLCODE,
1611: p_token2 => g_sqlerrm_token,
1612: p_token2_value => SQLERRM);
1613: -- notify caller of an error as UNEXPETED error
1614: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1615:
1616: END validate_keep_on_mail_list;
1617:
1618: -- Start of comments
1632: okc_debug.LOG('7600: Entered validate_set_aside_percent', 2);
1633: END IF;
1634:
1635: -- initialize return status
1636: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1637:
1638: -- check percent range if not null
1639: IF ((p_chrv_rec.set_aside_percent <> OKC_API.G_MISS_NUM AND
1640: p_chrv_rec.set_aside_percent IS NOT NULL) AND
1635: -- initialize return status
1636: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1637:
1638: -- check percent range if not null
1639: IF ((p_chrv_rec.set_aside_percent <> OKC_API.G_MISS_NUM AND
1640: p_chrv_rec.set_aside_percent IS NOT NULL) AND
1641: (p_chrv_rec.set_aside_percent < 0 OR
1642: p_chrv_rec.set_aside_percent > 100))
1643: THEN
1640: p_chrv_rec.set_aside_percent IS NOT NULL) AND
1641: (p_chrv_rec.set_aside_percent < 0 OR
1642: p_chrv_rec.set_aside_percent > 100))
1643: THEN
1644: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1645: p_msg_name => g_invalid_value,
1646: p_token1 => g_col_name_token,
1647: p_token1_value => 'set_aside_percent');
1648: -- notify caller of an error
1645: p_msg_name => g_invalid_value,
1646: p_token1 => g_col_name_token,
1647: p_token1_value => 'set_aside_percent');
1648: -- notify caller of an error
1649: x_return_status := OKC_API.G_RET_STS_ERROR;
1650: END IF;
1651:
1652: IF (l_debug = 'Y') THEN
1653: okc_debug.LOG('7700: Exiting validate_set_aside_percent', 2);
1673: okc_debug.Reset_Indentation;
1674: END IF;
1675:
1676: -- store SQL error message on message stack
1677: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1678: p_msg_name => g_unexpected_error,
1679: p_token1 => g_sqlcode_token,
1680: p_token1_value => SQLCODE,
1681: p_token2 => g_sqlerrm_token,
1680: p_token1_value => SQLCODE,
1681: p_token2 => g_sqlerrm_token,
1682: p_token2_value => SQLERRM);
1683: -- notify caller of an error as UNEXPETED error
1684: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1685:
1686: END validate_set_aside_percent;
1687: /*
1688: -- Start of comments
1702: okc_debug.log('8000: Entered validate_date_terminated', 2);
1703: END IF;
1704:
1705: -- initialize return status
1706: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1707:
1708:
1709: -- check that data exists
1710: If (p_chrv_rec.date_terminated <> OKC_API.G_MISS_DATE and
1706: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1707:
1708:
1709: -- check that data exists
1710: If (p_chrv_rec.date_terminated <> OKC_API.G_MISS_DATE and
1711: p_chrv_rec.date_terminated IS NOT NULL)
1712: Then
1713: If (p_chrv_rec.date_signed <> OKC_API.G_MISS_DATE and
1714: p_chrv_rec.date_signed IS NOT NULL)
1709: -- check that data exists
1710: If (p_chrv_rec.date_terminated <> OKC_API.G_MISS_DATE and
1711: p_chrv_rec.date_terminated IS NOT NULL)
1712: Then
1713: If (p_chrv_rec.date_signed <> OKC_API.G_MISS_DATE and
1714: p_chrv_rec.date_signed IS NOT NULL)
1715: Then
1716: If (p_chrv_rec.date_signed > p_chrv_rec.date_terminated) Then
1717: x_return_status := OKC_API.G_RET_STS_ERROR;
1713: If (p_chrv_rec.date_signed <> OKC_API.G_MISS_DATE and
1714: p_chrv_rec.date_signed IS NOT NULL)
1715: Then
1716: If (p_chrv_rec.date_signed > p_chrv_rec.date_terminated) Then
1717: x_return_status := OKC_API.G_RET_STS_ERROR;
1718: End If;
1719: Else
1720: x_return_status := OKC_API.G_RET_STS_ERROR;
1721: End If;
1716: If (p_chrv_rec.date_signed > p_chrv_rec.date_terminated) Then
1717: x_return_status := OKC_API.G_RET_STS_ERROR;
1718: End If;
1719: Else
1720: x_return_status := OKC_API.G_RET_STS_ERROR;
1721: End If;
1722: End If;
1723:
1724: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1720: x_return_status := OKC_API.G_RET_STS_ERROR;
1721: End If;
1722: End If;
1723:
1724: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1725: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1726: p_msg_name => 'OKC_NOT_SIGNED_CONTRACT',
1727: p_token1 => g_col_name_token,
1728: p_token1_value => 'date_terminated');
1721: End If;
1722: End If;
1723:
1724: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1725: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1726: p_msg_name => 'OKC_NOT_SIGNED_CONTRACT',
1727: p_token1 => g_col_name_token,
1728: p_token1_value => 'date_terminated');
1729: End If;
1741: okc_debug.Reset_Indentation;
1742: END IF;
1743:
1744: -- store SQL error message on message stack
1745: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1746: p_msg_name => g_unexpected_error,
1747: p_token1 => g_sqlcode_token,
1748: p_token1_value => sqlcode,
1749: p_token2 => g_sqlerrm_token,
1748: p_token1_value => sqlcode,
1749: p_token2 => g_sqlerrm_token,
1750: p_token2_value => sqlerrm);
1751: -- notify caller of an error as UNEXPETED error
1752: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1753:
1754: End validate_date_terminated;
1755: */
1756: -- Start of comments
1770: okc_debug.LOG('8300: Entered validate_trn_code', 2);
1771: END IF;
1772:
1773: -- initialize return status
1774: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1775:
1776: -- enforce foreign key if data exists
1777: IF (p_chrv_rec.trn_code <> OKC_API.G_MISS_CHAR AND
1778: p_chrv_rec.trn_code IS NOT NULL)
1773: -- initialize return status
1774: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1775:
1776: -- enforce foreign key if data exists
1777: IF (p_chrv_rec.trn_code <> OKC_API.G_MISS_CHAR AND
1778: p_chrv_rec.trn_code IS NOT NULL)
1779: THEN
1780: -- Check if the value is a valid code from lookup table
1781: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
1779: THEN
1780: -- Check if the value is a valid code from lookup table
1781: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
1782: p_chrv_rec.trn_code);
1783: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: --set error message in message stack
1785: OKC_API.SET_MESSAGE(
1786: p_app_name => G_APP_NAME,
1787: p_msg_name => G_INVALID_VALUE,
1781: x_return_status := OKC_UTIL.check_lookup_code('OKC_TERMINATION_REASON',
1782: p_chrv_rec.trn_code);
1783: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: --set error message in message stack
1785: OKC_API.SET_MESSAGE(
1786: p_app_name => G_APP_NAME,
1787: p_msg_name => G_INVALID_VALUE,
1788: p_token1 => G_COL_NAME_TOKEN,
1789: p_token1_value => 'TERMINATION_REASON');
1787: p_msg_name => G_INVALID_VALUE,
1788: p_token1 => G_COL_NAME_TOKEN,
1789: p_token1_value => 'TERMINATION_REASON');
1790: RAISE G_EXCEPTION_HALT_VALIDATION;
1791: ELSIF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1792: RAISE G_EXCEPTION_HALT_VALIDATION;
1793: END IF;
1794: END IF;
1795: IF (l_debug = 'Y') THEN
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_trn_code;
1820:
1821: -- Start of comments
1843: okc_debug.LOG('8600: Entered validate_curr_code_rnwd', 2);
1844: END IF;
1845:
1846: -- initialize return status
1847: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1848:
1849: -- check that data exists
1850: IF (p_chrv_rec.currency_code_renewed <> OKC_API.G_MISS_CHAR OR
1851: p_chrv_rec.currency_code_renewed IS NOT NULL)
1846: -- initialize return status
1847: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1848:
1849: -- check that data exists
1850: IF (p_chrv_rec.currency_code_renewed <> OKC_API.G_MISS_CHAR OR
1851: p_chrv_rec.currency_code_renewed IS NOT NULL)
1852: THEN
1853: -- check data is in lookup table
1854: OPEN l_fndv_csr;
1856: CLOSE l_fndv_csr;
1857:
1858: -- if l_dummy_var still set to default, data was not found
1859: IF (l_dummy_var = '?') THEN
1860: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1861: p_msg_name => g_no_parent_record,
1862: p_token1 => g_col_name_token,
1863: p_token1_value => 'currency_code_renewed',
1864: p_token2 => g_child_table_token,
1865: p_token2_value => G_VIEW,
1866: p_token3 => g_parent_table_token,
1867: p_token3_value => 'FND_CURRENCIES');
1868: -- notify caller of an error
1869: x_return_status := OKC_API.G_RET_STS_ERROR;
1870: END IF;
1871: END IF;
1872: IF (l_debug = 'Y') THEN
1873: okc_debug.LOG('8700: Exiting validate_curr_code_rnwd', 2);
1893: okc_debug.Reset_Indentation;
1894: END IF;
1895:
1896: -- store SQL error message on message stack
1897: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1898: p_msg_name => g_unexpected_error,
1899: p_token1 => g_sqlcode_token,
1900: p_token1_value => SQLCODE,
1901: p_token2 => g_sqlerrm_token,
1900: p_token1_value => SQLCODE,
1901: p_token2 => g_sqlerrm_token,
1902: p_token2_value => SQLERRM);
1903: -- notify caller of an error as UNEXPETED error
1904: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1905:
1906: -- verify that cursor was closed
1907: IF l_fndv_csr%ISOPEN THEN
1908: CLOSE l_fndv_csr;
1920: okc_debug.LOG('9000: Entered validate_orig_sys_code', 2);
1921: END IF;
1922:
1923: -- initialize return status
1924: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1925:
1926: -- enforce foreign key if data exists
1927: IF (p_chrv_rec.orig_system_source_code <> OKC_API.G_MISS_CHAR AND
1928: p_chrv_rec.orig_system_source_code IS NOT NULL)
1923: -- initialize return status
1924: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1925:
1926: -- enforce foreign key if data exists
1927: IF (p_chrv_rec.orig_system_source_code <> OKC_API.G_MISS_CHAR AND
1928: p_chrv_rec.orig_system_source_code IS NOT NULL)
1929: THEN
1930: -- Check if the value is a valid code from lookup table
1931: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1929: THEN
1930: -- Check if the value is a valid code from lookup table
1931: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1932: p_chrv_rec.orig_system_source_code);
1933: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: --set error message in message stack
1935: OKC_API.SET_MESSAGE(
1936: p_app_name => G_APP_NAME,
1937: p_msg_name => G_INVALID_VALUE,
1931: x_return_status := OKC_UTIL.check_lookup_code('OKC_CONTRACT_SOURCES',
1932: p_chrv_rec.orig_system_source_code);
1933: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: --set error message in message stack
1935: OKC_API.SET_MESSAGE(
1936: p_app_name => G_APP_NAME,
1937: p_msg_name => G_INVALID_VALUE,
1938: p_token1 => G_COL_NAME_TOKEN,
1939: p_token1_value => 'ORIG_SYSTEM_SOURCE_CODE');
1937: p_msg_name => G_INVALID_VALUE,
1938: p_token1 => G_COL_NAME_TOKEN,
1939: p_token1_value => 'ORIG_SYSTEM_SOURCE_CODE');
1940: RAISE G_EXCEPTION_HALT_VALIDATION;
1941: ELSIF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE G_EXCEPTION_HALT_VALIDATION;
1943: END IF;
1944: END IF;
1945: IF (l_debug = 'Y') THEN
1956: okc_debug.Reset_Indentation;
1957: END IF;
1958:
1959: -- store SQL error message on message stack
1960: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1961: p_msg_name => g_unexpected_error,
1962: p_token1 => g_sqlcode_token,
1963: p_token1_value => SQLCODE,
1964: p_token2 => g_sqlerrm_token,
1963: p_token1_value => SQLCODE,
1964: p_token2 => g_sqlerrm_token,
1965: p_token2_value => SQLERRM);
1966: -- notify caller of an error as UNEXPETED error
1967: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1968:
1969: END validate_orig_sys_code;
1970:
1971: -- Procedure Name : validate_price_list_id
2008: okc_debug.LOG('9300: Entered validate_price_list_id', 2);
2009: END IF;
2010:
2011: -- initialize return status
2012: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2013:
2014: -- check that data exists
2015: IF (p_chrv_rec.price_list_id <> OKC_API.G_MISS_NUM AND
2016: p_chrv_rec.price_list_id IS NOT NULL) THEN
2011: -- initialize return status
2012: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2013:
2014: -- check that data exists
2015: IF (p_chrv_rec.price_list_id <> OKC_API.G_MISS_NUM AND
2016: p_chrv_rec.price_list_id IS NOT NULL) THEN
2017:
2018: -- check data is in lookup table
2019: OPEN l_price_list_id_csr;
2021: CLOSE l_price_list_id_csr;
2022:
2023: -- if l_dummy_var still set to default, data was not found
2024: IF (l_dummy_var = '?') THEN
2025: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2026: p_msg_name => g_invalid_value,
2027: p_token1 => g_col_name_token,
2028: p_token1_value => 'Price List Id');
2029: -- notify caller of an error
2026: p_msg_name => g_invalid_value,
2027: p_token1 => g_col_name_token,
2028: p_token1_value => 'Price List Id');
2029: -- notify caller of an error
2030: x_return_status := OKC_API.G_RET_STS_ERROR;
2031: END IF;
2032: END IF;
2033: IF (l_debug = 'Y') THEN
2034: okc_debug.LOG('9400: Exiting validate_price_list_id', 2);
2054: okc_debug.Reset_Indentation;
2055: END IF;
2056:
2057: -- store SQL error message on message stack
2058: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2059: p_msg_name => g_unexpected_error,
2060: p_token1 => g_sqlcode_token,
2061: p_token1_value => SQLCODE,
2062: p_token2 => g_sqlerrm_token,
2061: p_token1_value => SQLCODE,
2062: p_token2 => g_sqlerrm_token,
2063: p_token2_value => SQLERRM);
2064: -- notify caller of an error as UNEXPETED error
2065: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2066:
2067: END validate_price_list_id;
2068:
2069: ---------------------------------------------------------------------------
2073: p_chrv_rec IN chrv_rec_type,
2074: x_return_status OUT NOCOPY VARCHAR2) IS
2075: BEGIN
2076: -- initialize return status
2077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2078:
2079: -- check that data exists
2080: IF (p_chrv_rec.GOVERNING_CONTRACT_YN <> OKC_API.G_MISS_CHAR AND
2081: p_chrv_rec.GOVERNING_CONTRACT_YN IS NOT NULL)
2076: -- initialize return status
2077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2078:
2079: -- check that data exists
2080: IF (p_chrv_rec.GOVERNING_CONTRACT_YN <> OKC_API.G_MISS_CHAR AND
2081: p_chrv_rec.GOVERNING_CONTRACT_YN IS NOT NULL)
2082: THEN
2083: IF p_chrv_rec.GOVERNING_CONTRACT_YN NOT IN ('Y', 'N') THEN
2084: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2080: IF (p_chrv_rec.GOVERNING_CONTRACT_YN <> OKC_API.G_MISS_CHAR AND
2081: p_chrv_rec.GOVERNING_CONTRACT_YN IS NOT NULL)
2082: THEN
2083: IF p_chrv_rec.GOVERNING_CONTRACT_YN NOT IN ('Y', 'N') THEN
2084: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2085: p_msg_name => g_invalid_value,
2086: p_token1 => g_col_name_token,
2087: p_token1_value => 'GOVERNING_CONTRACT_YN');
2088: -- notify caller of an error
2085: p_msg_name => g_invalid_value,
2086: p_token1 => g_col_name_token,
2087: p_token1_value => 'GOVERNING_CONTRACT_YN');
2088: -- notify caller of an error
2089: x_return_status := OKC_API.G_RET_STS_ERROR;
2090:
2091: -- halt validation
2092: RAISE G_EXCEPTION_HALT_VALIDATION;
2093: END IF;
2099: NULL;
2100:
2101: WHEN OTHERS THEN
2102: -- store SQL error message on message stack
2103: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2104: p_msg_name => g_unexpected_error,
2105: p_token1 => g_sqlcode_token,
2106: p_token1_value => SQLCODE,
2107: p_token2 => g_sqlerrm_token,
2106: p_token1_value => SQLCODE,
2107: p_token2 => g_sqlerrm_token,
2108: p_token2_value => SQLERRM);
2109: -- notify caller of an error as UNEXPETED error
2110: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2111: END validate_GOVERNING_CONTRACT_YN;
2112:
2113:
2114: -- Start of comments
2129: okc_debug.LOG('9612: Entered validate_renewal_type_code', 2);
2130: END IF;
2131:
2132: -- initialize return status
2133: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2134:
2135: -- check that data exists
2136: IF (p_chrv_rec.renewal_type_code <> OKC_API.G_MISS_CHAR AND
2137: p_chrv_rec.renewal_type_code IS NOT NULL)
2132: -- initialize return status
2133: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2134:
2135: -- check that data exists
2136: IF (p_chrv_rec.renewal_type_code <> OKC_API.G_MISS_CHAR AND
2137: p_chrv_rec.renewal_type_code IS NOT NULL)
2138: THEN
2139: -- Check if the value is a valid code from lookup table
2140: x_return_status := OKC_UTIL.check_lookup_code('OKC_RENEWAL_TYPE',
2139: -- Check if the value is a valid code from lookup table
2140: x_return_status := OKC_UTIL.check_lookup_code('OKC_RENEWAL_TYPE',
2141: p_chrv_rec.renewal_type_code);
2142:
2143: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: --set error message in message stack
2145: OKC_API.SET_MESSAGE(
2146: p_app_name => G_APP_NAME,
2147: p_msg_name => G_INVALID_VALUE,
2141: p_chrv_rec.renewal_type_code);
2142:
2143: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: --set error message in message stack
2145: OKC_API.SET_MESSAGE(
2146: p_app_name => G_APP_NAME,
2147: p_msg_name => G_INVALID_VALUE,
2148: p_token1 => G_COL_NAME_TOKEN,
2149: p_token1_value => 'RENEWAL_TYPE');
2147: p_msg_name => G_INVALID_VALUE,
2148: p_token1 => G_COL_NAME_TOKEN,
2149: p_token1_value => 'RENEWAL_TYPE');
2150:
2151: ELSIF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE G_EXCEPTION_HALT_VALIDATION;
2153: END IF;
2154: END IF;
2155: IF (l_debug = 'Y') THEN
2167: okc_debug.Reset_Indentation;
2168: END IF;
2169:
2170: -- store SQL error message on message stack
2171: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2172: p_msg_name => g_unexpected_error,
2173: p_token1 => g_sqlcode_token,
2174: p_token1_value => SQLCODE,
2175: p_token2 => g_sqlerrm_token,
2174: p_token1_value => SQLCODE,
2175: p_token2 => g_sqlerrm_token,
2176: p_token2_value => SQLERRM);
2177: -- notify caller of an error as UNEXPETED error
2178: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2179:
2180:
2181:
2182: END validate_renewal_type_code;
2199: okc_debug.LOG('9612: Entered validate_oks_renewal_type_code', 2);
2200: END IF;
2201:
2202: -- initialize return status
2203: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2204:
2205: -- check that data exists
2206: IF (p_chrv_rec.renewal_type_code <> OKC_API.G_MISS_CHAR AND
2207: p_chrv_rec.renewal_type_code IS NOT NULL)
2202: -- initialize return status
2203: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2204:
2205: -- check that data exists
2206: IF (p_chrv_rec.renewal_type_code <> OKC_API.G_MISS_CHAR AND
2207: p_chrv_rec.renewal_type_code IS NOT NULL)
2208: THEN
2209: -- Check if the value is a valid code from lookup table
2210: x_return_status := OKC_UTIL.check_lookup_code('OKS_RENEWAL_TYPE',
2209: -- Check if the value is a valid code from lookup table
2210: x_return_status := OKC_UTIL.check_lookup_code('OKS_RENEWAL_TYPE',
2211: p_chrv_rec.renewal_type_code);
2212:
2213: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2214: --set error message in message stack
2215: OKC_API.SET_MESSAGE(
2216: p_app_name => G_APP_NAME,
2217: p_msg_name => G_INVALID_VALUE,
2211: p_chrv_rec.renewal_type_code);
2212:
2213: IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2214: --set error message in message stack
2215: OKC_API.SET_MESSAGE(
2216: p_app_name => G_APP_NAME,
2217: p_msg_name => G_INVALID_VALUE,
2218: p_token1 => G_COL_NAME_TOKEN,
2219: p_token1_value => 'RENEWAL_TYPE');
2217: p_msg_name => G_INVALID_VALUE,
2218: p_token1 => G_COL_NAME_TOKEN,
2219: p_token1_value => 'RENEWAL_TYPE');
2220:
2221: ELSIF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2222: RAISE G_EXCEPTION_HALT_VALIDATION;
2223: END IF;
2224: END IF;
2225: IF (l_debug = 'Y') THEN
2237: okc_debug.Reset_Indentation;
2238: END IF;
2239:
2240: -- store SQL error message on message stack
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2242: p_msg_name => g_unexpected_error,
2243: p_token1 => g_sqlcode_token,
2244: p_token1_value => SQLCODE,
2245: p_token2 => g_sqlerrm_token,
2244: p_token1_value => SQLCODE,
2245: p_token2 => g_sqlerrm_token,
2246: p_token2_value => SQLERRM);
2247: -- notify caller of an error as UNEXPETED error
2248: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2249:
2250:
2251:
2252: END validate_oks_renewal_type_code;
2279: okc_debug.LOG('500: Entered validate_approval_type', 2);
2280: END IF;
2281:
2282: -- initialize return status
2283: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2284:
2285: -- check that data exists
2286: IF (p_chrv_rec.approval_type = OKC_API.G_MISS_CHAR OR
2287: p_chrv_rec.approval_type IS NULL)
2282: -- initialize return status
2283: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2284:
2285: -- check that data exists
2286: IF (p_chrv_rec.approval_type = OKC_API.G_MISS_CHAR OR
2287: p_chrv_rec.approval_type IS NULL)
2288: THEN
2289: NULL;
2290: ELSE
2294: CLOSE l_fndv_csr;
2295:
2296: -- if l_dummy_var still set to default, data was not found
2297: IF (l_dummy_var = '?') THEN
2298: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2299: p_msg_name => g_no_parent_record,
2300: p_token1 => g_col_name_token,
2301: p_token1_value => 'approval_type',
2302: p_token2 => g_child_table_token,
2303: p_token2_value => G_VIEW,
2304: p_token3 => g_parent_table_token,
2305: p_token3_value => 'FND_LOOKUPS');
2306: -- notify caller of an error
2307: x_return_status := OKC_API.G_RET_STS_ERROR;
2308: END IF;
2309: IF (l_debug = 'Y') THEN
2310: okc_debug.LOG('600: Exiting validate_approval_type', 2);
2311: okc_debug.Reset_Indentation;
2330: okc_debug.Reset_Indentation;
2331: END IF;
2332:
2333: -- store SQL error message on message stack
2334: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2335: p_msg_name => g_unexpected_error,
2336: p_token1 => g_sqlcode_token,
2337: p_token1_value => SQLCODE,
2338: p_token2 => g_sqlerrm_token,
2337: p_token1_value => SQLCODE,
2338: p_token2 => g_sqlerrm_token,
2339: p_token2_value => SQLERRM);
2340: -- notify caller of an error as UNEXPETED error
2341: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2342:
2343: -- verify that cursor was closed
2344: IF l_fndv_csr%ISOPEN THEN
2345: CLOSE l_fndv_csr;
3274: okc_debug.Set_Indentation('OKC_CHR_PVT');
3275: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3276: END IF;
3277:
3278: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3279: l_chrv_rec.object_version_number := NULL;
3280: END IF;
3281: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3282: l_chrv_rec.sfwt_flag := NULL;
3277:
3278: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3279: l_chrv_rec.object_version_number := NULL;
3280: END IF;
3281: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3282: l_chrv_rec.sfwt_flag := NULL;
3283: END IF;
3284: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3285: l_chrv_rec.chr_id_response := NULL;
3280: END IF;
3281: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3282: l_chrv_rec.sfwt_flag := NULL;
3283: END IF;
3284: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3285: l_chrv_rec.chr_id_response := NULL;
3286: END IF;
3287: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3288: l_chrv_rec.chr_id_award := NULL;
3283: END IF;
3284: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3285: l_chrv_rec.chr_id_response := NULL;
3286: END IF;
3287: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3288: l_chrv_rec.chr_id_award := NULL;
3289: END IF;
3290: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3291: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3286: END IF;
3287: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3288: l_chrv_rec.chr_id_award := NULL;
3289: END IF;
3290: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3291: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3292: END IF;
3293: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3294: l_chrv_rec.sts_code := NULL;
3289: END IF;
3290: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3291: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3292: END IF;
3293: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3294: l_chrv_rec.sts_code := NULL;
3295: END IF;
3296: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3297: l_chrv_rec.qcl_id := NULL;
3292: END IF;
3293: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3294: l_chrv_rec.sts_code := NULL;
3295: END IF;
3296: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3297: l_chrv_rec.qcl_id := NULL;
3298: END IF;
3299: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3300: l_chrv_rec.scs_code := NULL;
3295: END IF;
3296: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3297: l_chrv_rec.qcl_id := NULL;
3298: END IF;
3299: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3300: l_chrv_rec.scs_code := NULL;
3301: END IF;
3302: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3303: l_chrv_rec.contract_number := NULL;
3298: END IF;
3299: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3300: l_chrv_rec.scs_code := NULL;
3301: END IF;
3302: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3303: l_chrv_rec.contract_number := NULL;
3304: END IF;
3305: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3306: l_chrv_rec.currency_code := NULL;
3301: END IF;
3302: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3303: l_chrv_rec.contract_number := NULL;
3304: END IF;
3305: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3306: l_chrv_rec.currency_code := NULL;
3307: END IF;
3308: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3309: l_chrv_rec.contract_number_modifier := NULL;
3304: END IF;
3305: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3306: l_chrv_rec.currency_code := NULL;
3307: END IF;
3308: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3309: l_chrv_rec.contract_number_modifier := NULL;
3310: END IF;
3311: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3312: l_chrv_rec.archived_yn := NULL;
3307: END IF;
3308: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3309: l_chrv_rec.contract_number_modifier := NULL;
3310: END IF;
3311: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3312: l_chrv_rec.archived_yn := NULL;
3313: END IF;
3314: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3315: l_chrv_rec.deleted_yn := NULL;
3310: END IF;
3311: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3312: l_chrv_rec.archived_yn := NULL;
3313: END IF;
3314: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3315: l_chrv_rec.deleted_yn := NULL;
3316: END IF;
3317: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3318: l_chrv_rec.cust_po_number_req_yn := NULL;
3313: END IF;
3314: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3315: l_chrv_rec.deleted_yn := NULL;
3316: END IF;
3317: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3318: l_chrv_rec.cust_po_number_req_yn := NULL;
3319: END IF;
3320: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3321: l_chrv_rec.pre_pay_req_yn := NULL;
3316: END IF;
3317: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3318: l_chrv_rec.cust_po_number_req_yn := NULL;
3319: END IF;
3320: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3321: l_chrv_rec.pre_pay_req_yn := NULL;
3322: END IF;
3323: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3324: l_chrv_rec.cust_po_number := NULL;
3319: END IF;
3320: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3321: l_chrv_rec.pre_pay_req_yn := NULL;
3322: END IF;
3323: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3324: l_chrv_rec.cust_po_number := NULL;
3325: END IF;
3326: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3327: l_chrv_rec.short_description := NULL;
3322: END IF;
3323: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3324: l_chrv_rec.cust_po_number := NULL;
3325: END IF;
3326: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3327: l_chrv_rec.short_description := NULL;
3328: END IF;
3329: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3330: l_chrv_rec.comments := NULL;
3325: END IF;
3326: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3327: l_chrv_rec.short_description := NULL;
3328: END IF;
3329: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3330: l_chrv_rec.comments := NULL;
3331: END IF;
3332: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3333: l_chrv_rec.description := NULL;
3328: END IF;
3329: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3330: l_chrv_rec.comments := NULL;
3331: END IF;
3332: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3333: l_chrv_rec.description := NULL;
3334: END IF;
3335: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3336: l_chrv_rec.dpas_rating := NULL;
3331: END IF;
3332: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3333: l_chrv_rec.description := NULL;
3334: END IF;
3335: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3336: l_chrv_rec.dpas_rating := NULL;
3337: END IF;
3338: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3339: l_chrv_rec.cognomen := NULL;
3334: END IF;
3335: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3336: l_chrv_rec.dpas_rating := NULL;
3337: END IF;
3338: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3339: l_chrv_rec.cognomen := NULL;
3340: END IF;
3341: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3342: l_chrv_rec.template_yn := NULL;
3337: END IF;
3338: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3339: l_chrv_rec.cognomen := NULL;
3340: END IF;
3341: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3342: l_chrv_rec.template_yn := NULL;
3343: END IF;
3344: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3345: l_chrv_rec.template_used := NULL;
3340: END IF;
3341: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3342: l_chrv_rec.template_yn := NULL;
3343: END IF;
3344: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3345: l_chrv_rec.template_used := NULL;
3346: END IF;
3347: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3348: l_chrv_rec.date_approved := NULL;
3343: END IF;
3344: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3345: l_chrv_rec.template_used := NULL;
3346: END IF;
3347: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3348: l_chrv_rec.date_approved := NULL;
3349: END IF;
3350: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3351: l_chrv_rec.datetime_cancelled := NULL;
3346: END IF;
3347: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3348: l_chrv_rec.date_approved := NULL;
3349: END IF;
3350: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3351: l_chrv_rec.datetime_cancelled := NULL;
3352: END IF;
3353: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3354: l_chrv_rec.auto_renew_days := NULL;
3349: END IF;
3350: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3351: l_chrv_rec.datetime_cancelled := NULL;
3352: END IF;
3353: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3354: l_chrv_rec.auto_renew_days := NULL;
3355: END IF;
3356: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3357: l_chrv_rec.date_issued := NULL;
3352: END IF;
3353: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3354: l_chrv_rec.auto_renew_days := NULL;
3355: END IF;
3356: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3357: l_chrv_rec.date_issued := NULL;
3358: END IF;
3359: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3360: l_chrv_rec.datetime_responded := NULL;
3355: END IF;
3356: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3357: l_chrv_rec.date_issued := NULL;
3358: END IF;
3359: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3360: l_chrv_rec.datetime_responded := NULL;
3361: END IF;
3362: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3363: l_chrv_rec.non_response_reason := NULL;
3358: END IF;
3359: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3360: l_chrv_rec.datetime_responded := NULL;
3361: END IF;
3362: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3363: l_chrv_rec.non_response_reason := NULL;
3364: END IF;
3365: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3366: l_chrv_rec.non_response_explain := NULL;
3361: END IF;
3362: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3363: l_chrv_rec.non_response_reason := NULL;
3364: END IF;
3365: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3366: l_chrv_rec.non_response_explain := NULL;
3367: END IF;
3368: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3369: l_chrv_rec.rfp_type := NULL;
3364: END IF;
3365: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3366: l_chrv_rec.non_response_explain := NULL;
3367: END IF;
3368: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3369: l_chrv_rec.rfp_type := NULL;
3370: END IF;
3371: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3372: l_chrv_rec.chr_type := NULL;
3367: END IF;
3368: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3369: l_chrv_rec.rfp_type := NULL;
3370: END IF;
3371: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3372: l_chrv_rec.chr_type := NULL;
3373: END IF;
3374: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3375: l_chrv_rec.keep_on_mail_list := NULL;
3370: END IF;
3371: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3372: l_chrv_rec.chr_type := NULL;
3373: END IF;
3374: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3375: l_chrv_rec.keep_on_mail_list := NULL;
3376: END IF;
3377: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3378: l_chrv_rec.set_aside_reason := NULL;
3373: END IF;
3374: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3375: l_chrv_rec.keep_on_mail_list := NULL;
3376: END IF;
3377: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3378: l_chrv_rec.set_aside_reason := NULL;
3379: END IF;
3380: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3381: l_chrv_rec.set_aside_percent := NULL;
3376: END IF;
3377: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3378: l_chrv_rec.set_aside_reason := NULL;
3379: END IF;
3380: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3381: l_chrv_rec.set_aside_percent := NULL;
3382: END IF;
3383: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3384: l_chrv_rec.response_copies_req := NULL;
3379: END IF;
3380: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3381: l_chrv_rec.set_aside_percent := NULL;
3382: END IF;
3383: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3384: l_chrv_rec.response_copies_req := NULL;
3385: END IF;
3386: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3387: l_chrv_rec.date_close_projected := NULL;
3382: END IF;
3383: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3384: l_chrv_rec.response_copies_req := NULL;
3385: END IF;
3386: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3387: l_chrv_rec.date_close_projected := NULL;
3388: END IF;
3389: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3390: l_chrv_rec.datetime_proposed := NULL;
3385: END IF;
3386: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3387: l_chrv_rec.date_close_projected := NULL;
3388: END IF;
3389: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3390: l_chrv_rec.datetime_proposed := NULL;
3391: END IF;
3392: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3393: l_chrv_rec.date_signed := NULL;
3388: END IF;
3389: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3390: l_chrv_rec.datetime_proposed := NULL;
3391: END IF;
3392: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3393: l_chrv_rec.date_signed := NULL;
3394: END IF;
3395: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3396: l_chrv_rec.date_terminated := NULL;
3391: END IF;
3392: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3393: l_chrv_rec.date_signed := NULL;
3394: END IF;
3395: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3396: l_chrv_rec.date_terminated := NULL;
3397: END IF;
3398: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3399: l_chrv_rec.date_renewed := NULL;
3394: END IF;
3395: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3396: l_chrv_rec.date_terminated := NULL;
3397: END IF;
3398: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3399: l_chrv_rec.date_renewed := NULL;
3400: END IF;
3401: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3402: l_chrv_rec.trn_code := NULL;
3397: END IF;
3398: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3399: l_chrv_rec.date_renewed := NULL;
3400: END IF;
3401: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3402: l_chrv_rec.trn_code := NULL;
3403: END IF;
3404: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3405: l_chrv_rec.start_date := NULL;
3400: END IF;
3401: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3402: l_chrv_rec.trn_code := NULL;
3403: END IF;
3404: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3405: l_chrv_rec.start_date := NULL;
3406: END IF;
3407: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3408: l_chrv_rec.end_date := NULL;
3403: END IF;
3404: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3405: l_chrv_rec.start_date := NULL;
3406: END IF;
3407: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3408: l_chrv_rec.end_date := NULL;
3409: END IF;
3410: IF (l_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM) THEN
3411: l_chrv_rec.authoring_org_id := NULL;
3406: END IF;
3407: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3408: l_chrv_rec.end_date := NULL;
3409: END IF;
3410: IF (l_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM) THEN
3411: l_chrv_rec.authoring_org_id := NULL;
3412: END IF;
3413: --mmadhavi added for MOAC
3414:
3411: l_chrv_rec.authoring_org_id := NULL;
3412: END IF;
3413: --mmadhavi added for MOAC
3414:
3415: IF (l_chrv_rec.org_id = OKC_API.G_MISS_NUM) THEN
3416: l_chrv_rec.org_id := NULL;
3417: END IF;
3418:
3419: --mmadhavi end MOAC
3416: l_chrv_rec.org_id := NULL;
3417: END IF;
3418:
3419: --mmadhavi end MOAC
3420: IF (l_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR) THEN
3421: l_chrv_rec.buy_or_sell := NULL;
3422: END IF;
3423: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3424: l_chrv_rec.issue_or_receive := NULL;
3419: --mmadhavi end MOAC
3420: IF (l_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR) THEN
3421: l_chrv_rec.buy_or_sell := NULL;
3422: END IF;
3423: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3424: l_chrv_rec.issue_or_receive := NULL;
3425: END IF;
3426: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3427: l_chrv_rec.estimated_amount := NULL;
3422: END IF;
3423: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3424: l_chrv_rec.issue_or_receive := NULL;
3425: END IF;
3426: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3427: l_chrv_rec.estimated_amount := NULL;
3428: END IF;
3429: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3430: l_chrv_rec.estimated_amount_renewed := NULL;
3425: END IF;
3426: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3427: l_chrv_rec.estimated_amount := NULL;
3428: END IF;
3429: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3430: l_chrv_rec.estimated_amount_renewed := NULL;
3431: END IF;
3432: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3433: l_chrv_rec.currency_code_renewed := NULL;
3428: END IF;
3429: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3430: l_chrv_rec.estimated_amount_renewed := NULL;
3431: END IF;
3432: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3433: l_chrv_rec.currency_code_renewed := NULL;
3434: END IF;
3435: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3436: l_chrv_rec.upg_orig_system_ref := NULL;
3431: END IF;
3432: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3433: l_chrv_rec.currency_code_renewed := NULL;
3434: END IF;
3435: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3436: l_chrv_rec.upg_orig_system_ref := NULL;
3437: END IF;
3438: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3439: l_chrv_rec.upg_orig_system_ref_id := NULL;
3434: END IF;
3435: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3436: l_chrv_rec.upg_orig_system_ref := NULL;
3437: END IF;
3438: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3439: l_chrv_rec.upg_orig_system_ref_id := NULL;
3440: END IF;
3441: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3442: l_chrv_rec.program_id := NULL;
3437: END IF;
3438: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3439: l_chrv_rec.upg_orig_system_ref_id := NULL;
3440: END IF;
3441: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3442: l_chrv_rec.program_id := NULL;
3443: END IF;
3444: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3445: l_chrv_rec.request_id := NULL;
3440: END IF;
3441: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3442: l_chrv_rec.program_id := NULL;
3443: END IF;
3444: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3445: l_chrv_rec.request_id := NULL;
3446: END IF;
3447: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3448: l_chrv_rec.program_update_date := NULL;
3443: END IF;
3444: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3445: l_chrv_rec.request_id := NULL;
3446: END IF;
3447: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3448: l_chrv_rec.program_update_date := NULL;
3449: END IF;
3450: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3451: l_chrv_rec.program_application_id := NULL;
3446: END IF;
3447: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3448: l_chrv_rec.program_update_date := NULL;
3449: END IF;
3450: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3451: l_chrv_rec.program_application_id := NULL;
3452: END IF;
3453: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3454: l_chrv_rec.price_list_id := NULL;
3449: END IF;
3450: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3451: l_chrv_rec.program_application_id := NULL;
3452: END IF;
3453: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3454: l_chrv_rec.price_list_id := NULL;
3455: END IF;
3456: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3457: l_chrv_rec.pricing_date := NULL;
3452: END IF;
3453: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3454: l_chrv_rec.price_list_id := NULL;
3455: END IF;
3456: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3457: l_chrv_rec.pricing_date := NULL;
3458: END IF;
3459: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3460: l_chrv_rec.sign_by_date := NULL;
3455: END IF;
3456: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3457: l_chrv_rec.pricing_date := NULL;
3458: END IF;
3459: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3460: l_chrv_rec.sign_by_date := NULL;
3461: END IF;
3462: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3463: l_chrv_rec.total_line_list_price := NULL;
3458: END IF;
3459: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3460: l_chrv_rec.sign_by_date := NULL;
3461: END IF;
3462: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3463: l_chrv_rec.total_line_list_price := NULL;
3464: END IF;
3465: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3466: l_chrv_rec.application_id := NULL;
3461: END IF;
3462: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3463: l_chrv_rec.total_line_list_price := NULL;
3464: END IF;
3465: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3466: l_chrv_rec.application_id := NULL;
3467: END IF;
3468: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3469: l_chrv_rec.orig_system_source_code := NULL;
3464: END IF;
3465: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3466: l_chrv_rec.application_id := NULL;
3467: END IF;
3468: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3469: l_chrv_rec.orig_system_source_code := NULL;
3470: END IF;
3471: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3472: l_chrv_rec.orig_system_id1 := NULL;
3467: END IF;
3468: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3469: l_chrv_rec.orig_system_source_code := NULL;
3470: END IF;
3471: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3472: l_chrv_rec.orig_system_id1 := NULL;
3473: END IF;
3474: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3475: l_chrv_rec.orig_system_reference1 := NULL;
3470: END IF;
3471: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3472: l_chrv_rec.orig_system_id1 := NULL;
3473: END IF;
3474: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3475: l_chrv_rec.orig_system_reference1 := NULL;
3476: END IF;
3477:
3478: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3474: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3475: l_chrv_rec.orig_system_reference1 := NULL;
3476: END IF;
3477:
3478: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3479: l_chrv_rec.USER_ESTIMATED_AMOUNT := NULL;
3480: END IF;
3481:
3482: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3478: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3479: l_chrv_rec.USER_ESTIMATED_AMOUNT := NULL;
3480: END IF;
3481:
3482: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3483: l_chrv_rec.GOVERNING_CONTRACT_YN := NULL;
3484: END IF;
3485:
3486: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3482: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3483: l_chrv_rec.GOVERNING_CONTRACT_YN := NULL;
3484: END IF;
3485:
3486: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3487: l_chrv_rec.attribute_category := NULL;
3488: END IF;
3489: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3490: l_chrv_rec.attribute1 := NULL;
3485:
3486: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3487: l_chrv_rec.attribute_category := NULL;
3488: END IF;
3489: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3490: l_chrv_rec.attribute1 := NULL;
3491: END IF;
3492: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3493: l_chrv_rec.attribute2 := NULL;
3488: END IF;
3489: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3490: l_chrv_rec.attribute1 := NULL;
3491: END IF;
3492: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3493: l_chrv_rec.attribute2 := NULL;
3494: END IF;
3495: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3496: l_chrv_rec.attribute3 := NULL;
3491: END IF;
3492: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3493: l_chrv_rec.attribute2 := NULL;
3494: END IF;
3495: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3496: l_chrv_rec.attribute3 := NULL;
3497: END IF;
3498: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3499: l_chrv_rec.attribute4 := NULL;
3494: END IF;
3495: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3496: l_chrv_rec.attribute3 := NULL;
3497: END IF;
3498: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3499: l_chrv_rec.attribute4 := NULL;
3500: END IF;
3501: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3502: l_chrv_rec.attribute5 := NULL;
3497: END IF;
3498: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3499: l_chrv_rec.attribute4 := NULL;
3500: END IF;
3501: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3502: l_chrv_rec.attribute5 := NULL;
3503: END IF;
3504: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3505: l_chrv_rec.attribute6 := NULL;
3500: END IF;
3501: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3502: l_chrv_rec.attribute5 := NULL;
3503: END IF;
3504: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3505: l_chrv_rec.attribute6 := NULL;
3506: END IF;
3507: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3508: l_chrv_rec.attribute7 := NULL;
3503: END IF;
3504: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3505: l_chrv_rec.attribute6 := NULL;
3506: END IF;
3507: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3508: l_chrv_rec.attribute7 := NULL;
3509: END IF;
3510: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3511: l_chrv_rec.attribute8 := NULL;
3506: END IF;
3507: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3508: l_chrv_rec.attribute7 := NULL;
3509: END IF;
3510: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3511: l_chrv_rec.attribute8 := NULL;
3512: END IF;
3513: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3514: l_chrv_rec.attribute9 := NULL;
3509: END IF;
3510: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3511: l_chrv_rec.attribute8 := NULL;
3512: END IF;
3513: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3514: l_chrv_rec.attribute9 := NULL;
3515: END IF;
3516: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3517: l_chrv_rec.attribute10 := NULL;
3512: END IF;
3513: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3514: l_chrv_rec.attribute9 := NULL;
3515: END IF;
3516: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3517: l_chrv_rec.attribute10 := NULL;
3518: END IF;
3519: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3520: l_chrv_rec.attribute11 := NULL;
3515: END IF;
3516: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3517: l_chrv_rec.attribute10 := NULL;
3518: END IF;
3519: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3520: l_chrv_rec.attribute11 := NULL;
3521: END IF;
3522: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3523: l_chrv_rec.attribute12 := NULL;
3518: END IF;
3519: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3520: l_chrv_rec.attribute11 := NULL;
3521: END IF;
3522: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3523: l_chrv_rec.attribute12 := NULL;
3524: END IF;
3525: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3526: l_chrv_rec.attribute13 := NULL;
3521: END IF;
3522: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3523: l_chrv_rec.attribute12 := NULL;
3524: END IF;
3525: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3526: l_chrv_rec.attribute13 := NULL;
3527: END IF;
3528: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3529: l_chrv_rec.attribute14 := NULL;
3524: END IF;
3525: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3526: l_chrv_rec.attribute13 := NULL;
3527: END IF;
3528: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3529: l_chrv_rec.attribute14 := NULL;
3530: END IF;
3531: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3532: l_chrv_rec.attribute15 := NULL;
3527: END IF;
3528: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3529: l_chrv_rec.attribute14 := NULL;
3530: END IF;
3531: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3532: l_chrv_rec.attribute15 := NULL;
3533: END IF;
3534: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3535: l_chrv_rec.created_by := NULL;
3530: END IF;
3531: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3532: l_chrv_rec.attribute15 := NULL;
3533: END IF;
3534: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3535: l_chrv_rec.created_by := NULL;
3536: END IF;
3537: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3538: l_chrv_rec.creation_date := NULL;
3533: END IF;
3534: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3535: l_chrv_rec.created_by := NULL;
3536: END IF;
3537: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3538: l_chrv_rec.creation_date := NULL;
3539: END IF;
3540: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3541: l_chrv_rec.last_updated_by := NULL;
3536: END IF;
3537: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3538: l_chrv_rec.creation_date := NULL;
3539: END IF;
3540: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3541: l_chrv_rec.last_updated_by := NULL;
3542: END IF;
3543: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3544: l_chrv_rec.last_update_date := NULL;
3539: END IF;
3540: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3541: l_chrv_rec.last_updated_by := NULL;
3542: END IF;
3543: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3544: l_chrv_rec.last_update_date := NULL;
3545: END IF;
3546: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3547: l_chrv_rec.last_update_login := NULL;
3542: END IF;
3543: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3544: l_chrv_rec.last_update_date := NULL;
3545: END IF;
3546: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3547: l_chrv_rec.last_update_login := NULL;
3548: END IF;
3549: -- new columns to replace rules
3550: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3546: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3547: l_chrv_rec.last_update_login := NULL;
3548: END IF;
3549: -- new columns to replace rules
3550: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3551: l_chrv_rec.conversion_type := NULL;
3552: END IF;
3553: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3554: l_chrv_rec.conversion_rate := NULL;
3549: -- new columns to replace rules
3550: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3551: l_chrv_rec.conversion_type := NULL;
3552: END IF;
3553: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3554: l_chrv_rec.conversion_rate := NULL;
3555: END IF;
3556: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3557: l_chrv_rec.conversion_rate_date := NULL;
3552: END IF;
3553: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3554: l_chrv_rec.conversion_rate := NULL;
3555: END IF;
3556: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3557: l_chrv_rec.conversion_rate_date := NULL;
3558: END IF;
3559: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3560: l_chrv_rec.conversion_euro_rate := NULL;
3555: END IF;
3556: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3557: l_chrv_rec.conversion_rate_date := NULL;
3558: END IF;
3559: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3560: l_chrv_rec.conversion_euro_rate := NULL;
3561: END IF;
3562: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3563: l_chrv_rec .cust_acct_id := NULL;
3558: END IF;
3559: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3560: l_chrv_rec.conversion_euro_rate := NULL;
3561: END IF;
3562: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3563: l_chrv_rec .cust_acct_id := NULL;
3564: END IF;
3565: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3566: l_chrv_rec.bill_to_site_use_id := NULL;
3561: END IF;
3562: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3563: l_chrv_rec .cust_acct_id := NULL;
3564: END IF;
3565: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3566: l_chrv_rec.bill_to_site_use_id := NULL;
3567: END IF;
3568: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3569: l_chrv_rec.inv_rule_id := NULL;
3564: END IF;
3565: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3566: l_chrv_rec.bill_to_site_use_id := NULL;
3567: END IF;
3568: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3569: l_chrv_rec.inv_rule_id := NULL;
3570: END IF;
3571: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3572: l_chrv_rec.renewal_type_code := NULL;
3567: END IF;
3568: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3569: l_chrv_rec.inv_rule_id := NULL;
3570: END IF;
3571: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3572: l_chrv_rec.renewal_type_code := NULL;
3573: END IF;
3574: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3575: l_chrv_rec.renewal_notify_to := NULL;
3570: END IF;
3571: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3572: l_chrv_rec.renewal_type_code := NULL;
3573: END IF;
3574: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3575: l_chrv_rec.renewal_notify_to := NULL;
3576: END IF;
3577: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3578: l_chrv_rec.renewal_end_date := NULL;
3573: END IF;
3574: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3575: l_chrv_rec.renewal_notify_to := NULL;
3576: END IF;
3577: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3578: l_chrv_rec.renewal_end_date := NULL;
3579: END IF;
3580: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3581: l_chrv_rec.ship_to_site_use_id := NULL;
3576: END IF;
3577: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3578: l_chrv_rec.renewal_end_date := NULL;
3579: END IF;
3580: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3581: l_chrv_rec.ship_to_site_use_id := NULL;
3582: END IF;
3583: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3584: l_chrv_rec.payment_term_id := NULL;
3579: END IF;
3580: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3581: l_chrv_rec.ship_to_site_use_id := NULL;
3582: END IF;
3583: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3584: l_chrv_rec.payment_term_id := NULL;
3585: END IF;
3586: -- R12 Data Model Changes 4485150 Start
3587: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3583: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3584: l_chrv_rec.payment_term_id := NULL;
3585: END IF;
3586: -- R12 Data Model Changes 4485150 Start
3587: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3588: l_chrv_rec.approval_type := NULL;
3589: END IF;
3590: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3591: l_chrv_rec.term_cancel_source := NULL;
3586: -- R12 Data Model Changes 4485150 Start
3587: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3588: l_chrv_rec.approval_type := NULL;
3589: END IF;
3590: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3591: l_chrv_rec.term_cancel_source := NULL;
3592: END IF;
3593: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3594: l_chrv_rec.payment_instruction_type := NULL;
3589: END IF;
3590: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3591: l_chrv_rec.term_cancel_source := NULL;
3592: END IF;
3593: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3594: l_chrv_rec.payment_instruction_type := NULL;
3595: END IF;
3596: -- LLC
3597: IF (l_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3593: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3594: l_chrv_rec.payment_instruction_type := NULL;
3595: END IF;
3596: -- LLC
3597: IF (l_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3598: l_chrv_rec.cancelled_amount := NULL;
3599: END IF;
3600: -- R12 Data Model Changes 4485150 End
3601: RETURN(l_chrv_rec);
3609: ---------------------------------------------
3610: FUNCTION Validate_Attributes (
3611: p_chrv_rec IN chrv_rec_type
3612: ) RETURN VARCHAR2 IS
3613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3614: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3615: BEGIN
3616:
3617: IF (l_debug = 'Y') THEN
3610: FUNCTION Validate_Attributes (
3611: p_chrv_rec IN chrv_rec_type
3612: ) RETURN VARCHAR2 IS
3613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3614: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3615: BEGIN
3616:
3617: IF (l_debug = 'Y') THEN
3618: okc_debug.Set_Indentation('OKC_CHR_PVT');
3624: (x_return_status => l_return_status,
3625: p_chrv_rec => p_chrv_rec);
3626:
3627: -- store the highest degree of error
3628: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3629: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3630: x_return_status := l_return_status;
3631: END IF;
3632: END IF;
3625: p_chrv_rec => p_chrv_rec);
3626:
3627: -- store the highest degree of error
3628: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3629: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3630: x_return_status := l_return_status;
3631: END IF;
3632: END IF;
3633:
3635: (x_return_status => l_return_status,
3636: p_chrv_rec => p_chrv_rec);
3637:
3638: -- store the highest degree of error
3639: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3640: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3641: x_return_status := l_return_status;
3642: END IF;
3643: END IF;
3636: p_chrv_rec => p_chrv_rec);
3637:
3638: -- store the highest degree of error
3639: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3640: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3641: x_return_status := l_return_status;
3642: END IF;
3643: END IF;
3644:
3646: (x_return_status => l_return_status,
3647: p_chrv_rec => p_chrv_rec);
3648:
3649: -- store the highest degree of error
3650: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3651: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3652: x_return_status := l_return_status;
3653: END IF;
3654: END IF;
3647: p_chrv_rec => p_chrv_rec);
3648:
3649: -- store the highest degree of error
3650: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3651: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3652: x_return_status := l_return_status;
3653: END IF;
3654: END IF;
3655:
3657: (x_return_status => l_return_status,
3658: p_chrv_rec => p_chrv_rec);
3659:
3660: -- store the highest degree of error
3661: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3662: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3663: x_return_status := l_return_status;
3664: END IF;
3665: END IF;
3658: p_chrv_rec => p_chrv_rec);
3659:
3660: -- store the highest degree of error
3661: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3662: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3663: x_return_status := l_return_status;
3664: END IF;
3665: END IF;
3666:
3668: (x_return_status => l_return_status,
3669: p_chrv_rec => p_chrv_rec);
3670:
3671: -- store the highest degree of error
3672: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3673: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3674: x_return_status := l_return_status;
3675: END IF;
3676: END IF;
3669: p_chrv_rec => p_chrv_rec);
3670:
3671: -- store the highest degree of error
3672: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3673: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3674: x_return_status := l_return_status;
3675: END IF;
3676: END IF;
3677:
3679: (x_return_status => l_return_status,
3680: p_chrv_rec => p_chrv_rec);
3681:
3682: -- store the highest degree of error
3683: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3684: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3685: x_return_status := l_return_status;
3686: END IF;
3687: END IF;
3680: p_chrv_rec => p_chrv_rec);
3681:
3682: -- store the highest degree of error
3683: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3684: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3685: x_return_status := l_return_status;
3686: END IF;
3687: END IF;
3688:
3690: (x_return_status => l_return_status,
3691: p_chrv_rec => p_chrv_rec);
3692:
3693: -- store the highest degree of error
3694: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3695: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3696: x_return_status := l_return_status;
3697: END IF;
3698: END IF;
3691: p_chrv_rec => p_chrv_rec);
3692:
3693: -- store the highest degree of error
3694: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3695: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3696: x_return_status := l_return_status;
3697: END IF;
3698: END IF;
3699:
3701: (x_return_status => l_return_status,
3702: p_chrv_rec => p_chrv_rec);
3703:
3704: -- store the highest degree of error
3705: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3706: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3707: x_return_status := l_return_status;
3708: END IF;
3709: END IF;
3702: p_chrv_rec => p_chrv_rec);
3703:
3704: -- store the highest degree of error
3705: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3706: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3707: x_return_status := l_return_status;
3708: END IF;
3709: END IF;
3710:
3712: (x_return_status => l_return_status,
3713: p_chrv_rec => p_chrv_rec);
3714:
3715: -- store the highest degree of error
3716: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3717: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3718: x_return_status := l_return_status;
3719: END IF;
3720: END IF;
3713: p_chrv_rec => p_chrv_rec);
3714:
3715: -- store the highest degree of error
3716: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3717: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3718: x_return_status := l_return_status;
3719: END IF;
3720: END IF;
3721:
3723: (x_return_status => l_return_status,
3724: p_chrv_rec => p_chrv_rec);
3725:
3726: -- store the highest degree of error
3727: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3728: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3729: x_return_status := l_return_status;
3730: END IF;
3731: END IF;
3724: p_chrv_rec => p_chrv_rec);
3725:
3726: -- store the highest degree of error
3727: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3728: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3729: x_return_status := l_return_status;
3730: END IF;
3731: END IF;
3732:
3734: (x_return_status => l_return_status,
3735: p_chrv_rec => p_chrv_rec);
3736:
3737: -- store the highest degree of error
3738: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3739: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3740: x_return_status := l_return_status;
3741: END IF;
3742: END IF;
3735: p_chrv_rec => p_chrv_rec);
3736:
3737: -- store the highest degree of error
3738: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3739: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3740: x_return_status := l_return_status;
3741: END IF;
3742: END IF;
3743:
3745: (x_return_status => l_return_status,
3746: p_chrv_rec => p_chrv_rec);
3747:
3748: -- store the highest degree of error
3749: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3750: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3751: x_return_status := l_return_status;
3752: END IF;
3753: END IF;
3746: p_chrv_rec => p_chrv_rec);
3747:
3748: -- store the highest degree of error
3749: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3750: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3751: x_return_status := l_return_status;
3752: END IF;
3753: END IF;
3754:
3756: (x_return_status => l_return_status,
3757: p_chrv_rec => p_chrv_rec);
3758:
3759: -- store the highest degree of error
3760: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3761: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3762: x_return_status := l_return_status;
3763: END IF;
3764: END IF;
3757: p_chrv_rec => p_chrv_rec);
3758:
3759: -- store the highest degree of error
3760: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3761: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3762: x_return_status := l_return_status;
3763: END IF;
3764: END IF;
3765:
3767: (x_return_status => l_return_status,
3768: p_chrv_rec => p_chrv_rec);
3769:
3770: -- store the highest degree of error
3771: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3772: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3773: x_return_status := l_return_status;
3774: END IF;
3775: END IF;
3768: p_chrv_rec => p_chrv_rec);
3769:
3770: -- store the highest degree of error
3771: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3772: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3773: x_return_status := l_return_status;
3774: END IF;
3775: END IF;
3776:
3778: (x_return_status => l_return_status,
3779: p_chrv_rec => p_chrv_rec);
3780:
3781: -- store the highest degree of error
3782: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3783: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3784: x_return_status := l_return_status;
3785: END IF;
3786: END IF;
3779: p_chrv_rec => p_chrv_rec);
3780:
3781: -- store the highest degree of error
3782: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3783: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3784: x_return_status := l_return_status;
3785: END IF;
3786: END IF;
3787:
3789: (x_return_status => l_return_status,
3790: p_chrv_rec => p_chrv_rec);
3791:
3792: -- store the highest degree of error
3793: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3794: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3795: x_return_status := l_return_status;
3796: END IF;
3797: END IF;
3790: p_chrv_rec => p_chrv_rec);
3791:
3792: -- store the highest degree of error
3793: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3794: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3795: x_return_status := l_return_status;
3796: END IF;
3797: END IF;
3798:
3800: (x_return_status => l_return_status,
3801: p_chrv_rec => p_chrv_rec);
3802:
3803: -- store the highest degree of error
3804: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3805: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3806: x_return_status := l_return_status;
3807: END IF;
3808: END IF;
3801: p_chrv_rec => p_chrv_rec);
3802:
3803: -- store the highest degree of error
3804: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3805: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3806: x_return_status := l_return_status;
3807: END IF;
3808: END IF;
3809:
3811: (x_return_status => l_return_status,
3812: p_chrv_rec => p_chrv_rec);
3813:
3814: -- store the highest degree of error
3815: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3816: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3817: x_return_status := l_return_status;
3818: END IF;
3819: END IF;
3812: p_chrv_rec => p_chrv_rec);
3813:
3814: -- store the highest degree of error
3815: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3816: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3817: x_return_status := l_return_status;
3818: END IF;
3819: END IF;
3820:
3823: (x_return_status => l_return_status,
3824: p_chrv_rec => p_chrv_rec);
3825:
3826: -- store the highest degree of error
3827: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3828: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3829: x_return_status := l_return_status;
3830: End If;
3831: End If;
3824: p_chrv_rec => p_chrv_rec);
3825:
3826: -- store the highest degree of error
3827: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3828: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3829: x_return_status := l_return_status;
3830: End If;
3831: End If;
3832: */
3834: (x_return_status => l_return_status,
3835: p_chrv_rec => p_chrv_rec);
3836:
3837: -- store the highest degree of error
3838: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3839: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3840: x_return_status := l_return_status;
3841: END IF;
3842: END IF;
3835: p_chrv_rec => p_chrv_rec);
3836:
3837: -- store the highest degree of error
3838: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3839: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3840: x_return_status := l_return_status;
3841: END IF;
3842: END IF;
3843:
3845: (x_return_status => l_return_status,
3846: p_chrv_rec => p_chrv_rec);
3847:
3848: -- store the highest degree of error
3849: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3850: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3851: x_return_status := l_return_status;
3852: END IF;
3853: END IF;
3846: p_chrv_rec => p_chrv_rec);
3847:
3848: -- store the highest degree of error
3849: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3850: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3851: x_return_status := l_return_status;
3852: END IF;
3853: END IF;
3854: /*
3856: (x_return_status => l_return_status,
3857: p_chrv_rec => p_chrv_rec);
3858:
3859: -- store the highest degree of error
3860: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3861: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3862: x_return_status := l_return_status;
3863: End If;
3864: End If;
3857: p_chrv_rec => p_chrv_rec);
3858:
3859: -- store the highest degree of error
3860: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3861: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3862: x_return_status := l_return_status;
3863: End If;
3864: End If;
3865: */
3867: (x_return_status => l_return_status,
3868: p_chrv_rec => p_chrv_rec);
3869:
3870: -- store the highest degree of error
3871: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3872: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3873: x_return_status := l_return_status;
3874: END IF;
3875: END IF;
3868: p_chrv_rec => p_chrv_rec);
3869:
3870: -- store the highest degree of error
3871: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3872: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3873: x_return_status := l_return_status;
3874: END IF;
3875: END IF;
3876: /*
3878: (x_return_status => l_return_status,
3879: p_chrv_rec => p_chrv_rec);
3880:
3881: -- store the highest degree of error
3882: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3883: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3884: x_return_status := l_return_status;
3885: End If;
3886: End If;
3879: p_chrv_rec => p_chrv_rec);
3880:
3881: -- store the highest degree of error
3882: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3883: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3884: x_return_status := l_return_status;
3885: End If;
3886: End If;
3887: */
3889: (x_return_status => l_return_status,
3890: p_chrv_rec => p_chrv_rec);
3891:
3892: -- store the highest degree of error
3893: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3894: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3895: x_return_status := l_return_status;
3896: END IF;
3897: END IF;
3890: p_chrv_rec => p_chrv_rec);
3891:
3892: -- store the highest degree of error
3893: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3894: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3895: x_return_status := l_return_status;
3896: END IF;
3897: END IF;
3898:
3900: (x_return_status => l_return_status,
3901: p_chrv_rec => p_chrv_rec);
3902:
3903: -- store the highest degree of error
3904: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3905: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3906: x_return_status := l_return_status;
3907: END IF;
3908: END IF;
3901: p_chrv_rec => p_chrv_rec);
3902:
3903: -- store the highest degree of error
3904: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3905: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3906: x_return_status := l_return_status;
3907: END IF;
3908: END IF;
3909: /* Bug 3652127 Price list not validated for OKS*/
3912: (x_return_status => l_return_status,
3913: p_chrv_rec => p_chrv_rec);
3914:
3915: -- store the highest degree of error
3916: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3917: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3918: x_return_status := l_return_status;
3919: END IF;
3920: END IF;
3913: p_chrv_rec => p_chrv_rec);
3914:
3915: -- store the highest degree of error
3916: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3917: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3918: x_return_status := l_return_status;
3919: END IF;
3920: END IF;
3921: END IF;
3926: (x_return_status => l_return_status,
3927: p_chrv_rec => p_chrv_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_chrv_rec => p_chrv_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: ELSE
3937: (x_return_status => l_return_status,
3938: p_chrv_rec => p_chrv_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_chrv_rec => p_chrv_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: END IF;
3949: -- R12 Data Model Changes 4485150 Start
3950: validate_approval_type(x_return_status => l_return_status,
3951: p_chrv_rec => p_chrv_rec) ;
3952: -- store the highest degree of error
3953: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3954: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3955: x_return_status := l_return_status;
3956: END IF;
3957: END IF;
3950: validate_approval_type(x_return_status => l_return_status,
3951: p_chrv_rec => p_chrv_rec) ;
3952: -- store the highest degree of error
3953: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3954: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3955: x_return_status := l_return_status;
3956: END IF;
3957: END IF;
3958: -- R12 Data Model Changes 4485150 End
3971: okc_debug.Reset_Indentation;
3972: END IF;
3973:
3974: -- store SQL error message on message stack
3975: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3976: p_msg_name => g_unexpected_error,
3977: p_token1 => g_sqlcode_token,
3978: p_token1_value => SQLCODE,
3979: p_token2 => g_sqlerrm_token,
3979: p_token2 => g_sqlerrm_token,
3980: p_token2_value => SQLERRM);
3981:
3982: -- notify caller of an UNEXPETED error
3983: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3984:
3985: -- return status to caller
3986: RETURN(x_return_status);
3987:
4055: WHERE contract_number = p_chrv_rec.contract_number
4056: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
4057: AND id <> nvl(p_chrv_rec.id, - 99999);
4058:
4059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4060: l_dummy VARCHAR2(1);
4061: l_found BOOLEAN;
4062: BEGIN
4063:
4078: l_found := l_chr_csr2%FOUND;
4079: CLOSE l_chr_csr2;
4080: END IF;
4081: IF (l_found) THEN
4082: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4083: p_msg_name => 'OKC_CONTRACT_EXISTS',
4084: p_token1 => 'VALUE1',
4085: p_token1_value => p_chrv_rec.contract_number,
4086: p_token2 => 'VALUE2',
4085: p_token1_value => p_chrv_rec.contract_number,
4086: p_token2 => 'VALUE2',
4087: p_token2_value => nvl(p_chrv_rec.contract_number_modifier,' '));
4088: -- notify caller of an error
4089: l_return_status := OKC_API.G_RET_STS_ERROR;
4090: END IF;
4091: RETURN (l_return_status);
4092:
4093: IF (l_debug = 'Y') THEN
4140: WHERE contract_number = p_chrv_rec.contract_number
4141: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
4142: AND id <> nvl(p_chrv_rec.id, - 99999);
4143:
4144: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4145: l_dummy VARCHAR2(1);
4146: l_found BOOLEAN;
4147: BEGIN
4148:
4164: l_found := l_chr_csr2%FOUND;
4165: close l_chr_csr2;
4166: End If;
4167: If (l_found) Then
4168: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4169: p_msg_name => 'OKC_CONTRACT_EXISTS',
4170: p_token1 => 'VALUE1',
4171: p_token1_value => p_chrv_rec.contract_number,
4172: p_token2 => 'VALUE2',
4171: p_token1_value => p_chrv_rec.contract_number,
4172: p_token2 => 'VALUE2',
4173: p_token2_value => nvl(p_chrv_rec.contract_number_modifier,' '));
4174: -- notify caller of an error
4175: l_return_status := OKC_API.G_RET_STS_ERROR;
4176: End If;
4177: */
4178: l_return_status := IS_UNIQUE(p_chrv_rec);
4179:
4176: End If;
4177: */
4178: l_return_status := IS_UNIQUE(p_chrv_rec);
4179:
4180: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
4181: -- start date cannot be after end date
4182: IF (p_chrv_rec.START_DATE IS NOT NULL AND
4183: p_chrv_rec.END_DATE IS NOT NULL)
4184: THEN
4183: p_chrv_rec.END_DATE IS NOT NULL)
4184: THEN
4185: IF (p_chrv_rec.START_DATE > p_chrv_rec.END_DATE) THEN
4186: -- notify caller of an error as UNEXPETED error
4187: l_return_status := OKC_API.G_RET_STS_ERROR;
4188: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4189: p_msg_name => 'OKC_INVALID_START_END_DATES'
4190: );
4191: END IF;
4184: THEN
4185: IF (p_chrv_rec.START_DATE > p_chrv_rec.END_DATE) THEN
4186: -- notify caller of an error as UNEXPETED error
4187: l_return_status := OKC_API.G_RET_STS_ERROR;
4188: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4189: p_msg_name => 'OKC_INVALID_START_END_DATES'
4190: );
4191: END IF;
4192: END IF;
4196: THEN
4197: --Bug 3720503 If (p_chrv_rec.END_DATE > p_chrv_rec.SIGN_BY_DATE) Then
4198: IF (p_chrv_rec.SIGN_BY_DATE > p_chrv_rec.END_DATE ) THEN
4199: -- notify caller of an error as UNEXPETED error
4200: l_return_status := OKC_API.G_RET_STS_ERROR;
4201: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4202: p_msg_name => 'OKC_INVALID_SIGN_END_DATES');
4203: END IF;
4204: END IF;
4197: --Bug 3720503 If (p_chrv_rec.END_DATE > p_chrv_rec.SIGN_BY_DATE) Then
4198: IF (p_chrv_rec.SIGN_BY_DATE > p_chrv_rec.END_DATE ) THEN
4199: -- notify caller of an error as UNEXPETED error
4200: l_return_status := OKC_API.G_RET_STS_ERROR;
4201: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4202: p_msg_name => 'OKC_INVALID_SIGN_END_DATES');
4203: END IF;
4204: END IF;
4205:
4204: END IF;
4205:
4206: END IF;
4207: --Pricing date should not be than contract end date for advanced pricing
4208: IF ((l_return_status = OKC_API.G_RET_STS_SUCCESS) AND
4209: NVL(fnd_profile.VALUE('OKC_ADVANCED_PRICING'), 'N') = 'Y') THEN
4210: IF (p_chrv_rec.END_DATE IS NOT NULL AND
4211: p_chrv_rec.PRICING_DATE IS NOT NULL)
4212: THEN
4211: p_chrv_rec.PRICING_DATE IS NOT NULL)
4212: THEN
4213: IF (p_chrv_rec.PRICING_DATE > p_chrv_rec.END_DATE) THEN
4214: -- notify caller of an error as UNEXPETED error
4215: l_return_status := OKC_API.G_RET_STS_ERROR;
4216: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4217: p_msg_name => 'OKC_INVALID_PRICING_DATE');
4218: END IF;
4219: END IF;
4212: THEN
4213: IF (p_chrv_rec.PRICING_DATE > p_chrv_rec.END_DATE) THEN
4214: -- notify caller of an error as UNEXPETED error
4215: l_return_status := OKC_API.G_RET_STS_ERROR;
4216: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4217: p_msg_name => 'OKC_INVALID_PRICING_DATE');
4218: END IF;
4219: END IF;
4220: END IF;
4543: p_chrv_rec IN chrv_rec_type) IS
4544:
4545: l_api_version CONSTANT NUMBER := 1;
4546: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4548: l_chrv_rec chrv_rec_type := p_chrv_rec;
4549: l_chr_rec chr_rec_type;
4550: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4551: BEGIN
4554: okc_debug.Set_Indentation('OKC_CHR_PVT');
4555: okc_debug.LOG('12600: Entered validate_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4559: G_PKG_NAME,
4560: p_init_msg_list,
4561: l_api_version,
4562: p_api_version,
4561: l_api_version,
4562: p_api_version,
4563: '_PVT',
4564: x_return_status);
4565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4568: RAISE OKC_API.G_EXCEPTION_ERROR;
4569: END IF;
4562: p_api_version,
4563: '_PVT',
4564: x_return_status);
4565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4568: RAISE OKC_API.G_EXCEPTION_ERROR;
4569: END IF;
4570:
4563: '_PVT',
4564: x_return_status);
4565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4568: RAISE OKC_API.G_EXCEPTION_ERROR;
4569: END IF;
4570:
4571: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4564: x_return_status);
4565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4568: RAISE OKC_API.G_EXCEPTION_ERROR;
4569: END IF;
4570:
4571: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4572: --- Validate all non-missing attributes (Item Level Validation)
4573: l_return_status := Validate_Attributes(l_chrv_rec);
4574: END IF;
4575:
4576: --- If any errors happen abort API
4577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4574: END IF;
4575:
4576: --- If any errors happen abort API
4577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4575:
4576: --- If any errors happen abort API
4577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4576: --- If any errors happen abort API
4577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4580: RAISE OKC_API.G_EXCEPTION_ERROR;
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4581: END IF;
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4589: IF (l_debug = 'Y') THEN
4582: l_return_status := Validate_Record(l_chrv_rec);
4583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4589: IF (l_debug = 'Y') THEN
4590: okc_debug.LOG('12700: Exiting validate_row', 2);
4584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4589: IF (l_debug = 'Y') THEN
4590: okc_debug.LOG('12700: Exiting validate_row', 2);
4591: okc_debug.Reset_Indentation;
4592: END IF;
4592: END IF;
4593:
4594:
4595: EXCEPTION
4596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4597:
4598: IF (l_debug = 'Y') THEN
4599: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4600: okc_debug.Reset_Indentation;
4595: EXCEPTION
4596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4597:
4598: IF (l_debug = 'Y') THEN
4599: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4600: okc_debug.Reset_Indentation;
4601: END IF;
4602:
4603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4599: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4600: okc_debug.Reset_Indentation;
4601: END IF;
4602:
4603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4604: (
4605: l_api_name,
4606: G_PKG_NAME,
4607: 'OKC_API.G_RET_STS_ERROR',
4603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4604: (
4605: l_api_name,
4606: G_PKG_NAME,
4607: 'OKC_API.G_RET_STS_ERROR',
4608: x_msg_count,
4609: x_msg_data,
4610: '_PVT'
4611: );
4608: x_msg_count,
4609: x_msg_data,
4610: '_PVT'
4611: );
4612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4613:
4614: IF (l_debug = 'Y') THEN
4615: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4616: okc_debug.Reset_Indentation;
4611: );
4612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4613:
4614: IF (l_debug = 'Y') THEN
4615: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4616: okc_debug.Reset_Indentation;
4617: END IF;
4618:
4619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4615: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4616: okc_debug.Reset_Indentation;
4617: END IF;
4618:
4619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4620: (
4621: l_api_name,
4622: G_PKG_NAME,
4623: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4620: (
4621: l_api_name,
4622: G_PKG_NAME,
4623: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4624: x_msg_count,
4625: x_msg_data,
4626: '_PVT'
4627: );
4631: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4632: okc_debug.Reset_Indentation;
4633: END IF;
4634:
4635: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4636: (
4637: l_api_name,
4638: G_PKG_NAME,
4639: 'OTHERS',
4655: p_chrv_tbl IN chrv_tbl_type) IS
4656:
4657: l_api_version CONSTANT NUMBER := 1;
4658: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4659: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4660: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4661: i NUMBER := 0;
4662: BEGIN
4663:
4656:
4657: l_api_version CONSTANT NUMBER := 1;
4658: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4659: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4660: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4661: i NUMBER := 0;
4662: BEGIN
4663:
4664: IF (l_debug = 'Y') THEN
4665: okc_debug.Set_Indentation('OKC_CHR_PVT');
4666: okc_debug.LOG('13100: Entered validate_row', 2);
4667: END IF;
4668:
4669: OKC_API.init_msg_list(p_init_msg_list);
4670: -- Make sure PL/SQL table has records in it before passing
4671: IF (p_chrv_tbl.COUNT > 0) THEN
4672: i := p_chrv_tbl.FIRST;
4673: LOOP
4672: i := p_chrv_tbl.FIRST;
4673: LOOP
4674: validate_row (
4675: p_api_version => p_api_version,
4676: p_init_msg_list => OKC_API.G_FALSE,
4677: x_return_status => x_return_status,
4678: x_msg_count => x_msg_count,
4679: x_msg_data => x_msg_data,
4680: p_chrv_rec => p_chrv_tbl(i));
4679: x_msg_data => x_msg_data,
4680: p_chrv_rec => p_chrv_tbl(i));
4681:
4682: -- store the highest degree of error
4683: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
4685: l_overall_status := x_return_status;
4686: END IF;
4687: END IF;
4680: p_chrv_rec => p_chrv_tbl(i));
4681:
4682: -- store the highest degree of error
4683: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
4685: l_overall_status := x_return_status;
4686: END IF;
4687: END IF;
4688:
4698: END IF;
4699:
4700:
4701: EXCEPTION
4702: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4703:
4704: IF (l_debug = 'Y') THEN
4705: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4706: okc_debug.Reset_Indentation;
4701: EXCEPTION
4702: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4703:
4704: IF (l_debug = 'Y') THEN
4705: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4706: okc_debug.Reset_Indentation;
4707: END IF;
4708:
4709: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4705: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4706: okc_debug.Reset_Indentation;
4707: END IF;
4708:
4709: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4710: (
4711: l_api_name,
4712: G_PKG_NAME,
4713: 'OKC_API.G_RET_STS_ERROR',
4709: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4710: (
4711: l_api_name,
4712: G_PKG_NAME,
4713: 'OKC_API.G_RET_STS_ERROR',
4714: x_msg_count,
4715: x_msg_data,
4716: '_PVT'
4717: );
4714: x_msg_count,
4715: x_msg_data,
4716: '_PVT'
4717: );
4718: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719:
4720: IF (l_debug = 'Y') THEN
4721: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4722: okc_debug.Reset_Indentation;
4717: );
4718: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719:
4720: IF (l_debug = 'Y') THEN
4721: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4722: okc_debug.Reset_Indentation;
4723: END IF;
4724:
4725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4721: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4722: okc_debug.Reset_Indentation;
4723: END IF;
4724:
4725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4726: (
4727: l_api_name,
4728: G_PKG_NAME,
4729: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4726: (
4727: l_api_name,
4728: G_PKG_NAME,
4729: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4730: x_msg_count,
4731: x_msg_data,
4732: '_PVT'
4733: );
4737: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4738: okc_debug.Reset_Indentation;
4739: END IF;
4740:
4741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4742: (
4743: l_api_name,
4744: G_PKG_NAME,
4745: 'OTHERS',
4765: x_chr_rec OUT NOCOPY chr_rec_type) IS
4766:
4767: l_api_version CONSTANT NUMBER := 1;
4768: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
4769: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4770: l_chr_rec chr_rec_type := p_chr_rec;
4771: l_def_chr_rec chr_rec_type;
4772: ----------------------------------------
4773: -- Set_Attributes for:OKC_K_HEADERS_ALL_B --
4775: FUNCTION Set_Attributes (
4776: p_chr_rec IN chr_rec_type,
4777: x_chr_rec OUT NOCOPY chr_rec_type
4778: ) RETURN VARCHAR2 IS
4779: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4780: BEGIN
4781:
4782: IF (l_debug = 'Y') THEN
4783: okc_debug.Set_Indentation('OKC_CHR_PVT');
4794: okc_debug.Set_Indentation('OKC_CHR_PVT');
4795: okc_debug.LOG('13700: Entered insert_row', 2);
4796: END IF;
4797:
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4799: p_init_msg_list,
4800: '_PVT',
4801: x_return_status);
4802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4799: p_init_msg_list,
4800: '_PVT',
4801: x_return_status);
4802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: RAISE OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4799: p_init_msg_list,
4800: '_PVT',
4801: x_return_status);
4802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: RAISE OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807: --- Setting item attributes
4800: '_PVT',
4801: x_return_status);
4802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: RAISE OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807: --- Setting item attributes
4808: l_return_status := Set_Attributes(
4801: x_return_status);
4802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: RAISE OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807: --- Setting item attributes
4808: l_return_status := Set_Attributes(
4809: p_chr_rec, -- IN
4808: l_return_status := Set_Attributes(
4809: p_chr_rec, -- IN
4810: l_chr_rec); -- OUT
4811: --- If any errors happen abort API
4812: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4809: p_chr_rec, -- IN
4810: l_chr_rec); -- OUT
4811: --- If any errors happen abort API
4812: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4810: l_chr_rec); -- OUT
4811: --- If any errors happen abort API
4812: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4818: id,
4811: --- If any errors happen abort API
4812: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4818: id,
4819: contract_number,
5022: l_chr_rec.billed_at_source
5023: );
5024: -- Set OUT values
5025: x_chr_rec := l_chr_rec;
5026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5027: IF (l_debug = 'Y') THEN
5028: okc_debug.LOG('13800: Exiting insert_row', 2);
5029: okc_debug.Reset_Indentation;
5030: END IF;
5030: END IF;
5031:
5032:
5033: EXCEPTION
5034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5035:
5036: IF (l_debug = 'Y') THEN
5037: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5038: okc_debug.Reset_Indentation;
5033: EXCEPTION
5034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5035:
5036: IF (l_debug = 'Y') THEN
5037: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5038: okc_debug.Reset_Indentation;
5039: END IF;
5040:
5041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5037: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5038: okc_debug.Reset_Indentation;
5039: END IF;
5040:
5041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5042: (
5043: l_api_name,
5044: G_PKG_NAME,
5045: 'OKC_API.G_RET_STS_ERROR',
5041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5042: (
5043: l_api_name,
5044: G_PKG_NAME,
5045: 'OKC_API.G_RET_STS_ERROR',
5046: x_msg_count,
5047: x_msg_data,
5048: '_PVT'
5049: );
5046: x_msg_count,
5047: x_msg_data,
5048: '_PVT'
5049: );
5050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5051:
5052: IF (l_debug = 'Y') THEN
5053: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5054: okc_debug.Reset_Indentation;
5049: );
5050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5051:
5052: IF (l_debug = 'Y') THEN
5053: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5054: okc_debug.Reset_Indentation;
5055: END IF;
5056:
5057: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5054: okc_debug.Reset_Indentation;
5055: END IF;
5056:
5057: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5058: (
5059: l_api_name,
5060: G_PKG_NAME,
5061: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5057: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5058: (
5059: l_api_name,
5060: G_PKG_NAME,
5061: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5062: x_msg_count,
5063: x_msg_data,
5064: '_PVT'
5065: );
5069: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5070: okc_debug.Reset_Indentation;
5071: END IF;
5072:
5073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5074: (
5075: l_api_name,
5076: G_PKG_NAME,
5077: 'OTHERS',
5093: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
5094:
5095: l_api_version CONSTANT NUMBER := 1;
5096: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5098: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
5099: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5100: CURSOR get_languages IS
5101: SELECT *
5107: FUNCTION Set_Attributes (
5108: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5109: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
5110: ) RETURN VARCHAR2 IS
5111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5112: BEGIN
5113:
5114: IF (l_debug = 'Y') THEN
5115: okc_debug.Set_Indentation('OKC_CHR_PVT');
5128: okc_debug.Set_Indentation('OKC_CHR_PVT');
5129: okc_debug.LOG('14300: Entered insert_row', 2);
5130: END IF;
5131:
5132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5133: p_init_msg_list,
5134: '_PVT',
5135: x_return_status);
5136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5133: p_init_msg_list,
5134: '_PVT',
5135: x_return_status);
5136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5139: RAISE OKC_API.G_EXCEPTION_ERROR;
5140: END IF;
5133: p_init_msg_list,
5134: '_PVT',
5135: x_return_status);
5136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5139: RAISE OKC_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: --- Setting item attributes
5134: '_PVT',
5135: x_return_status);
5136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5139: RAISE OKC_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: --- Setting item attributes
5142: l_return_status := Set_Attributes(
5135: x_return_status);
5136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5139: RAISE OKC_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: --- Setting item attributes
5142: l_return_status := Set_Attributes(
5143: p_okc_k_headers_tl_rec, -- IN
5142: l_return_status := Set_Attributes(
5143: p_okc_k_headers_tl_rec, -- IN
5144: l_okc_k_headers_tl_rec); -- OUT
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5143: p_okc_k_headers_tl_rec, -- IN
5144: l_okc_k_headers_tl_rec); -- OUT
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5151: FOR l_lang_rec IN get_languages LOOP
5144: l_okc_k_headers_tl_rec); -- OUT
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5151: FOR l_lang_rec IN get_languages LOOP
5152: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5151: FOR l_lang_rec IN get_languages LOOP
5152: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5153: INSERT INTO OKC_K_HEADERS_TL(
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5188: -- Set OUT values
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5190: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5191: IF (l_debug = 'Y') THEN
5192: okc_debug.LOG('14400: Exiting insert_row', 2);
5193: okc_debug.Reset_Indentation;
5194: END IF;
5194: END IF;
5195:
5196:
5197: EXCEPTION
5198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5199:
5200: IF (l_debug = 'Y') THEN
5201: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5202: okc_debug.Reset_Indentation;
5197: EXCEPTION
5198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5199:
5200: IF (l_debug = 'Y') THEN
5201: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5202: okc_debug.Reset_Indentation;
5203: END IF;
5204:
5205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5201: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5202: okc_debug.Reset_Indentation;
5203: END IF;
5204:
5205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5206: (
5207: l_api_name,
5208: G_PKG_NAME,
5209: 'OKC_API.G_RET_STS_ERROR',
5205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5206: (
5207: l_api_name,
5208: G_PKG_NAME,
5209: 'OKC_API.G_RET_STS_ERROR',
5210: x_msg_count,
5211: x_msg_data,
5212: '_PVT'
5213: );
5210: x_msg_count,
5211: x_msg_data,
5212: '_PVT'
5213: );
5214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5215:
5216: IF (l_debug = 'Y') THEN
5217: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5218: okc_debug.Reset_Indentation;
5213: );
5214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5215:
5216: IF (l_debug = 'Y') THEN
5217: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5218: okc_debug.Reset_Indentation;
5219: END IF;
5220:
5221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5217: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5218: okc_debug.Reset_Indentation;
5219: END IF;
5220:
5221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5222: (
5223: l_api_name,
5224: G_PKG_NAME,
5225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5222: (
5223: l_api_name,
5224: G_PKG_NAME,
5225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5226: x_msg_count,
5227: x_msg_data,
5228: '_PVT'
5229: );
5233: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5234: okc_debug.Reset_Indentation;
5235: END IF;
5236:
5237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5238: (
5239: l_api_name,
5240: G_PKG_NAME,
5241: 'OTHERS',
5258: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
5259:
5260: l_api_version CONSTANT NUMBER := 1;
5261: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
5262: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5263: l_chrv_rec chrv_rec_type;
5264: l_def_chrv_rec chrv_rec_type;
5265: l_chr_rec chr_rec_type;
5266: lx_chr_rec chr_rec_type;
5296: FUNCTION Set_Attributes (
5297: p_chrv_rec IN chrv_rec_type,
5298: x_chrv_rec OUT NOCOPY chrv_rec_type
5299: ) RETURN VARCHAR2 IS
5300: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5301: CURSOR l_app_csr(p_scs_code VARCHAR2) IS
5302: SELECT application_id
5303: FROM okc_classes_b cls, okc_subclasses_b scs
5304: WHERE cls.code = scs.cls_code
5352: okc_debug.Set_Indentation('OKC_CHR_PVT');
5353: okc_debug.LOG('15000: Entered insert_row', 2);
5354: END IF;
5355:
5356: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5357: G_PKG_NAME,
5358: p_init_msg_list,
5359: l_api_version,
5360: p_api_version,
5359: l_api_version,
5360: p_api_version,
5361: '_PVT',
5362: x_return_status);
5363: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5366: RAISE OKC_API.G_EXCEPTION_ERROR;
5367: END IF;
5360: p_api_version,
5361: '_PVT',
5362: x_return_status);
5363: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5366: RAISE OKC_API.G_EXCEPTION_ERROR;
5367: END IF;
5368: l_chrv_rec := null_out_defaults(p_chrv_rec);
5361: '_PVT',
5362: x_return_status);
5363: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5366: RAISE OKC_API.G_EXCEPTION_ERROR;
5367: END IF;
5368: l_chrv_rec := null_out_defaults(p_chrv_rec);
5369: -- Set primary key value
5362: x_return_status);
5363: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5366: RAISE OKC_API.G_EXCEPTION_ERROR;
5367: END IF;
5368: l_chrv_rec := null_out_defaults(p_chrv_rec);
5369: -- Set primary key value
5370: l_chrv_rec.ID := get_seq_id;
5373: l_return_status := Set_Attributes(
5374: l_chrv_rec, -- IN
5375: l_def_chrv_rec); -- OUT
5376: --- If any errors happen abort API
5377: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5379: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5380: RAISE OKC_API.G_EXCEPTION_ERROR;
5381: END IF;
5374: l_chrv_rec, -- IN
5375: l_def_chrv_rec); -- OUT
5376: --- If any errors happen abort API
5377: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5379: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5380: RAISE OKC_API.G_EXCEPTION_ERROR;
5381: END IF;
5382: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5375: l_def_chrv_rec); -- OUT
5376: --- If any errors happen abort API
5377: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5379: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5380: RAISE OKC_API.G_EXCEPTION_ERROR;
5381: END IF;
5382: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5383:
5376: --- If any errors happen abort API
5377: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5379: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5380: RAISE OKC_API.G_EXCEPTION_ERROR;
5381: END IF;
5382: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5383:
5384: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
5386: l_return_status := Validate_Attributes(l_def_chrv_rec);
5387: END IF; ---Bug#3150149
5388:
5389: --- If any errors happen abort API
5390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5387: END IF; ---Bug#3150149
5388:
5389: --- If any errors happen abort API
5390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5388:
5389: --- If any errors happen abort API
5390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5389: --- If any errors happen abort API
5390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5399: RAISE OKC_API.G_EXCEPTION_ERROR;
5400: END IF;
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5399: RAISE OKC_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: --------------------------------------
5394: END IF;
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5399: RAISE OKC_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: --------------------------------------
5402: -- Move VIEW record to "Child" records
5395: l_return_status := Validate_Record(l_def_chrv_rec);
5396: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5399: RAISE OKC_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: --------------------------------------
5402: -- Move VIEW record to "Child" records
5403: --------------------------------------
5414: x_msg_data,
5415: l_chr_rec,
5416: lx_chr_rec
5417: );
5418: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: END IF;
5415: l_chr_rec,
5416: lx_chr_rec
5417: );
5418: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: END IF;
5423: migrate(lx_chr_rec, l_def_chrv_rec);
5416: lx_chr_rec
5417: );
5418: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: END IF;
5423: migrate(lx_chr_rec, l_def_chrv_rec);
5424: insert_row(
5417: );
5418: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: END IF;
5423: migrate(lx_chr_rec, l_def_chrv_rec);
5424: insert_row(
5425: p_init_msg_list,
5428: x_msg_data,
5429: l_okc_k_headers_tl_rec,
5430: lx_okc_k_headers_tl_rec
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5435: RAISE OKC_API.G_EXCEPTION_ERROR;
5436: END IF;
5429: l_okc_k_headers_tl_rec,
5430: lx_okc_k_headers_tl_rec
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5435: RAISE OKC_API.G_EXCEPTION_ERROR;
5436: END IF;
5437: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5430: lx_okc_k_headers_tl_rec
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5435: RAISE OKC_API.G_EXCEPTION_ERROR;
5436: END IF;
5437: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5438: -- Set OUT values
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5435: RAISE OKC_API.G_EXCEPTION_ERROR;
5436: END IF;
5437: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5438: -- Set OUT values
5439: x_chrv_rec := l_def_chrv_rec;
5436: END IF;
5437: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5438: -- Set OUT values
5439: x_chrv_rec := l_def_chrv_rec;
5440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5441: IF (l_debug = 'Y') THEN
5442: okc_debug.LOG('15100: Exiting insert_row', 2);
5443: okc_debug.Reset_Indentation;
5444: END IF;
5444: END IF;
5445:
5446:
5447: EXCEPTION
5448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5447: EXCEPTION
5448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5451: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5456: (
5457: l_api_name,
5458: G_PKG_NAME,
5459: 'OKC_API.G_RET_STS_ERROR',
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5456: (
5457: l_api_name,
5458: G_PKG_NAME,
5459: 'OKC_API.G_RET_STS_ERROR',
5460: x_msg_count,
5461: x_msg_data,
5462: '_PVT'
5463: );
5460: x_msg_count,
5461: x_msg_data,
5462: '_PVT'
5463: );
5464: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5468: okc_debug.Reset_Indentation;
5463: );
5464: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5467: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5472: (
5473: l_api_name,
5474: G_PKG_NAME,
5475: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5472: (
5473: l_api_name,
5474: G_PKG_NAME,
5475: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5476: x_msg_count,
5477: x_msg_data,
5478: '_PVT'
5479: );
5483: okc_debug.LOG('15400: Exiting insert_row:OTHERS Exception', 2);
5484: okc_debug.Reset_Indentation;
5485: END IF;
5486:
5487: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5488: (
5489: l_api_name,
5490: G_PKG_NAME,
5491: 'OTHERS',
5508: x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
5509:
5510: l_api_version CONSTANT NUMBER := 1;
5511: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5512: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5513: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5514: i NUMBER := 0;
5515: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5516: BEGIN
5509:
5510: l_api_version CONSTANT NUMBER := 1;
5511: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5512: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5513: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5514: i NUMBER := 0;
5515: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5516: BEGIN
5517:
5519: okc_debug.Set_Indentation('OKC_CHR_PVT');
5520: okc_debug.LOG('15500: Entered insert_row', 2);
5521: END IF;
5522:
5523: OKC_API.init_msg_list(p_init_msg_list);
5524: -- Make sure PL/SQL table has records in it before passing
5525: IF (p_chrv_tbl.COUNT > 0) THEN
5526: i := p_chrv_tbl.FIRST;
5527: LOOP
5525: IF (p_chrv_tbl.COUNT > 0) THEN
5526: i := p_chrv_tbl.FIRST;
5527: LOOP
5528: /************************ HAND-CODED ***************************/
5529: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5530: l_chrv_rec := p_chrv_tbl(i);
5531: -- if contract number is null, polpulate default contract number
5532: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
5533: l_chrv_rec.contract_number IS NULL)
5528: /************************ HAND-CODED ***************************/
5529: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5530: l_chrv_rec := p_chrv_tbl(i);
5531: -- if contract number is null, polpulate default contract number
5532: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
5533: l_chrv_rec.contract_number IS NULL)
5534: THEN
5535:
5536: OKC_CONTRACT_PVT.GENERATE_CONTRACT_NUMBER(
5538: p_modifier => l_chrv_rec.contract_number_modifier,
5539: x_return_status => x_return_status,
5540: x_contract_number => l_chrv_rec.contract_number);
5541:
5542: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5543: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5544: p_msg_name => g_unexpected_error,
5545: p_token1 => g_sqlcode_token,
5546: p_token1_value => SQLCODE,
5539: x_return_status => x_return_status,
5540: x_contract_number => l_chrv_rec.contract_number);
5541:
5542: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5543: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5544: p_msg_name => g_unexpected_error,
5545: p_token1 => g_sqlcode_token,
5546: p_token1_value => SQLCODE,
5547: p_token2 => g_sqlerrm_token,
5548: p_token2_value => SQLERRM);
5549: END IF;
5550: END IF;
5551:
5552: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
5553: insert_row (
5554: p_api_version => p_api_version,
5555: p_init_msg_list => p_init_msg_list,
5556: x_return_status => x_return_status,
5560: x_chrv_rec => x_chrv_tbl(i));
5561: END IF;
5562:
5563: -- store the highest degree of error
5564: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5565: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
5566: l_overall_status := x_return_status;
5567: END IF;
5568: END IF;
5561: END IF;
5562:
5563: -- store the highest degree of error
5564: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5565: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
5566: l_overall_status := x_return_status;
5567: END IF;
5568: END IF;
5569: /*********************** END HAND-CODED ************************/
5579: END IF;
5580:
5581:
5582: EXCEPTION
5583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5582: EXCEPTION
5583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5586: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5591: (
5592: l_api_name,
5593: G_PKG_NAME,
5594: 'OKC_API.G_RET_STS_ERROR',
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5591: (
5592: l_api_name,
5593: G_PKG_NAME,
5594: 'OKC_API.G_RET_STS_ERROR',
5595: x_msg_count,
5596: x_msg_data,
5597: '_PVT'
5598: );
5595: x_msg_count,
5596: x_msg_data,
5597: '_PVT'
5598: );
5599: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5603: okc_debug.Reset_Indentation;
5598: );
5599: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5602: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5607: (
5608: l_api_name,
5609: G_PKG_NAME,
5610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5607: (
5608: l_api_name,
5609: G_PKG_NAME,
5610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5611: x_msg_count,
5612: x_msg_data,
5613: '_PVT'
5614: );
5618: okc_debug.LOG('15900: Exiting insert_row:OTHERS Exception', 2);
5619: okc_debug.Reset_Indentation;
5620: END IF;
5621:
5622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5623: (
5624: l_api_name,
5625: G_PKG_NAME,
5626: 'OTHERS',
5658: FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
5659: WHERE ID = p_chr_rec.id;
5660: l_api_version CONSTANT NUMBER := 1;
5661: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5662: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5663: l_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5664: lc_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5665: l_row_notfound BOOLEAN := FALSE;
5666: lc_row_notfound BOOLEAN := FALSE;
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16000: Entered lock_row', 2);
5672: END IF;
5673:
5674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5675: p_init_msg_list,
5676: '_PVT',
5677: x_return_status);
5678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5675: p_init_msg_list,
5676: '_PVT',
5677: x_return_status);
5678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5681: RAISE OKC_API.G_EXCEPTION_ERROR;
5682: END IF;
5675: p_init_msg_list,
5676: '_PVT',
5677: x_return_status);
5678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5681: RAISE OKC_API.G_EXCEPTION_ERROR;
5682: END IF;
5683: BEGIN
5676: '_PVT',
5677: x_return_status);
5678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5681: RAISE OKC_API.G_EXCEPTION_ERROR;
5682: END IF;
5683: BEGIN
5684:
5677: x_return_status);
5678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5681: RAISE OKC_API.G_EXCEPTION_ERROR;
5682: END IF;
5683: BEGIN
5684:
5685: IF (l_debug = 'Y') THEN
5707:
5708: IF (lock_csr%ISOPEN) THEN
5709: CLOSE lock_csr;
5710: END IF;
5711: OKC_API.set_message(G_FND_APP, G_FORM_UNABLE_TO_RESERVE_REC);
5712: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5713: END;
5714:
5715: IF (l_row_notfound ) THEN
5718: lc_row_notfound := lchk_csr%NOTFOUND;
5719: CLOSE lchk_csr;
5720: END IF;
5721: IF (lc_row_notfound) THEN
5722: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5723: RAISE OKC_API.G_EXCEPTION_ERROR;
5724: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5719: CLOSE lchk_csr;
5720: END IF;
5721: IF (lc_row_notfound) THEN
5722: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5723: RAISE OKC_API.G_EXCEPTION_ERROR;
5724: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5721: IF (lc_row_notfound) THEN
5722: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5723: RAISE OKC_API.G_EXCEPTION_ERROR;
5724: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5722: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5723: RAISE OKC_API.G_EXCEPTION_ERROR;
5724: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5730: ELSIF lc_object_version_number = - 1 THEN
5724: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5730: ELSIF lc_object_version_number = - 1 THEN
5731: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5725: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5726: RAISE OKC_API.G_EXCEPTION_ERROR;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5730: ELSIF lc_object_version_number = - 1 THEN
5731: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5733: END IF;
5727: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5730: ELSIF lc_object_version_number = - 1 THEN
5731: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5733: END IF;
5734: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5735: IF (l_debug = 'Y') THEN
5728: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5729: RAISE OKC_API.G_EXCEPTION_ERROR;
5730: ELSIF lc_object_version_number = - 1 THEN
5731: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5733: END IF;
5734: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5735: IF (l_debug = 'Y') THEN
5736: okc_debug.LOG('16400: Exiting lock_row', 2);
5730: ELSIF lc_object_version_number = - 1 THEN
5731: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5733: END IF;
5734: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5735: IF (l_debug = 'Y') THEN
5736: okc_debug.LOG('16400: Exiting lock_row', 2);
5737: okc_debug.Reset_Indentation;
5738: END IF;
5738: END IF;
5739:
5740:
5741: EXCEPTION
5742: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5741: EXCEPTION
5742: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5745: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5750: (
5751: l_api_name,
5752: G_PKG_NAME,
5753: 'OKC_API.G_RET_STS_ERROR',
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5750: (
5751: l_api_name,
5752: G_PKG_NAME,
5753: 'OKC_API.G_RET_STS_ERROR',
5754: x_msg_count,
5755: x_msg_data,
5756: '_PVT'
5757: );
5754: x_msg_count,
5755: x_msg_data,
5756: '_PVT'
5757: );
5758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5762: okc_debug.Reset_Indentation;
5757: );
5758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5761: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5766: (
5767: l_api_name,
5768: G_PKG_NAME,
5769: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5766: (
5767: l_api_name,
5768: G_PKG_NAME,
5769: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5770: x_msg_count,
5771: x_msg_data,
5772: '_PVT'
5773: );
5777: okc_debug.LOG('16700: Exiting lock_row:OTHERS Exception', 2);
5778: okc_debug.Reset_Indentation;
5779: END IF;
5780:
5781: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5782: (
5783: l_api_name,
5784: G_PKG_NAME,
5785: 'OTHERS',
5808: FOR UPDATE NOWAIT;
5809:
5810: l_api_version CONSTANT NUMBER := 1;
5811: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
5812: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5813: l_lock_var lock_csr%ROWTYPE;
5814: l_row_notfound BOOLEAN := FALSE;
5815: lc_row_notfound BOOLEAN := FALSE;
5816: BEGIN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16800: Entered lock_row', 2);
5821: END IF;
5822:
5823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5824: p_init_msg_list,
5825: '_PVT',
5826: x_return_status);
5827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5824: p_init_msg_list,
5825: '_PVT',
5826: x_return_status);
5827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5830: RAISE OKC_API.G_EXCEPTION_ERROR;
5831: END IF;
5824: p_init_msg_list,
5825: '_PVT',
5826: x_return_status);
5827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5830: RAISE OKC_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: BEGIN
5825: '_PVT',
5826: x_return_status);
5827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5830: RAISE OKC_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: BEGIN
5833:
5826: x_return_status);
5827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5830: RAISE OKC_API.G_EXCEPTION_ERROR;
5831: END IF;
5832: BEGIN
5833:
5834: IF (l_debug = 'Y') THEN
5856:
5857: IF (lock_csr%ISOPEN) THEN
5858: CLOSE lock_csr;
5859: END IF;
5860: OKC_API.set_message(G_FND_APP, G_FORM_UNABLE_TO_RESERVE_REC);
5861: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5862: END;
5863:
5864: IF (l_row_notfound ) THEN
5861: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5862: END;
5863:
5864: IF (l_row_notfound ) THEN
5865: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5866: RAISE OKC_API.G_EXCEPTION_ERROR;
5867: END IF;
5868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5869: IF (l_debug = 'Y') THEN
5862: END;
5863:
5864: IF (l_row_notfound ) THEN
5865: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5866: RAISE OKC_API.G_EXCEPTION_ERROR;
5867: END IF;
5868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5869: IF (l_debug = 'Y') THEN
5870: okc_debug.LOG('17200: Exiting lock_row', 2);
5864: IF (l_row_notfound ) THEN
5865: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5866: RAISE OKC_API.G_EXCEPTION_ERROR;
5867: END IF;
5868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5869: IF (l_debug = 'Y') THEN
5870: okc_debug.LOG('17200: Exiting lock_row', 2);
5871: okc_debug.Reset_Indentation;
5872: END IF;
5872: END IF;
5873:
5874:
5875: EXCEPTION
5876: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5875: EXCEPTION
5876: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5879: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5884: (
5885: l_api_name,
5886: G_PKG_NAME,
5887: 'OKC_API.G_RET_STS_ERROR',
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5884: (
5885: l_api_name,
5886: G_PKG_NAME,
5887: 'OKC_API.G_RET_STS_ERROR',
5888: x_msg_count,
5889: x_msg_data,
5890: '_PVT'
5891: );
5888: x_msg_count,
5889: x_msg_data,
5890: '_PVT'
5891: );
5892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5896: okc_debug.Reset_Indentation;
5891: );
5892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5895: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5900: (
5901: l_api_name,
5902: G_PKG_NAME,
5903: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5900: (
5901: l_api_name,
5902: G_PKG_NAME,
5903: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5904: x_msg_count,
5905: x_msg_data,
5906: '_PVT'
5907: );
5911: okc_debug.LOG('17500: Exiting lock_row:OTHERS Exception', 2);
5912: okc_debug.Reset_Indentation;
5913: END IF;
5914:
5915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5916: (
5917: l_api_name,
5918: G_PKG_NAME,
5919: 'OTHERS',
5935: p_chrv_rec IN chrv_rec_type) IS
5936:
5937: l_api_version CONSTANT NUMBER := 1;
5938: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5939: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5940: l_chr_rec chr_rec_type;
5941: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5942: BEGIN
5943:
5945: okc_debug.Set_Indentation('OKC_CHR_PVT');
5946: okc_debug.LOG('17600: Entered lock_row', 2);
5947: END IF;
5948:
5949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5950: G_PKG_NAME,
5951: p_init_msg_list,
5952: l_api_version,
5953: p_api_version,
5952: l_api_version,
5953: p_api_version,
5954: '_PVT',
5955: x_return_status);
5956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5959: RAISE OKC_API.G_EXCEPTION_ERROR;
5960: END IF;
5953: p_api_version,
5954: '_PVT',
5955: x_return_status);
5956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5959: RAISE OKC_API.G_EXCEPTION_ERROR;
5960: END IF;
5961: --------------------------------------
5954: '_PVT',
5955: x_return_status);
5956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5959: RAISE OKC_API.G_EXCEPTION_ERROR;
5960: END IF;
5961: --------------------------------------
5962: -- Move VIEW record to "Child" records
5955: x_return_status);
5956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5959: RAISE OKC_API.G_EXCEPTION_ERROR;
5960: END IF;
5961: --------------------------------------
5962: -- Move VIEW record to "Child" records
5963: --------------------------------------
5972: x_msg_count,
5973: x_msg_data,
5974: l_chr_rec
5975: );
5976: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5978: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5979: RAISE OKC_API.G_EXCEPTION_ERROR;
5980: END IF;
5973: x_msg_data,
5974: l_chr_rec
5975: );
5976: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5978: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5979: RAISE OKC_API.G_EXCEPTION_ERROR;
5980: END IF;
5981: lock_row(
5974: l_chr_rec
5975: );
5976: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5978: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5979: RAISE OKC_API.G_EXCEPTION_ERROR;
5980: END IF;
5981: lock_row(
5982: p_init_msg_list,
5975: );
5976: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5978: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5979: RAISE OKC_API.G_EXCEPTION_ERROR;
5980: END IF;
5981: lock_row(
5982: p_init_msg_list,
5983: x_return_status,
5984: x_msg_count,
5985: x_msg_data,
5986: l_okc_k_headers_tl_rec
5987: );
5988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5985: x_msg_data,
5986: l_okc_k_headers_tl_rec
5987: );
5988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5986: l_okc_k_headers_tl_rec
5987: );
5988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5994: IF (l_debug = 'Y') THEN
5987: );
5988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5994: IF (l_debug = 'Y') THEN
5995: okc_debug.LOG('17700: Exiting lock_row', 2);
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5994: IF (l_debug = 'Y') THEN
5995: okc_debug.LOG('17700: Exiting lock_row', 2);
5996: okc_debug.Reset_Indentation;
5997: END IF;
5997: END IF;
5998:
5999:
6000: EXCEPTION
6001: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6000: EXCEPTION
6001: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6004: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6009: (
6010: l_api_name,
6011: G_PKG_NAME,
6012: 'OKC_API.G_RET_STS_ERROR',
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6009: (
6010: l_api_name,
6011: G_PKG_NAME,
6012: 'OKC_API.G_RET_STS_ERROR',
6013: x_msg_count,
6014: x_msg_data,
6015: '_PVT'
6016: );
6013: x_msg_count,
6014: x_msg_data,
6015: '_PVT'
6016: );
6017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6021: okc_debug.Reset_Indentation;
6016: );
6017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6020: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6025: (
6026: l_api_name,
6027: G_PKG_NAME,
6028: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6025: (
6026: l_api_name,
6027: G_PKG_NAME,
6028: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6029: x_msg_count,
6030: x_msg_data,
6031: '_PVT'
6032: );
6036: okc_debug.LOG('18000: Exiting lock_row:OTHERS Exception', 2);
6037: okc_debug.Reset_Indentation;
6038: END IF;
6039:
6040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6041: (
6042: l_api_name,
6043: G_PKG_NAME,
6044: 'OTHERS',
6060: p_chrv_tbl IN chrv_tbl_type) IS
6061:
6062: l_api_version CONSTANT NUMBER := 1;
6063: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6064: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6065: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6066: i NUMBER := 0;
6067: BEGIN
6068:
6061:
6062: l_api_version CONSTANT NUMBER := 1;
6063: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6064: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6065: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6066: i NUMBER := 0;
6067: BEGIN
6068:
6069: IF (l_debug = 'Y') THEN
6070: okc_debug.Set_Indentation('OKC_CHR_PVT');
6071: okc_debug.LOG('18100: Entered lock_row', 2);
6072: END IF;
6073:
6074: OKC_API.init_msg_list(p_init_msg_list);
6075: -- Make sure PL/SQL table has records in it before passing
6076: IF (p_chrv_tbl.COUNT > 0) THEN
6077: i := p_chrv_tbl.FIRST;
6078: LOOP
6077: i := p_chrv_tbl.FIRST;
6078: LOOP
6079: lock_row (
6080: p_api_version => p_api_version,
6081: p_init_msg_list => OKC_API.G_FALSE,
6082: x_return_status => x_return_status,
6083: x_msg_count => x_msg_count,
6084: x_msg_data => x_msg_data,
6085: p_chrv_rec => p_chrv_tbl(i));
6084: x_msg_data => x_msg_data,
6085: p_chrv_rec => p_chrv_tbl(i));
6086:
6087: -- store the highest degree of error
6088: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
6089: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
6090: l_overall_status := x_return_status;
6091: END IF;
6092: END IF;
6085: p_chrv_rec => p_chrv_tbl(i));
6086:
6087: -- store the highest degree of error
6088: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
6089: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
6090: l_overall_status := x_return_status;
6091: END IF;
6092: END IF;
6093:
6103: END IF;
6104:
6105:
6106: EXCEPTION
6107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6106: EXCEPTION
6107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6110: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6118: 'OKC_API.G_RET_STS_ERROR',
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6118: 'OKC_API.G_RET_STS_ERROR',
6119: x_msg_count,
6120: x_msg_data,
6121: '_PVT'
6122: );
6119: x_msg_count,
6120: x_msg_data,
6121: '_PVT'
6122: );
6123: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6127: okc_debug.Reset_Indentation;
6122: );
6123: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6126: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6131: (
6132: l_api_name,
6133: G_PKG_NAME,
6134: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6131: (
6132: l_api_name,
6133: G_PKG_NAME,
6134: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6135: x_msg_count,
6136: x_msg_data,
6137: '_PVT'
6138: );
6142: okc_debug.LOG('18500: Exiting lock_row:OTHERS Exception', 2);
6143: okc_debug.Reset_Indentation;
6144: END IF;
6145:
6146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6147: (
6148: l_api_name,
6149: G_PKG_NAME,
6150: 'OTHERS',
6171: x_chr_rec OUT NOCOPY chr_rec_type) IS
6172:
6173: l_api_version CONSTANT NUMBER := 1;
6174: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
6175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6176: l_chr_rec chr_rec_type := p_chr_rec;
6177: l_def_chr_rec chr_rec_type;
6178: l_row_notfound BOOLEAN := TRUE;
6179: ----------------------------------
6184: x_chr_rec OUT NOCOPY chr_rec_type
6185: ) RETURN VARCHAR2 IS
6186: l_chr_rec chr_rec_type;
6187: l_row_notfound BOOLEAN := TRUE;
6188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6189: BEGIN
6190:
6191: IF (l_debug = 'Y') THEN
6192: okc_debug.Set_Indentation('OKC_CHR_PVT');
6196: x_chr_rec := p_chr_rec;
6197: -- Get current database values
6198: l_chr_rec := get_rec(p_chr_rec, l_row_notfound);
6199: IF (l_row_notfound) THEN
6200: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6201: END IF;
6202: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6203: THEN
6204: x_chr_rec.id := l_chr_rec.id;
6198: l_chr_rec := get_rec(p_chr_rec, l_row_notfound);
6199: IF (l_row_notfound) THEN
6200: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6201: END IF;
6202: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6203: THEN
6204: x_chr_rec.id := l_chr_rec.id;
6205: END IF;
6206: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6202: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6203: THEN
6204: x_chr_rec.id := l_chr_rec.id;
6205: END IF;
6206: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6207: THEN
6208: x_chr_rec.contract_number := l_chr_rec.contract_number;
6209: END IF;
6210: IF (x_chr_rec.authoring_org_id = OKC_API.G_MISS_NUM)
6206: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6207: THEN
6208: x_chr_rec.contract_number := l_chr_rec.contract_number;
6209: END IF;
6210: IF (x_chr_rec.authoring_org_id = OKC_API.G_MISS_NUM)
6211: THEN
6212: x_chr_rec.authoring_org_id := l_chr_rec.authoring_org_id;
6213: END IF;
6214: --mmadhavi added for MOAC
6212: x_chr_rec.authoring_org_id := l_chr_rec.authoring_org_id;
6213: END IF;
6214: --mmadhavi added for MOAC
6215:
6216: IF (x_chr_rec.org_id = OKC_API.G_MISS_NUM)
6217: THEN
6218: x_chr_rec.org_id := l_chr_rec.org_id;
6219: END IF;
6220:
6218: x_chr_rec.org_id := l_chr_rec.org_id;
6219: END IF;
6220:
6221: --mmadhavi end MOAC
6222: IF (x_chr_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
6223: THEN
6224: x_chr_rec.contract_number_modifier := l_chr_rec.contract_number_modifier;
6225: END IF;
6226: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6222: IF (x_chr_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
6223: THEN
6224: x_chr_rec.contract_number_modifier := l_chr_rec.contract_number_modifier;
6225: END IF;
6226: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6227: THEN
6228: x_chr_rec.chr_id_response := l_chr_rec.chr_id_response;
6229: END IF;
6230: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6226: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6227: THEN
6228: x_chr_rec.chr_id_response := l_chr_rec.chr_id_response;
6229: END IF;
6230: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6231: THEN
6232: x_chr_rec.chr_id_award := l_chr_rec.chr_id_award;
6233: END IF;
6234: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6230: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6231: THEN
6232: x_chr_rec.chr_id_award := l_chr_rec.chr_id_award;
6233: END IF;
6234: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6235: THEN
6236: x_chr_rec.INV_ORGANIZATION_ID := l_chr_rec.INV_ORGANIZATION_ID;
6237: END IF;
6238: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6234: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6235: THEN
6236: x_chr_rec.INV_ORGANIZATION_ID := l_chr_rec.INV_ORGANIZATION_ID;
6237: END IF;
6238: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6239: THEN
6240: x_chr_rec.sts_code := l_chr_rec.sts_code;
6241: END IF;
6242: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6238: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6239: THEN
6240: x_chr_rec.sts_code := l_chr_rec.sts_code;
6241: END IF;
6242: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6243: THEN
6244: x_chr_rec.qcl_id := l_chr_rec.qcl_id;
6245: END IF;
6246: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6242: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6243: THEN
6244: x_chr_rec.qcl_id := l_chr_rec.qcl_id;
6245: END IF;
6246: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6247: THEN
6248: x_chr_rec.scs_code := l_chr_rec.scs_code;
6249: END IF;
6250: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6246: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6247: THEN
6248: x_chr_rec.scs_code := l_chr_rec.scs_code;
6249: END IF;
6250: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6251: THEN
6252: x_chr_rec.trn_code := l_chr_rec.trn_code;
6253: END IF;
6254: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6250: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6251: THEN
6252: x_chr_rec.trn_code := l_chr_rec.trn_code;
6253: END IF;
6254: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6255: THEN
6256: x_chr_rec.currency_code := l_chr_rec.currency_code;
6257: END IF;
6258: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6254: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6255: THEN
6256: x_chr_rec.currency_code := l_chr_rec.currency_code;
6257: END IF;
6258: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6259: THEN
6260: x_chr_rec.archived_yn := l_chr_rec.archived_yn;
6261: END IF;
6262: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6258: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6259: THEN
6260: x_chr_rec.archived_yn := l_chr_rec.archived_yn;
6261: END IF;
6262: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6263: THEN
6264: x_chr_rec.deleted_yn := l_chr_rec.deleted_yn;
6265: END IF;
6266: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6262: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6263: THEN
6264: x_chr_rec.deleted_yn := l_chr_rec.deleted_yn;
6265: END IF;
6266: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6267: THEN
6268: x_chr_rec.template_yn := l_chr_rec.template_yn;
6269: END IF;
6270: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6266: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6267: THEN
6268: x_chr_rec.template_yn := l_chr_rec.template_yn;
6269: END IF;
6270: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6271: THEN
6272: x_chr_rec.chr_type := l_chr_rec.chr_type;
6273: END IF;
6274: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6270: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6271: THEN
6272: x_chr_rec.chr_type := l_chr_rec.chr_type;
6273: END IF;
6274: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6275: THEN
6276: x_chr_rec.object_version_number := l_chr_rec.object_version_number;
6277: END IF;
6278: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6274: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6275: THEN
6276: x_chr_rec.object_version_number := l_chr_rec.object_version_number;
6277: END IF;
6278: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6279: THEN
6280: x_chr_rec.created_by := l_chr_rec.created_by;
6281: END IF;
6282: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6278: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6279: THEN
6280: x_chr_rec.created_by := l_chr_rec.created_by;
6281: END IF;
6282: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6283: THEN
6284: x_chr_rec.creation_date := l_chr_rec.creation_date;
6285: END IF;
6286: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6282: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6283: THEN
6284: x_chr_rec.creation_date := l_chr_rec.creation_date;
6285: END IF;
6286: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6287: THEN
6288: x_chr_rec.last_updated_by := l_chr_rec.last_updated_by;
6289: END IF;
6290: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6286: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6287: THEN
6288: x_chr_rec.last_updated_by := l_chr_rec.last_updated_by;
6289: END IF;
6290: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6291: THEN
6292: x_chr_rec.last_update_date := l_chr_rec.last_update_date;
6293: END IF;
6294: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6290: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6291: THEN
6292: x_chr_rec.last_update_date := l_chr_rec.last_update_date;
6293: END IF;
6294: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_chr_rec.cust_po_number_req_yn := l_chr_rec.cust_po_number_req_yn;
6297: END IF;
6298: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6294: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_chr_rec.cust_po_number_req_yn := l_chr_rec.cust_po_number_req_yn;
6297: END IF;
6298: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6299: THEN
6300: x_chr_rec.pre_pay_req_yn := l_chr_rec.pre_pay_req_yn;
6301: END IF;
6302: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6298: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6299: THEN
6300: x_chr_rec.pre_pay_req_yn := l_chr_rec.pre_pay_req_yn;
6301: END IF;
6302: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6303: THEN
6304: x_chr_rec.cust_po_number := l_chr_rec.cust_po_number;
6305: END IF;
6306: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6302: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6303: THEN
6304: x_chr_rec.cust_po_number := l_chr_rec.cust_po_number;
6305: END IF;
6306: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6307: THEN
6308: x_chr_rec.dpas_rating := l_chr_rec.dpas_rating;
6309: END IF;
6310: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6306: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6307: THEN
6308: x_chr_rec.dpas_rating := l_chr_rec.dpas_rating;
6309: END IF;
6310: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6311: THEN
6312: x_chr_rec.template_used := l_chr_rec.template_used;
6313: END IF;
6314: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6310: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6311: THEN
6312: x_chr_rec.template_used := l_chr_rec.template_used;
6313: END IF;
6314: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6315: THEN
6316: x_chr_rec.date_approved := l_chr_rec.date_approved;
6317: END IF;
6318: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6314: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6315: THEN
6316: x_chr_rec.date_approved := l_chr_rec.date_approved;
6317: END IF;
6318: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6319: THEN
6320: x_chr_rec.datetime_cancelled := l_chr_rec.datetime_cancelled;
6321: END IF;
6322: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6318: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6319: THEN
6320: x_chr_rec.datetime_cancelled := l_chr_rec.datetime_cancelled;
6321: END IF;
6322: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6323: THEN
6324: x_chr_rec.auto_renew_days := l_chr_rec.auto_renew_days;
6325: END IF;
6326: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6322: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6323: THEN
6324: x_chr_rec.auto_renew_days := l_chr_rec.auto_renew_days;
6325: END IF;
6326: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6327: THEN
6328: x_chr_rec.date_issued := l_chr_rec.date_issued;
6329: END IF;
6330: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6326: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6327: THEN
6328: x_chr_rec.date_issued := l_chr_rec.date_issued;
6329: END IF;
6330: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6331: THEN
6332: x_chr_rec.datetime_responded := l_chr_rec.datetime_responded;
6333: END IF;
6334: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6330: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6331: THEN
6332: x_chr_rec.datetime_responded := l_chr_rec.datetime_responded;
6333: END IF;
6334: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6335: THEN
6336: x_chr_rec.rfp_type := l_chr_rec.rfp_type;
6337: END IF;
6338: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6334: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6335: THEN
6336: x_chr_rec.rfp_type := l_chr_rec.rfp_type;
6337: END IF;
6338: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6339: THEN
6340: x_chr_rec.keep_on_mail_list := l_chr_rec.keep_on_mail_list;
6341: END IF;
6342: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6338: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6339: THEN
6340: x_chr_rec.keep_on_mail_list := l_chr_rec.keep_on_mail_list;
6341: END IF;
6342: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6343: THEN
6344: x_chr_rec.set_aside_percent := l_chr_rec.set_aside_percent;
6345: END IF;
6346: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6342: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6343: THEN
6344: x_chr_rec.set_aside_percent := l_chr_rec.set_aside_percent;
6345: END IF;
6346: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6347: THEN
6348: x_chr_rec.response_copies_req := l_chr_rec.response_copies_req;
6349: END IF;
6350: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6346: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6347: THEN
6348: x_chr_rec.response_copies_req := l_chr_rec.response_copies_req;
6349: END IF;
6350: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6351: THEN
6352: x_chr_rec.date_close_projected := l_chr_rec.date_close_projected;
6353: END IF;
6354: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6350: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6351: THEN
6352: x_chr_rec.date_close_projected := l_chr_rec.date_close_projected;
6353: END IF;
6354: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6355: THEN
6356: x_chr_rec.datetime_proposed := l_chr_rec.datetime_proposed;
6357: END IF;
6358: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6354: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6355: THEN
6356: x_chr_rec.datetime_proposed := l_chr_rec.datetime_proposed;
6357: END IF;
6358: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6359: THEN
6360: x_chr_rec.date_signed := l_chr_rec.date_signed;
6361: END IF;
6362: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6358: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6359: THEN
6360: x_chr_rec.date_signed := l_chr_rec.date_signed;
6361: END IF;
6362: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6363: THEN
6364: x_chr_rec.date_terminated := l_chr_rec.date_terminated;
6365: END IF;
6366: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6362: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6363: THEN
6364: x_chr_rec.date_terminated := l_chr_rec.date_terminated;
6365: END IF;
6366: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6367: THEN
6368: x_chr_rec.date_renewed := l_chr_rec.date_renewed;
6369: END IF;
6370: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6366: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6367: THEN
6368: x_chr_rec.date_renewed := l_chr_rec.date_renewed;
6369: END IF;
6370: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6371: THEN
6372: x_chr_rec.start_date := l_chr_rec.start_date;
6373: END IF;
6374: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6370: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6371: THEN
6372: x_chr_rec.start_date := l_chr_rec.start_date;
6373: END IF;
6374: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6375: THEN
6376: x_chr_rec.end_date := l_chr_rec.end_date;
6377: END IF;
6378: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6374: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6375: THEN
6376: x_chr_rec.end_date := l_chr_rec.end_date;
6377: END IF;
6378: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6379: THEN
6380: x_chr_rec.buy_or_sell := l_chr_rec.buy_or_sell;
6381: END IF;
6382: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6378: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6379: THEN
6380: x_chr_rec.buy_or_sell := l_chr_rec.buy_or_sell;
6381: END IF;
6382: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6383: THEN
6384: x_chr_rec.issue_or_receive := l_chr_rec.issue_or_receive;
6385: END IF;
6386: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6382: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6383: THEN
6384: x_chr_rec.issue_or_receive := l_chr_rec.issue_or_receive;
6385: END IF;
6386: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6387: THEN
6388: x_chr_rec.estimated_amount := l_chr_rec.estimated_amount;
6389: END IF;
6390: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6386: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6387: THEN
6388: x_chr_rec.estimated_amount := l_chr_rec.estimated_amount;
6389: END IF;
6390: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6391: THEN
6392: x_chr_rec.estimated_amount_renewed := l_chr_rec.estimated_amount_renewed;
6393: END IF;
6394: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6390: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6391: THEN
6392: x_chr_rec.estimated_amount_renewed := l_chr_rec.estimated_amount_renewed;
6393: END IF;
6394: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6395: THEN
6396: x_chr_rec.currency_code_renewed := l_chr_rec.currency_code_renewed;
6397: END IF;
6398: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6394: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6395: THEN
6396: x_chr_rec.currency_code_renewed := l_chr_rec.currency_code_renewed;
6397: END IF;
6398: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6399: THEN
6400: x_chr_rec.last_update_login := l_chr_rec.last_update_login;
6401: END IF;
6402: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6398: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6399: THEN
6400: x_chr_rec.last_update_login := l_chr_rec.last_update_login;
6401: END IF;
6402: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6403: THEN
6404: x_chr_rec.upg_orig_system_ref := l_chr_rec.upg_orig_system_ref;
6405: END IF;
6406: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6402: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6403: THEN
6404: x_chr_rec.upg_orig_system_ref := l_chr_rec.upg_orig_system_ref;
6405: END IF;
6406: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6407: THEN
6408: x_chr_rec.upg_orig_system_ref_id := l_chr_rec.upg_orig_system_ref_id;
6409: END IF;
6410: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6406: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6407: THEN
6408: x_chr_rec.upg_orig_system_ref_id := l_chr_rec.upg_orig_system_ref_id;
6409: END IF;
6410: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6411: THEN
6412: x_chr_rec.application_id := l_chr_rec.application_id;
6413: END IF;
6414: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6410: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6411: THEN
6412: x_chr_rec.application_id := l_chr_rec.application_id;
6413: END IF;
6414: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6415: THEN
6416: x_chr_rec.orig_system_source_code := l_chr_rec.orig_system_source_code ;
6417: END IF;
6418: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6414: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6415: THEN
6416: x_chr_rec.orig_system_source_code := l_chr_rec.orig_system_source_code ;
6417: END IF;
6418: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6419: THEN
6420: x_chr_rec.orig_system_id1 := l_chr_rec.orig_system_id1 ;
6421: END IF ;
6422: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6418: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6419: THEN
6420: x_chr_rec.orig_system_id1 := l_chr_rec.orig_system_id1 ;
6421: END IF ;
6422: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6423: THEN
6424: x_chr_rec.orig_system_reference1 := l_chr_rec.orig_system_reference1 ;
6425: END IF;
6426: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6422: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6423: THEN
6424: x_chr_rec.orig_system_reference1 := l_chr_rec.orig_system_reference1 ;
6425: END IF;
6426: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6427: THEN
6428: x_chr_rec.program_id := l_chr_rec.program_id;
6429: END IF;
6430: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6426: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6427: THEN
6428: x_chr_rec.program_id := l_chr_rec.program_id;
6429: END IF;
6430: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6431: THEN
6432: x_chr_rec.request_id := l_chr_rec.request_id;
6433: END IF;
6434: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6430: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6431: THEN
6432: x_chr_rec.request_id := l_chr_rec.request_id;
6433: END IF;
6434: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6435: THEN
6436: x_chr_rec.program_update_date := l_chr_rec.program_update_date;
6437: END IF;
6438: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6434: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6435: THEN
6436: x_chr_rec.program_update_date := l_chr_rec.program_update_date;
6437: END IF;
6438: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6439: THEN
6440: x_chr_rec.program_application_id := l_chr_rec.program_application_id;
6441: END IF;
6442: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6438: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6439: THEN
6440: x_chr_rec.program_application_id := l_chr_rec.program_application_id;
6441: END IF;
6442: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6443: THEN
6444: x_chr_rec.price_list_id := l_chr_rec.price_list_id;
6445: END IF;
6446: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6442: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6443: THEN
6444: x_chr_rec.price_list_id := l_chr_rec.price_list_id;
6445: END IF;
6446: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6447: THEN
6448: x_chr_rec.pricing_date := l_chr_rec.pricing_date ;
6449: END IF;
6450: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6446: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6447: THEN
6448: x_chr_rec.pricing_date := l_chr_rec.pricing_date ;
6449: END IF;
6450: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6451: THEN
6452: x_chr_rec.sign_by_date := l_chr_rec.sign_by_date;
6453: END IF;
6454: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6450: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6451: THEN
6452: x_chr_rec.sign_by_date := l_chr_rec.sign_by_date;
6453: END IF;
6454: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6455: THEN
6456: x_chr_rec.total_line_list_price := l_chr_rec.total_line_list_price;
6457: END IF;
6458: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6454: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6455: THEN
6456: x_chr_rec.total_line_list_price := l_chr_rec.total_line_list_price;
6457: END IF;
6458: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6459: x_chr_rec.user_estimated_amount := l_chr_rec.user_estimated_amount;
6460: END IF;
6461:
6462: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6458: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6459: x_chr_rec.user_estimated_amount := l_chr_rec.user_estimated_amount;
6460: END IF;
6461:
6462: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6463: x_chr_rec.governing_contract_yn := l_chr_rec.governing_contract_yn;
6464: END IF;
6465: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6466: THEN
6461:
6462: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6463: x_chr_rec.governing_contract_yn := l_chr_rec.governing_contract_yn;
6464: END IF;
6465: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6466: THEN
6467: x_chr_rec.attribute_category := l_chr_rec.attribute_category;
6468: END IF;
6469: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6465: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6466: THEN
6467: x_chr_rec.attribute_category := l_chr_rec.attribute_category;
6468: END IF;
6469: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6470: THEN
6471: x_chr_rec.attribute1 := l_chr_rec.attribute1;
6472: END IF;
6473: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6469: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6470: THEN
6471: x_chr_rec.attribute1 := l_chr_rec.attribute1;
6472: END IF;
6473: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6474: THEN
6475: x_chr_rec.attribute2 := l_chr_rec.attribute2;
6476: END IF;
6477: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6473: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6474: THEN
6475: x_chr_rec.attribute2 := l_chr_rec.attribute2;
6476: END IF;
6477: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6478: THEN
6479: x_chr_rec.attribute3 := l_chr_rec.attribute3;
6480: END IF;
6481: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6477: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6478: THEN
6479: x_chr_rec.attribute3 := l_chr_rec.attribute3;
6480: END IF;
6481: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6482: THEN
6483: x_chr_rec.attribute4 := l_chr_rec.attribute4;
6484: END IF;
6485: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6481: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6482: THEN
6483: x_chr_rec.attribute4 := l_chr_rec.attribute4;
6484: END IF;
6485: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6486: THEN
6487: x_chr_rec.attribute5 := l_chr_rec.attribute5;
6488: END IF;
6489: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6485: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6486: THEN
6487: x_chr_rec.attribute5 := l_chr_rec.attribute5;
6488: END IF;
6489: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6490: THEN
6491: x_chr_rec.attribute6 := l_chr_rec.attribute6;
6492: END IF;
6493: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6489: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6490: THEN
6491: x_chr_rec.attribute6 := l_chr_rec.attribute6;
6492: END IF;
6493: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6494: THEN
6495: x_chr_rec.attribute7 := l_chr_rec.attribute7;
6496: END IF;
6497: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6493: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6494: THEN
6495: x_chr_rec.attribute7 := l_chr_rec.attribute7;
6496: END IF;
6497: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6498: THEN
6499: x_chr_rec.attribute8 := l_chr_rec.attribute8;
6500: END IF;
6501: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6497: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6498: THEN
6499: x_chr_rec.attribute8 := l_chr_rec.attribute8;
6500: END IF;
6501: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6502: THEN
6503: x_chr_rec.attribute9 := l_chr_rec.attribute9;
6504: END IF;
6505: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6501: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6502: THEN
6503: x_chr_rec.attribute9 := l_chr_rec.attribute9;
6504: END IF;
6505: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6506: THEN
6507: x_chr_rec.attribute10 := l_chr_rec.attribute10;
6508: END IF;
6509: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6505: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6506: THEN
6507: x_chr_rec.attribute10 := l_chr_rec.attribute10;
6508: END IF;
6509: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6510: THEN
6511: x_chr_rec.attribute11 := l_chr_rec.attribute11;
6512: END IF;
6513: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6509: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6510: THEN
6511: x_chr_rec.attribute11 := l_chr_rec.attribute11;
6512: END IF;
6513: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6514: THEN
6515: x_chr_rec.attribute12 := l_chr_rec.attribute12;
6516: END IF;
6517: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6513: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6514: THEN
6515: x_chr_rec.attribute12 := l_chr_rec.attribute12;
6516: END IF;
6517: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6518: THEN
6519: x_chr_rec.attribute13 := l_chr_rec.attribute13;
6520: END IF;
6521: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6517: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6518: THEN
6519: x_chr_rec.attribute13 := l_chr_rec.attribute13;
6520: END IF;
6521: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6522: THEN
6523: x_chr_rec.attribute14 := l_chr_rec.attribute14;
6524: END IF;
6525: IF (x_chr_rec.attribute15 = OKC_API.G_MISS_CHAR)
6521: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6522: THEN
6523: x_chr_rec.attribute14 := l_chr_rec.attribute14;
6524: END IF;
6525: IF (x_chr_rec.attribute15 = OKC_API.G_MISS_CHAR)
6526: THEN
6527: x_chr_rec.attribute15 := l_chr_rec.attribute15;
6528: END IF;
6529: -- new columns to replace rules
6526: THEN
6527: x_chr_rec.attribute15 := l_chr_rec.attribute15;
6528: END IF;
6529: -- new columns to replace rules
6530: IF (x_chr_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
6531: x_chr_rec.conversion_type := l_chr_rec.conversion_type;
6532: END IF;
6533: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6534: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6529: -- new columns to replace rules
6530: IF (x_chr_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
6531: x_chr_rec.conversion_type := l_chr_rec.conversion_type;
6532: END IF;
6533: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6534: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6535: END IF;
6536: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6537: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6532: END IF;
6533: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6534: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6535: END IF;
6536: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6537: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6538: END IF;
6539: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6540: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6535: END IF;
6536: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6537: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6538: END IF;
6539: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6540: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6541: END IF;
6542: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6543: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6538: END IF;
6539: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6540: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6541: END IF;
6542: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6543: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6544: END IF;
6545: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6546: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6541: END IF;
6542: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6543: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6544: END IF;
6545: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6546: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6547: END IF;
6548: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6549: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6544: END IF;
6545: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6546: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6547: END IF;
6548: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6549: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6550: END IF;
6551: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6552: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6547: END IF;
6548: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6549: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6550: END IF;
6551: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6552: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6553: END IF;
6554: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6555: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6550: END IF;
6551: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6552: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6553: END IF;
6554: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6555: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6556: END IF;
6557: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6558: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6553: END IF;
6554: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6555: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6556: END IF;
6557: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6558: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6559: END IF;
6560: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6561: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6556: END IF;
6557: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6558: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6559: END IF;
6560: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6561: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6562: END IF;
6563: IF (x_chr_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6564: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6559: END IF;
6560: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6561: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6562: END IF;
6563: IF (x_chr_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6564: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6565: END IF;
6566:
6567: -- R12 Data Model Changes 4485150 Start
6564: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6565: END IF;
6566:
6567: -- R12 Data Model Changes 4485150 Start
6568: IF (x_chr_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
6569: x_chr_rec.approval_type := l_chr_rec.approval_type;
6570: END IF;
6571: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6572: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6567: -- R12 Data Model Changes 4485150 Start
6568: IF (x_chr_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
6569: x_chr_rec.approval_type := l_chr_rec.approval_type;
6570: END IF;
6571: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6572: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6573: END IF;
6574: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6575: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6570: END IF;
6571: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6572: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6573: END IF;
6574: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6575: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6576: END IF;
6577: -- LLC
6578: IF (x_chr_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6574: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6575: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6576: END IF;
6577: -- LLC
6578: IF (x_chr_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6579: x_chr_rec.cancelled_amount := l_chr_rec.cancelled_amount;
6580: END IF;
6581: -- R12 Data Model Changes 4485150 End
6582: RETURN(l_return_status);
6588: FUNCTION Set_Attributes (
6589: p_chr_rec IN chr_rec_type,
6590: x_chr_rec OUT NOCOPY chr_rec_type
6591: ) RETURN VARCHAR2 IS
6592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6593: BEGIN
6594:
6595: IF (l_debug = 'Y') THEN
6596: okc_debug.Set_Indentation('OKC_CHR_PVT');
6607: okc_debug.Set_Indentation('OKC_CHR_PVT');
6608: okc_debug.LOG('18800: Entered update_row', 2);
6609: END IF;
6610:
6611: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6612: p_init_msg_list,
6613: '_PVT',
6614: x_return_status);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6611: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6612: p_init_msg_list,
6613: '_PVT',
6614: x_return_status);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6618: RAISE OKC_API.G_EXCEPTION_ERROR;
6619: END IF;
6612: p_init_msg_list,
6613: '_PVT',
6614: x_return_status);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6618: RAISE OKC_API.G_EXCEPTION_ERROR;
6619: END IF;
6620: --- Setting item attributes
6613: '_PVT',
6614: x_return_status);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6618: RAISE OKC_API.G_EXCEPTION_ERROR;
6619: END IF;
6620: --- Setting item attributes
6621: l_return_status := Set_Attributes(
6614: x_return_status);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6617: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6618: RAISE OKC_API.G_EXCEPTION_ERROR;
6619: END IF;
6620: --- Setting item attributes
6621: l_return_status := Set_Attributes(
6622: p_chr_rec, -- IN
6621: l_return_status := Set_Attributes(
6622: p_chr_rec, -- IN
6623: l_chr_rec); -- OUT
6624: --- If any errors happen abort API
6625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6622: p_chr_rec, -- IN
6623: l_chr_rec); -- OUT
6624: --- If any errors happen abort API
6625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6623: l_chr_rec); -- OUT
6624: --- If any errors happen abort API
6625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6624: --- If any errors happen abort API
6625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6634: RAISE OKC_API.G_EXCEPTION_ERROR;
6635: END IF;
6628: RAISE OKC_API.G_EXCEPTION_ERROR;
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6634: RAISE OKC_API.G_EXCEPTION_ERROR;
6635: END IF;
6636:
6629: END IF;
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6634: RAISE OKC_API.G_EXCEPTION_ERROR;
6635: END IF;
6636:
6637: UPDATE OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
6630: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6634: RAISE OKC_API.G_EXCEPTION_ERROR;
6635: END IF;
6636:
6637: UPDATE OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
6638: SET CONTRACT_NUMBER = l_def_chr_rec.contract_number,
6735: -- R12 Data Model Changes 4485150 End
6736: WHERE ID = l_def_chr_rec.id;
6737:
6738: x_chr_rec := l_def_chr_rec;
6739: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6740: IF (l_debug = 'Y') THEN
6741: okc_debug.LOG('18900: Exiting update_row', 2);
6742: okc_debug.Reset_Indentation;
6743: END IF;
6743: END IF;
6744:
6745:
6746: EXCEPTION
6747: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6746: EXCEPTION
6747: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6750: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6755: (
6756: l_api_name,
6757: G_PKG_NAME,
6758: 'OKC_API.G_RET_STS_ERROR',
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6755: (
6756: l_api_name,
6757: G_PKG_NAME,
6758: 'OKC_API.G_RET_STS_ERROR',
6759: x_msg_count,
6760: x_msg_data,
6761: '_PVT'
6762: );
6759: x_msg_count,
6760: x_msg_data,
6761: '_PVT'
6762: );
6763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6767: okc_debug.Reset_Indentation;
6762: );
6763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6766: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6771: (
6772: l_api_name,
6773: G_PKG_NAME,
6774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6771: (
6772: l_api_name,
6773: G_PKG_NAME,
6774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6775: x_msg_count,
6776: x_msg_data,
6777: '_PVT'
6778: );
6782: okc_debug.LOG('19200: Exiting update_row:OTHERS Exception', 2);
6783: okc_debug.Reset_Indentation;
6784: END IF;
6785:
6786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6787: (
6788: l_api_name,
6789: G_PKG_NAME,
6790: 'OTHERS',
6806: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
6807:
6808: l_api_version CONSTANT NUMBER := 1;
6809: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6810: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6811: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
6812: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6813: l_row_notfound BOOLEAN := TRUE;
6814: ----------------------------------
6819: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6820: ) RETURN VARCHAR2 IS
6821: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6822: l_row_notfound BOOLEAN := TRUE;
6823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6824: BEGIN
6825:
6826: IF (l_debug = 'Y') THEN
6827: okc_debug.Set_Indentation('OKC_CHR_PVT');
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6832: -- Get current database values
6833: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6834: IF (l_row_notfound) THEN
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6833: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6834: IF (l_row_notfound) THEN
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6898: THEN
6899: x_okc_k_headers_tl_rec.last_update_login := l_okc_k_headers_tl_rec.last_update_login;
6900: END IF;
6901: RETURN(l_return_status);
6907: FUNCTION Set_Attributes (
6908: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6909: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6910: ) RETURN VARCHAR2 IS
6911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6912: BEGIN
6913:
6914: IF (l_debug = 'Y') THEN
6915: okc_debug.Set_Indentation('OKC_CHR_PVT');
6928: okc_debug.Set_Indentation('OKC_CHR_PVT');
6929: okc_debug.LOG('19500: Entered update_row', 2);
6930: END IF;
6931:
6932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6933: p_init_msg_list,
6934: '_PVT',
6935: x_return_status);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6933: p_init_msg_list,
6934: '_PVT',
6935: x_return_status);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6937: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6938: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6939: RAISE OKC_API.G_EXCEPTION_ERROR;
6940: END IF;
6933: p_init_msg_list,
6934: '_PVT',
6935: x_return_status);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6937: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6938: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6939: RAISE OKC_API.G_EXCEPTION_ERROR;
6940: END IF;
6941: --- Setting item attributes
6934: '_PVT',
6935: x_return_status);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6937: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6938: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6939: RAISE OKC_API.G_EXCEPTION_ERROR;
6940: END IF;
6941: --- Setting item attributes
6942: l_return_status := Set_Attributes(
6935: x_return_status);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6937: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6938: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6939: RAISE OKC_API.G_EXCEPTION_ERROR;
6940: END IF;
6941: --- Setting item attributes
6942: l_return_status := Set_Attributes(
6943: p_okc_k_headers_tl_rec, -- IN
6942: l_return_status := Set_Attributes(
6943: p_okc_k_headers_tl_rec, -- IN
6944: l_okc_k_headers_tl_rec); -- OUT
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6943: p_okc_k_headers_tl_rec, -- IN
6944: l_okc_k_headers_tl_rec); -- OUT
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6944: l_okc_k_headers_tl_rec); -- OUT
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6976: WHERE ID = l_def_okc_k_headers_tl_rec.id
6977: AND SOURCE_LANG <> USERENV('LANG');
6978:
6979: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6980: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6981: IF (l_debug = 'Y') THEN
6982: okc_debug.LOG('19600: Exiting update_row', 2);
6983: okc_debug.Reset_Indentation;
6984: END IF;
6984: END IF;
6985:
6986:
6987: EXCEPTION
6988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6987: EXCEPTION
6988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6991: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6996: (
6997: l_api_name,
6998: G_PKG_NAME,
6999: 'OKC_API.G_RET_STS_ERROR',
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6996: (
6997: l_api_name,
6998: G_PKG_NAME,
6999: 'OKC_API.G_RET_STS_ERROR',
7000: x_msg_count,
7001: x_msg_data,
7002: '_PVT'
7003: );
7000: x_msg_count,
7001: x_msg_data,
7002: '_PVT'
7003: );
7004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7008: okc_debug.Reset_Indentation;
7003: );
7004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7007: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7012: (
7013: l_api_name,
7014: G_PKG_NAME,
7015: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7012: (
7013: l_api_name,
7014: G_PKG_NAME,
7015: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7016: x_msg_count,
7017: x_msg_data,
7018: '_PVT'
7019: );
7023: okc_debug.LOG('19900: Exiting update_row:OTHERS Exception', 2);
7024: okc_debug.Reset_Indentation;
7025: END IF;
7026:
7027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7028: (
7029: l_api_name,
7030: G_PKG_NAME,
7031: 'OTHERS',
7049: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
7050:
7051: l_api_version CONSTANT NUMBER := 1;
7052: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
7053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7054: l_chrv_rec chrv_rec_type := p_chrv_rec;
7055: l_def_chrv_rec chrv_rec_type;
7056: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7057: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7085: x_chrv_rec OUT NOCOPY chrv_rec_type
7086: ) RETURN VARCHAR2 IS
7087: l_chrv_rec chrv_rec_type;
7088: l_row_notfound BOOLEAN := TRUE;
7089: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7090: BEGIN
7091:
7092: IF (l_debug = 'Y') THEN
7093: okc_debug.Set_Indentation('OKC_CHR_PVT');
7097: x_chrv_rec := p_chrv_rec;
7098: -- Get current database values
7099: l_chrv_rec := get_rec(p_chrv_rec, l_row_notfound);
7100: IF (l_row_notfound) THEN
7101: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7102: END IF;
7103: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7104: THEN
7105: x_chrv_rec.id := l_chrv_rec.id;
7099: l_chrv_rec := get_rec(p_chrv_rec, l_row_notfound);
7100: IF (l_row_notfound) THEN
7101: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7102: END IF;
7103: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7104: THEN
7105: x_chrv_rec.id := l_chrv_rec.id;
7106: END IF;
7107: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7103: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7104: THEN
7105: x_chrv_rec.id := l_chrv_rec.id;
7106: END IF;
7107: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7108: THEN
7109: x_chrv_rec.object_version_number := l_chrv_rec.object_version_number;
7110: END IF;
7111: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7107: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7108: THEN
7109: x_chrv_rec.object_version_number := l_chrv_rec.object_version_number;
7110: END IF;
7111: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7112: THEN
7113: x_chrv_rec.sfwt_flag := l_chrv_rec.sfwt_flag;
7114: END IF;
7115: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7111: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7112: THEN
7113: x_chrv_rec.sfwt_flag := l_chrv_rec.sfwt_flag;
7114: END IF;
7115: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7116: THEN
7117: x_chrv_rec.chr_id_response := l_chrv_rec.chr_id_response;
7118: END IF;
7119: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7115: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7116: THEN
7117: x_chrv_rec.chr_id_response := l_chrv_rec.chr_id_response;
7118: END IF;
7119: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7120: THEN
7121: x_chrv_rec.chr_id_award := l_chrv_rec.chr_id_award;
7122: END IF;
7123: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7119: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7120: THEN
7121: x_chrv_rec.chr_id_award := l_chrv_rec.chr_id_award;
7122: END IF;
7123: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7124: THEN
7125: x_chrv_rec.INV_ORGANIZATION_ID := l_chrv_rec.INV_ORGANIZATION_ID;
7126: END IF;
7127: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7123: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7124: THEN
7125: x_chrv_rec.INV_ORGANIZATION_ID := l_chrv_rec.INV_ORGANIZATION_ID;
7126: END IF;
7127: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7128: THEN
7129: x_chrv_rec.sts_code := l_chrv_rec.sts_code;
7130: END IF;
7131: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7127: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7128: THEN
7129: x_chrv_rec.sts_code := l_chrv_rec.sts_code;
7130: END IF;
7131: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7132: THEN
7133: x_chrv_rec.qcl_id := l_chrv_rec.qcl_id;
7134: END IF;
7135: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7131: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7132: THEN
7133: x_chrv_rec.qcl_id := l_chrv_rec.qcl_id;
7134: END IF;
7135: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7136: THEN
7137: x_chrv_rec.scs_code := l_chrv_rec.scs_code;
7138: END IF;
7139: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7135: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7136: THEN
7137: x_chrv_rec.scs_code := l_chrv_rec.scs_code;
7138: END IF;
7139: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7140: THEN
7141: x_chrv_rec.contract_number := l_chrv_rec.contract_number;
7142: END IF;
7143: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7139: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7140: THEN
7141: x_chrv_rec.contract_number := l_chrv_rec.contract_number;
7142: END IF;
7143: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7144: THEN
7145: x_chrv_rec.currency_code := l_chrv_rec.currency_code;
7146: END IF;
7147: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7143: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7144: THEN
7145: x_chrv_rec.currency_code := l_chrv_rec.currency_code;
7146: END IF;
7147: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7148: THEN
7149: x_chrv_rec.contract_number_modifier := l_chrv_rec.contract_number_modifier;
7150: END IF;
7151: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7147: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7148: THEN
7149: x_chrv_rec.contract_number_modifier := l_chrv_rec.contract_number_modifier;
7150: END IF;
7151: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7152: THEN
7153: x_chrv_rec.archived_yn := l_chrv_rec.archived_yn;
7154: END IF;
7155: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7151: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7152: THEN
7153: x_chrv_rec.archived_yn := l_chrv_rec.archived_yn;
7154: END IF;
7155: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7156: THEN
7157: x_chrv_rec.deleted_yn := l_chrv_rec.deleted_yn;
7158: END IF;
7159: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7155: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7156: THEN
7157: x_chrv_rec.deleted_yn := l_chrv_rec.deleted_yn;
7158: END IF;
7159: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7160: THEN
7161: x_chrv_rec.cust_po_number_req_yn := l_chrv_rec.cust_po_number_req_yn;
7162: END IF;
7163: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7159: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7160: THEN
7161: x_chrv_rec.cust_po_number_req_yn := l_chrv_rec.cust_po_number_req_yn;
7162: END IF;
7163: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7164: THEN
7165: x_chrv_rec.pre_pay_req_yn := l_chrv_rec.pre_pay_req_yn;
7166: END IF;
7167: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7163: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7164: THEN
7165: x_chrv_rec.pre_pay_req_yn := l_chrv_rec.pre_pay_req_yn;
7166: END IF;
7167: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7168: THEN
7169: x_chrv_rec.cust_po_number := l_chrv_rec.cust_po_number;
7170: END IF;
7171: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7167: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7168: THEN
7169: x_chrv_rec.cust_po_number := l_chrv_rec.cust_po_number;
7170: END IF;
7171: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_chrv_rec.short_description := l_chrv_rec.short_description;
7174: END IF;
7175: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7171: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_chrv_rec.short_description := l_chrv_rec.short_description;
7174: END IF;
7175: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7176: THEN
7177: x_chrv_rec.comments := l_chrv_rec.comments;
7178: END IF;
7179: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7175: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7176: THEN
7177: x_chrv_rec.comments := l_chrv_rec.comments;
7178: END IF;
7179: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7180: THEN
7181: x_chrv_rec.description := l_chrv_rec.description;
7182: END IF;
7183: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7179: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7180: THEN
7181: x_chrv_rec.description := l_chrv_rec.description;
7182: END IF;
7183: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7184: THEN
7185: x_chrv_rec.dpas_rating := l_chrv_rec.dpas_rating;
7186: END IF;
7187: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7183: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7184: THEN
7185: x_chrv_rec.dpas_rating := l_chrv_rec.dpas_rating;
7186: END IF;
7187: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7188: THEN
7189: x_chrv_rec.cognomen := l_chrv_rec.cognomen;
7190: END IF;
7191: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7187: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7188: THEN
7189: x_chrv_rec.cognomen := l_chrv_rec.cognomen;
7190: END IF;
7191: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7192: THEN
7193: x_chrv_rec.template_yn := l_chrv_rec.template_yn;
7194: END IF;
7195: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7191: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7192: THEN
7193: x_chrv_rec.template_yn := l_chrv_rec.template_yn;
7194: END IF;
7195: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7196: THEN
7197: x_chrv_rec.template_used := l_chrv_rec.template_used;
7198: END IF;
7199: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7195: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7196: THEN
7197: x_chrv_rec.template_used := l_chrv_rec.template_used;
7198: END IF;
7199: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7200: THEN
7201: x_chrv_rec.date_approved := l_chrv_rec.date_approved;
7202: END IF;
7203: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7199: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7200: THEN
7201: x_chrv_rec.date_approved := l_chrv_rec.date_approved;
7202: END IF;
7203: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7204: THEN
7205: x_chrv_rec.datetime_cancelled := l_chrv_rec.datetime_cancelled;
7206: END IF;
7207: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7203: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7204: THEN
7205: x_chrv_rec.datetime_cancelled := l_chrv_rec.datetime_cancelled;
7206: END IF;
7207: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7208: THEN
7209: x_chrv_rec.auto_renew_days := l_chrv_rec.auto_renew_days;
7210: END IF;
7211: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7207: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7208: THEN
7209: x_chrv_rec.auto_renew_days := l_chrv_rec.auto_renew_days;
7210: END IF;
7211: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7212: THEN
7213: x_chrv_rec.date_issued := l_chrv_rec.date_issued;
7214: END IF;
7215: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7211: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7212: THEN
7213: x_chrv_rec.date_issued := l_chrv_rec.date_issued;
7214: END IF;
7215: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7216: THEN
7217: x_chrv_rec.datetime_responded := l_chrv_rec.datetime_responded;
7218: END IF;
7219: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7215: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7216: THEN
7217: x_chrv_rec.datetime_responded := l_chrv_rec.datetime_responded;
7218: END IF;
7219: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_chrv_rec.non_response_reason := l_chrv_rec.non_response_reason;
7222: END IF;
7223: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7219: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_chrv_rec.non_response_reason := l_chrv_rec.non_response_reason;
7222: END IF;
7223: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_chrv_rec.non_response_explain := l_chrv_rec.non_response_explain;
7226: END IF;
7227: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7223: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_chrv_rec.non_response_explain := l_chrv_rec.non_response_explain;
7226: END IF;
7227: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7228: THEN
7229: x_chrv_rec.rfp_type := l_chrv_rec.rfp_type;
7230: END IF;
7231: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7227: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7228: THEN
7229: x_chrv_rec.rfp_type := l_chrv_rec.rfp_type;
7230: END IF;
7231: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7232: THEN
7233: x_chrv_rec.chr_type := l_chrv_rec.chr_type;
7234: END IF;
7235: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7231: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7232: THEN
7233: x_chrv_rec.chr_type := l_chrv_rec.chr_type;
7234: END IF;
7235: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7236: THEN
7237: x_chrv_rec.keep_on_mail_list := l_chrv_rec.keep_on_mail_list;
7238: END IF;
7239: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7235: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7236: THEN
7237: x_chrv_rec.keep_on_mail_list := l_chrv_rec.keep_on_mail_list;
7238: END IF;
7239: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7240: THEN
7241: x_chrv_rec.set_aside_reason := l_chrv_rec.set_aside_reason;
7242: END IF;
7243: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7239: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7240: THEN
7241: x_chrv_rec.set_aside_reason := l_chrv_rec.set_aside_reason;
7242: END IF;
7243: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7244: THEN
7245: x_chrv_rec.set_aside_percent := l_chrv_rec.set_aside_percent;
7246: END IF;
7247: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7243: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7244: THEN
7245: x_chrv_rec.set_aside_percent := l_chrv_rec.set_aside_percent;
7246: END IF;
7247: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7248: THEN
7249: x_chrv_rec.response_copies_req := l_chrv_rec.response_copies_req;
7250: END IF;
7251: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7247: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7248: THEN
7249: x_chrv_rec.response_copies_req := l_chrv_rec.response_copies_req;
7250: END IF;
7251: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7252: THEN
7253: x_chrv_rec.date_close_projected := l_chrv_rec.date_close_projected;
7254: END IF;
7255: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7251: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7252: THEN
7253: x_chrv_rec.date_close_projected := l_chrv_rec.date_close_projected;
7254: END IF;
7255: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7256: THEN
7257: x_chrv_rec.datetime_proposed := l_chrv_rec.datetime_proposed;
7258: END IF;
7259: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7255: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7256: THEN
7257: x_chrv_rec.datetime_proposed := l_chrv_rec.datetime_proposed;
7258: END IF;
7259: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7260: THEN
7261: x_chrv_rec.date_signed := l_chrv_rec.date_signed;
7262: END IF;
7263: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7259: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7260: THEN
7261: x_chrv_rec.date_signed := l_chrv_rec.date_signed;
7262: END IF;
7263: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7264: THEN
7265: x_chrv_rec.date_terminated := l_chrv_rec.date_terminated;
7266: END IF;
7267: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7263: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7264: THEN
7265: x_chrv_rec.date_terminated := l_chrv_rec.date_terminated;
7266: END IF;
7267: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7268: THEN
7269: x_chrv_rec.date_renewed := l_chrv_rec.date_renewed;
7270: END IF;
7271: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7267: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7268: THEN
7269: x_chrv_rec.date_renewed := l_chrv_rec.date_renewed;
7270: END IF;
7271: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7272: THEN
7273: x_chrv_rec.trn_code := l_chrv_rec.trn_code;
7274: END IF;
7275: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7271: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7272: THEN
7273: x_chrv_rec.trn_code := l_chrv_rec.trn_code;
7274: END IF;
7275: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7276: THEN
7277: x_chrv_rec.start_date := l_chrv_rec.start_date;
7278: END IF;
7279: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7275: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7276: THEN
7277: x_chrv_rec.start_date := l_chrv_rec.start_date;
7278: END IF;
7279: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7280: THEN
7281: x_chrv_rec.end_date := l_chrv_rec.end_date;
7282: END IF;
7283: IF (x_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM)
7279: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7280: THEN
7281: x_chrv_rec.end_date := l_chrv_rec.end_date;
7282: END IF;
7283: IF (x_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM)
7284: THEN
7285: x_chrv_rec.authoring_org_id := l_chrv_rec.authoring_org_id;
7286: END IF;
7287: --mmadhavi added for MOAC
7285: x_chrv_rec.authoring_org_id := l_chrv_rec.authoring_org_id;
7286: END IF;
7287: --mmadhavi added for MOAC
7288:
7289: IF (x_chrv_rec.org_id = OKC_API.G_MISS_NUM)
7290: THEN
7291: x_chrv_rec.org_id := l_chrv_rec.org_id;
7292: END IF;
7293:
7291: x_chrv_rec.org_id := l_chrv_rec.org_id;
7292: END IF;
7293:
7294: --mmadhavi end MOAC
7295: IF (x_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
7296: THEN
7297: x_chrv_rec.buy_or_sell := l_chrv_rec.buy_or_sell;
7298: END IF;
7299: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7295: IF (x_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
7296: THEN
7297: x_chrv_rec.buy_or_sell := l_chrv_rec.buy_or_sell;
7298: END IF;
7299: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7300: THEN
7301: x_chrv_rec.issue_or_receive := l_chrv_rec.issue_or_receive;
7302: END IF;
7303: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7299: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7300: THEN
7301: x_chrv_rec.issue_or_receive := l_chrv_rec.issue_or_receive;
7302: END IF;
7303: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7304: THEN
7305: x_chrv_rec.estimated_amount := l_chrv_rec.estimated_amount;
7306: END IF;
7307: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7303: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7304: THEN
7305: x_chrv_rec.estimated_amount := l_chrv_rec.estimated_amount;
7306: END IF;
7307: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_chrv_rec.estimated_amount_renewed := l_chrv_rec.estimated_amount_renewed;
7310: END IF;
7311: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7307: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_chrv_rec.estimated_amount_renewed := l_chrv_rec.estimated_amount_renewed;
7310: END IF;
7311: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7312: THEN
7313: x_chrv_rec.currency_code_renewed := l_chrv_rec.currency_code_renewed;
7314: END IF;
7315: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7311: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7312: THEN
7313: x_chrv_rec.currency_code_renewed := l_chrv_rec.currency_code_renewed;
7314: END IF;
7315: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7316: THEN
7317: x_chrv_rec.upg_orig_system_ref := l_chrv_rec.upg_orig_system_ref;
7318: END IF;
7319: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7315: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7316: THEN
7317: x_chrv_rec.upg_orig_system_ref := l_chrv_rec.upg_orig_system_ref;
7318: END IF;
7319: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7320: THEN
7321: x_chrv_rec.upg_orig_system_ref_id := l_chrv_rec.upg_orig_system_ref_id;
7322: END IF;
7323: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7319: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7320: THEN
7321: x_chrv_rec.upg_orig_system_ref_id := l_chrv_rec.upg_orig_system_ref_id;
7322: END IF;
7323: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_chrv_rec.application_id := l_chrv_rec.application_id;
7326: END IF;
7327: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7323: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_chrv_rec.application_id := l_chrv_rec.application_id;
7326: END IF;
7327: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7328: THEN
7329: x_chrv_rec.orig_system_source_code := l_chrv_rec.orig_system_source_code ;
7330: END IF;
7331: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7327: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7328: THEN
7329: x_chrv_rec.orig_system_source_code := l_chrv_rec.orig_system_source_code ;
7330: END IF;
7331: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7332: THEN
7333: x_chrv_rec.orig_system_id1 := l_chrv_rec.orig_system_id1 ;
7334: END IF;
7335: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7331: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7332: THEN
7333: x_chrv_rec.orig_system_id1 := l_chrv_rec.orig_system_id1 ;
7334: END IF;
7335: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7336: THEN
7337: x_chrv_rec.orig_system_reference1 := l_chrv_rec.orig_system_reference1 ;
7338: END IF ;
7339: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7335: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7336: THEN
7337: x_chrv_rec.orig_system_reference1 := l_chrv_rec.orig_system_reference1 ;
7338: END IF ;
7339: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7340: THEN
7341: x_chrv_rec.program_id := l_chrv_rec.program_id;
7342: END IF;
7343: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7339: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7340: THEN
7341: x_chrv_rec.program_id := l_chrv_rec.program_id;
7342: END IF;
7343: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7344: THEN
7345: x_chrv_rec.request_id := l_chrv_rec.request_id;
7346: END IF;
7347: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7343: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7344: THEN
7345: x_chrv_rec.request_id := l_chrv_rec.request_id;
7346: END IF;
7347: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7348: THEN
7349: x_chrv_rec.program_update_date := l_chrv_rec.program_update_date;
7350: END IF;
7351: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7347: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7348: THEN
7349: x_chrv_rec.program_update_date := l_chrv_rec.program_update_date;
7350: END IF;
7351: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7352: THEN
7353: x_chrv_rec.program_application_id := l_chrv_rec.program_application_id;
7354: END IF;
7355: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7351: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7352: THEN
7353: x_chrv_rec.program_application_id := l_chrv_rec.program_application_id;
7354: END IF;
7355: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7356: THEN
7357: x_chrv_rec.price_list_id := l_chrv_rec.price_list_id;
7358: END IF;
7359: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7355: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7356: THEN
7357: x_chrv_rec.price_list_id := l_chrv_rec.price_list_id;
7358: END IF;
7359: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7360: THEN
7361: x_chrv_rec.pricing_date := l_chrv_rec.pricing_date;
7362: END IF;
7363: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7359: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7360: THEN
7361: x_chrv_rec.pricing_date := l_chrv_rec.pricing_date;
7362: END IF;
7363: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7364: THEN
7365: x_chrv_rec.sign_by_date := l_chrv_rec.sign_by_date;
7366: END IF;
7367: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7363: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7364: THEN
7365: x_chrv_rec.sign_by_date := l_chrv_rec.sign_by_date;
7366: END IF;
7367: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7368: THEN
7369: x_chrv_rec.total_line_list_price := l_chrv_rec.total_line_list_price;
7370: END IF;
7371: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7367: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7368: THEN
7369: x_chrv_rec.total_line_list_price := l_chrv_rec.total_line_list_price;
7370: END IF;
7371: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7372: x_chrv_rec.user_estimated_amount := l_chrv_rec.user_estimated_amount;
7373: END IF;
7374: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7375: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7370: END IF;
7371: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7372: x_chrv_rec.user_estimated_amount := l_chrv_rec.user_estimated_amount;
7373: END IF;
7374: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7375: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7376: END IF;
7377: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7378: THEN
7373: END IF;
7374: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7375: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7376: END IF;
7377: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7378: THEN
7379: x_chrv_rec.attribute_category := l_chrv_rec.attribute_category;
7380: END IF;
7381: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7377: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7378: THEN
7379: x_chrv_rec.attribute_category := l_chrv_rec.attribute_category;
7380: END IF;
7381: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7382: THEN
7383: x_chrv_rec.attribute1 := l_chrv_rec.attribute1;
7384: END IF;
7385: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7381: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7382: THEN
7383: x_chrv_rec.attribute1 := l_chrv_rec.attribute1;
7384: END IF;
7385: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7386: THEN
7387: x_chrv_rec.attribute2 := l_chrv_rec.attribute2;
7388: END IF;
7389: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7385: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7386: THEN
7387: x_chrv_rec.attribute2 := l_chrv_rec.attribute2;
7388: END IF;
7389: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7390: THEN
7391: x_chrv_rec.attribute3 := l_chrv_rec.attribute3;
7392: END IF;
7393: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7389: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7390: THEN
7391: x_chrv_rec.attribute3 := l_chrv_rec.attribute3;
7392: END IF;
7393: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7394: THEN
7395: x_chrv_rec.attribute4 := l_chrv_rec.attribute4;
7396: END IF;
7397: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7393: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7394: THEN
7395: x_chrv_rec.attribute4 := l_chrv_rec.attribute4;
7396: END IF;
7397: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7398: THEN
7399: x_chrv_rec.attribute5 := l_chrv_rec.attribute5;
7400: END IF;
7401: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7397: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7398: THEN
7399: x_chrv_rec.attribute5 := l_chrv_rec.attribute5;
7400: END IF;
7401: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7402: THEN
7403: x_chrv_rec.attribute6 := l_chrv_rec.attribute6;
7404: END IF;
7405: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7401: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7402: THEN
7403: x_chrv_rec.attribute6 := l_chrv_rec.attribute6;
7404: END IF;
7405: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7406: THEN
7407: x_chrv_rec.attribute7 := l_chrv_rec.attribute7;
7408: END IF;
7409: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7405: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7406: THEN
7407: x_chrv_rec.attribute7 := l_chrv_rec.attribute7;
7408: END IF;
7409: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7410: THEN
7411: x_chrv_rec.attribute8 := l_chrv_rec.attribute8;
7412: END IF;
7413: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7409: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7410: THEN
7411: x_chrv_rec.attribute8 := l_chrv_rec.attribute8;
7412: END IF;
7413: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7414: THEN
7415: x_chrv_rec.attribute9 := l_chrv_rec.attribute9;
7416: END IF;
7417: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7413: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7414: THEN
7415: x_chrv_rec.attribute9 := l_chrv_rec.attribute9;
7416: END IF;
7417: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7418: THEN
7419: x_chrv_rec.attribute10 := l_chrv_rec.attribute10;
7420: END IF;
7421: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7417: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7418: THEN
7419: x_chrv_rec.attribute10 := l_chrv_rec.attribute10;
7420: END IF;
7421: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7422: THEN
7423: x_chrv_rec.attribute11 := l_chrv_rec.attribute11;
7424: END IF;
7425: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7421: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7422: THEN
7423: x_chrv_rec.attribute11 := l_chrv_rec.attribute11;
7424: END IF;
7425: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7426: THEN
7427: x_chrv_rec.attribute12 := l_chrv_rec.attribute12;
7428: END IF;
7429: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7425: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7426: THEN
7427: x_chrv_rec.attribute12 := l_chrv_rec.attribute12;
7428: END IF;
7429: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7430: THEN
7431: x_chrv_rec.attribute13 := l_chrv_rec.attribute13;
7432: END IF;
7433: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7429: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7430: THEN
7431: x_chrv_rec.attribute13 := l_chrv_rec.attribute13;
7432: END IF;
7433: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7434: THEN
7435: x_chrv_rec.attribute14 := l_chrv_rec.attribute14;
7436: END IF;
7437: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7433: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7434: THEN
7435: x_chrv_rec.attribute14 := l_chrv_rec.attribute14;
7436: END IF;
7437: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7438: THEN
7439: x_chrv_rec.attribute15 := l_chrv_rec.attribute15;
7440: END IF;
7441: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7437: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7438: THEN
7439: x_chrv_rec.attribute15 := l_chrv_rec.attribute15;
7440: END IF;
7441: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7442: THEN
7443: x_chrv_rec.created_by := l_chrv_rec.created_by;
7444: END IF;
7445: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7441: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7442: THEN
7443: x_chrv_rec.created_by := l_chrv_rec.created_by;
7444: END IF;
7445: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7446: THEN
7447: x_chrv_rec.creation_date := l_chrv_rec.creation_date;
7448: END IF;
7449: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7445: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7446: THEN
7447: x_chrv_rec.creation_date := l_chrv_rec.creation_date;
7448: END IF;
7449: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7450: THEN
7451: x_chrv_rec.last_updated_by := l_chrv_rec.last_updated_by;
7452: END IF;
7453: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7449: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7450: THEN
7451: x_chrv_rec.last_updated_by := l_chrv_rec.last_updated_by;
7452: END IF;
7453: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7454: THEN
7455: x_chrv_rec.last_update_date := l_chrv_rec.last_update_date;
7456: END IF;
7457: IF (x_chrv_rec.last_update_login = OKC_API.G_MISS_NUM)
7453: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7454: THEN
7455: x_chrv_rec.last_update_date := l_chrv_rec.last_update_date;
7456: END IF;
7457: IF (x_chrv_rec.last_update_login = OKC_API.G_MISS_NUM)
7458: THEN
7459: x_chrv_rec.last_update_login := l_chrv_rec.last_update_login;
7460: END IF;
7461: -- new columns to replace rules
7458: THEN
7459: x_chrv_rec.last_update_login := l_chrv_rec.last_update_login;
7460: END IF;
7461: -- new columns to replace rules
7462: IF (x_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
7463: x_chrv_rec.conversion_type := l_chrv_rec.conversion_type;
7464: END IF;
7465: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7466: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7461: -- new columns to replace rules
7462: IF (x_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
7463: x_chrv_rec.conversion_type := l_chrv_rec.conversion_type;
7464: END IF;
7465: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7466: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7467: END IF;
7468: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7469: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7464: END IF;
7465: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7466: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7467: END IF;
7468: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7469: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7470: END IF;
7471: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7472: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7467: END IF;
7468: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7469: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7470: END IF;
7471: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7472: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7473: END IF;
7474: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7475: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7470: END IF;
7471: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7472: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7473: END IF;
7474: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7475: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7476: END IF;
7477: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7478: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7473: END IF;
7474: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7475: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7476: END IF;
7477: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7478: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7479: END IF;
7480: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7481: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7476: END IF;
7477: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7478: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7479: END IF;
7480: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7481: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7482: END IF;
7483: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7484: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7479: END IF;
7480: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7481: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7482: END IF;
7483: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7484: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7485: END IF;
7486: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7487: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7482: END IF;
7483: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7484: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7485: END IF;
7486: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7487: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7488: END IF;
7489: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7490: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7485: END IF;
7486: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7487: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7488: END IF;
7489: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7490: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7491: END IF;
7492: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7493: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7488: END IF;
7489: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7490: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7491: END IF;
7492: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7493: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7494: END IF;
7495: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7496: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7491: END IF;
7492: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7493: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7494: END IF;
7495: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7496: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7497: END IF;
7498: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7499: x_chrv_rec.document_id := l_chrv_rec.document_id;
7494: END IF;
7495: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7496: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7497: END IF;
7498: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7499: x_chrv_rec.document_id := l_chrv_rec.document_id;
7500: END IF;
7501: -- R12 Data Model Changes 4485150 Start
7502: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7498: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7499: x_chrv_rec.document_id := l_chrv_rec.document_id;
7500: END IF;
7501: -- R12 Data Model Changes 4485150 Start
7502: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7503: x_chrv_rec.approval_type := l_chrv_rec.approval_type;
7504: END IF;
7505: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7506: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7501: -- R12 Data Model Changes 4485150 Start
7502: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7503: x_chrv_rec.approval_type := l_chrv_rec.approval_type;
7504: END IF;
7505: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7506: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7507: END IF;
7508: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7509: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7504: END IF;
7505: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7506: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7507: END IF;
7508: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7509: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7510: END IF;
7511: -- LLC
7512: IF (x_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7508: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7509: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7510: END IF;
7511: -- LLC
7512: IF (x_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7513: x_chrv_rec.cancelled_amount := l_chrv_rec.cancelled_amount;
7514: END IF;
7515: -- R12 Data Model Changes 4485150 End
7516:
7523: FUNCTION Set_Attributes (
7524: p_chrv_rec IN chrv_rec_type,
7525: x_chrv_rec OUT NOCOPY chrv_rec_type
7526: ) RETURN VARCHAR2 IS
7527: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7528: BEGIN
7529:
7530: IF (l_debug = 'Y') THEN
7531: okc_debug.Set_Indentation('OKC_CHR_PVT');
7545: x_chrv_rec.CHR_TYPE := UPPER(x_chrv_rec.CHR_TYPE);
7546:
7547: -- If contract is cancelled, update datetime_cancelled
7548: IF (Get_Status_Type(x_chrv_rec.STS_CODE) = 'CANCELLED' AND
7549: (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE OR
7550: x_chrv_rec.datetime_cancelled IS NULL) )
7551: THEN
7552: x_chrv_rec.datetime_cancelled := SYSDATE;
7553: END IF;
7561: okc_debug.Set_Indentation('OKC_CHR_PVT');
7562: okc_debug.LOG('20300: Entered update_row', 2);
7563: END IF;
7564:
7565: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7566: G_PKG_NAME,
7567: p_init_msg_list,
7568: l_api_version,
7569: p_api_version,
7568: l_api_version,
7569: p_api_version,
7570: '_PVT',
7571: x_return_status);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7569: p_api_version,
7570: '_PVT',
7571: x_return_status);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: --- Setting item attributes
7570: '_PVT',
7571: x_return_status);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: --- Setting item attributes
7578: l_return_status := Set_Attributes(
7571: x_return_status);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: --- Setting item attributes
7578: l_return_status := Set_Attributes(
7579: p_chrv_rec, -- IN
7578: l_return_status := Set_Attributes(
7579: p_chrv_rec, -- IN
7580: l_chrv_rec); -- OUT
7581: --- If any errors happen abort API
7582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7579: p_chrv_rec, -- IN
7580: l_chrv_rec); -- OUT
7581: --- If any errors happen abort API
7582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7580: l_chrv_rec); -- OUT
7581: --- If any errors happen abort API
7582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7581: --- If any errors happen abort API
7582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7589: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7589: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7590: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_ERROR;
7592: END IF;
7585: RAISE OKC_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7589: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7590: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_ERROR;
7592: END IF;
7593: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7586: END IF;
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7589: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7590: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_ERROR;
7592: END IF;
7593: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7594:
7587: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7589: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7590: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7591: RAISE OKC_API.G_EXCEPTION_ERROR;
7592: END IF;
7593: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7594:
7595: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
7600: END IF;
7601: END IF; ---Bug#3150149.
7602:
7603: --- If any errors happen abort API
7604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7601: END IF; ---Bug#3150149.
7602:
7603: --- If any errors happen abort API
7604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7602:
7603: --- If any errors happen abort API
7604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7603: --- If any errors happen abort API
7604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7613: RAISE OKC_API.G_EXCEPTION_ERROR;
7614: END IF;
7607: RAISE OKC_API.G_EXCEPTION_ERROR;
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7613: RAISE OKC_API.G_EXCEPTION_ERROR;
7614: END IF;
7615:
7608: END IF;
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7613: RAISE OKC_API.G_EXCEPTION_ERROR;
7614: END IF;
7615:
7616: --------------------------------------
7609: l_return_status := Validate_Record(l_def_chrv_rec);
7610: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7613: RAISE OKC_API.G_EXCEPTION_ERROR;
7614: END IF;
7615:
7616: --------------------------------------
7617: -- Move VIEW record to "Child" records
7628: x_msg_data,
7629: l_okc_k_headers_tl_rec,
7630: lx_okc_k_headers_tl_rec
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7635: RAISE OKC_API.G_EXCEPTION_ERROR;
7636: END IF;
7629: l_okc_k_headers_tl_rec,
7630: lx_okc_k_headers_tl_rec
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7635: RAISE OKC_API.G_EXCEPTION_ERROR;
7636: END IF;
7637: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7630: lx_okc_k_headers_tl_rec
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7635: RAISE OKC_API.G_EXCEPTION_ERROR;
7636: END IF;
7637: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7638: update_row(
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7635: RAISE OKC_API.G_EXCEPTION_ERROR;
7636: END IF;
7637: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7638: update_row(
7639: p_init_msg_list,
7643: p_restricted_update,
7644: l_chr_rec,
7645: lx_chr_rec
7646: );
7647: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7649: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7650: RAISE OKC_API.G_EXCEPTION_ERROR;
7651: END IF;
7644: l_chr_rec,
7645: lx_chr_rec
7646: );
7647: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7649: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7650: RAISE OKC_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: migrate(lx_chr_rec, l_def_chrv_rec);
7645: lx_chr_rec
7646: );
7647: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7649: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7650: RAISE OKC_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: migrate(lx_chr_rec, l_def_chrv_rec);
7653: x_chrv_rec := l_def_chrv_rec;
7646: );
7647: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7648: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7649: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7650: RAISE OKC_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: migrate(lx_chr_rec, l_def_chrv_rec);
7653: x_chrv_rec := l_def_chrv_rec;
7654: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7650: RAISE OKC_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: migrate(lx_chr_rec, l_def_chrv_rec);
7653: x_chrv_rec := l_def_chrv_rec;
7654: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7655: IF (l_debug = 'Y') THEN
7656: okc_debug.LOG('20400: Exiting update_row', 2);
7657: okc_debug.Reset_Indentation;
7658: END IF;
7658: END IF;
7659:
7660:
7661: EXCEPTION
7662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7661: EXCEPTION
7662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7665: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7670: (
7671: l_api_name,
7672: G_PKG_NAME,
7673: 'OKC_API.G_RET_STS_ERROR',
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7670: (
7671: l_api_name,
7672: G_PKG_NAME,
7673: 'OKC_API.G_RET_STS_ERROR',
7674: x_msg_count,
7675: x_msg_data,
7676: '_PVT'
7677: );
7674: x_msg_count,
7675: x_msg_data,
7676: '_PVT'
7677: );
7678: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7682: okc_debug.Reset_Indentation;
7677: );
7678: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7681: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7686: (
7687: l_api_name,
7688: G_PKG_NAME,
7689: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7686: (
7687: l_api_name,
7688: G_PKG_NAME,
7689: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7690: x_msg_count,
7691: x_msg_data,
7692: '_PVT'
7693: );
7697: okc_debug.LOG('20700: Exiting update_row:OTHERS Exception', 2);
7698: okc_debug.Reset_Indentation;
7699: END IF;
7700:
7701: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7702: (
7703: l_api_name,
7704: G_PKG_NAME,
7705: 'OTHERS',
7723: x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
7724:
7725: l_api_version CONSTANT NUMBER := 1;
7726: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7728: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7729: i NUMBER := 0;
7730: BEGIN
7731:
7724:
7725: l_api_version CONSTANT NUMBER := 1;
7726: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7728: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7729: i NUMBER := 0;
7730: BEGIN
7731:
7732: IF (l_debug = 'Y') THEN
7733: okc_debug.Set_Indentation('OKC_CHR_PVT');
7734: okc_debug.LOG('20800: Entered update_row', 2);
7735: END IF;
7736:
7737: OKC_API.init_msg_list(p_init_msg_list);
7738: -- Make sure PL/SQL table has records in it before passing
7739: IF (p_chrv_tbl.COUNT > 0) THEN
7740: i := p_chrv_tbl.FIRST;
7741: LOOP
7740: i := p_chrv_tbl.FIRST;
7741: LOOP
7742: update_row (
7743: p_api_version => p_api_version,
7744: p_init_msg_list => OKC_API.G_FALSE,
7745: x_return_status => x_return_status,
7746: x_msg_count => x_msg_count,
7747: x_msg_data => x_msg_data,
7748: p_restricted_update => p_restricted_update,
7749: p_chrv_rec => p_chrv_tbl(i),
7750: x_chrv_rec => x_chrv_tbl(i));
7751:
7752: -- store the highest degree of error
7753: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7754: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
7755: l_overall_status := x_return_status;
7756: END IF;
7757: END IF;
7750: x_chrv_rec => x_chrv_tbl(i));
7751:
7752: -- store the highest degree of error
7753: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7754: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
7755: l_overall_status := x_return_status;
7756: END IF;
7757: END IF;
7758:
7768: END IF;
7769:
7770:
7771: EXCEPTION
7772: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7771: EXCEPTION
7772: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7775: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7780: (
7781: l_api_name,
7782: G_PKG_NAME,
7783: 'OKC_API.G_RET_STS_ERROR',
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7780: (
7781: l_api_name,
7782: G_PKG_NAME,
7783: 'OKC_API.G_RET_STS_ERROR',
7784: x_msg_count,
7785: x_msg_data,
7786: '_PVT'
7787: );
7784: x_msg_count,
7785: x_msg_data,
7786: '_PVT'
7787: );
7788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7792: okc_debug.Reset_Indentation;
7787: );
7788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7791: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7796: (
7797: l_api_name,
7798: G_PKG_NAME,
7799: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7796: (
7797: l_api_name,
7798: G_PKG_NAME,
7799: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7800: x_msg_count,
7801: x_msg_data,
7802: '_PVT'
7803: );
7807: okc_debug.LOG('21200: Exiting update_row:OTHERS Exception', 2);
7808: okc_debug.Reset_Indentation;
7809: END IF;
7810:
7811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7812: (
7813: l_api_name,
7814: G_PKG_NAME,
7815: 'OTHERS',
7834: p_chr_rec IN chr_rec_type) IS
7835:
7836: l_api_version CONSTANT NUMBER := 1;
7837: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
7838: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7839: l_chr_rec chr_rec_type := p_chr_rec;
7840: l_row_notfound BOOLEAN := TRUE;
7841: BEGIN
7842:
7844: okc_debug.Set_Indentation('OKC_CHR_PVT');
7845: okc_debug.LOG('21300: Entered delete_row', 2);
7846: END IF;
7847:
7848: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7849: p_init_msg_list,
7850: '_PVT',
7851: x_return_status);
7852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7848: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7849: p_init_msg_list,
7850: '_PVT',
7851: x_return_status);
7852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7855: RAISE OKC_API.G_EXCEPTION_ERROR;
7856: END IF;
7849: p_init_msg_list,
7850: '_PVT',
7851: x_return_status);
7852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7855: RAISE OKC_API.G_EXCEPTION_ERROR;
7856: END IF;
7857: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7850: '_PVT',
7851: x_return_status);
7852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7855: RAISE OKC_API.G_EXCEPTION_ERROR;
7856: END IF;
7857: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7858: WHERE ID = l_chr_rec.id;
7851: x_return_status);
7852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7855: RAISE OKC_API.G_EXCEPTION_ERROR;
7856: END IF;
7857: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7858: WHERE ID = l_chr_rec.id;
7859:
7856: END IF;
7857: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7858: WHERE ID = l_chr_rec.id;
7859:
7860: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7861: IF (l_debug = 'Y') THEN
7862: okc_debug.LOG('21400: Exiting delete_row', 2);
7863: okc_debug.Reset_Indentation;
7864: END IF;
7864: END IF;
7865:
7866:
7867: EXCEPTION
7868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7867: EXCEPTION
7868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7871: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7876: (
7877: l_api_name,
7878: G_PKG_NAME,
7879: 'OKC_API.G_RET_STS_ERROR',
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7876: (
7877: l_api_name,
7878: G_PKG_NAME,
7879: 'OKC_API.G_RET_STS_ERROR',
7880: x_msg_count,
7881: x_msg_data,
7882: '_PVT'
7883: );
7880: x_msg_count,
7881: x_msg_data,
7882: '_PVT'
7883: );
7884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7888: okc_debug.Reset_Indentation;
7883: );
7884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7887: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7892: (
7893: l_api_name,
7894: G_PKG_NAME,
7895: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7892: (
7893: l_api_name,
7894: G_PKG_NAME,
7895: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7896: x_msg_count,
7897: x_msg_data,
7898: '_PVT'
7899: );
7903: okc_debug.LOG('21700: Exiting delete_row:OTHERS Exception', 2);
7904: okc_debug.Reset_Indentation;
7905: END IF;
7906:
7907: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7908: (
7909: l_api_name,
7910: G_PKG_NAME,
7911: 'OTHERS',
7926: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
7927:
7928: l_api_version CONSTANT NUMBER := 1;
7929: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
7930: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7931: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
7932: l_row_notfound BOOLEAN := TRUE;
7933: -----------------------------------------
7934: -- Set_Attributes for:OKC_K_HEADERS_TL --
7936: FUNCTION Set_Attributes (
7937: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
7938: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
7939: ) RETURN VARCHAR2 IS
7940: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7941: BEGIN
7942:
7943: IF (l_debug = 'Y') THEN
7944: okc_debug.Set_Indentation('OKC_CHR_PVT');
7956: okc_debug.Set_Indentation('OKC_CHR_PVT');
7957: okc_debug.LOG('21900: Entered delete_row', 2);
7958: END IF;
7959:
7960: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7961: p_init_msg_list,
7962: '_PVT',
7963: x_return_status);
7964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7960: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7961: p_init_msg_list,
7962: '_PVT',
7963: x_return_status);
7964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7967: RAISE OKC_API.G_EXCEPTION_ERROR;
7968: END IF;
7961: p_init_msg_list,
7962: '_PVT',
7963: x_return_status);
7964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7967: RAISE OKC_API.G_EXCEPTION_ERROR;
7968: END IF;
7969: --- Setting item attributes
7962: '_PVT',
7963: x_return_status);
7964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7967: RAISE OKC_API.G_EXCEPTION_ERROR;
7968: END IF;
7969: --- Setting item attributes
7970: l_return_status := Set_Attributes(
7963: x_return_status);
7964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7967: RAISE OKC_API.G_EXCEPTION_ERROR;
7968: END IF;
7969: --- Setting item attributes
7970: l_return_status := Set_Attributes(
7971: p_okc_k_headers_tl_rec, -- IN
7970: l_return_status := Set_Attributes(
7971: p_okc_k_headers_tl_rec, -- IN
7972: l_okc_k_headers_tl_rec); -- OUT
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7971: p_okc_k_headers_tl_rec, -- IN
7972: l_okc_k_headers_tl_rec); -- OUT
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7972: l_okc_k_headers_tl_rec); -- OUT
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7981:
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7981:
7982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7983: IF (l_debug = 'Y') THEN
7984: okc_debug.LOG('22000: Exiting delete_row', 2);
7985: okc_debug.Reset_Indentation;
7986: END IF;
7986: END IF;
7987:
7988:
7989: EXCEPTION
7990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7989: EXCEPTION
7990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7993: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7998: (
7999: l_api_name,
8000: G_PKG_NAME,
8001: 'OKC_API.G_RET_STS_ERROR',
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7998: (
7999: l_api_name,
8000: G_PKG_NAME,
8001: 'OKC_API.G_RET_STS_ERROR',
8002: x_msg_count,
8003: x_msg_data,
8004: '_PVT'
8005: );
8002: x_msg_count,
8003: x_msg_data,
8004: '_PVT'
8005: );
8006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8010: okc_debug.Reset_Indentation;
8005: );
8006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8009: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8014: (
8015: l_api_name,
8016: G_PKG_NAME,
8017: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8014: (
8015: l_api_name,
8016: G_PKG_NAME,
8017: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8018: x_msg_count,
8019: x_msg_data,
8020: '_PVT'
8021: );
8025: okc_debug.LOG('22300: Exiting delete_row:OTHERS Exception', 2);
8026: okc_debug.Reset_Indentation;
8027: END IF;
8028:
8029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8030: (
8031: l_api_name,
8032: G_PKG_NAME,
8033: 'OTHERS',
8049: p_chrv_rec IN chrv_rec_type) IS
8050:
8051: l_api_version CONSTANT NUMBER := 1;
8052: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
8053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8054: l_chrv_rec chrv_rec_type := p_chrv_rec;
8055: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
8056: l_chr_rec chr_rec_type;
8057: BEGIN
8060: okc_debug.Set_Indentation('OKC_CHR_PVT');
8061: okc_debug.LOG('22400: Entered delete_row', 2);
8062: END IF;
8063:
8064: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8065: G_PKG_NAME,
8066: p_init_msg_list,
8067: l_api_version,
8068: p_api_version,
8067: l_api_version,
8068: p_api_version,
8069: '_PVT',
8070: x_return_status);
8071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8074: RAISE OKC_API.G_EXCEPTION_ERROR;
8075: END IF;
8068: p_api_version,
8069: '_PVT',
8070: x_return_status);
8071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8074: RAISE OKC_API.G_EXCEPTION_ERROR;
8075: END IF;
8076: --------------------------------------
8069: '_PVT',
8070: x_return_status);
8071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8074: RAISE OKC_API.G_EXCEPTION_ERROR;
8075: END IF;
8076: --------------------------------------
8077: -- Move VIEW record to "Child" records
8070: x_return_status);
8071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8074: RAISE OKC_API.G_EXCEPTION_ERROR;
8075: END IF;
8076: --------------------------------------
8077: -- Move VIEW record to "Child" records
8078: --------------------------------------
8087: x_msg_count,
8088: x_msg_data,
8089: l_okc_k_headers_tl_rec
8090: );
8091: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8093: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8094: RAISE OKC_API.G_EXCEPTION_ERROR;
8095: END IF;
8088: x_msg_data,
8089: l_okc_k_headers_tl_rec
8090: );
8091: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8093: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8094: RAISE OKC_API.G_EXCEPTION_ERROR;
8095: END IF;
8096: delete_row(
8089: l_okc_k_headers_tl_rec
8090: );
8091: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8093: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8094: RAISE OKC_API.G_EXCEPTION_ERROR;
8095: END IF;
8096: delete_row(
8097: p_init_msg_list,
8090: );
8091: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8093: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8094: RAISE OKC_API.G_EXCEPTION_ERROR;
8095: END IF;
8096: delete_row(
8097: p_init_msg_list,
8098: x_return_status,
8099: x_msg_count,
8100: x_msg_data,
8101: l_chr_rec
8102: );
8103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8104: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8100: x_msg_data,
8101: l_chr_rec
8102: );
8103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8104: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8101: l_chr_rec
8102: );
8103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8104: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8109: IF (l_debug = 'Y') THEN
8102: );
8103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8104: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8109: IF (l_debug = 'Y') THEN
8110: okc_debug.LOG('22500: Exiting delete_row', 2);
8104: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8109: IF (l_debug = 'Y') THEN
8110: okc_debug.LOG('22500: Exiting delete_row', 2);
8111: okc_debug.Reset_Indentation;
8112: END IF;
8112: END IF;
8113:
8114:
8115: EXCEPTION
8116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8115: EXCEPTION
8116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8119: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8124: (
8125: l_api_name,
8126: G_PKG_NAME,
8127: 'OKC_API.G_RET_STS_ERROR',
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8124: (
8125: l_api_name,
8126: G_PKG_NAME,
8127: 'OKC_API.G_RET_STS_ERROR',
8128: x_msg_count,
8129: x_msg_data,
8130: '_PVT'
8131: );
8128: x_msg_count,
8129: x_msg_data,
8130: '_PVT'
8131: );
8132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8136: okc_debug.Reset_Indentation;
8131: );
8132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8135: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8140: (
8141: l_api_name,
8142: G_PKG_NAME,
8143: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8140: (
8141: l_api_name,
8142: G_PKG_NAME,
8143: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8144: x_msg_count,
8145: x_msg_data,
8146: '_PVT'
8147: );
8151: okc_debug.LOG('22800: Exiting delete_row:OTHERS Exception', 2);
8152: okc_debug.Reset_Indentation;
8153: END IF;
8154:
8155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8156: (
8157: l_api_name,
8158: G_PKG_NAME,
8159: 'OTHERS',
8175: p_chrv_tbl IN chrv_tbl_type) IS
8176:
8177: l_api_version CONSTANT NUMBER := 1;
8178: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8180: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8181: i NUMBER := 0;
8182: l_dummy_val NUMBER;
8183: CURSOR l_clev_csr IS
8176:
8177: l_api_version CONSTANT NUMBER := 1;
8178: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8180: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8181: i NUMBER := 0;
8182: l_dummy_val NUMBER;
8183: CURSOR l_clev_csr IS
8184: SELECT COUNT(1)
8190: okc_debug.Set_Indentation('OKC_CHR_PVT');
8191: okc_debug.LOG('22900: Entered delete_row', 2);
8192: END IF;
8193:
8194: OKC_API.init_msg_list(p_init_msg_list);
8195: -- Make sure PL/SQL table has records in it before passing
8196: IF (p_chrv_tbl.COUNT > 0) THEN
8197: i := p_chrv_tbl.FIRST;
8198: LOOP
8212: x_msg_data => x_msg_data,
8213: p_chrv_rec => p_chrv_tbl(i));
8214:
8215: -- store the highest degree of error
8216: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8217: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8218: l_overall_status := x_return_status;
8219: END IF;
8220: END IF;
8213: p_chrv_rec => p_chrv_tbl(i));
8214:
8215: -- store the highest degree of error
8216: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8217: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8218: l_overall_status := x_return_status;
8219: END IF;
8220: END IF;
8221: ELSE
8218: l_overall_status := x_return_status;
8219: END IF;
8220: END IF;
8221: ELSE
8222: OKC_API.SET_MESSAGE(
8223: p_app_name => g_app_name,
8224: p_msg_name => G_CHILD_RECORD_EXISTS);
8225: -- notify caller of an error
8226: x_return_status := OKC_API.G_RET_STS_ERROR;
8222: OKC_API.SET_MESSAGE(
8223: p_app_name => g_app_name,
8224: p_msg_name => G_CHILD_RECORD_EXISTS);
8225: -- notify caller of an error
8226: x_return_status := OKC_API.G_RET_STS_ERROR;
8227:
8228: -- store the highest degree of error
8229: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8230: l_overall_status := x_return_status;
8225: -- notify caller of an error
8226: x_return_status := OKC_API.G_RET_STS_ERROR;
8227:
8228: -- store the highest degree of error
8229: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8230: l_overall_status := x_return_status;
8231: END IF;
8232:
8233: END IF;
8245: END IF;
8246:
8247:
8248: EXCEPTION
8249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8248: EXCEPTION
8249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8252: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8257: (
8258: l_api_name,
8259: G_PKG_NAME,
8260: 'OKC_API.G_RET_STS_ERROR',
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8257: (
8258: l_api_name,
8259: G_PKG_NAME,
8260: 'OKC_API.G_RET_STS_ERROR',
8261: x_msg_count,
8262: x_msg_data,
8263: '_PVT'
8264: );
8261: x_msg_count,
8262: x_msg_data,
8263: '_PVT'
8264: );
8265: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8269: okc_debug.Reset_Indentation;
8264: );
8265: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8268: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8273: (
8274: l_api_name,
8275: G_PKG_NAME,
8276: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8273: (
8274: l_api_name,
8275: G_PKG_NAME,
8276: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8277: x_msg_count,
8278: x_msg_data,
8279: '_PVT'
8280: );
8284: okc_debug.LOG('23300: Exiting delete_row:OTHERS Exception', 2);
8285: okc_debug.Reset_Indentation;
8286: END IF;
8287:
8288: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8289: (
8290: l_api_name,
8291: G_PKG_NAME,
8292: 'OTHERS',
8421: j NUMBER := 0;
8422:
8423: BEGIN
8424: --Initializing return status
8425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8426: IF (l_debug = 'Y') THEN
8427: okc_debug.Set_Indentation('OKC_CHR_PVT');
8428: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8429: END IF;
8856: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8857: okc_debug.Reset_Indentation;
8858: END IF;
8859: -- Store SQL error message on message stack
8860: OKC_API.SET_MESSAGE(
8861: p_app_name => G_APP_NAME,
8862: p_msg_name => G_UNEXPECTED_ERROR,
8863: p_token1 => G_SQLCODE_TOKEN,
8864: p_token1_value => SQLCODE,
8864: p_token1_value => SQLCODE,
8865: p_token2 => G_SQLERRM_TOKEN,
8866: p_token2_value => SQLERRM);
8867: -- notify caller of an error as UNEXPETED error
8868: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8869:
8870: -- RAISE;
8871:
8872: END INSERT_ROW_UPG;
8879: p_chr_id IN NUMBER,
8880: p_major_version IN NUMBER
8881: ) RETURN VARCHAR2 IS
8882:
8883: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8884:
8885: BEGIN
8886:
8887: IF (l_debug = 'Y') THEN
9161: okc_debug.Reset_Indentation;
9162: END IF;
9163:
9164: -- store SQL error message on message stack
9165: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9166: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9167: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9168: p_token1_value => SQLCODE,
9169: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9169: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9170: p_token2_value => SQLERRM);
9171:
9172: -- notify UNEXPECTED error
9173: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9174: RETURN l_return_status;
9175:
9176: END create_version;
9177:
9184: p_chr_id IN NUMBER,
9185: p_major_version IN NUMBER
9186: ) RETURN VARCHAR2 IS
9187:
9188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9189:
9190: BEGIN
9191:
9192: IF (l_debug = 'Y') THEN
9463: okc_debug.Reset_Indentation;
9464: END IF;
9465:
9466: -- store SQL error message on message stack
9467: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9468: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9469: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9470: p_token1_value => SQLCODE,
9471: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9471: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9472: p_token2_value => SQLERRM);
9473:
9474: -- notify UNEXPECTED error
9475: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9476: RETURN l_return_status;
9477:
9478: END restore_version;
9479: