[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;
3269: okc_debug.Set_Indentation('OKC_CHR_PVT');
3270: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3271: END IF;
3272:
3273: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3274: l_chrv_rec.object_version_number := NULL;
3275: END IF;
3276: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3277: l_chrv_rec.sfwt_flag := NULL;
3272:
3273: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3274: l_chrv_rec.object_version_number := NULL;
3275: END IF;
3276: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3277: l_chrv_rec.sfwt_flag := NULL;
3278: END IF;
3279: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3280: l_chrv_rec.chr_id_response := NULL;
3275: END IF;
3276: IF (l_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
3277: l_chrv_rec.sfwt_flag := NULL;
3278: END IF;
3279: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3280: l_chrv_rec.chr_id_response := NULL;
3281: END IF;
3282: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3283: l_chrv_rec.chr_id_award := NULL;
3278: END IF;
3279: IF (l_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM) THEN
3280: l_chrv_rec.chr_id_response := NULL;
3281: END IF;
3282: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3283: l_chrv_rec.chr_id_award := NULL;
3284: END IF;
3285: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3286: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3281: END IF;
3282: IF (l_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM) THEN
3283: l_chrv_rec.chr_id_award := NULL;
3284: END IF;
3285: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3286: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3287: END IF;
3288: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3289: l_chrv_rec.sts_code := NULL;
3284: END IF;
3285: IF (l_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM) THEN
3286: l_chrv_rec.INV_ORGANIZATION_ID := NULL;
3287: END IF;
3288: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3289: l_chrv_rec.sts_code := NULL;
3290: END IF;
3291: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3292: l_chrv_rec.qcl_id := NULL;
3287: END IF;
3288: IF (l_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) THEN
3289: l_chrv_rec.sts_code := NULL;
3290: END IF;
3291: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3292: l_chrv_rec.qcl_id := NULL;
3293: END IF;
3294: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3295: l_chrv_rec.scs_code := NULL;
3290: END IF;
3291: IF (l_chrv_rec.qcl_id = OKC_API.G_MISS_NUM) THEN
3292: l_chrv_rec.qcl_id := NULL;
3293: END IF;
3294: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3295: l_chrv_rec.scs_code := NULL;
3296: END IF;
3297: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3298: l_chrv_rec.contract_number := NULL;
3293: END IF;
3294: IF (l_chrv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
3295: l_chrv_rec.scs_code := NULL;
3296: END IF;
3297: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3298: l_chrv_rec.contract_number := NULL;
3299: END IF;
3300: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3301: l_chrv_rec.currency_code := NULL;
3296: END IF;
3297: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR) THEN
3298: l_chrv_rec.contract_number := NULL;
3299: END IF;
3300: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3301: l_chrv_rec.currency_code := NULL;
3302: END IF;
3303: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3304: l_chrv_rec.contract_number_modifier := NULL;
3299: END IF;
3300: IF (l_chrv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
3301: l_chrv_rec.currency_code := NULL;
3302: END IF;
3303: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3304: l_chrv_rec.contract_number_modifier := NULL;
3305: END IF;
3306: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3307: l_chrv_rec.archived_yn := NULL;
3302: END IF;
3303: IF (l_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR) THEN
3304: l_chrv_rec.contract_number_modifier := NULL;
3305: END IF;
3306: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3307: l_chrv_rec.archived_yn := NULL;
3308: END IF;
3309: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3310: l_chrv_rec.deleted_yn := NULL;
3305: END IF;
3306: IF (l_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR) THEN
3307: l_chrv_rec.archived_yn := NULL;
3308: END IF;
3309: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3310: l_chrv_rec.deleted_yn := NULL;
3311: END IF;
3312: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3313: l_chrv_rec.cust_po_number_req_yn := NULL;
3308: END IF;
3309: IF (l_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR) THEN
3310: l_chrv_rec.deleted_yn := NULL;
3311: END IF;
3312: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3313: l_chrv_rec.cust_po_number_req_yn := NULL;
3314: END IF;
3315: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3316: l_chrv_rec.pre_pay_req_yn := NULL;
3311: END IF;
3312: IF (l_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR) THEN
3313: l_chrv_rec.cust_po_number_req_yn := NULL;
3314: END IF;
3315: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3316: l_chrv_rec.pre_pay_req_yn := NULL;
3317: END IF;
3318: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3319: l_chrv_rec.cust_po_number := NULL;
3314: END IF;
3315: IF (l_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR) THEN
3316: l_chrv_rec.pre_pay_req_yn := NULL;
3317: END IF;
3318: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3319: l_chrv_rec.cust_po_number := NULL;
3320: END IF;
3321: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3322: l_chrv_rec.short_description := NULL;
3317: END IF;
3318: IF (l_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR) THEN
3319: l_chrv_rec.cust_po_number := NULL;
3320: END IF;
3321: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3322: l_chrv_rec.short_description := NULL;
3323: END IF;
3324: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3325: l_chrv_rec.comments := NULL;
3320: END IF;
3321: IF (l_chrv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
3322: l_chrv_rec.short_description := NULL;
3323: END IF;
3324: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3325: l_chrv_rec.comments := NULL;
3326: END IF;
3327: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3328: l_chrv_rec.description := NULL;
3323: END IF;
3324: IF (l_chrv_rec.comments = OKC_API.G_MISS_CHAR) THEN
3325: l_chrv_rec.comments := NULL;
3326: END IF;
3327: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3328: l_chrv_rec.description := NULL;
3329: END IF;
3330: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3331: l_chrv_rec.dpas_rating := NULL;
3326: END IF;
3327: IF (l_chrv_rec.description = OKC_API.G_MISS_CHAR) THEN
3328: l_chrv_rec.description := NULL;
3329: END IF;
3330: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3331: l_chrv_rec.dpas_rating := NULL;
3332: END IF;
3333: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3334: l_chrv_rec.cognomen := NULL;
3329: END IF;
3330: IF (l_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR) THEN
3331: l_chrv_rec.dpas_rating := NULL;
3332: END IF;
3333: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3334: l_chrv_rec.cognomen := NULL;
3335: END IF;
3336: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3337: l_chrv_rec.template_yn := NULL;
3332: END IF;
3333: IF (l_chrv_rec.cognomen = OKC_API.G_MISS_CHAR) THEN
3334: l_chrv_rec.cognomen := NULL;
3335: END IF;
3336: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3337: l_chrv_rec.template_yn := NULL;
3338: END IF;
3339: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3340: l_chrv_rec.template_used := NULL;
3335: END IF;
3336: IF (l_chrv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
3337: l_chrv_rec.template_yn := NULL;
3338: END IF;
3339: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3340: l_chrv_rec.template_used := NULL;
3341: END IF;
3342: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3343: l_chrv_rec.date_approved := NULL;
3338: END IF;
3339: IF (l_chrv_rec.template_used = OKC_API.G_MISS_CHAR) THEN
3340: l_chrv_rec.template_used := NULL;
3341: END IF;
3342: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3343: l_chrv_rec.date_approved := NULL;
3344: END IF;
3345: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3346: l_chrv_rec.datetime_cancelled := NULL;
3341: END IF;
3342: IF (l_chrv_rec.date_approved = OKC_API.G_MISS_DATE) THEN
3343: l_chrv_rec.date_approved := NULL;
3344: END IF;
3345: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3346: l_chrv_rec.datetime_cancelled := NULL;
3347: END IF;
3348: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3349: l_chrv_rec.auto_renew_days := NULL;
3344: END IF;
3345: IF (l_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE) THEN
3346: l_chrv_rec.datetime_cancelled := NULL;
3347: END IF;
3348: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3349: l_chrv_rec.auto_renew_days := NULL;
3350: END IF;
3351: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3352: l_chrv_rec.date_issued := NULL;
3347: END IF;
3348: IF (l_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM) THEN
3349: l_chrv_rec.auto_renew_days := NULL;
3350: END IF;
3351: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3352: l_chrv_rec.date_issued := NULL;
3353: END IF;
3354: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3355: l_chrv_rec.datetime_responded := NULL;
3350: END IF;
3351: IF (l_chrv_rec.date_issued = OKC_API.G_MISS_DATE) THEN
3352: l_chrv_rec.date_issued := NULL;
3353: END IF;
3354: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3355: l_chrv_rec.datetime_responded := NULL;
3356: END IF;
3357: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3358: l_chrv_rec.non_response_reason := NULL;
3353: END IF;
3354: IF (l_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE) THEN
3355: l_chrv_rec.datetime_responded := NULL;
3356: END IF;
3357: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3358: l_chrv_rec.non_response_reason := NULL;
3359: END IF;
3360: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3361: l_chrv_rec.non_response_explain := NULL;
3356: END IF;
3357: IF (l_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR) THEN
3358: l_chrv_rec.non_response_reason := NULL;
3359: END IF;
3360: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3361: l_chrv_rec.non_response_explain := NULL;
3362: END IF;
3363: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3364: l_chrv_rec.rfp_type := NULL;
3359: END IF;
3360: IF (l_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR) THEN
3361: l_chrv_rec.non_response_explain := NULL;
3362: END IF;
3363: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3364: l_chrv_rec.rfp_type := NULL;
3365: END IF;
3366: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3367: l_chrv_rec.chr_type := NULL;
3362: END IF;
3363: IF (l_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR) THEN
3364: l_chrv_rec.rfp_type := NULL;
3365: END IF;
3366: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3367: l_chrv_rec.chr_type := NULL;
3368: END IF;
3369: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3370: l_chrv_rec.keep_on_mail_list := NULL;
3365: END IF;
3366: IF (l_chrv_rec.chr_type = OKC_API.G_MISS_CHAR) THEN
3367: l_chrv_rec.chr_type := NULL;
3368: END IF;
3369: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3370: l_chrv_rec.keep_on_mail_list := NULL;
3371: END IF;
3372: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3373: l_chrv_rec.set_aside_reason := NULL;
3368: END IF;
3369: IF (l_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR) THEN
3370: l_chrv_rec.keep_on_mail_list := NULL;
3371: END IF;
3372: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3373: l_chrv_rec.set_aside_reason := NULL;
3374: END IF;
3375: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3376: l_chrv_rec.set_aside_percent := NULL;
3371: END IF;
3372: IF (l_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR) THEN
3373: l_chrv_rec.set_aside_reason := NULL;
3374: END IF;
3375: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3376: l_chrv_rec.set_aside_percent := NULL;
3377: END IF;
3378: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3379: l_chrv_rec.response_copies_req := NULL;
3374: END IF;
3375: IF (l_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM) THEN
3376: l_chrv_rec.set_aside_percent := NULL;
3377: END IF;
3378: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3379: l_chrv_rec.response_copies_req := NULL;
3380: END IF;
3381: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3382: l_chrv_rec.date_close_projected := NULL;
3377: END IF;
3378: IF (l_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM) THEN
3379: l_chrv_rec.response_copies_req := NULL;
3380: END IF;
3381: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3382: l_chrv_rec.date_close_projected := NULL;
3383: END IF;
3384: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3385: l_chrv_rec.datetime_proposed := NULL;
3380: END IF;
3381: IF (l_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE) THEN
3382: l_chrv_rec.date_close_projected := NULL;
3383: END IF;
3384: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3385: l_chrv_rec.datetime_proposed := NULL;
3386: END IF;
3387: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3388: l_chrv_rec.date_signed := NULL;
3383: END IF;
3384: IF (l_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE) THEN
3385: l_chrv_rec.datetime_proposed := NULL;
3386: END IF;
3387: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3388: l_chrv_rec.date_signed := NULL;
3389: END IF;
3390: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3391: l_chrv_rec.date_terminated := NULL;
3386: END IF;
3387: IF (l_chrv_rec.date_signed = OKC_API.G_MISS_DATE) THEN
3388: l_chrv_rec.date_signed := NULL;
3389: END IF;
3390: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3391: l_chrv_rec.date_terminated := NULL;
3392: END IF;
3393: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3394: l_chrv_rec.date_renewed := NULL;
3389: END IF;
3390: IF (l_chrv_rec.date_terminated = OKC_API.G_MISS_DATE) THEN
3391: l_chrv_rec.date_terminated := NULL;
3392: END IF;
3393: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3394: l_chrv_rec.date_renewed := NULL;
3395: END IF;
3396: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3397: l_chrv_rec.trn_code := NULL;
3392: END IF;
3393: IF (l_chrv_rec.date_renewed = OKC_API.G_MISS_DATE) THEN
3394: l_chrv_rec.date_renewed := NULL;
3395: END IF;
3396: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3397: l_chrv_rec.trn_code := NULL;
3398: END IF;
3399: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3400: l_chrv_rec.start_date := NULL;
3395: END IF;
3396: IF (l_chrv_rec.trn_code = OKC_API.G_MISS_CHAR) THEN
3397: l_chrv_rec.trn_code := NULL;
3398: END IF;
3399: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3400: l_chrv_rec.start_date := NULL;
3401: END IF;
3402: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3403: l_chrv_rec.end_date := NULL;
3398: END IF;
3399: IF (l_chrv_rec.start_date = OKC_API.G_MISS_DATE) THEN
3400: l_chrv_rec.start_date := NULL;
3401: END IF;
3402: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3403: l_chrv_rec.end_date := NULL;
3404: END IF;
3405: IF (l_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM) THEN
3406: l_chrv_rec.authoring_org_id := NULL;
3401: END IF;
3402: IF (l_chrv_rec.end_date = OKC_API.G_MISS_DATE) THEN
3403: l_chrv_rec.end_date := NULL;
3404: END IF;
3405: IF (l_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM) THEN
3406: l_chrv_rec.authoring_org_id := NULL;
3407: END IF;
3408: --mmadhavi added for MOAC
3409:
3406: l_chrv_rec.authoring_org_id := NULL;
3407: END IF;
3408: --mmadhavi added for MOAC
3409:
3410: IF (l_chrv_rec.org_id = OKC_API.G_MISS_NUM) THEN
3411: l_chrv_rec.org_id := NULL;
3412: END IF;
3413:
3414: --mmadhavi end MOAC
3411: l_chrv_rec.org_id := NULL;
3412: END IF;
3413:
3414: --mmadhavi end MOAC
3415: IF (l_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR) THEN
3416: l_chrv_rec.buy_or_sell := NULL;
3417: END IF;
3418: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3419: l_chrv_rec.issue_or_receive := NULL;
3414: --mmadhavi end MOAC
3415: IF (l_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR) THEN
3416: l_chrv_rec.buy_or_sell := NULL;
3417: END IF;
3418: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3419: l_chrv_rec.issue_or_receive := NULL;
3420: END IF;
3421: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3422: l_chrv_rec.estimated_amount := NULL;
3417: END IF;
3418: IF (l_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR) THEN
3419: l_chrv_rec.issue_or_receive := NULL;
3420: END IF;
3421: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3422: l_chrv_rec.estimated_amount := NULL;
3423: END IF;
3424: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3425: l_chrv_rec.estimated_amount_renewed := NULL;
3420: END IF;
3421: IF (l_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM) THEN
3422: l_chrv_rec.estimated_amount := NULL;
3423: END IF;
3424: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3425: l_chrv_rec.estimated_amount_renewed := NULL;
3426: END IF;
3427: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3428: l_chrv_rec.currency_code_renewed := NULL;
3423: END IF;
3424: IF (l_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM) THEN
3425: l_chrv_rec.estimated_amount_renewed := NULL;
3426: END IF;
3427: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3428: l_chrv_rec.currency_code_renewed := NULL;
3429: END IF;
3430: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3431: l_chrv_rec.upg_orig_system_ref := NULL;
3426: END IF;
3427: IF (l_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR) THEN
3428: l_chrv_rec.currency_code_renewed := NULL;
3429: END IF;
3430: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3431: l_chrv_rec.upg_orig_system_ref := NULL;
3432: END IF;
3433: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3434: l_chrv_rec.upg_orig_system_ref_id := NULL;
3429: END IF;
3430: IF (l_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR) THEN
3431: l_chrv_rec.upg_orig_system_ref := NULL;
3432: END IF;
3433: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3434: l_chrv_rec.upg_orig_system_ref_id := NULL;
3435: END IF;
3436: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3437: l_chrv_rec.program_id := NULL;
3432: END IF;
3433: IF (l_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM) THEN
3434: l_chrv_rec.upg_orig_system_ref_id := NULL;
3435: END IF;
3436: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3437: l_chrv_rec.program_id := NULL;
3438: END IF;
3439: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3440: l_chrv_rec.request_id := NULL;
3435: END IF;
3436: IF (l_chrv_rec.program_id = OKC_API.G_MISS_NUM) THEN
3437: l_chrv_rec.program_id := NULL;
3438: END IF;
3439: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3440: l_chrv_rec.request_id := NULL;
3441: END IF;
3442: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3443: l_chrv_rec.program_update_date := NULL;
3438: END IF;
3439: IF (l_chrv_rec.request_id = OKC_API.G_MISS_NUM) THEN
3440: l_chrv_rec.request_id := NULL;
3441: END IF;
3442: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3443: l_chrv_rec.program_update_date := NULL;
3444: END IF;
3445: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3446: l_chrv_rec.program_application_id := NULL;
3441: END IF;
3442: IF (l_chrv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
3443: l_chrv_rec.program_update_date := NULL;
3444: END IF;
3445: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3446: l_chrv_rec.program_application_id := NULL;
3447: END IF;
3448: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3449: l_chrv_rec.price_list_id := NULL;
3444: END IF;
3445: IF (l_chrv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
3446: l_chrv_rec.program_application_id := NULL;
3447: END IF;
3448: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3449: l_chrv_rec.price_list_id := NULL;
3450: END IF;
3451: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3452: l_chrv_rec.pricing_date := NULL;
3447: END IF;
3448: IF (l_chrv_rec.price_list_id = OKC_API.G_MISS_NUM) THEN
3449: l_chrv_rec.price_list_id := NULL;
3450: END IF;
3451: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3452: l_chrv_rec.pricing_date := NULL;
3453: END IF;
3454: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3455: l_chrv_rec.sign_by_date := NULL;
3450: END IF;
3451: IF (l_chrv_rec.pricing_date = OKC_API.G_MISS_DATE) THEN
3452: l_chrv_rec.pricing_date := NULL;
3453: END IF;
3454: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3455: l_chrv_rec.sign_by_date := NULL;
3456: END IF;
3457: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3458: l_chrv_rec.total_line_list_price := NULL;
3453: END IF;
3454: IF (l_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE) THEN
3455: l_chrv_rec.sign_by_date := NULL;
3456: END IF;
3457: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3458: l_chrv_rec.total_line_list_price := NULL;
3459: END IF;
3460: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3461: l_chrv_rec.application_id := NULL;
3456: END IF;
3457: IF (l_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM) THEN
3458: l_chrv_rec.total_line_list_price := NULL;
3459: END IF;
3460: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3461: l_chrv_rec.application_id := NULL;
3462: END IF;
3463: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3464: l_chrv_rec.orig_system_source_code := NULL;
3459: END IF;
3460: IF (l_chrv_rec.application_id = OKC_API.G_MISS_NUM) THEN
3461: l_chrv_rec.application_id := NULL;
3462: END IF;
3463: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3464: l_chrv_rec.orig_system_source_code := NULL;
3465: END IF;
3466: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3467: l_chrv_rec.orig_system_id1 := NULL;
3462: END IF;
3463: IF (l_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR ) THEN
3464: l_chrv_rec.orig_system_source_code := NULL;
3465: END IF;
3466: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3467: l_chrv_rec.orig_system_id1 := NULL;
3468: END IF;
3469: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3470: l_chrv_rec.orig_system_reference1 := NULL;
3465: END IF;
3466: IF (l_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM ) THEN
3467: l_chrv_rec.orig_system_id1 := NULL;
3468: END IF;
3469: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3470: l_chrv_rec.orig_system_reference1 := NULL;
3471: END IF;
3472:
3473: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3469: IF (l_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR ) THEN
3470: l_chrv_rec.orig_system_reference1 := NULL;
3471: END IF;
3472:
3473: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3474: l_chrv_rec.USER_ESTIMATED_AMOUNT := NULL;
3475: END IF;
3476:
3477: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3473: IF (l_chrv_rec.USER_ESTIMATED_AMOUNT = OKC_API.G_MISS_NUM ) THEN
3474: l_chrv_rec.USER_ESTIMATED_AMOUNT := NULL;
3475: END IF;
3476:
3477: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3478: l_chrv_rec.GOVERNING_CONTRACT_YN := NULL;
3479: END IF;
3480:
3481: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3477: IF (l_chrv_rec.GOVERNING_CONTRACT_YN = OKC_API.G_MISS_CHAR ) THEN
3478: l_chrv_rec.GOVERNING_CONTRACT_YN := NULL;
3479: END IF;
3480:
3481: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3482: l_chrv_rec.attribute_category := NULL;
3483: END IF;
3484: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3485: l_chrv_rec.attribute1 := NULL;
3480:
3481: IF (l_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
3482: l_chrv_rec.attribute_category := NULL;
3483: END IF;
3484: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3485: l_chrv_rec.attribute1 := NULL;
3486: END IF;
3487: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3488: l_chrv_rec.attribute2 := NULL;
3483: END IF;
3484: IF (l_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
3485: l_chrv_rec.attribute1 := NULL;
3486: END IF;
3487: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3488: l_chrv_rec.attribute2 := NULL;
3489: END IF;
3490: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3491: l_chrv_rec.attribute3 := NULL;
3486: END IF;
3487: IF (l_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
3488: l_chrv_rec.attribute2 := NULL;
3489: END IF;
3490: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3491: l_chrv_rec.attribute3 := NULL;
3492: END IF;
3493: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3494: l_chrv_rec.attribute4 := NULL;
3489: END IF;
3490: IF (l_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
3491: l_chrv_rec.attribute3 := NULL;
3492: END IF;
3493: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3494: l_chrv_rec.attribute4 := NULL;
3495: END IF;
3496: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3497: l_chrv_rec.attribute5 := NULL;
3492: END IF;
3493: IF (l_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
3494: l_chrv_rec.attribute4 := NULL;
3495: END IF;
3496: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3497: l_chrv_rec.attribute5 := NULL;
3498: END IF;
3499: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3500: l_chrv_rec.attribute6 := NULL;
3495: END IF;
3496: IF (l_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
3497: l_chrv_rec.attribute5 := NULL;
3498: END IF;
3499: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3500: l_chrv_rec.attribute6 := NULL;
3501: END IF;
3502: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3503: l_chrv_rec.attribute7 := NULL;
3498: END IF;
3499: IF (l_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
3500: l_chrv_rec.attribute6 := NULL;
3501: END IF;
3502: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3503: l_chrv_rec.attribute7 := NULL;
3504: END IF;
3505: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3506: l_chrv_rec.attribute8 := NULL;
3501: END IF;
3502: IF (l_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
3503: l_chrv_rec.attribute7 := NULL;
3504: END IF;
3505: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3506: l_chrv_rec.attribute8 := NULL;
3507: END IF;
3508: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3509: l_chrv_rec.attribute9 := NULL;
3504: END IF;
3505: IF (l_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
3506: l_chrv_rec.attribute8 := NULL;
3507: END IF;
3508: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3509: l_chrv_rec.attribute9 := NULL;
3510: END IF;
3511: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3512: l_chrv_rec.attribute10 := NULL;
3507: END IF;
3508: IF (l_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
3509: l_chrv_rec.attribute9 := NULL;
3510: END IF;
3511: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3512: l_chrv_rec.attribute10 := NULL;
3513: END IF;
3514: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3515: l_chrv_rec.attribute11 := NULL;
3510: END IF;
3511: IF (l_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
3512: l_chrv_rec.attribute10 := NULL;
3513: END IF;
3514: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3515: l_chrv_rec.attribute11 := NULL;
3516: END IF;
3517: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3518: l_chrv_rec.attribute12 := NULL;
3513: END IF;
3514: IF (l_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
3515: l_chrv_rec.attribute11 := NULL;
3516: END IF;
3517: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3518: l_chrv_rec.attribute12 := NULL;
3519: END IF;
3520: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3521: l_chrv_rec.attribute13 := NULL;
3516: END IF;
3517: IF (l_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
3518: l_chrv_rec.attribute12 := NULL;
3519: END IF;
3520: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3521: l_chrv_rec.attribute13 := NULL;
3522: END IF;
3523: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3524: l_chrv_rec.attribute14 := NULL;
3519: END IF;
3520: IF (l_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
3521: l_chrv_rec.attribute13 := NULL;
3522: END IF;
3523: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3524: l_chrv_rec.attribute14 := NULL;
3525: END IF;
3526: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3527: l_chrv_rec.attribute15 := NULL;
3522: END IF;
3523: IF (l_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
3524: l_chrv_rec.attribute14 := NULL;
3525: END IF;
3526: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3527: l_chrv_rec.attribute15 := NULL;
3528: END IF;
3529: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3530: l_chrv_rec.created_by := NULL;
3525: END IF;
3526: IF (l_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
3527: l_chrv_rec.attribute15 := NULL;
3528: END IF;
3529: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3530: l_chrv_rec.created_by := NULL;
3531: END IF;
3532: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3533: l_chrv_rec.creation_date := NULL;
3528: END IF;
3529: IF (l_chrv_rec.created_by = OKC_API.G_MISS_NUM) THEN
3530: l_chrv_rec.created_by := NULL;
3531: END IF;
3532: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3533: l_chrv_rec.creation_date := NULL;
3534: END IF;
3535: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3536: l_chrv_rec.last_updated_by := NULL;
3531: END IF;
3532: IF (l_chrv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
3533: l_chrv_rec.creation_date := NULL;
3534: END IF;
3535: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3536: l_chrv_rec.last_updated_by := NULL;
3537: END IF;
3538: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3539: l_chrv_rec.last_update_date := NULL;
3534: END IF;
3535: IF (l_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
3536: l_chrv_rec.last_updated_by := NULL;
3537: END IF;
3538: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3539: l_chrv_rec.last_update_date := NULL;
3540: END IF;
3541: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3542: l_chrv_rec.last_update_login := NULL;
3537: END IF;
3538: IF (l_chrv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
3539: l_chrv_rec.last_update_date := NULL;
3540: END IF;
3541: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3542: l_chrv_rec.last_update_login := NULL;
3543: END IF;
3544: -- new columns to replace rules
3545: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3541: IF (l_chrv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
3542: l_chrv_rec.last_update_login := NULL;
3543: END IF;
3544: -- new columns to replace rules
3545: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3546: l_chrv_rec.conversion_type := NULL;
3547: END IF;
3548: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3549: l_chrv_rec.conversion_rate := NULL;
3544: -- new columns to replace rules
3545: IF (l_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
3546: l_chrv_rec.conversion_type := NULL;
3547: END IF;
3548: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3549: l_chrv_rec.conversion_rate := NULL;
3550: END IF;
3551: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3552: l_chrv_rec.conversion_rate_date := NULL;
3547: END IF;
3548: IF (l_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
3549: l_chrv_rec.conversion_rate := NULL;
3550: END IF;
3551: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3552: l_chrv_rec.conversion_rate_date := NULL;
3553: END IF;
3554: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3555: l_chrv_rec.conversion_euro_rate := NULL;
3550: END IF;
3551: IF (l_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
3552: l_chrv_rec.conversion_rate_date := NULL;
3553: END IF;
3554: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3555: l_chrv_rec.conversion_euro_rate := NULL;
3556: END IF;
3557: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3558: l_chrv_rec .cust_acct_id := NULL;
3553: END IF;
3554: IF (l_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
3555: l_chrv_rec.conversion_euro_rate := NULL;
3556: END IF;
3557: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3558: l_chrv_rec .cust_acct_id := NULL;
3559: END IF;
3560: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3561: l_chrv_rec.bill_to_site_use_id := NULL;
3556: END IF;
3557: IF (l_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
3558: l_chrv_rec .cust_acct_id := NULL;
3559: END IF;
3560: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3561: l_chrv_rec.bill_to_site_use_id := NULL;
3562: END IF;
3563: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3564: l_chrv_rec.inv_rule_id := NULL;
3559: END IF;
3560: IF (l_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3561: l_chrv_rec.bill_to_site_use_id := NULL;
3562: END IF;
3563: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3564: l_chrv_rec.inv_rule_id := NULL;
3565: END IF;
3566: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3567: l_chrv_rec.renewal_type_code := NULL;
3562: END IF;
3563: IF (l_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
3564: l_chrv_rec.inv_rule_id := NULL;
3565: END IF;
3566: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3567: l_chrv_rec.renewal_type_code := NULL;
3568: END IF;
3569: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3570: l_chrv_rec.renewal_notify_to := NULL;
3565: END IF;
3566: IF (l_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
3567: l_chrv_rec.renewal_type_code := NULL;
3568: END IF;
3569: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3570: l_chrv_rec.renewal_notify_to := NULL;
3571: END IF;
3572: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3573: l_chrv_rec.renewal_end_date := NULL;
3568: END IF;
3569: IF (l_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
3570: l_chrv_rec.renewal_notify_to := NULL;
3571: END IF;
3572: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3573: l_chrv_rec.renewal_end_date := NULL;
3574: END IF;
3575: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3576: l_chrv_rec.ship_to_site_use_id := NULL;
3571: END IF;
3572: IF (l_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
3573: l_chrv_rec.renewal_end_date := NULL;
3574: END IF;
3575: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3576: l_chrv_rec.ship_to_site_use_id := NULL;
3577: END IF;
3578: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3579: l_chrv_rec.payment_term_id := NULL;
3574: END IF;
3575: IF (l_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
3576: l_chrv_rec.ship_to_site_use_id := NULL;
3577: END IF;
3578: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3579: l_chrv_rec.payment_term_id := NULL;
3580: END IF;
3581: -- R12 Data Model Changes 4485150 Start
3582: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3578: IF (l_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
3579: l_chrv_rec.payment_term_id := NULL;
3580: END IF;
3581: -- R12 Data Model Changes 4485150 Start
3582: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3583: l_chrv_rec.approval_type := NULL;
3584: END IF;
3585: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3586: l_chrv_rec.term_cancel_source := NULL;
3581: -- R12 Data Model Changes 4485150 Start
3582: IF (l_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
3583: l_chrv_rec.approval_type := NULL;
3584: END IF;
3585: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3586: l_chrv_rec.term_cancel_source := NULL;
3587: END IF;
3588: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3589: l_chrv_rec.payment_instruction_type := NULL;
3584: END IF;
3585: IF (l_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
3586: l_chrv_rec.term_cancel_source := NULL;
3587: END IF;
3588: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3589: l_chrv_rec.payment_instruction_type := NULL;
3590: END IF;
3591: -- LLC
3592: IF (l_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3588: IF (l_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
3589: l_chrv_rec.payment_instruction_type := NULL;
3590: END IF;
3591: -- LLC
3592: IF (l_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
3593: l_chrv_rec.cancelled_amount := NULL;
3594: END IF;
3595: -- R12 Data Model Changes 4485150 End
3596: RETURN(l_chrv_rec);
3604: ---------------------------------------------
3605: FUNCTION Validate_Attributes (
3606: p_chrv_rec IN chrv_rec_type
3607: ) RETURN VARCHAR2 IS
3608: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3609: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3610: BEGIN
3611:
3612: IF (l_debug = 'Y') THEN
3605: FUNCTION Validate_Attributes (
3606: p_chrv_rec IN chrv_rec_type
3607: ) RETURN VARCHAR2 IS
3608: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3609: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3610: BEGIN
3611:
3612: IF (l_debug = 'Y') THEN
3613: okc_debug.Set_Indentation('OKC_CHR_PVT');
3619: (x_return_status => l_return_status,
3620: p_chrv_rec => p_chrv_rec);
3621:
3622: -- store the highest degree of error
3623: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3624: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3625: x_return_status := l_return_status;
3626: END IF;
3627: END IF;
3620: p_chrv_rec => p_chrv_rec);
3621:
3622: -- store the highest degree of error
3623: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3624: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3625: x_return_status := l_return_status;
3626: END IF;
3627: END IF;
3628:
3630: (x_return_status => l_return_status,
3631: p_chrv_rec => p_chrv_rec);
3632:
3633: -- store the highest degree of error
3634: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3635: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3636: x_return_status := l_return_status;
3637: END IF;
3638: END IF;
3631: p_chrv_rec => p_chrv_rec);
3632:
3633: -- store the highest degree of error
3634: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3635: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3636: x_return_status := l_return_status;
3637: END IF;
3638: END IF;
3639:
3641: (x_return_status => l_return_status,
3642: p_chrv_rec => p_chrv_rec);
3643:
3644: -- store the highest degree of error
3645: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3646: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3647: x_return_status := l_return_status;
3648: END IF;
3649: END IF;
3642: p_chrv_rec => p_chrv_rec);
3643:
3644: -- store the highest degree of error
3645: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3646: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3647: x_return_status := l_return_status;
3648: END IF;
3649: END IF;
3650:
3652: (x_return_status => l_return_status,
3653: p_chrv_rec => p_chrv_rec);
3654:
3655: -- store the highest degree of error
3656: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3657: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3658: x_return_status := l_return_status;
3659: END IF;
3660: END IF;
3653: p_chrv_rec => p_chrv_rec);
3654:
3655: -- store the highest degree of error
3656: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3657: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3658: x_return_status := l_return_status;
3659: END IF;
3660: END IF;
3661:
3663: (x_return_status => l_return_status,
3664: p_chrv_rec => p_chrv_rec);
3665:
3666: -- store the highest degree of error
3667: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3668: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3669: x_return_status := l_return_status;
3670: END IF;
3671: END IF;
3664: p_chrv_rec => p_chrv_rec);
3665:
3666: -- store the highest degree of error
3667: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3668: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3669: x_return_status := l_return_status;
3670: END IF;
3671: END IF;
3672:
3674: (x_return_status => l_return_status,
3675: p_chrv_rec => p_chrv_rec);
3676:
3677: -- store the highest degree of error
3678: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3679: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: x_return_status := l_return_status;
3681: END IF;
3682: END IF;
3675: p_chrv_rec => p_chrv_rec);
3676:
3677: -- store the highest degree of error
3678: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3679: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: x_return_status := l_return_status;
3681: END IF;
3682: END IF;
3683:
3685: (x_return_status => l_return_status,
3686: p_chrv_rec => p_chrv_rec);
3687:
3688: -- store the highest degree of error
3689: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3690: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3691: x_return_status := l_return_status;
3692: END IF;
3693: END IF;
3686: p_chrv_rec => p_chrv_rec);
3687:
3688: -- store the highest degree of error
3689: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3690: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3691: x_return_status := l_return_status;
3692: END IF;
3693: END IF;
3694:
3696: (x_return_status => l_return_status,
3697: p_chrv_rec => p_chrv_rec);
3698:
3699: -- store the highest degree of error
3700: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3701: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3702: x_return_status := l_return_status;
3703: END IF;
3704: END IF;
3697: p_chrv_rec => p_chrv_rec);
3698:
3699: -- store the highest degree of error
3700: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3701: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3702: x_return_status := l_return_status;
3703: END IF;
3704: END IF;
3705:
3707: (x_return_status => l_return_status,
3708: p_chrv_rec => p_chrv_rec);
3709:
3710: -- store the highest degree of error
3711: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3712: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3713: x_return_status := l_return_status;
3714: END IF;
3715: END IF;
3708: p_chrv_rec => p_chrv_rec);
3709:
3710: -- store the highest degree of error
3711: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3712: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3713: x_return_status := l_return_status;
3714: END IF;
3715: END IF;
3716:
3718: (x_return_status => l_return_status,
3719: p_chrv_rec => p_chrv_rec);
3720:
3721: -- store the highest degree of error
3722: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3723: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3724: x_return_status := l_return_status;
3725: END IF;
3726: END IF;
3719: p_chrv_rec => p_chrv_rec);
3720:
3721: -- store the highest degree of error
3722: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3723: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3724: x_return_status := l_return_status;
3725: END IF;
3726: END IF;
3727:
3729: (x_return_status => l_return_status,
3730: p_chrv_rec => p_chrv_rec);
3731:
3732: -- store the highest degree of error
3733: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3734: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3735: x_return_status := l_return_status;
3736: END IF;
3737: END IF;
3730: p_chrv_rec => p_chrv_rec);
3731:
3732: -- store the highest degree of error
3733: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3734: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3735: x_return_status := l_return_status;
3736: END IF;
3737: END IF;
3738:
3740: (x_return_status => l_return_status,
3741: p_chrv_rec => p_chrv_rec);
3742:
3743: -- store the highest degree of error
3744: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3745: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3746: x_return_status := l_return_status;
3747: END IF;
3748: END IF;
3741: p_chrv_rec => p_chrv_rec);
3742:
3743: -- store the highest degree of error
3744: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3745: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3746: x_return_status := l_return_status;
3747: END IF;
3748: END IF;
3749:
3751: (x_return_status => l_return_status,
3752: p_chrv_rec => p_chrv_rec);
3753:
3754: -- store the highest degree of error
3755: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3756: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3757: x_return_status := l_return_status;
3758: END IF;
3759: END IF;
3752: p_chrv_rec => p_chrv_rec);
3753:
3754: -- store the highest degree of error
3755: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3756: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3757: x_return_status := l_return_status;
3758: END IF;
3759: END IF;
3760:
3762: (x_return_status => l_return_status,
3763: p_chrv_rec => p_chrv_rec);
3764:
3765: -- store the highest degree of error
3766: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3767: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3768: x_return_status := l_return_status;
3769: END IF;
3770: END IF;
3763: p_chrv_rec => p_chrv_rec);
3764:
3765: -- store the highest degree of error
3766: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3767: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3768: x_return_status := l_return_status;
3769: END IF;
3770: END IF;
3771:
3773: (x_return_status => l_return_status,
3774: p_chrv_rec => p_chrv_rec);
3775:
3776: -- store the highest degree of error
3777: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3778: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3779: x_return_status := l_return_status;
3780: END IF;
3781: END IF;
3774: p_chrv_rec => p_chrv_rec);
3775:
3776: -- store the highest degree of error
3777: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3778: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3779: x_return_status := l_return_status;
3780: END IF;
3781: END IF;
3782:
3784: (x_return_status => l_return_status,
3785: p_chrv_rec => p_chrv_rec);
3786:
3787: -- store the highest degree of error
3788: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3789: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3790: x_return_status := l_return_status;
3791: END IF;
3792: END IF;
3785: p_chrv_rec => p_chrv_rec);
3786:
3787: -- store the highest degree of error
3788: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3789: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3790: x_return_status := l_return_status;
3791: END IF;
3792: END IF;
3793:
3795: (x_return_status => l_return_status,
3796: p_chrv_rec => p_chrv_rec);
3797:
3798: -- store the highest degree of error
3799: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3800: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3801: x_return_status := l_return_status;
3802: END IF;
3803: END IF;
3796: p_chrv_rec => p_chrv_rec);
3797:
3798: -- store the highest degree of error
3799: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3800: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3801: x_return_status := l_return_status;
3802: END IF;
3803: END IF;
3804:
3806: (x_return_status => l_return_status,
3807: p_chrv_rec => p_chrv_rec);
3808:
3809: -- store the highest degree of error
3810: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3811: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3812: x_return_status := l_return_status;
3813: END IF;
3814: END IF;
3807: p_chrv_rec => p_chrv_rec);
3808:
3809: -- store the highest degree of error
3810: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3811: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3812: x_return_status := l_return_status;
3813: END IF;
3814: END IF;
3815:
3818: (x_return_status => l_return_status,
3819: p_chrv_rec => p_chrv_rec);
3820:
3821: -- store the highest degree of error
3822: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3823: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3824: x_return_status := l_return_status;
3825: End If;
3826: End If;
3819: p_chrv_rec => p_chrv_rec);
3820:
3821: -- store the highest degree of error
3822: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3823: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3824: x_return_status := l_return_status;
3825: End If;
3826: End If;
3827: */
3829: (x_return_status => l_return_status,
3830: p_chrv_rec => p_chrv_rec);
3831:
3832: -- store the highest degree of error
3833: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3834: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3835: x_return_status := l_return_status;
3836: END IF;
3837: END IF;
3830: p_chrv_rec => p_chrv_rec);
3831:
3832: -- store the highest degree of error
3833: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3834: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3835: x_return_status := l_return_status;
3836: END IF;
3837: END IF;
3838:
3840: (x_return_status => l_return_status,
3841: p_chrv_rec => p_chrv_rec);
3842:
3843: -- store the highest degree of error
3844: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3845: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3846: x_return_status := l_return_status;
3847: END IF;
3848: END IF;
3841: p_chrv_rec => p_chrv_rec);
3842:
3843: -- store the highest degree of error
3844: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3845: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3846: x_return_status := l_return_status;
3847: END IF;
3848: END IF;
3849: /*
3851: (x_return_status => l_return_status,
3852: p_chrv_rec => p_chrv_rec);
3853:
3854: -- store the highest degree of error
3855: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3856: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3857: x_return_status := l_return_status;
3858: End If;
3859: End If;
3852: p_chrv_rec => p_chrv_rec);
3853:
3854: -- store the highest degree of error
3855: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3856: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3857: x_return_status := l_return_status;
3858: End If;
3859: End If;
3860: */
3862: (x_return_status => l_return_status,
3863: p_chrv_rec => p_chrv_rec);
3864:
3865: -- store the highest degree of error
3866: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3867: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3868: x_return_status := l_return_status;
3869: END IF;
3870: END IF;
3863: p_chrv_rec => p_chrv_rec);
3864:
3865: -- store the highest degree of error
3866: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3867: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3868: x_return_status := l_return_status;
3869: END IF;
3870: END IF;
3871: /*
3873: (x_return_status => l_return_status,
3874: p_chrv_rec => p_chrv_rec);
3875:
3876: -- store the highest degree of error
3877: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3878: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3879: x_return_status := l_return_status;
3880: End If;
3881: End If;
3874: p_chrv_rec => p_chrv_rec);
3875:
3876: -- store the highest degree of error
3877: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
3878: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
3879: x_return_status := l_return_status;
3880: End If;
3881: End If;
3882: */
3884: (x_return_status => l_return_status,
3885: p_chrv_rec => p_chrv_rec);
3886:
3887: -- store the highest degree of error
3888: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3889: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3890: x_return_status := l_return_status;
3891: END IF;
3892: END IF;
3885: p_chrv_rec => p_chrv_rec);
3886:
3887: -- store the highest degree of error
3888: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3889: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3890: x_return_status := l_return_status;
3891: END IF;
3892: END IF;
3893:
3895: (x_return_status => l_return_status,
3896: p_chrv_rec => p_chrv_rec);
3897:
3898: -- store the highest degree of error
3899: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3900: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3901: x_return_status := l_return_status;
3902: END IF;
3903: END IF;
3896: p_chrv_rec => p_chrv_rec);
3897:
3898: -- store the highest degree of error
3899: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3900: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3901: x_return_status := l_return_status;
3902: END IF;
3903: END IF;
3904: /* Bug 3652127 Price list not validated for OKS*/
3907: (x_return_status => l_return_status,
3908: p_chrv_rec => p_chrv_rec);
3909:
3910: -- store the highest degree of error
3911: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3912: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3913: x_return_status := l_return_status;
3914: END IF;
3915: END IF;
3908: p_chrv_rec => p_chrv_rec);
3909:
3910: -- store the highest degree of error
3911: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3912: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3913: x_return_status := l_return_status;
3914: END IF;
3915: END IF;
3916: END IF;
3921: (x_return_status => l_return_status,
3922: p_chrv_rec => p_chrv_rec);
3923:
3924: -- store the highest degree of error
3925: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3926: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3927: x_return_status := l_return_status;
3928: END IF;
3929: END IF;
3922: p_chrv_rec => p_chrv_rec);
3923:
3924: -- store the highest degree of error
3925: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3926: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3927: x_return_status := l_return_status;
3928: END IF;
3929: END IF;
3930: ELSE
3932: (x_return_status => l_return_status,
3933: p_chrv_rec => p_chrv_rec);
3934:
3935: -- store the highest degree of error
3936: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3937: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3938: x_return_status := l_return_status;
3939: END IF;
3940: END IF;
3933: p_chrv_rec => p_chrv_rec);
3934:
3935: -- store the highest degree of error
3936: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3937: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3938: x_return_status := l_return_status;
3939: END IF;
3940: END IF;
3941: END IF;
3944: -- R12 Data Model Changes 4485150 Start
3945: validate_approval_type(x_return_status => l_return_status,
3946: p_chrv_rec => p_chrv_rec) ;
3947: -- store the highest degree of error
3948: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3949: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3950: x_return_status := l_return_status;
3951: END IF;
3952: END IF;
3945: validate_approval_type(x_return_status => l_return_status,
3946: p_chrv_rec => p_chrv_rec) ;
3947: -- store the highest degree of error
3948: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3949: IF x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
3950: x_return_status := l_return_status;
3951: END IF;
3952: END IF;
3953: -- R12 Data Model Changes 4485150 End
3966: okc_debug.Reset_Indentation;
3967: END IF;
3968:
3969: -- store SQL error message on message stack
3970: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3971: p_msg_name => g_unexpected_error,
3972: p_token1 => g_sqlcode_token,
3973: p_token1_value => SQLCODE,
3974: p_token2 => g_sqlerrm_token,
3974: p_token2 => g_sqlerrm_token,
3975: p_token2_value => SQLERRM);
3976:
3977: -- notify caller of an UNEXPETED error
3978: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3979:
3980: -- return status to caller
3981: RETURN(x_return_status);
3982:
4050: WHERE contract_number = p_chrv_rec.contract_number
4051: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
4052: AND id <> nvl(p_chrv_rec.id, - 99999);
4053:
4054: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4055: l_dummy VARCHAR2(1);
4056: l_found BOOLEAN;
4057: BEGIN
4058:
4073: l_found := l_chr_csr2%FOUND;
4074: CLOSE l_chr_csr2;
4075: END IF;
4076: IF (l_found) THEN
4077: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4078: p_msg_name => 'OKC_CONTRACT_EXISTS',
4079: p_token1 => 'VALUE1',
4080: p_token1_value => p_chrv_rec.contract_number,
4081: p_token2 => 'VALUE2',
4080: p_token1_value => p_chrv_rec.contract_number,
4081: p_token2 => 'VALUE2',
4082: p_token2_value => nvl(p_chrv_rec.contract_number_modifier,' '));
4083: -- notify caller of an error
4084: l_return_status := OKC_API.G_RET_STS_ERROR;
4085: END IF;
4086: RETURN (l_return_status);
4087:
4088: IF (l_debug = 'Y') THEN
4135: WHERE contract_number = p_chrv_rec.contract_number
4136: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
4137: AND id <> nvl(p_chrv_rec.id, - 99999);
4138:
4139: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4140: l_dummy VARCHAR2(1);
4141: l_found BOOLEAN;
4142: BEGIN
4143:
4159: l_found := l_chr_csr2%FOUND;
4160: close l_chr_csr2;
4161: End If;
4162: If (l_found) Then
4163: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4164: p_msg_name => 'OKC_CONTRACT_EXISTS',
4165: p_token1 => 'VALUE1',
4166: p_token1_value => p_chrv_rec.contract_number,
4167: p_token2 => 'VALUE2',
4166: p_token1_value => p_chrv_rec.contract_number,
4167: p_token2 => 'VALUE2',
4168: p_token2_value => nvl(p_chrv_rec.contract_number_modifier,' '));
4169: -- notify caller of an error
4170: l_return_status := OKC_API.G_RET_STS_ERROR;
4171: End If;
4172: */
4173: l_return_status := IS_UNIQUE(p_chrv_rec);
4174:
4171: End If;
4172: */
4173: l_return_status := IS_UNIQUE(p_chrv_rec);
4174:
4175: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
4176: -- start date cannot be after end date
4177: IF (p_chrv_rec.START_DATE IS NOT NULL AND
4178: p_chrv_rec.END_DATE IS NOT NULL)
4179: THEN
4178: p_chrv_rec.END_DATE IS NOT NULL)
4179: THEN
4180: IF (p_chrv_rec.START_DATE > p_chrv_rec.END_DATE) THEN
4181: -- notify caller of an error as UNEXPETED error
4182: l_return_status := OKC_API.G_RET_STS_ERROR;
4183: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4184: p_msg_name => 'OKC_INVALID_START_END_DATES'
4185: );
4186: END IF;
4179: THEN
4180: IF (p_chrv_rec.START_DATE > p_chrv_rec.END_DATE) THEN
4181: -- notify caller of an error as UNEXPETED error
4182: l_return_status := OKC_API.G_RET_STS_ERROR;
4183: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4184: p_msg_name => 'OKC_INVALID_START_END_DATES'
4185: );
4186: END IF;
4187: END IF;
4191: THEN
4192: --Bug 3720503 If (p_chrv_rec.END_DATE > p_chrv_rec.SIGN_BY_DATE) Then
4193: IF (p_chrv_rec.SIGN_BY_DATE > p_chrv_rec.END_DATE ) THEN
4194: -- notify caller of an error as UNEXPETED error
4195: l_return_status := OKC_API.G_RET_STS_ERROR;
4196: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4197: p_msg_name => 'OKC_INVALID_SIGN_END_DATES');
4198: END IF;
4199: END IF;
4192: --Bug 3720503 If (p_chrv_rec.END_DATE > p_chrv_rec.SIGN_BY_DATE) Then
4193: IF (p_chrv_rec.SIGN_BY_DATE > p_chrv_rec.END_DATE ) THEN
4194: -- notify caller of an error as UNEXPETED error
4195: l_return_status := OKC_API.G_RET_STS_ERROR;
4196: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4197: p_msg_name => 'OKC_INVALID_SIGN_END_DATES');
4198: END IF;
4199: END IF;
4200:
4199: END IF;
4200:
4201: END IF;
4202: --Pricing date should not be than contract end date for advanced pricing
4203: IF ((l_return_status = OKC_API.G_RET_STS_SUCCESS) AND
4204: NVL(fnd_profile.VALUE('OKC_ADVANCED_PRICING'), 'N') = 'Y') THEN
4205: IF (p_chrv_rec.END_DATE IS NOT NULL AND
4206: p_chrv_rec.PRICING_DATE IS NOT NULL)
4207: THEN
4206: p_chrv_rec.PRICING_DATE IS NOT NULL)
4207: THEN
4208: IF (p_chrv_rec.PRICING_DATE > p_chrv_rec.END_DATE) THEN
4209: -- notify caller of an error as UNEXPETED error
4210: l_return_status := OKC_API.G_RET_STS_ERROR;
4211: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4212: p_msg_name => 'OKC_INVALID_PRICING_DATE');
4213: END IF;
4214: END IF;
4207: THEN
4208: IF (p_chrv_rec.PRICING_DATE > p_chrv_rec.END_DATE) THEN
4209: -- notify caller of an error as UNEXPETED error
4210: l_return_status := OKC_API.G_RET_STS_ERROR;
4211: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4212: p_msg_name => 'OKC_INVALID_PRICING_DATE');
4213: END IF;
4214: END IF;
4215: END IF;
4538: p_chrv_rec IN chrv_rec_type) IS
4539:
4540: l_api_version CONSTANT NUMBER := 1;
4541: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4543: l_chrv_rec chrv_rec_type := p_chrv_rec;
4544: l_chr_rec chr_rec_type;
4545: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4546: BEGIN
4549: okc_debug.Set_Indentation('OKC_CHR_PVT');
4550: okc_debug.LOG('12600: Entered validate_row', 2);
4551: END IF;
4552:
4553: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4554: G_PKG_NAME,
4555: p_init_msg_list,
4556: l_api_version,
4557: p_api_version,
4556: l_api_version,
4557: p_api_version,
4558: '_PVT',
4559: x_return_status);
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4557: p_api_version,
4558: '_PVT',
4559: x_return_status);
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565:
4558: '_PVT',
4559: x_return_status);
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565:
4566: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4559: x_return_status);
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565:
4566: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
4567: --- Validate all non-missing attributes (Item Level Validation)
4568: l_return_status := Validate_Attributes(l_chrv_rec);
4569: END IF;
4570:
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4569: END IF;
4570:
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4570:
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4576: END IF;
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4584: IF (l_debug = 'Y') THEN
4577: l_return_status := Validate_Record(l_chrv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4584: IF (l_debug = 'Y') THEN
4585: okc_debug.LOG('12700: Exiting validate_row', 2);
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4584: IF (l_debug = 'Y') THEN
4585: okc_debug.LOG('12700: Exiting validate_row', 2);
4586: okc_debug.Reset_Indentation;
4587: END IF;
4587: END IF;
4588:
4589:
4590: EXCEPTION
4591: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4595: okc_debug.Reset_Indentation;
4590: EXCEPTION
4591: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4594: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4599: (
4600: l_api_name,
4601: G_PKG_NAME,
4602: 'OKC_API.G_RET_STS_ERROR',
4598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4599: (
4600: l_api_name,
4601: G_PKG_NAME,
4602: 'OKC_API.G_RET_STS_ERROR',
4603: x_msg_count,
4604: x_msg_data,
4605: '_PVT'
4606: );
4603: x_msg_count,
4604: x_msg_data,
4605: '_PVT'
4606: );
4607: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4608:
4609: IF (l_debug = 'Y') THEN
4610: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4611: okc_debug.Reset_Indentation;
4606: );
4607: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4608:
4609: IF (l_debug = 'Y') THEN
4610: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4611: okc_debug.Reset_Indentation;
4612: END IF;
4613:
4614: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4610: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4611: okc_debug.Reset_Indentation;
4612: END IF;
4613:
4614: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4615: (
4616: l_api_name,
4617: G_PKG_NAME,
4618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4614: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4615: (
4616: l_api_name,
4617: G_PKG_NAME,
4618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4619: x_msg_count,
4620: x_msg_data,
4621: '_PVT'
4622: );
4626: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4627: okc_debug.Reset_Indentation;
4628: END IF;
4629:
4630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4631: (
4632: l_api_name,
4633: G_PKG_NAME,
4634: 'OTHERS',
4650: p_chrv_tbl IN chrv_tbl_type) IS
4651:
4652: l_api_version CONSTANT NUMBER := 1;
4653: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4654: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4655: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4656: i NUMBER := 0;
4657: BEGIN
4658:
4651:
4652: l_api_version CONSTANT NUMBER := 1;
4653: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4654: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4655: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4656: i NUMBER := 0;
4657: BEGIN
4658:
4659: IF (l_debug = 'Y') THEN
4660: okc_debug.Set_Indentation('OKC_CHR_PVT');
4661: okc_debug.LOG('13100: Entered validate_row', 2);
4662: END IF;
4663:
4664: OKC_API.init_msg_list(p_init_msg_list);
4665: -- Make sure PL/SQL table has records in it before passing
4666: IF (p_chrv_tbl.COUNT > 0) THEN
4667: i := p_chrv_tbl.FIRST;
4668: LOOP
4667: i := p_chrv_tbl.FIRST;
4668: LOOP
4669: validate_row (
4670: p_api_version => p_api_version,
4671: p_init_msg_list => OKC_API.G_FALSE,
4672: x_return_status => x_return_status,
4673: x_msg_count => x_msg_count,
4674: x_msg_data => x_msg_data,
4675: p_chrv_rec => p_chrv_tbl(i));
4674: x_msg_data => x_msg_data,
4675: p_chrv_rec => p_chrv_tbl(i));
4676:
4677: -- store the highest degree of error
4678: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4679: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
4680: l_overall_status := x_return_status;
4681: END IF;
4682: END IF;
4675: p_chrv_rec => p_chrv_tbl(i));
4676:
4677: -- store the highest degree of error
4678: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4679: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
4680: l_overall_status := x_return_status;
4681: END IF;
4682: END IF;
4683:
4693: END IF;
4694:
4695:
4696: EXCEPTION
4697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4698:
4699: IF (l_debug = 'Y') THEN
4700: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4701: okc_debug.Reset_Indentation;
4696: EXCEPTION
4697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4698:
4699: IF (l_debug = 'Y') THEN
4700: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4701: okc_debug.Reset_Indentation;
4702: END IF;
4703:
4704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4700: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4701: okc_debug.Reset_Indentation;
4702: END IF;
4703:
4704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4705: (
4706: l_api_name,
4707: G_PKG_NAME,
4708: 'OKC_API.G_RET_STS_ERROR',
4704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4705: (
4706: l_api_name,
4707: G_PKG_NAME,
4708: 'OKC_API.G_RET_STS_ERROR',
4709: x_msg_count,
4710: x_msg_data,
4711: '_PVT'
4712: );
4709: x_msg_count,
4710: x_msg_data,
4711: '_PVT'
4712: );
4713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4714:
4715: IF (l_debug = 'Y') THEN
4716: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4717: okc_debug.Reset_Indentation;
4712: );
4713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4714:
4715: IF (l_debug = 'Y') THEN
4716: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4717: okc_debug.Reset_Indentation;
4718: END IF;
4719:
4720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4716: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4717: okc_debug.Reset_Indentation;
4718: END IF;
4719:
4720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4721: (
4722: l_api_name,
4723: G_PKG_NAME,
4724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4721: (
4722: l_api_name,
4723: G_PKG_NAME,
4724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4725: x_msg_count,
4726: x_msg_data,
4727: '_PVT'
4728: );
4732: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4733: okc_debug.Reset_Indentation;
4734: END IF;
4735:
4736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4737: (
4738: l_api_name,
4739: G_PKG_NAME,
4740: 'OTHERS',
4760: x_chr_rec OUT NOCOPY chr_rec_type) IS
4761:
4762: l_api_version CONSTANT NUMBER := 1;
4763: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
4764: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4765: l_chr_rec chr_rec_type := p_chr_rec;
4766: l_def_chr_rec chr_rec_type;
4767: ----------------------------------------
4768: -- Set_Attributes for:OKC_K_HEADERS_ALL_B --
4770: FUNCTION Set_Attributes (
4771: p_chr_rec IN chr_rec_type,
4772: x_chr_rec OUT NOCOPY chr_rec_type
4773: ) RETURN VARCHAR2 IS
4774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4775: BEGIN
4776:
4777: IF (l_debug = 'Y') THEN
4778: okc_debug.Set_Indentation('OKC_CHR_PVT');
4789: okc_debug.Set_Indentation('OKC_CHR_PVT');
4790: okc_debug.LOG('13700: Entered insert_row', 2);
4791: END IF;
4792:
4793: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4794: p_init_msg_list,
4795: '_PVT',
4796: x_return_status);
4797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4793: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4794: p_init_msg_list,
4795: '_PVT',
4796: x_return_status);
4797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_ERROR;
4801: END IF;
4794: p_init_msg_list,
4795: '_PVT',
4796: x_return_status);
4797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_ERROR;
4801: END IF;
4802: --- Setting item attributes
4795: '_PVT',
4796: x_return_status);
4797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_ERROR;
4801: END IF;
4802: --- Setting item attributes
4803: l_return_status := Set_Attributes(
4796: x_return_status);
4797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4799: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_ERROR;
4801: END IF;
4802: --- Setting item attributes
4803: l_return_status := Set_Attributes(
4804: p_chr_rec, -- IN
4803: l_return_status := Set_Attributes(
4804: p_chr_rec, -- IN
4805: l_chr_rec); -- OUT
4806: --- If any errors happen abort API
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: RAISE OKC_API.G_EXCEPTION_ERROR;
4811: END IF;
4804: p_chr_rec, -- IN
4805: l_chr_rec); -- OUT
4806: --- If any errors happen abort API
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: RAISE OKC_API.G_EXCEPTION_ERROR;
4811: END IF;
4812: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4805: l_chr_rec); -- OUT
4806: --- If any errors happen abort API
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: RAISE OKC_API.G_EXCEPTION_ERROR;
4811: END IF;
4812: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4813: id,
4806: --- If any errors happen abort API
4807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4810: RAISE OKC_API.G_EXCEPTION_ERROR;
4811: END IF;
4812: INSERT INTO OKC_K_HEADERS_ALL_B( --mmadhavi changed to _ALL for MOAC
4813: id,
4814: contract_number,
5017: l_chr_rec.billed_at_source
5018: );
5019: -- Set OUT values
5020: x_chr_rec := l_chr_rec;
5021: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5022: IF (l_debug = 'Y') THEN
5023: okc_debug.LOG('13800: Exiting insert_row', 2);
5024: okc_debug.Reset_Indentation;
5025: END IF;
5025: END IF;
5026:
5027:
5028: EXCEPTION
5029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5030:
5031: IF (l_debug = 'Y') THEN
5032: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5033: okc_debug.Reset_Indentation;
5028: EXCEPTION
5029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5030:
5031: IF (l_debug = 'Y') THEN
5032: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5033: okc_debug.Reset_Indentation;
5034: END IF;
5035:
5036: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5032: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5033: okc_debug.Reset_Indentation;
5034: END IF;
5035:
5036: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5037: (
5038: l_api_name,
5039: G_PKG_NAME,
5040: 'OKC_API.G_RET_STS_ERROR',
5036: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5037: (
5038: l_api_name,
5039: G_PKG_NAME,
5040: 'OKC_API.G_RET_STS_ERROR',
5041: x_msg_count,
5042: x_msg_data,
5043: '_PVT'
5044: );
5041: x_msg_count,
5042: x_msg_data,
5043: '_PVT'
5044: );
5045: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5046:
5047: IF (l_debug = 'Y') THEN
5048: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5049: okc_debug.Reset_Indentation;
5044: );
5045: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5046:
5047: IF (l_debug = 'Y') THEN
5048: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5049: okc_debug.Reset_Indentation;
5050: END IF;
5051:
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5048: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5049: okc_debug.Reset_Indentation;
5050: END IF;
5051:
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5054: l_api_name,
5055: G_PKG_NAME,
5056: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5054: l_api_name,
5055: G_PKG_NAME,
5056: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5057: x_msg_count,
5058: x_msg_data,
5059: '_PVT'
5060: );
5064: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5065: okc_debug.Reset_Indentation;
5066: END IF;
5067:
5068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5069: (
5070: l_api_name,
5071: G_PKG_NAME,
5072: 'OTHERS',
5088: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
5089:
5090: l_api_version CONSTANT NUMBER := 1;
5091: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5092: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5093: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
5094: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5095: CURSOR get_languages IS
5096: SELECT *
5102: FUNCTION Set_Attributes (
5103: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5104: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
5105: ) RETURN VARCHAR2 IS
5106: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5107: BEGIN
5108:
5109: IF (l_debug = 'Y') THEN
5110: okc_debug.Set_Indentation('OKC_CHR_PVT');
5123: okc_debug.Set_Indentation('OKC_CHR_PVT');
5124: okc_debug.LOG('14300: Entered insert_row', 2);
5125: END IF;
5126:
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5128: p_init_msg_list,
5129: '_PVT',
5130: x_return_status);
5131: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5128: p_init_msg_list,
5129: '_PVT',
5130: x_return_status);
5131: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5134: RAISE OKC_API.G_EXCEPTION_ERROR;
5135: END IF;
5128: p_init_msg_list,
5129: '_PVT',
5130: x_return_status);
5131: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5134: RAISE OKC_API.G_EXCEPTION_ERROR;
5135: END IF;
5136: --- Setting item attributes
5129: '_PVT',
5130: x_return_status);
5131: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5134: RAISE OKC_API.G_EXCEPTION_ERROR;
5135: END IF;
5136: --- Setting item attributes
5137: l_return_status := Set_Attributes(
5130: x_return_status);
5131: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5134: RAISE OKC_API.G_EXCEPTION_ERROR;
5135: END IF;
5136: --- Setting item attributes
5137: l_return_status := Set_Attributes(
5138: p_okc_k_headers_tl_rec, -- IN
5137: l_return_status := Set_Attributes(
5138: p_okc_k_headers_tl_rec, -- IN
5139: l_okc_k_headers_tl_rec); -- OUT
5140: --- If any errors happen abort API
5141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5144: RAISE OKC_API.G_EXCEPTION_ERROR;
5145: END IF;
5138: p_okc_k_headers_tl_rec, -- IN
5139: l_okc_k_headers_tl_rec); -- OUT
5140: --- If any errors happen abort API
5141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5144: RAISE OKC_API.G_EXCEPTION_ERROR;
5145: END IF;
5146: FOR l_lang_rec IN get_languages LOOP
5139: l_okc_k_headers_tl_rec); -- OUT
5140: --- If any errors happen abort API
5141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5144: RAISE OKC_API.G_EXCEPTION_ERROR;
5145: END IF;
5146: FOR l_lang_rec IN get_languages LOOP
5147: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5140: --- If any errors happen abort API
5141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5144: RAISE OKC_API.G_EXCEPTION_ERROR;
5145: END IF;
5146: FOR l_lang_rec IN get_languages LOOP
5147: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5148: INSERT INTO OKC_K_HEADERS_TL(
5181: l_okc_k_headers_tl_rec.last_update_login);
5182: END LOOP;
5183: -- Set OUT values
5184: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5185: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5186: IF (l_debug = 'Y') THEN
5187: okc_debug.LOG('14400: Exiting insert_row', 2);
5188: okc_debug.Reset_Indentation;
5189: END IF;
5189: END IF;
5190:
5191:
5192: EXCEPTION
5193: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5194:
5195: IF (l_debug = 'Y') THEN
5196: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5197: okc_debug.Reset_Indentation;
5192: EXCEPTION
5193: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5194:
5195: IF (l_debug = 'Y') THEN
5196: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5197: okc_debug.Reset_Indentation;
5198: END IF;
5199:
5200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5196: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5197: okc_debug.Reset_Indentation;
5198: END IF;
5199:
5200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5201: (
5202: l_api_name,
5203: G_PKG_NAME,
5204: 'OKC_API.G_RET_STS_ERROR',
5200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5201: (
5202: l_api_name,
5203: G_PKG_NAME,
5204: 'OKC_API.G_RET_STS_ERROR',
5205: x_msg_count,
5206: x_msg_data,
5207: '_PVT'
5208: );
5205: x_msg_count,
5206: x_msg_data,
5207: '_PVT'
5208: );
5209: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5210:
5211: IF (l_debug = 'Y') THEN
5212: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5213: okc_debug.Reset_Indentation;
5208: );
5209: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5210:
5211: IF (l_debug = 'Y') THEN
5212: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5213: okc_debug.Reset_Indentation;
5214: END IF;
5215:
5216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5212: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5213: okc_debug.Reset_Indentation;
5214: END IF;
5215:
5216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5217: (
5218: l_api_name,
5219: G_PKG_NAME,
5220: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5217: (
5218: l_api_name,
5219: G_PKG_NAME,
5220: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5221: x_msg_count,
5222: x_msg_data,
5223: '_PVT'
5224: );
5228: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5229: okc_debug.Reset_Indentation;
5230: END IF;
5231:
5232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5233: (
5234: l_api_name,
5235: G_PKG_NAME,
5236: 'OTHERS',
5253: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
5254:
5255: l_api_version CONSTANT NUMBER := 1;
5256: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
5257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5258: l_chrv_rec chrv_rec_type;
5259: l_def_chrv_rec chrv_rec_type;
5260: l_chr_rec chr_rec_type;
5261: lx_chr_rec chr_rec_type;
5289: FUNCTION Set_Attributes (
5290: p_chrv_rec IN chrv_rec_type,
5291: x_chrv_rec OUT NOCOPY chrv_rec_type
5292: ) RETURN VARCHAR2 IS
5293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5294: CURSOR l_app_csr(p_scs_code VARCHAR2) IS
5295: SELECT application_id
5296: FROM okc_classes_b cls, okc_subclasses_b scs
5297: WHERE cls.code = scs.cls_code
5336: okc_debug.Set_Indentation('OKC_CHR_PVT');
5337: okc_debug.LOG('15000: Entered insert_row', 2);
5338: END IF;
5339:
5340: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5341: G_PKG_NAME,
5342: p_init_msg_list,
5343: l_api_version,
5344: p_api_version,
5343: l_api_version,
5344: p_api_version,
5345: '_PVT',
5346: x_return_status);
5347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5350: RAISE OKC_API.G_EXCEPTION_ERROR;
5351: END IF;
5344: p_api_version,
5345: '_PVT',
5346: x_return_status);
5347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5350: RAISE OKC_API.G_EXCEPTION_ERROR;
5351: END IF;
5352: l_chrv_rec := null_out_defaults(p_chrv_rec);
5345: '_PVT',
5346: x_return_status);
5347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5350: RAISE OKC_API.G_EXCEPTION_ERROR;
5351: END IF;
5352: l_chrv_rec := null_out_defaults(p_chrv_rec);
5353: -- Set primary key value
5346: x_return_status);
5347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5350: RAISE OKC_API.G_EXCEPTION_ERROR;
5351: END IF;
5352: l_chrv_rec := null_out_defaults(p_chrv_rec);
5353: -- Set primary key value
5354: l_chrv_rec.ID := get_seq_id;
5357: l_return_status := Set_Attributes(
5358: l_chrv_rec, -- IN
5359: l_def_chrv_rec); -- OUT
5360: --- If any errors happen abort API
5361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_ERROR;
5365: END IF;
5358: l_chrv_rec, -- IN
5359: l_def_chrv_rec); -- OUT
5360: --- If any errors happen abort API
5361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_ERROR;
5365: END IF;
5366: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5359: l_def_chrv_rec); -- OUT
5360: --- If any errors happen abort API
5361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_ERROR;
5365: END IF;
5366: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5367:
5360: --- If any errors happen abort API
5361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5364: RAISE OKC_API.G_EXCEPTION_ERROR;
5365: END IF;
5366: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
5367:
5368: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
5370: l_return_status := Validate_Attributes(l_def_chrv_rec);
5371: END IF; ---Bug#3150149
5372:
5373: --- If any errors happen abort API
5374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5371: END IF; ---Bug#3150149
5372:
5373: --- If any errors happen abort API
5374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5372:
5373: --- If any errors happen abort API
5374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5373: --- If any errors happen abort API
5374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5383: RAISE OKC_API.G_EXCEPTION_ERROR;
5384: END IF;
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5383: RAISE OKC_API.G_EXCEPTION_ERROR;
5384: END IF;
5385: --------------------------------------
5378: END IF;
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5383: RAISE OKC_API.G_EXCEPTION_ERROR;
5384: END IF;
5385: --------------------------------------
5386: -- Move VIEW record to "Child" records
5379: l_return_status := Validate_Record(l_def_chrv_rec);
5380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5383: RAISE OKC_API.G_EXCEPTION_ERROR;
5384: END IF;
5385: --------------------------------------
5386: -- Move VIEW record to "Child" records
5387: --------------------------------------
5398: x_msg_data,
5399: l_chr_rec,
5400: lx_chr_rec
5401: );
5402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_ERROR;
5406: END IF;
5399: l_chr_rec,
5400: lx_chr_rec
5401: );
5402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_ERROR;
5406: END IF;
5407: migrate(lx_chr_rec, l_def_chrv_rec);
5400: lx_chr_rec
5401: );
5402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_ERROR;
5406: END IF;
5407: migrate(lx_chr_rec, l_def_chrv_rec);
5408: insert_row(
5401: );
5402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_ERROR;
5406: END IF;
5407: migrate(lx_chr_rec, l_def_chrv_rec);
5408: insert_row(
5409: p_init_msg_list,
5412: x_msg_data,
5413: l_okc_k_headers_tl_rec,
5414: lx_okc_k_headers_tl_rec
5415: );
5416: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5417: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5418: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_ERROR;
5420: END IF;
5413: l_okc_k_headers_tl_rec,
5414: lx_okc_k_headers_tl_rec
5415: );
5416: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5417: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5418: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_ERROR;
5420: END IF;
5421: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5414: lx_okc_k_headers_tl_rec
5415: );
5416: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5417: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5418: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_ERROR;
5420: END IF;
5421: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5422: -- Set OUT values
5415: );
5416: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5417: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5418: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5419: RAISE OKC_API.G_EXCEPTION_ERROR;
5420: END IF;
5421: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5422: -- Set OUT values
5423: x_chrv_rec := l_def_chrv_rec;
5420: END IF;
5421: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5422: -- Set OUT values
5423: x_chrv_rec := l_def_chrv_rec;
5424: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5425: IF (l_debug = 'Y') THEN
5426: okc_debug.LOG('15100: Exiting insert_row', 2);
5427: okc_debug.Reset_Indentation;
5428: END IF;
5428: END IF;
5429:
5430:
5431: EXCEPTION
5432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5433:
5434: IF (l_debug = 'Y') THEN
5435: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5436: okc_debug.Reset_Indentation;
5431: EXCEPTION
5432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5433:
5434: IF (l_debug = 'Y') THEN
5435: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5436: okc_debug.Reset_Indentation;
5437: END IF;
5438:
5439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5435: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5436: okc_debug.Reset_Indentation;
5437: END IF;
5438:
5439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5440: (
5441: l_api_name,
5442: G_PKG_NAME,
5443: 'OKC_API.G_RET_STS_ERROR',
5439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5440: (
5441: l_api_name,
5442: G_PKG_NAME,
5443: 'OKC_API.G_RET_STS_ERROR',
5444: x_msg_count,
5445: x_msg_data,
5446: '_PVT'
5447: );
5444: x_msg_count,
5445: x_msg_data,
5446: '_PVT'
5447: );
5448: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5447: );
5448: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5451: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5456: (
5457: l_api_name,
5458: G_PKG_NAME,
5459: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5460: x_msg_count,
5461: x_msg_data,
5462: '_PVT'
5463: );
5467: okc_debug.LOG('15400: Exiting insert_row:OTHERS 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: 'OTHERS',
5492: x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
5493:
5494: l_api_version CONSTANT NUMBER := 1;
5495: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5497: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5498: i NUMBER := 0;
5499: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5500: BEGIN
5493:
5494: l_api_version CONSTANT NUMBER := 1;
5495: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5497: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5498: i NUMBER := 0;
5499: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5500: BEGIN
5501:
5503: okc_debug.Set_Indentation('OKC_CHR_PVT');
5504: okc_debug.LOG('15500: Entered insert_row', 2);
5505: END IF;
5506:
5507: OKC_API.init_msg_list(p_init_msg_list);
5508: -- Make sure PL/SQL table has records in it before passing
5509: IF (p_chrv_tbl.COUNT > 0) THEN
5510: i := p_chrv_tbl.FIRST;
5511: LOOP
5509: IF (p_chrv_tbl.COUNT > 0) THEN
5510: i := p_chrv_tbl.FIRST;
5511: LOOP
5512: /************************ HAND-CODED ***************************/
5513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5514: l_chrv_rec := p_chrv_tbl(i);
5515: -- if contract number is null, polpulate default contract number
5516: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
5517: l_chrv_rec.contract_number IS NULL)
5512: /************************ HAND-CODED ***************************/
5513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5514: l_chrv_rec := p_chrv_tbl(i);
5515: -- if contract number is null, polpulate default contract number
5516: IF (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR OR
5517: l_chrv_rec.contract_number IS NULL)
5518: THEN
5519:
5520: OKC_CONTRACT_PVT.GENERATE_CONTRACT_NUMBER(
5522: p_modifier => l_chrv_rec.contract_number_modifier,
5523: x_return_status => x_return_status,
5524: x_contract_number => l_chrv_rec.contract_number);
5525:
5526: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5528: p_msg_name => g_unexpected_error,
5529: p_token1 => g_sqlcode_token,
5530: p_token1_value => SQLCODE,
5523: x_return_status => x_return_status,
5524: x_contract_number => l_chrv_rec.contract_number);
5525:
5526: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
5528: p_msg_name => g_unexpected_error,
5529: p_token1 => g_sqlcode_token,
5530: p_token1_value => SQLCODE,
5531: p_token2 => g_sqlerrm_token,
5532: p_token2_value => SQLERRM);
5533: END IF;
5534: END IF;
5535:
5536: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
5537: insert_row (
5538: p_api_version => p_api_version,
5539: p_init_msg_list => p_init_msg_list,
5540: x_return_status => x_return_status,
5544: x_chrv_rec => x_chrv_tbl(i));
5545: END IF;
5546:
5547: -- store the highest degree of error
5548: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5549: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
5550: l_overall_status := x_return_status;
5551: END IF;
5552: END IF;
5545: END IF;
5546:
5547: -- store the highest degree of error
5548: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5549: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
5550: l_overall_status := x_return_status;
5551: END IF;
5552: END IF;
5553: /*********************** END HAND-CODED ************************/
5563: END IF;
5564:
5565:
5566: EXCEPTION
5567: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5571: okc_debug.Reset_Indentation;
5566: EXCEPTION
5567: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5570: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5575: (
5576: l_api_name,
5577: G_PKG_NAME,
5578: 'OKC_API.G_RET_STS_ERROR',
5574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5575: (
5576: l_api_name,
5577: G_PKG_NAME,
5578: 'OKC_API.G_RET_STS_ERROR',
5579: x_msg_count,
5580: x_msg_data,
5581: '_PVT'
5582: );
5579: x_msg_count,
5580: x_msg_data,
5581: '_PVT'
5582: );
5583: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5582: );
5583: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5586: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5591: (
5592: l_api_name,
5593: G_PKG_NAME,
5594: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5595: x_msg_count,
5596: x_msg_data,
5597: '_PVT'
5598: );
5602: okc_debug.LOG('15900: Exiting insert_row:OTHERS 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: 'OTHERS',
5642: FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
5643: WHERE ID = p_chr_rec.id;
5644: l_api_version CONSTANT NUMBER := 1;
5645: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5646: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5647: l_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5648: lc_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5649: l_row_notfound BOOLEAN := FALSE;
5650: lc_row_notfound BOOLEAN := FALSE;
5654: okc_debug.Set_Indentation('OKC_CHR_PVT');
5655: okc_debug.LOG('16000: Entered lock_row', 2);
5656: END IF;
5657:
5658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5659: p_init_msg_list,
5660: '_PVT',
5661: x_return_status);
5662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5659: p_init_msg_list,
5660: '_PVT',
5661: x_return_status);
5662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5665: RAISE OKC_API.G_EXCEPTION_ERROR;
5666: END IF;
5659: p_init_msg_list,
5660: '_PVT',
5661: x_return_status);
5662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5665: RAISE OKC_API.G_EXCEPTION_ERROR;
5666: END IF;
5667: BEGIN
5660: '_PVT',
5661: x_return_status);
5662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5665: RAISE OKC_API.G_EXCEPTION_ERROR;
5666: END IF;
5667: BEGIN
5668:
5661: x_return_status);
5662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5665: RAISE OKC_API.G_EXCEPTION_ERROR;
5666: END IF;
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5691:
5692: IF (lock_csr%ISOPEN) THEN
5693: CLOSE lock_csr;
5694: END IF;
5695: OKC_API.set_message(G_FND_APP, G_FORM_UNABLE_TO_RESERVE_REC);
5696: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5697: END;
5698:
5699: IF (l_row_notfound ) THEN
5702: lc_row_notfound := lchk_csr%NOTFOUND;
5703: CLOSE lchk_csr;
5704: END IF;
5705: IF (lc_row_notfound) THEN
5706: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5703: CLOSE lchk_csr;
5704: END IF;
5705: IF (lc_row_notfound) THEN
5706: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5705: IF (lc_row_notfound) THEN
5706: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5706: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5714: ELSIF lc_object_version_number = - 1 THEN
5708: ELSIF lc_object_version_number > p_chr_rec.object_version_number THEN
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5714: ELSIF lc_object_version_number = - 1 THEN
5715: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5709: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5710: RAISE OKC_API.G_EXCEPTION_ERROR;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5714: ELSIF lc_object_version_number = - 1 THEN
5715: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5717: END IF;
5711: ELSIF lc_object_version_number <> p_chr_rec.object_version_number THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5714: ELSIF lc_object_version_number = - 1 THEN
5715: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5717: END IF;
5718: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5719: IF (l_debug = 'Y') THEN
5712: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_CHANGED');
5713: RAISE OKC_API.G_EXCEPTION_ERROR;
5714: ELSIF lc_object_version_number = - 1 THEN
5715: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5717: END IF;
5718: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5719: IF (l_debug = 'Y') THEN
5720: okc_debug.LOG('16400: Exiting lock_row', 2);
5714: ELSIF lc_object_version_number = - 1 THEN
5715: OKC_API.set_message(G_FND_APP, G_RECORD_LOGICALLY_DELETED);
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5717: END IF;
5718: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5719: IF (l_debug = 'Y') THEN
5720: okc_debug.LOG('16400: Exiting lock_row', 2);
5721: okc_debug.Reset_Indentation;
5722: END IF;
5722: END IF;
5723:
5724:
5725: EXCEPTION
5726: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5727:
5728: IF (l_debug = 'Y') THEN
5729: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5730: okc_debug.Reset_Indentation;
5725: EXCEPTION
5726: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5727:
5728: IF (l_debug = 'Y') THEN
5729: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5730: okc_debug.Reset_Indentation;
5731: END IF;
5732:
5733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5729: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5730: okc_debug.Reset_Indentation;
5731: END IF;
5732:
5733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5734: (
5735: l_api_name,
5736: G_PKG_NAME,
5737: 'OKC_API.G_RET_STS_ERROR',
5733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5734: (
5735: l_api_name,
5736: G_PKG_NAME,
5737: 'OKC_API.G_RET_STS_ERROR',
5738: x_msg_count,
5739: x_msg_data,
5740: '_PVT'
5741: );
5738: x_msg_count,
5739: x_msg_data,
5740: '_PVT'
5741: );
5742: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5741: );
5742: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5745: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5750: (
5751: l_api_name,
5752: G_PKG_NAME,
5753: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5754: x_msg_count,
5755: x_msg_data,
5756: '_PVT'
5757: );
5761: okc_debug.LOG('16700: Exiting lock_row:OTHERS 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: 'OTHERS',
5792: FOR UPDATE NOWAIT;
5793:
5794: l_api_version CONSTANT NUMBER := 1;
5795: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
5796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5797: l_lock_var lock_csr%ROWTYPE;
5798: l_row_notfound BOOLEAN := FALSE;
5799: lc_row_notfound BOOLEAN := FALSE;
5800: BEGIN
5803: okc_debug.Set_Indentation('OKC_CHR_PVT');
5804: okc_debug.LOG('16800: Entered lock_row', 2);
5805: END IF;
5806:
5807: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5808: p_init_msg_list,
5809: '_PVT',
5810: x_return_status);
5811: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5807: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5808: p_init_msg_list,
5809: '_PVT',
5810: x_return_status);
5811: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5812: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5813: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5814: RAISE OKC_API.G_EXCEPTION_ERROR;
5815: END IF;
5808: p_init_msg_list,
5809: '_PVT',
5810: x_return_status);
5811: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5812: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5813: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5814: RAISE OKC_API.G_EXCEPTION_ERROR;
5815: END IF;
5816: BEGIN
5809: '_PVT',
5810: x_return_status);
5811: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5812: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5813: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5814: RAISE OKC_API.G_EXCEPTION_ERROR;
5815: END IF;
5816: BEGIN
5817:
5810: x_return_status);
5811: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5812: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5813: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5814: RAISE OKC_API.G_EXCEPTION_ERROR;
5815: END IF;
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5840:
5841: IF (lock_csr%ISOPEN) THEN
5842: CLOSE lock_csr;
5843: END IF;
5844: OKC_API.set_message(G_FND_APP, G_FORM_UNABLE_TO_RESERVE_REC);
5845: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5846: END;
5847:
5848: IF (l_row_notfound ) THEN
5845: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5846: END;
5847:
5848: IF (l_row_notfound ) THEN
5849: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5850: RAISE OKC_API.G_EXCEPTION_ERROR;
5851: END IF;
5852: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5853: IF (l_debug = 'Y') THEN
5846: END;
5847:
5848: IF (l_row_notfound ) THEN
5849: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5850: RAISE OKC_API.G_EXCEPTION_ERROR;
5851: END IF;
5852: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5853: IF (l_debug = 'Y') THEN
5854: okc_debug.LOG('17200: Exiting lock_row', 2);
5848: IF (l_row_notfound ) THEN
5849: OKC_API.set_message(G_APP_NAME, 'OKC_FORM_RECORD_DELETED');
5850: RAISE OKC_API.G_EXCEPTION_ERROR;
5851: END IF;
5852: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5853: IF (l_debug = 'Y') THEN
5854: okc_debug.LOG('17200: Exiting lock_row', 2);
5855: okc_debug.Reset_Indentation;
5856: END IF;
5856: END IF;
5857:
5858:
5859: EXCEPTION
5860: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5861:
5862: IF (l_debug = 'Y') THEN
5863: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5864: okc_debug.Reset_Indentation;
5859: EXCEPTION
5860: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5861:
5862: IF (l_debug = 'Y') THEN
5863: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5864: okc_debug.Reset_Indentation;
5865: END IF;
5866:
5867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5863: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5864: okc_debug.Reset_Indentation;
5865: END IF;
5866:
5867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5868: (
5869: l_api_name,
5870: G_PKG_NAME,
5871: 'OKC_API.G_RET_STS_ERROR',
5867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5868: (
5869: l_api_name,
5870: G_PKG_NAME,
5871: 'OKC_API.G_RET_STS_ERROR',
5872: x_msg_count,
5873: x_msg_data,
5874: '_PVT'
5875: );
5872: x_msg_count,
5873: x_msg_data,
5874: '_PVT'
5875: );
5876: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5875: );
5876: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5879: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5884: (
5885: l_api_name,
5886: G_PKG_NAME,
5887: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5888: x_msg_count,
5889: x_msg_data,
5890: '_PVT'
5891: );
5895: okc_debug.LOG('17500: Exiting lock_row:OTHERS 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: 'OTHERS',
5919: p_chrv_rec IN chrv_rec_type) IS
5920:
5921: l_api_version CONSTANT NUMBER := 1;
5922: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5923: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5924: l_chr_rec chr_rec_type;
5925: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5926: BEGIN
5927:
5929: okc_debug.Set_Indentation('OKC_CHR_PVT');
5930: okc_debug.LOG('17600: Entered lock_row', 2);
5931: END IF;
5932:
5933: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5934: G_PKG_NAME,
5935: p_init_msg_list,
5936: l_api_version,
5937: p_api_version,
5936: l_api_version,
5937: p_api_version,
5938: '_PVT',
5939: x_return_status);
5940: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5941: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5942: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5937: p_api_version,
5938: '_PVT',
5939: x_return_status);
5940: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5941: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5942: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5945: --------------------------------------
5938: '_PVT',
5939: x_return_status);
5940: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5941: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5942: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5945: --------------------------------------
5946: -- Move VIEW record to "Child" records
5939: x_return_status);
5940: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5941: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5942: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5945: --------------------------------------
5946: -- Move VIEW record to "Child" records
5947: --------------------------------------
5956: x_msg_count,
5957: x_msg_data,
5958: l_chr_rec
5959: );
5960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5963: RAISE OKC_API.G_EXCEPTION_ERROR;
5964: END IF;
5957: x_msg_data,
5958: l_chr_rec
5959: );
5960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5963: RAISE OKC_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: lock_row(
5958: l_chr_rec
5959: );
5960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5963: RAISE OKC_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: lock_row(
5966: p_init_msg_list,
5959: );
5960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5963: RAISE OKC_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: lock_row(
5966: p_init_msg_list,
5967: x_return_status,
5968: x_msg_count,
5969: x_msg_data,
5970: l_okc_k_headers_tl_rec
5971: );
5972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5969: x_msg_data,
5970: l_okc_k_headers_tl_rec
5971: );
5972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5970: l_okc_k_headers_tl_rec
5971: );
5972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5978: IF (l_debug = 'Y') THEN
5971: );
5972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.LOG('17700: Exiting lock_row', 2);
5973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.LOG('17700: Exiting lock_row', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5981: END IF;
5982:
5983:
5984: EXCEPTION
5985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5986:
5987: IF (l_debug = 'Y') THEN
5988: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5989: okc_debug.Reset_Indentation;
5984: EXCEPTION
5985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5986:
5987: IF (l_debug = 'Y') THEN
5988: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5989: okc_debug.Reset_Indentation;
5990: END IF;
5991:
5992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5988: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5989: okc_debug.Reset_Indentation;
5990: END IF;
5991:
5992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5993: (
5994: l_api_name,
5995: G_PKG_NAME,
5996: 'OKC_API.G_RET_STS_ERROR',
5992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5993: (
5994: l_api_name,
5995: G_PKG_NAME,
5996: 'OKC_API.G_RET_STS_ERROR',
5997: x_msg_count,
5998: x_msg_data,
5999: '_PVT'
6000: );
5997: x_msg_count,
5998: x_msg_data,
5999: '_PVT'
6000: );
6001: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6000: );
6001: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6004: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6009: (
6010: l_api_name,
6011: G_PKG_NAME,
6012: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6013: x_msg_count,
6014: x_msg_data,
6015: '_PVT'
6016: );
6020: okc_debug.LOG('18000: Exiting lock_row:OTHERS 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: 'OTHERS',
6044: p_chrv_tbl IN chrv_tbl_type) IS
6045:
6046: l_api_version CONSTANT NUMBER := 1;
6047: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6049: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6050: i NUMBER := 0;
6051: BEGIN
6052:
6045:
6046: l_api_version CONSTANT NUMBER := 1;
6047: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
6048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6049: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6050: i NUMBER := 0;
6051: BEGIN
6052:
6053: IF (l_debug = 'Y') THEN
6054: okc_debug.Set_Indentation('OKC_CHR_PVT');
6055: okc_debug.LOG('18100: Entered lock_row', 2);
6056: END IF;
6057:
6058: OKC_API.init_msg_list(p_init_msg_list);
6059: -- Make sure PL/SQL table has records in it before passing
6060: IF (p_chrv_tbl.COUNT > 0) THEN
6061: i := p_chrv_tbl.FIRST;
6062: LOOP
6061: i := p_chrv_tbl.FIRST;
6062: LOOP
6063: lock_row (
6064: p_api_version => p_api_version,
6065: p_init_msg_list => OKC_API.G_FALSE,
6066: x_return_status => x_return_status,
6067: x_msg_count => x_msg_count,
6068: x_msg_data => x_msg_data,
6069: p_chrv_rec => p_chrv_tbl(i));
6068: x_msg_data => x_msg_data,
6069: p_chrv_rec => p_chrv_tbl(i));
6070:
6071: -- store the highest degree of error
6072: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
6073: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
6074: l_overall_status := x_return_status;
6075: END IF;
6076: END IF;
6069: p_chrv_rec => p_chrv_tbl(i));
6070:
6071: -- store the highest degree of error
6072: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
6073: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
6074: l_overall_status := x_return_status;
6075: END IF;
6076: END IF;
6077:
6087: END IF;
6088:
6089:
6090: EXCEPTION
6091: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6092:
6093: IF (l_debug = 'Y') THEN
6094: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6095: okc_debug.Reset_Indentation;
6090: EXCEPTION
6091: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6092:
6093: IF (l_debug = 'Y') THEN
6094: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6095: okc_debug.Reset_Indentation;
6096: END IF;
6097:
6098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6094: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6095: okc_debug.Reset_Indentation;
6096: END IF;
6097:
6098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6099: (
6100: l_api_name,
6101: G_PKG_NAME,
6102: 'OKC_API.G_RET_STS_ERROR',
6098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6099: (
6100: l_api_name,
6101: G_PKG_NAME,
6102: 'OKC_API.G_RET_STS_ERROR',
6103: x_msg_count,
6104: x_msg_data,
6105: '_PVT'
6106: );
6103: x_msg_count,
6104: x_msg_data,
6105: '_PVT'
6106: );
6107: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6106: );
6107: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6110: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6119: x_msg_count,
6120: x_msg_data,
6121: '_PVT'
6122: );
6126: okc_debug.LOG('18500: Exiting lock_row:OTHERS 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: 'OTHERS',
6155: x_chr_rec OUT NOCOPY chr_rec_type) IS
6156:
6157: l_api_version CONSTANT NUMBER := 1;
6158: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
6159: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6160: l_chr_rec chr_rec_type := p_chr_rec;
6161: l_def_chr_rec chr_rec_type;
6162: l_row_notfound BOOLEAN := TRUE;
6163: ----------------------------------
6168: x_chr_rec OUT NOCOPY chr_rec_type
6169: ) RETURN VARCHAR2 IS
6170: l_chr_rec chr_rec_type;
6171: l_row_notfound BOOLEAN := TRUE;
6172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6173: BEGIN
6174:
6175: IF (l_debug = 'Y') THEN
6176: okc_debug.Set_Indentation('OKC_CHR_PVT');
6180: x_chr_rec := p_chr_rec;
6181: -- Get current database values
6182: l_chr_rec := get_rec(p_chr_rec, l_row_notfound);
6183: IF (l_row_notfound) THEN
6184: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6185: END IF;
6186: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6187: THEN
6188: x_chr_rec.id := l_chr_rec.id;
6182: l_chr_rec := get_rec(p_chr_rec, l_row_notfound);
6183: IF (l_row_notfound) THEN
6184: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6185: END IF;
6186: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6187: THEN
6188: x_chr_rec.id := l_chr_rec.id;
6189: END IF;
6190: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6186: IF (x_chr_rec.id = OKC_API.G_MISS_NUM)
6187: THEN
6188: x_chr_rec.id := l_chr_rec.id;
6189: END IF;
6190: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6191: THEN
6192: x_chr_rec.contract_number := l_chr_rec.contract_number;
6193: END IF;
6194: IF (x_chr_rec.authoring_org_id = OKC_API.G_MISS_NUM)
6190: IF (x_chr_rec.contract_number = OKC_API.G_MISS_CHAR)
6191: THEN
6192: x_chr_rec.contract_number := l_chr_rec.contract_number;
6193: END IF;
6194: IF (x_chr_rec.authoring_org_id = OKC_API.G_MISS_NUM)
6195: THEN
6196: x_chr_rec.authoring_org_id := l_chr_rec.authoring_org_id;
6197: END IF;
6198: --mmadhavi added for MOAC
6196: x_chr_rec.authoring_org_id := l_chr_rec.authoring_org_id;
6197: END IF;
6198: --mmadhavi added for MOAC
6199:
6200: IF (x_chr_rec.org_id = OKC_API.G_MISS_NUM)
6201: THEN
6202: x_chr_rec.org_id := l_chr_rec.org_id;
6203: END IF;
6204:
6202: x_chr_rec.org_id := l_chr_rec.org_id;
6203: END IF;
6204:
6205: --mmadhavi end MOAC
6206: IF (x_chr_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
6207: THEN
6208: x_chr_rec.contract_number_modifier := l_chr_rec.contract_number_modifier;
6209: END IF;
6210: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6206: IF (x_chr_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
6207: THEN
6208: x_chr_rec.contract_number_modifier := l_chr_rec.contract_number_modifier;
6209: END IF;
6210: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6211: THEN
6212: x_chr_rec.chr_id_response := l_chr_rec.chr_id_response;
6213: END IF;
6214: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6210: IF (x_chr_rec.chr_id_response = OKC_API.G_MISS_NUM)
6211: THEN
6212: x_chr_rec.chr_id_response := l_chr_rec.chr_id_response;
6213: END IF;
6214: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6215: THEN
6216: x_chr_rec.chr_id_award := l_chr_rec.chr_id_award;
6217: END IF;
6218: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6214: IF (x_chr_rec.chr_id_award = OKC_API.G_MISS_NUM)
6215: THEN
6216: x_chr_rec.chr_id_award := l_chr_rec.chr_id_award;
6217: END IF;
6218: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6219: THEN
6220: x_chr_rec.INV_ORGANIZATION_ID := l_chr_rec.INV_ORGANIZATION_ID;
6221: END IF;
6222: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6218: IF (x_chr_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
6219: THEN
6220: x_chr_rec.INV_ORGANIZATION_ID := l_chr_rec.INV_ORGANIZATION_ID;
6221: END IF;
6222: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6223: THEN
6224: x_chr_rec.sts_code := l_chr_rec.sts_code;
6225: END IF;
6226: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6222: IF (x_chr_rec.sts_code = OKC_API.G_MISS_CHAR)
6223: THEN
6224: x_chr_rec.sts_code := l_chr_rec.sts_code;
6225: END IF;
6226: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6227: THEN
6228: x_chr_rec.qcl_id := l_chr_rec.qcl_id;
6229: END IF;
6230: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6226: IF (x_chr_rec.qcl_id = OKC_API.G_MISS_NUM)
6227: THEN
6228: x_chr_rec.qcl_id := l_chr_rec.qcl_id;
6229: END IF;
6230: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6231: THEN
6232: x_chr_rec.scs_code := l_chr_rec.scs_code;
6233: END IF;
6234: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6230: IF (x_chr_rec.scs_code = OKC_API.G_MISS_CHAR)
6231: THEN
6232: x_chr_rec.scs_code := l_chr_rec.scs_code;
6233: END IF;
6234: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6235: THEN
6236: x_chr_rec.trn_code := l_chr_rec.trn_code;
6237: END IF;
6238: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6234: IF (x_chr_rec.trn_code = OKC_API.G_MISS_CHAR)
6235: THEN
6236: x_chr_rec.trn_code := l_chr_rec.trn_code;
6237: END IF;
6238: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6239: THEN
6240: x_chr_rec.currency_code := l_chr_rec.currency_code;
6241: END IF;
6242: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6238: IF (x_chr_rec.currency_code = OKC_API.G_MISS_CHAR)
6239: THEN
6240: x_chr_rec.currency_code := l_chr_rec.currency_code;
6241: END IF;
6242: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6243: THEN
6244: x_chr_rec.archived_yn := l_chr_rec.archived_yn;
6245: END IF;
6246: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6242: IF (x_chr_rec.archived_yn = OKC_API.G_MISS_CHAR)
6243: THEN
6244: x_chr_rec.archived_yn := l_chr_rec.archived_yn;
6245: END IF;
6246: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6247: THEN
6248: x_chr_rec.deleted_yn := l_chr_rec.deleted_yn;
6249: END IF;
6250: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6246: IF (x_chr_rec.deleted_yn = OKC_API.G_MISS_CHAR)
6247: THEN
6248: x_chr_rec.deleted_yn := l_chr_rec.deleted_yn;
6249: END IF;
6250: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6251: THEN
6252: x_chr_rec.template_yn := l_chr_rec.template_yn;
6253: END IF;
6254: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6250: IF (x_chr_rec.template_yn = OKC_API.G_MISS_CHAR)
6251: THEN
6252: x_chr_rec.template_yn := l_chr_rec.template_yn;
6253: END IF;
6254: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6255: THEN
6256: x_chr_rec.chr_type := l_chr_rec.chr_type;
6257: END IF;
6258: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6254: IF (x_chr_rec.chr_type = OKC_API.G_MISS_CHAR)
6255: THEN
6256: x_chr_rec.chr_type := l_chr_rec.chr_type;
6257: END IF;
6258: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6259: THEN
6260: x_chr_rec.object_version_number := l_chr_rec.object_version_number;
6261: END IF;
6262: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6258: IF (x_chr_rec.object_version_number = OKC_API.G_MISS_NUM)
6259: THEN
6260: x_chr_rec.object_version_number := l_chr_rec.object_version_number;
6261: END IF;
6262: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6263: THEN
6264: x_chr_rec.created_by := l_chr_rec.created_by;
6265: END IF;
6266: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6262: IF (x_chr_rec.created_by = OKC_API.G_MISS_NUM)
6263: THEN
6264: x_chr_rec.created_by := l_chr_rec.created_by;
6265: END IF;
6266: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6267: THEN
6268: x_chr_rec.creation_date := l_chr_rec.creation_date;
6269: END IF;
6270: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6266: IF (x_chr_rec.creation_date = OKC_API.G_MISS_DATE)
6267: THEN
6268: x_chr_rec.creation_date := l_chr_rec.creation_date;
6269: END IF;
6270: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6271: THEN
6272: x_chr_rec.last_updated_by := l_chr_rec.last_updated_by;
6273: END IF;
6274: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6270: IF (x_chr_rec.last_updated_by = OKC_API.G_MISS_NUM)
6271: THEN
6272: x_chr_rec.last_updated_by := l_chr_rec.last_updated_by;
6273: END IF;
6274: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6275: THEN
6276: x_chr_rec.last_update_date := l_chr_rec.last_update_date;
6277: END IF;
6278: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6274: IF (x_chr_rec.last_update_date = OKC_API.G_MISS_DATE)
6275: THEN
6276: x_chr_rec.last_update_date := l_chr_rec.last_update_date;
6277: END IF;
6278: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6279: THEN
6280: x_chr_rec.cust_po_number_req_yn := l_chr_rec.cust_po_number_req_yn;
6281: END IF;
6282: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6278: IF (x_chr_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
6279: THEN
6280: x_chr_rec.cust_po_number_req_yn := l_chr_rec.cust_po_number_req_yn;
6281: END IF;
6282: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6283: THEN
6284: x_chr_rec.pre_pay_req_yn := l_chr_rec.pre_pay_req_yn;
6285: END IF;
6286: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6282: IF (x_chr_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
6283: THEN
6284: x_chr_rec.pre_pay_req_yn := l_chr_rec.pre_pay_req_yn;
6285: END IF;
6286: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6287: THEN
6288: x_chr_rec.cust_po_number := l_chr_rec.cust_po_number;
6289: END IF;
6290: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6286: IF (x_chr_rec.cust_po_number = OKC_API.G_MISS_CHAR)
6287: THEN
6288: x_chr_rec.cust_po_number := l_chr_rec.cust_po_number;
6289: END IF;
6290: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6291: THEN
6292: x_chr_rec.dpas_rating := l_chr_rec.dpas_rating;
6293: END IF;
6294: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6290: IF (x_chr_rec.dpas_rating = OKC_API.G_MISS_CHAR)
6291: THEN
6292: x_chr_rec.dpas_rating := l_chr_rec.dpas_rating;
6293: END IF;
6294: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_chr_rec.template_used := l_chr_rec.template_used;
6297: END IF;
6298: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6294: IF (x_chr_rec.template_used = OKC_API.G_MISS_CHAR)
6295: THEN
6296: x_chr_rec.template_used := l_chr_rec.template_used;
6297: END IF;
6298: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6299: THEN
6300: x_chr_rec.date_approved := l_chr_rec.date_approved;
6301: END IF;
6302: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6298: IF (x_chr_rec.date_approved = OKC_API.G_MISS_DATE)
6299: THEN
6300: x_chr_rec.date_approved := l_chr_rec.date_approved;
6301: END IF;
6302: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6303: THEN
6304: x_chr_rec.datetime_cancelled := l_chr_rec.datetime_cancelled;
6305: END IF;
6306: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6302: IF (x_chr_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
6303: THEN
6304: x_chr_rec.datetime_cancelled := l_chr_rec.datetime_cancelled;
6305: END IF;
6306: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6307: THEN
6308: x_chr_rec.auto_renew_days := l_chr_rec.auto_renew_days;
6309: END IF;
6310: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6306: IF (x_chr_rec.auto_renew_days = OKC_API.G_MISS_NUM)
6307: THEN
6308: x_chr_rec.auto_renew_days := l_chr_rec.auto_renew_days;
6309: END IF;
6310: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6311: THEN
6312: x_chr_rec.date_issued := l_chr_rec.date_issued;
6313: END IF;
6314: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6310: IF (x_chr_rec.date_issued = OKC_API.G_MISS_DATE)
6311: THEN
6312: x_chr_rec.date_issued := l_chr_rec.date_issued;
6313: END IF;
6314: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6315: THEN
6316: x_chr_rec.datetime_responded := l_chr_rec.datetime_responded;
6317: END IF;
6318: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6314: IF (x_chr_rec.datetime_responded = OKC_API.G_MISS_DATE)
6315: THEN
6316: x_chr_rec.datetime_responded := l_chr_rec.datetime_responded;
6317: END IF;
6318: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6319: THEN
6320: x_chr_rec.rfp_type := l_chr_rec.rfp_type;
6321: END IF;
6322: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6318: IF (x_chr_rec.rfp_type = OKC_API.G_MISS_CHAR)
6319: THEN
6320: x_chr_rec.rfp_type := l_chr_rec.rfp_type;
6321: END IF;
6322: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6323: THEN
6324: x_chr_rec.keep_on_mail_list := l_chr_rec.keep_on_mail_list;
6325: END IF;
6326: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6322: IF (x_chr_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
6323: THEN
6324: x_chr_rec.keep_on_mail_list := l_chr_rec.keep_on_mail_list;
6325: END IF;
6326: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6327: THEN
6328: x_chr_rec.set_aside_percent := l_chr_rec.set_aside_percent;
6329: END IF;
6330: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6326: IF (x_chr_rec.set_aside_percent = OKC_API.G_MISS_NUM)
6327: THEN
6328: x_chr_rec.set_aside_percent := l_chr_rec.set_aside_percent;
6329: END IF;
6330: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6331: THEN
6332: x_chr_rec.response_copies_req := l_chr_rec.response_copies_req;
6333: END IF;
6334: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6330: IF (x_chr_rec.response_copies_req = OKC_API.G_MISS_NUM)
6331: THEN
6332: x_chr_rec.response_copies_req := l_chr_rec.response_copies_req;
6333: END IF;
6334: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6335: THEN
6336: x_chr_rec.date_close_projected := l_chr_rec.date_close_projected;
6337: END IF;
6338: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6334: IF (x_chr_rec.date_close_projected = OKC_API.G_MISS_DATE)
6335: THEN
6336: x_chr_rec.date_close_projected := l_chr_rec.date_close_projected;
6337: END IF;
6338: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6339: THEN
6340: x_chr_rec.datetime_proposed := l_chr_rec.datetime_proposed;
6341: END IF;
6342: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6338: IF (x_chr_rec.datetime_proposed = OKC_API.G_MISS_DATE)
6339: THEN
6340: x_chr_rec.datetime_proposed := l_chr_rec.datetime_proposed;
6341: END IF;
6342: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6343: THEN
6344: x_chr_rec.date_signed := l_chr_rec.date_signed;
6345: END IF;
6346: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6342: IF (x_chr_rec.date_signed = OKC_API.G_MISS_DATE)
6343: THEN
6344: x_chr_rec.date_signed := l_chr_rec.date_signed;
6345: END IF;
6346: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6347: THEN
6348: x_chr_rec.date_terminated := l_chr_rec.date_terminated;
6349: END IF;
6350: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6346: IF (x_chr_rec.date_terminated = OKC_API.G_MISS_DATE)
6347: THEN
6348: x_chr_rec.date_terminated := l_chr_rec.date_terminated;
6349: END IF;
6350: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6351: THEN
6352: x_chr_rec.date_renewed := l_chr_rec.date_renewed;
6353: END IF;
6354: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6350: IF (x_chr_rec.date_renewed = OKC_API.G_MISS_DATE)
6351: THEN
6352: x_chr_rec.date_renewed := l_chr_rec.date_renewed;
6353: END IF;
6354: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6355: THEN
6356: x_chr_rec.start_date := l_chr_rec.start_date;
6357: END IF;
6358: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6354: IF (x_chr_rec.start_date = OKC_API.G_MISS_DATE)
6355: THEN
6356: x_chr_rec.start_date := l_chr_rec.start_date;
6357: END IF;
6358: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6359: THEN
6360: x_chr_rec.end_date := l_chr_rec.end_date;
6361: END IF;
6362: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6358: IF (x_chr_rec.end_date = OKC_API.G_MISS_DATE)
6359: THEN
6360: x_chr_rec.end_date := l_chr_rec.end_date;
6361: END IF;
6362: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6363: THEN
6364: x_chr_rec.buy_or_sell := l_chr_rec.buy_or_sell;
6365: END IF;
6366: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6362: IF (x_chr_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
6363: THEN
6364: x_chr_rec.buy_or_sell := l_chr_rec.buy_or_sell;
6365: END IF;
6366: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6367: THEN
6368: x_chr_rec.issue_or_receive := l_chr_rec.issue_or_receive;
6369: END IF;
6370: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6366: IF (x_chr_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
6367: THEN
6368: x_chr_rec.issue_or_receive := l_chr_rec.issue_or_receive;
6369: END IF;
6370: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6371: THEN
6372: x_chr_rec.estimated_amount := l_chr_rec.estimated_amount;
6373: END IF;
6374: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6370: IF (x_chr_rec.estimated_amount = OKC_API.G_MISS_NUM)
6371: THEN
6372: x_chr_rec.estimated_amount := l_chr_rec.estimated_amount;
6373: END IF;
6374: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6375: THEN
6376: x_chr_rec.estimated_amount_renewed := l_chr_rec.estimated_amount_renewed;
6377: END IF;
6378: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6374: IF (x_chr_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
6375: THEN
6376: x_chr_rec.estimated_amount_renewed := l_chr_rec.estimated_amount_renewed;
6377: END IF;
6378: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6379: THEN
6380: x_chr_rec.currency_code_renewed := l_chr_rec.currency_code_renewed;
6381: END IF;
6382: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6378: IF (x_chr_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
6379: THEN
6380: x_chr_rec.currency_code_renewed := l_chr_rec.currency_code_renewed;
6381: END IF;
6382: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6383: THEN
6384: x_chr_rec.last_update_login := l_chr_rec.last_update_login;
6385: END IF;
6386: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6382: IF (x_chr_rec.last_update_login = OKC_API.G_MISS_NUM)
6383: THEN
6384: x_chr_rec.last_update_login := l_chr_rec.last_update_login;
6385: END IF;
6386: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6387: THEN
6388: x_chr_rec.upg_orig_system_ref := l_chr_rec.upg_orig_system_ref;
6389: END IF;
6390: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6386: IF (x_chr_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
6387: THEN
6388: x_chr_rec.upg_orig_system_ref := l_chr_rec.upg_orig_system_ref;
6389: END IF;
6390: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6391: THEN
6392: x_chr_rec.upg_orig_system_ref_id := l_chr_rec.upg_orig_system_ref_id;
6393: END IF;
6394: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6390: IF (x_chr_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
6391: THEN
6392: x_chr_rec.upg_orig_system_ref_id := l_chr_rec.upg_orig_system_ref_id;
6393: END IF;
6394: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6395: THEN
6396: x_chr_rec.application_id := l_chr_rec.application_id;
6397: END IF;
6398: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6394: IF (x_chr_rec.application_id = OKC_API.G_MISS_NUM)
6395: THEN
6396: x_chr_rec.application_id := l_chr_rec.application_id;
6397: END IF;
6398: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6399: THEN
6400: x_chr_rec.orig_system_source_code := l_chr_rec.orig_system_source_code ;
6401: END IF;
6402: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6398: IF (x_chr_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
6399: THEN
6400: x_chr_rec.orig_system_source_code := l_chr_rec.orig_system_source_code ;
6401: END IF;
6402: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6403: THEN
6404: x_chr_rec.orig_system_id1 := l_chr_rec.orig_system_id1 ;
6405: END IF ;
6406: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6402: IF (x_chr_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
6403: THEN
6404: x_chr_rec.orig_system_id1 := l_chr_rec.orig_system_id1 ;
6405: END IF ;
6406: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6407: THEN
6408: x_chr_rec.orig_system_reference1 := l_chr_rec.orig_system_reference1 ;
6409: END IF;
6410: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6406: IF (x_chr_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
6407: THEN
6408: x_chr_rec.orig_system_reference1 := l_chr_rec.orig_system_reference1 ;
6409: END IF;
6410: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6411: THEN
6412: x_chr_rec.program_id := l_chr_rec.program_id;
6413: END IF;
6414: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6410: IF (x_chr_rec.program_id = OKC_API.G_MISS_NUM)
6411: THEN
6412: x_chr_rec.program_id := l_chr_rec.program_id;
6413: END IF;
6414: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6415: THEN
6416: x_chr_rec.request_id := l_chr_rec.request_id;
6417: END IF;
6418: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6414: IF (x_chr_rec.request_id = OKC_API.G_MISS_NUM)
6415: THEN
6416: x_chr_rec.request_id := l_chr_rec.request_id;
6417: END IF;
6418: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6419: THEN
6420: x_chr_rec.program_update_date := l_chr_rec.program_update_date;
6421: END IF;
6422: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6418: IF (x_chr_rec.program_update_date = OKC_API.G_MISS_DATE)
6419: THEN
6420: x_chr_rec.program_update_date := l_chr_rec.program_update_date;
6421: END IF;
6422: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6423: THEN
6424: x_chr_rec.program_application_id := l_chr_rec.program_application_id;
6425: END IF;
6426: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6422: IF (x_chr_rec.program_application_id = OKC_API.G_MISS_NUM)
6423: THEN
6424: x_chr_rec.program_application_id := l_chr_rec.program_application_id;
6425: END IF;
6426: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6427: THEN
6428: x_chr_rec.price_list_id := l_chr_rec.price_list_id;
6429: END IF;
6430: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6426: IF (x_chr_rec.price_list_id = OKC_API.G_MISS_NUM)
6427: THEN
6428: x_chr_rec.price_list_id := l_chr_rec.price_list_id;
6429: END IF;
6430: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6431: THEN
6432: x_chr_rec.pricing_date := l_chr_rec.pricing_date ;
6433: END IF;
6434: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6430: IF (x_chr_rec.pricing_date = OKC_API.G_MISS_DATE)
6431: THEN
6432: x_chr_rec.pricing_date := l_chr_rec.pricing_date ;
6433: END IF;
6434: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6435: THEN
6436: x_chr_rec.sign_by_date := l_chr_rec.sign_by_date;
6437: END IF;
6438: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6434: IF (x_chr_rec.sign_by_date = OKC_API.G_MISS_DATE)
6435: THEN
6436: x_chr_rec.sign_by_date := l_chr_rec.sign_by_date;
6437: END IF;
6438: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6439: THEN
6440: x_chr_rec.total_line_list_price := l_chr_rec.total_line_list_price;
6441: END IF;
6442: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6438: IF (x_chr_rec.total_line_list_price = OKC_API.G_MISS_NUM)
6439: THEN
6440: x_chr_rec.total_line_list_price := l_chr_rec.total_line_list_price;
6441: END IF;
6442: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6443: x_chr_rec.user_estimated_amount := l_chr_rec.user_estimated_amount;
6444: END IF;
6445:
6446: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6442: IF (x_chr_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
6443: x_chr_rec.user_estimated_amount := l_chr_rec.user_estimated_amount;
6444: END IF;
6445:
6446: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6447: x_chr_rec.governing_contract_yn := l_chr_rec.governing_contract_yn;
6448: END IF;
6449: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6450: THEN
6445:
6446: IF (x_chr_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
6447: x_chr_rec.governing_contract_yn := l_chr_rec.governing_contract_yn;
6448: END IF;
6449: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6450: THEN
6451: x_chr_rec.attribute_category := l_chr_rec.attribute_category;
6452: END IF;
6453: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6449: IF (x_chr_rec.attribute_category = OKC_API.G_MISS_CHAR)
6450: THEN
6451: x_chr_rec.attribute_category := l_chr_rec.attribute_category;
6452: END IF;
6453: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6454: THEN
6455: x_chr_rec.attribute1 := l_chr_rec.attribute1;
6456: END IF;
6457: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6453: IF (x_chr_rec.attribute1 = OKC_API.G_MISS_CHAR)
6454: THEN
6455: x_chr_rec.attribute1 := l_chr_rec.attribute1;
6456: END IF;
6457: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6458: THEN
6459: x_chr_rec.attribute2 := l_chr_rec.attribute2;
6460: END IF;
6461: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6457: IF (x_chr_rec.attribute2 = OKC_API.G_MISS_CHAR)
6458: THEN
6459: x_chr_rec.attribute2 := l_chr_rec.attribute2;
6460: END IF;
6461: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6462: THEN
6463: x_chr_rec.attribute3 := l_chr_rec.attribute3;
6464: END IF;
6465: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6461: IF (x_chr_rec.attribute3 = OKC_API.G_MISS_CHAR)
6462: THEN
6463: x_chr_rec.attribute3 := l_chr_rec.attribute3;
6464: END IF;
6465: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6466: THEN
6467: x_chr_rec.attribute4 := l_chr_rec.attribute4;
6468: END IF;
6469: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6465: IF (x_chr_rec.attribute4 = OKC_API.G_MISS_CHAR)
6466: THEN
6467: x_chr_rec.attribute4 := l_chr_rec.attribute4;
6468: END IF;
6469: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6470: THEN
6471: x_chr_rec.attribute5 := l_chr_rec.attribute5;
6472: END IF;
6473: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6469: IF (x_chr_rec.attribute5 = OKC_API.G_MISS_CHAR)
6470: THEN
6471: x_chr_rec.attribute5 := l_chr_rec.attribute5;
6472: END IF;
6473: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6474: THEN
6475: x_chr_rec.attribute6 := l_chr_rec.attribute6;
6476: END IF;
6477: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6473: IF (x_chr_rec.attribute6 = OKC_API.G_MISS_CHAR)
6474: THEN
6475: x_chr_rec.attribute6 := l_chr_rec.attribute6;
6476: END IF;
6477: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6478: THEN
6479: x_chr_rec.attribute7 := l_chr_rec.attribute7;
6480: END IF;
6481: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6477: IF (x_chr_rec.attribute7 = OKC_API.G_MISS_CHAR)
6478: THEN
6479: x_chr_rec.attribute7 := l_chr_rec.attribute7;
6480: END IF;
6481: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6482: THEN
6483: x_chr_rec.attribute8 := l_chr_rec.attribute8;
6484: END IF;
6485: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6481: IF (x_chr_rec.attribute8 = OKC_API.G_MISS_CHAR)
6482: THEN
6483: x_chr_rec.attribute8 := l_chr_rec.attribute8;
6484: END IF;
6485: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6486: THEN
6487: x_chr_rec.attribute9 := l_chr_rec.attribute9;
6488: END IF;
6489: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6485: IF (x_chr_rec.attribute9 = OKC_API.G_MISS_CHAR)
6486: THEN
6487: x_chr_rec.attribute9 := l_chr_rec.attribute9;
6488: END IF;
6489: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6490: THEN
6491: x_chr_rec.attribute10 := l_chr_rec.attribute10;
6492: END IF;
6493: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6489: IF (x_chr_rec.attribute10 = OKC_API.G_MISS_CHAR)
6490: THEN
6491: x_chr_rec.attribute10 := l_chr_rec.attribute10;
6492: END IF;
6493: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6494: THEN
6495: x_chr_rec.attribute11 := l_chr_rec.attribute11;
6496: END IF;
6497: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6493: IF (x_chr_rec.attribute11 = OKC_API.G_MISS_CHAR)
6494: THEN
6495: x_chr_rec.attribute11 := l_chr_rec.attribute11;
6496: END IF;
6497: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6498: THEN
6499: x_chr_rec.attribute12 := l_chr_rec.attribute12;
6500: END IF;
6501: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6497: IF (x_chr_rec.attribute12 = OKC_API.G_MISS_CHAR)
6498: THEN
6499: x_chr_rec.attribute12 := l_chr_rec.attribute12;
6500: END IF;
6501: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6502: THEN
6503: x_chr_rec.attribute13 := l_chr_rec.attribute13;
6504: END IF;
6505: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6501: IF (x_chr_rec.attribute13 = OKC_API.G_MISS_CHAR)
6502: THEN
6503: x_chr_rec.attribute13 := l_chr_rec.attribute13;
6504: END IF;
6505: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6506: THEN
6507: x_chr_rec.attribute14 := l_chr_rec.attribute14;
6508: END IF;
6509: IF (x_chr_rec.attribute15 = OKC_API.G_MISS_CHAR)
6505: IF (x_chr_rec.attribute14 = OKC_API.G_MISS_CHAR)
6506: THEN
6507: x_chr_rec.attribute14 := l_chr_rec.attribute14;
6508: END IF;
6509: IF (x_chr_rec.attribute15 = OKC_API.G_MISS_CHAR)
6510: THEN
6511: x_chr_rec.attribute15 := l_chr_rec.attribute15;
6512: END IF;
6513: -- new columns to replace rules
6510: THEN
6511: x_chr_rec.attribute15 := l_chr_rec.attribute15;
6512: END IF;
6513: -- new columns to replace rules
6514: IF (x_chr_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
6515: x_chr_rec.conversion_type := l_chr_rec.conversion_type;
6516: END IF;
6517: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6518: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6513: -- new columns to replace rules
6514: IF (x_chr_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
6515: x_chr_rec.conversion_type := l_chr_rec.conversion_type;
6516: END IF;
6517: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6518: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6519: END IF;
6520: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6521: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6516: END IF;
6517: IF (x_chr_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
6518: x_chr_rec.conversion_rate := l_chr_rec.conversion_rate;
6519: END IF;
6520: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6521: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6522: END IF;
6523: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6524: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6519: END IF;
6520: IF (x_chr_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
6521: x_chr_rec.conversion_rate_date := l_chr_rec.conversion_rate_date;
6522: END IF;
6523: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6524: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6525: END IF;
6526: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6527: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6522: END IF;
6523: IF (x_chr_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
6524: x_chr_rec.conversion_euro_rate := l_chr_rec.conversion_euro_rate;
6525: END IF;
6526: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6527: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6528: END IF;
6529: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6530: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6525: END IF;
6526: IF (x_chr_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
6527: x_chr_rec.cust_acct_id := l_chr_rec.cust_acct_id;
6528: END IF;
6529: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6530: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6531: END IF;
6532: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6533: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6528: END IF;
6529: IF (x_chr_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6530: x_chr_rec.bill_to_site_use_id := l_chr_rec.bill_to_site_use_id;
6531: END IF;
6532: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6533: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6534: END IF;
6535: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6536: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6531: END IF;
6532: IF (x_chr_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
6533: x_chr_rec.inv_rule_id := l_chr_rec.inv_rule_id;
6534: END IF;
6535: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6536: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6537: END IF;
6538: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6539: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6534: END IF;
6535: IF (x_chr_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
6536: x_chr_rec.renewal_type_code := l_chr_rec.renewal_type_code;
6537: END IF;
6538: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6539: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6540: END IF;
6541: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6542: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6537: END IF;
6538: IF (x_chr_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
6539: x_chr_rec.renewal_notify_to := l_chr_rec.renewal_notify_to;
6540: END IF;
6541: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6542: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6543: END IF;
6544: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6545: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6540: END IF;
6541: IF (x_chr_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
6542: x_chr_rec.renewal_end_date := l_chr_rec.renewal_end_date;
6543: END IF;
6544: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6545: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6546: END IF;
6547: IF (x_chr_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6548: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6543: END IF;
6544: IF (x_chr_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
6545: x_chr_rec.ship_to_site_use_id := l_chr_rec.ship_to_site_use_id;
6546: END IF;
6547: IF (x_chr_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
6548: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6549: END IF;
6550:
6551: -- R12 Data Model Changes 4485150 Start
6548: x_chr_rec.payment_term_id := l_chr_rec.payment_term_id;
6549: END IF;
6550:
6551: -- R12 Data Model Changes 4485150 Start
6552: IF (x_chr_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
6553: x_chr_rec.approval_type := l_chr_rec.approval_type;
6554: END IF;
6555: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6556: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6551: -- R12 Data Model Changes 4485150 Start
6552: IF (x_chr_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
6553: x_chr_rec.approval_type := l_chr_rec.approval_type;
6554: END IF;
6555: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6556: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6557: END IF;
6558: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6559: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6554: END IF;
6555: IF (x_chr_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
6556: x_chr_rec.term_cancel_source := l_chr_rec.term_cancel_source;
6557: END IF;
6558: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6559: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6560: END IF;
6561: -- LLC
6562: IF (x_chr_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6558: IF (x_chr_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
6559: x_chr_rec.payment_instruction_type := l_chr_rec.payment_instruction_type;
6560: END IF;
6561: -- LLC
6562: IF (x_chr_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
6563: x_chr_rec.cancelled_amount := l_chr_rec.cancelled_amount;
6564: END IF;
6565: -- R12 Data Model Changes 4485150 End
6566: RETURN(l_return_status);
6572: FUNCTION Set_Attributes (
6573: p_chr_rec IN chr_rec_type,
6574: x_chr_rec OUT NOCOPY chr_rec_type
6575: ) RETURN VARCHAR2 IS
6576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6577: BEGIN
6578:
6579: IF (l_debug = 'Y') THEN
6580: okc_debug.Set_Indentation('OKC_CHR_PVT');
6591: okc_debug.Set_Indentation('OKC_CHR_PVT');
6592: okc_debug.LOG('18800: Entered update_row', 2);
6593: END IF;
6594:
6595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6596: p_init_msg_list,
6597: '_PVT',
6598: x_return_status);
6599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6596: p_init_msg_list,
6597: '_PVT',
6598: x_return_status);
6599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6602: RAISE OKC_API.G_EXCEPTION_ERROR;
6603: END IF;
6596: p_init_msg_list,
6597: '_PVT',
6598: x_return_status);
6599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6602: RAISE OKC_API.G_EXCEPTION_ERROR;
6603: END IF;
6604: --- Setting item attributes
6597: '_PVT',
6598: x_return_status);
6599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6602: RAISE OKC_API.G_EXCEPTION_ERROR;
6603: END IF;
6604: --- Setting item attributes
6605: l_return_status := Set_Attributes(
6598: x_return_status);
6599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6602: RAISE OKC_API.G_EXCEPTION_ERROR;
6603: END IF;
6604: --- Setting item attributes
6605: l_return_status := Set_Attributes(
6606: p_chr_rec, -- IN
6605: l_return_status := Set_Attributes(
6606: p_chr_rec, -- IN
6607: l_chr_rec); -- OUT
6608: --- If any errors happen abort API
6609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6612: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6606: p_chr_rec, -- IN
6607: l_chr_rec); -- OUT
6608: --- If any errors happen abort API
6609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6612: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6607: l_chr_rec); -- OUT
6608: --- If any errors happen abort API
6609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6612: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6608: --- If any errors happen abort API
6609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6612: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
6615: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6612: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
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: RAISE OKC_API.G_EXCEPTION_ERROR;
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
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:
6613: END IF;
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
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:
6621: UPDATE OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
6614: l_return_status := populate_new_record(l_chr_rec, l_def_chr_rec);
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:
6621: UPDATE OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
6622: SET CONTRACT_NUMBER = l_def_chr_rec.contract_number,
6719: -- R12 Data Model Changes 4485150 End
6720: WHERE ID = l_def_chr_rec.id;
6721:
6722: x_chr_rec := l_def_chr_rec;
6723: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6724: IF (l_debug = 'Y') THEN
6725: okc_debug.LOG('18900: Exiting update_row', 2);
6726: okc_debug.Reset_Indentation;
6727: END IF;
6727: END IF;
6728:
6729:
6730: EXCEPTION
6731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6732:
6733: IF (l_debug = 'Y') THEN
6734: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6735: okc_debug.Reset_Indentation;
6730: EXCEPTION
6731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6732:
6733: IF (l_debug = 'Y') THEN
6734: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6735: okc_debug.Reset_Indentation;
6736: END IF;
6737:
6738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6734: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6735: okc_debug.Reset_Indentation;
6736: END IF;
6737:
6738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6739: (
6740: l_api_name,
6741: G_PKG_NAME,
6742: 'OKC_API.G_RET_STS_ERROR',
6738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6739: (
6740: l_api_name,
6741: G_PKG_NAME,
6742: 'OKC_API.G_RET_STS_ERROR',
6743: x_msg_count,
6744: x_msg_data,
6745: '_PVT'
6746: );
6743: x_msg_count,
6744: x_msg_data,
6745: '_PVT'
6746: );
6747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6746: );
6747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6750: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6755: (
6756: l_api_name,
6757: G_PKG_NAME,
6758: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6759: x_msg_count,
6760: x_msg_data,
6761: '_PVT'
6762: );
6766: okc_debug.LOG('19200: Exiting update_row:OTHERS 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: 'OTHERS',
6790: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
6791:
6792: l_api_version CONSTANT NUMBER := 1;
6793: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6795: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
6796: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6797: l_row_notfound BOOLEAN := TRUE;
6798: ----------------------------------
6803: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6804: ) RETURN VARCHAR2 IS
6805: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6806: l_row_notfound BOOLEAN := TRUE;
6807: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6808: BEGIN
6809:
6810: IF (l_debug = 'Y') THEN
6811: okc_debug.Set_Indentation('OKC_CHR_PVT');
6815: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6816: -- Get current database values
6817: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6818: IF (l_row_notfound) THEN
6819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6820: END IF;
6821: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6822: THEN
6823: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6817: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6818: IF (l_row_notfound) THEN
6819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6820: END IF;
6821: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6822: THEN
6823: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6824: END IF;
6825: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6821: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6822: THEN
6823: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6824: END IF;
6825: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6826: THEN
6827: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6828: END IF;
6829: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6825: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6826: THEN
6827: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6828: END IF;
6829: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6830: THEN
6831: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6832: END IF;
6833: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6829: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6830: THEN
6831: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6832: END IF;
6833: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6834: THEN
6835: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6833: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6834: THEN
6835: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6838: THEN
6839: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6837: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6838: THEN
6839: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6841: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6845: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6849: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6853: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6857: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6861: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6866: THEN
6867: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6865: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6866: THEN
6867: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6870: THEN
6871: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6869: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6870: THEN
6871: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6874: THEN
6875: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6873: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6874: THEN
6875: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6878: THEN
6879: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6877: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6878: THEN
6879: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.last_update_login := l_okc_k_headers_tl_rec.last_update_login;
6884: END IF;
6885: RETURN(l_return_status);
6891: FUNCTION Set_Attributes (
6892: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6893: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6894: ) RETURN VARCHAR2 IS
6895: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6896: BEGIN
6897:
6898: IF (l_debug = 'Y') THEN
6899: okc_debug.Set_Indentation('OKC_CHR_PVT');
6912: okc_debug.Set_Indentation('OKC_CHR_PVT');
6913: okc_debug.LOG('19500: Entered update_row', 2);
6914: END IF;
6915:
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6917: p_init_msg_list,
6918: '_PVT',
6919: x_return_status);
6920: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6917: p_init_msg_list,
6918: '_PVT',
6919: x_return_status);
6920: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6921: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6922: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6923: RAISE OKC_API.G_EXCEPTION_ERROR;
6924: END IF;
6917: p_init_msg_list,
6918: '_PVT',
6919: x_return_status);
6920: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6921: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6922: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6923: RAISE OKC_API.G_EXCEPTION_ERROR;
6924: END IF;
6925: --- Setting item attributes
6918: '_PVT',
6919: x_return_status);
6920: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6921: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6922: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6923: RAISE OKC_API.G_EXCEPTION_ERROR;
6924: END IF;
6925: --- Setting item attributes
6926: l_return_status := Set_Attributes(
6919: x_return_status);
6920: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6921: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6922: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6923: RAISE OKC_API.G_EXCEPTION_ERROR;
6924: END IF;
6925: --- Setting item attributes
6926: l_return_status := Set_Attributes(
6927: p_okc_k_headers_tl_rec, -- IN
6926: l_return_status := Set_Attributes(
6927: p_okc_k_headers_tl_rec, -- IN
6928: l_okc_k_headers_tl_rec); -- OUT
6929: --- If any errors happen abort API
6930: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6932: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6933: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6927: p_okc_k_headers_tl_rec, -- IN
6928: l_okc_k_headers_tl_rec); -- OUT
6929: --- If any errors happen abort API
6930: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6932: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6933: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6928: l_okc_k_headers_tl_rec); -- OUT
6929: --- If any errors happen abort API
6930: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6932: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6933: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6929: --- If any errors happen abort API
6930: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6932: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6933: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6936: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6937: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6932: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6933: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
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: RAISE OKC_API.G_EXCEPTION_ERROR;
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
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: UPDATE OKC_K_HEADERS_TL
6934: END IF;
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
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: UPDATE OKC_K_HEADERS_TL
6942: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6935: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
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: UPDATE OKC_K_HEADERS_TL
6942: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6943: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: WHERE ID = l_def_okc_k_headers_tl_rec.id
6961: AND SOURCE_LANG <> USERENV('LANG');
6962:
6963: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6964: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6965: IF (l_debug = 'Y') THEN
6966: okc_debug.LOG('19600: Exiting update_row', 2);
6967: okc_debug.Reset_Indentation;
6968: END IF;
6968: END IF;
6969:
6970:
6971: EXCEPTION
6972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6973:
6974: IF (l_debug = 'Y') THEN
6975: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6976: okc_debug.Reset_Indentation;
6971: EXCEPTION
6972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6973:
6974: IF (l_debug = 'Y') THEN
6975: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6976: okc_debug.Reset_Indentation;
6977: END IF;
6978:
6979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6975: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6976: okc_debug.Reset_Indentation;
6977: END IF;
6978:
6979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6980: (
6981: l_api_name,
6982: G_PKG_NAME,
6983: 'OKC_API.G_RET_STS_ERROR',
6979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6980: (
6981: l_api_name,
6982: G_PKG_NAME,
6983: 'OKC_API.G_RET_STS_ERROR',
6984: x_msg_count,
6985: x_msg_data,
6986: '_PVT'
6987: );
6984: x_msg_count,
6985: x_msg_data,
6986: '_PVT'
6987: );
6988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6987: );
6988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6991: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6996: (
6997: l_api_name,
6998: G_PKG_NAME,
6999: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7000: x_msg_count,
7001: x_msg_data,
7002: '_PVT'
7003: );
7007: okc_debug.LOG('19900: Exiting update_row:OTHERS 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: 'OTHERS',
7033: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
7034:
7035: l_api_version CONSTANT NUMBER := 1;
7036: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
7037: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7038: l_chrv_rec chrv_rec_type := p_chrv_rec;
7039: l_def_chrv_rec chrv_rec_type;
7040: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7041: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7069: x_chrv_rec OUT NOCOPY chrv_rec_type
7070: ) RETURN VARCHAR2 IS
7071: l_chrv_rec chrv_rec_type;
7072: l_row_notfound BOOLEAN := TRUE;
7073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7074: BEGIN
7075:
7076: IF (l_debug = 'Y') THEN
7077: okc_debug.Set_Indentation('OKC_CHR_PVT');
7081: x_chrv_rec := p_chrv_rec;
7082: -- Get current database values
7083: l_chrv_rec := get_rec(p_chrv_rec, l_row_notfound);
7084: IF (l_row_notfound) THEN
7085: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7086: END IF;
7087: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7088: THEN
7089: x_chrv_rec.id := l_chrv_rec.id;
7083: l_chrv_rec := get_rec(p_chrv_rec, l_row_notfound);
7084: IF (l_row_notfound) THEN
7085: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7086: END IF;
7087: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7088: THEN
7089: x_chrv_rec.id := l_chrv_rec.id;
7090: END IF;
7091: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7087: IF (x_chrv_rec.id = OKC_API.G_MISS_NUM)
7088: THEN
7089: x_chrv_rec.id := l_chrv_rec.id;
7090: END IF;
7091: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7092: THEN
7093: x_chrv_rec.object_version_number := l_chrv_rec.object_version_number;
7094: END IF;
7095: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7091: IF (x_chrv_rec.object_version_number = OKC_API.G_MISS_NUM)
7092: THEN
7093: x_chrv_rec.object_version_number := l_chrv_rec.object_version_number;
7094: END IF;
7095: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7096: THEN
7097: x_chrv_rec.sfwt_flag := l_chrv_rec.sfwt_flag;
7098: END IF;
7099: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7095: IF (x_chrv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
7096: THEN
7097: x_chrv_rec.sfwt_flag := l_chrv_rec.sfwt_flag;
7098: END IF;
7099: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7100: THEN
7101: x_chrv_rec.chr_id_response := l_chrv_rec.chr_id_response;
7102: END IF;
7103: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7099: IF (x_chrv_rec.chr_id_response = OKC_API.G_MISS_NUM)
7100: THEN
7101: x_chrv_rec.chr_id_response := l_chrv_rec.chr_id_response;
7102: END IF;
7103: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7104: THEN
7105: x_chrv_rec.chr_id_award := l_chrv_rec.chr_id_award;
7106: END IF;
7107: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7103: IF (x_chrv_rec.chr_id_award = OKC_API.G_MISS_NUM)
7104: THEN
7105: x_chrv_rec.chr_id_award := l_chrv_rec.chr_id_award;
7106: END IF;
7107: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7108: THEN
7109: x_chrv_rec.INV_ORGANIZATION_ID := l_chrv_rec.INV_ORGANIZATION_ID;
7110: END IF;
7111: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7107: IF (x_chrv_rec.INV_ORGANIZATION_ID = OKC_API.G_MISS_NUM)
7108: THEN
7109: x_chrv_rec.INV_ORGANIZATION_ID := l_chrv_rec.INV_ORGANIZATION_ID;
7110: END IF;
7111: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7112: THEN
7113: x_chrv_rec.sts_code := l_chrv_rec.sts_code;
7114: END IF;
7115: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7111: IF (x_chrv_rec.sts_code = OKC_API.G_MISS_CHAR)
7112: THEN
7113: x_chrv_rec.sts_code := l_chrv_rec.sts_code;
7114: END IF;
7115: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7116: THEN
7117: x_chrv_rec.qcl_id := l_chrv_rec.qcl_id;
7118: END IF;
7119: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7115: IF (x_chrv_rec.qcl_id = OKC_API.G_MISS_NUM)
7116: THEN
7117: x_chrv_rec.qcl_id := l_chrv_rec.qcl_id;
7118: END IF;
7119: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7120: THEN
7121: x_chrv_rec.scs_code := l_chrv_rec.scs_code;
7122: END IF;
7123: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7119: IF (x_chrv_rec.scs_code = OKC_API.G_MISS_CHAR)
7120: THEN
7121: x_chrv_rec.scs_code := l_chrv_rec.scs_code;
7122: END IF;
7123: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7124: THEN
7125: x_chrv_rec.contract_number := l_chrv_rec.contract_number;
7126: END IF;
7127: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7123: IF (x_chrv_rec.contract_number = OKC_API.G_MISS_CHAR)
7124: THEN
7125: x_chrv_rec.contract_number := l_chrv_rec.contract_number;
7126: END IF;
7127: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7128: THEN
7129: x_chrv_rec.currency_code := l_chrv_rec.currency_code;
7130: END IF;
7131: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7127: IF (x_chrv_rec.currency_code = OKC_API.G_MISS_CHAR)
7128: THEN
7129: x_chrv_rec.currency_code := l_chrv_rec.currency_code;
7130: END IF;
7131: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7132: THEN
7133: x_chrv_rec.contract_number_modifier := l_chrv_rec.contract_number_modifier;
7134: END IF;
7135: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7131: IF (x_chrv_rec.contract_number_modifier = OKC_API.G_MISS_CHAR)
7132: THEN
7133: x_chrv_rec.contract_number_modifier := l_chrv_rec.contract_number_modifier;
7134: END IF;
7135: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7136: THEN
7137: x_chrv_rec.archived_yn := l_chrv_rec.archived_yn;
7138: END IF;
7139: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7135: IF (x_chrv_rec.archived_yn = OKC_API.G_MISS_CHAR)
7136: THEN
7137: x_chrv_rec.archived_yn := l_chrv_rec.archived_yn;
7138: END IF;
7139: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7140: THEN
7141: x_chrv_rec.deleted_yn := l_chrv_rec.deleted_yn;
7142: END IF;
7143: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7139: IF (x_chrv_rec.deleted_yn = OKC_API.G_MISS_CHAR)
7140: THEN
7141: x_chrv_rec.deleted_yn := l_chrv_rec.deleted_yn;
7142: END IF;
7143: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7144: THEN
7145: x_chrv_rec.cust_po_number_req_yn := l_chrv_rec.cust_po_number_req_yn;
7146: END IF;
7147: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7143: IF (x_chrv_rec.cust_po_number_req_yn = OKC_API.G_MISS_CHAR)
7144: THEN
7145: x_chrv_rec.cust_po_number_req_yn := l_chrv_rec.cust_po_number_req_yn;
7146: END IF;
7147: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7148: THEN
7149: x_chrv_rec.pre_pay_req_yn := l_chrv_rec.pre_pay_req_yn;
7150: END IF;
7151: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7147: IF (x_chrv_rec.pre_pay_req_yn = OKC_API.G_MISS_CHAR)
7148: THEN
7149: x_chrv_rec.pre_pay_req_yn := l_chrv_rec.pre_pay_req_yn;
7150: END IF;
7151: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7152: THEN
7153: x_chrv_rec.cust_po_number := l_chrv_rec.cust_po_number;
7154: END IF;
7155: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7151: IF (x_chrv_rec.cust_po_number = OKC_API.G_MISS_CHAR)
7152: THEN
7153: x_chrv_rec.cust_po_number := l_chrv_rec.cust_po_number;
7154: END IF;
7155: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7156: THEN
7157: x_chrv_rec.short_description := l_chrv_rec.short_description;
7158: END IF;
7159: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7155: IF (x_chrv_rec.short_description = OKC_API.G_MISS_CHAR)
7156: THEN
7157: x_chrv_rec.short_description := l_chrv_rec.short_description;
7158: END IF;
7159: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7160: THEN
7161: x_chrv_rec.comments := l_chrv_rec.comments;
7162: END IF;
7163: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7159: IF (x_chrv_rec.comments = OKC_API.G_MISS_CHAR)
7160: THEN
7161: x_chrv_rec.comments := l_chrv_rec.comments;
7162: END IF;
7163: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7164: THEN
7165: x_chrv_rec.description := l_chrv_rec.description;
7166: END IF;
7167: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7163: IF (x_chrv_rec.description = OKC_API.G_MISS_CHAR)
7164: THEN
7165: x_chrv_rec.description := l_chrv_rec.description;
7166: END IF;
7167: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7168: THEN
7169: x_chrv_rec.dpas_rating := l_chrv_rec.dpas_rating;
7170: END IF;
7171: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7167: IF (x_chrv_rec.dpas_rating = OKC_API.G_MISS_CHAR)
7168: THEN
7169: x_chrv_rec.dpas_rating := l_chrv_rec.dpas_rating;
7170: END IF;
7171: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_chrv_rec.cognomen := l_chrv_rec.cognomen;
7174: END IF;
7175: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7171: IF (x_chrv_rec.cognomen = OKC_API.G_MISS_CHAR)
7172: THEN
7173: x_chrv_rec.cognomen := l_chrv_rec.cognomen;
7174: END IF;
7175: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7176: THEN
7177: x_chrv_rec.template_yn := l_chrv_rec.template_yn;
7178: END IF;
7179: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7175: IF (x_chrv_rec.template_yn = OKC_API.G_MISS_CHAR)
7176: THEN
7177: x_chrv_rec.template_yn := l_chrv_rec.template_yn;
7178: END IF;
7179: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7180: THEN
7181: x_chrv_rec.template_used := l_chrv_rec.template_used;
7182: END IF;
7183: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7179: IF (x_chrv_rec.template_used = OKC_API.G_MISS_CHAR)
7180: THEN
7181: x_chrv_rec.template_used := l_chrv_rec.template_used;
7182: END IF;
7183: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7184: THEN
7185: x_chrv_rec.date_approved := l_chrv_rec.date_approved;
7186: END IF;
7187: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7183: IF (x_chrv_rec.date_approved = OKC_API.G_MISS_DATE)
7184: THEN
7185: x_chrv_rec.date_approved := l_chrv_rec.date_approved;
7186: END IF;
7187: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7188: THEN
7189: x_chrv_rec.datetime_cancelled := l_chrv_rec.datetime_cancelled;
7190: END IF;
7191: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7187: IF (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE)
7188: THEN
7189: x_chrv_rec.datetime_cancelled := l_chrv_rec.datetime_cancelled;
7190: END IF;
7191: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7192: THEN
7193: x_chrv_rec.auto_renew_days := l_chrv_rec.auto_renew_days;
7194: END IF;
7195: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7191: IF (x_chrv_rec.auto_renew_days = OKC_API.G_MISS_NUM)
7192: THEN
7193: x_chrv_rec.auto_renew_days := l_chrv_rec.auto_renew_days;
7194: END IF;
7195: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7196: THEN
7197: x_chrv_rec.date_issued := l_chrv_rec.date_issued;
7198: END IF;
7199: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7195: IF (x_chrv_rec.date_issued = OKC_API.G_MISS_DATE)
7196: THEN
7197: x_chrv_rec.date_issued := l_chrv_rec.date_issued;
7198: END IF;
7199: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7200: THEN
7201: x_chrv_rec.datetime_responded := l_chrv_rec.datetime_responded;
7202: END IF;
7203: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7199: IF (x_chrv_rec.datetime_responded = OKC_API.G_MISS_DATE)
7200: THEN
7201: x_chrv_rec.datetime_responded := l_chrv_rec.datetime_responded;
7202: END IF;
7203: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7204: THEN
7205: x_chrv_rec.non_response_reason := l_chrv_rec.non_response_reason;
7206: END IF;
7207: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7203: IF (x_chrv_rec.non_response_reason = OKC_API.G_MISS_CHAR)
7204: THEN
7205: x_chrv_rec.non_response_reason := l_chrv_rec.non_response_reason;
7206: END IF;
7207: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7208: THEN
7209: x_chrv_rec.non_response_explain := l_chrv_rec.non_response_explain;
7210: END IF;
7211: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7207: IF (x_chrv_rec.non_response_explain = OKC_API.G_MISS_CHAR)
7208: THEN
7209: x_chrv_rec.non_response_explain := l_chrv_rec.non_response_explain;
7210: END IF;
7211: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7212: THEN
7213: x_chrv_rec.rfp_type := l_chrv_rec.rfp_type;
7214: END IF;
7215: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7211: IF (x_chrv_rec.rfp_type = OKC_API.G_MISS_CHAR)
7212: THEN
7213: x_chrv_rec.rfp_type := l_chrv_rec.rfp_type;
7214: END IF;
7215: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7216: THEN
7217: x_chrv_rec.chr_type := l_chrv_rec.chr_type;
7218: END IF;
7219: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7215: IF (x_chrv_rec.chr_type = OKC_API.G_MISS_CHAR)
7216: THEN
7217: x_chrv_rec.chr_type := l_chrv_rec.chr_type;
7218: END IF;
7219: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_chrv_rec.keep_on_mail_list := l_chrv_rec.keep_on_mail_list;
7222: END IF;
7223: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7219: IF (x_chrv_rec.keep_on_mail_list = OKC_API.G_MISS_CHAR)
7220: THEN
7221: x_chrv_rec.keep_on_mail_list := l_chrv_rec.keep_on_mail_list;
7222: END IF;
7223: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_chrv_rec.set_aside_reason := l_chrv_rec.set_aside_reason;
7226: END IF;
7227: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7223: IF (x_chrv_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
7224: THEN
7225: x_chrv_rec.set_aside_reason := l_chrv_rec.set_aside_reason;
7226: END IF;
7227: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7228: THEN
7229: x_chrv_rec.set_aside_percent := l_chrv_rec.set_aside_percent;
7230: END IF;
7231: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7227: IF (x_chrv_rec.set_aside_percent = OKC_API.G_MISS_NUM)
7228: THEN
7229: x_chrv_rec.set_aside_percent := l_chrv_rec.set_aside_percent;
7230: END IF;
7231: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7232: THEN
7233: x_chrv_rec.response_copies_req := l_chrv_rec.response_copies_req;
7234: END IF;
7235: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7231: IF (x_chrv_rec.response_copies_req = OKC_API.G_MISS_NUM)
7232: THEN
7233: x_chrv_rec.response_copies_req := l_chrv_rec.response_copies_req;
7234: END IF;
7235: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7236: THEN
7237: x_chrv_rec.date_close_projected := l_chrv_rec.date_close_projected;
7238: END IF;
7239: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7235: IF (x_chrv_rec.date_close_projected = OKC_API.G_MISS_DATE)
7236: THEN
7237: x_chrv_rec.date_close_projected := l_chrv_rec.date_close_projected;
7238: END IF;
7239: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7240: THEN
7241: x_chrv_rec.datetime_proposed := l_chrv_rec.datetime_proposed;
7242: END IF;
7243: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7239: IF (x_chrv_rec.datetime_proposed = OKC_API.G_MISS_DATE)
7240: THEN
7241: x_chrv_rec.datetime_proposed := l_chrv_rec.datetime_proposed;
7242: END IF;
7243: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7244: THEN
7245: x_chrv_rec.date_signed := l_chrv_rec.date_signed;
7246: END IF;
7247: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7243: IF (x_chrv_rec.date_signed = OKC_API.G_MISS_DATE)
7244: THEN
7245: x_chrv_rec.date_signed := l_chrv_rec.date_signed;
7246: END IF;
7247: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7248: THEN
7249: x_chrv_rec.date_terminated := l_chrv_rec.date_terminated;
7250: END IF;
7251: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7247: IF (x_chrv_rec.date_terminated = OKC_API.G_MISS_DATE)
7248: THEN
7249: x_chrv_rec.date_terminated := l_chrv_rec.date_terminated;
7250: END IF;
7251: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7252: THEN
7253: x_chrv_rec.date_renewed := l_chrv_rec.date_renewed;
7254: END IF;
7255: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7251: IF (x_chrv_rec.date_renewed = OKC_API.G_MISS_DATE)
7252: THEN
7253: x_chrv_rec.date_renewed := l_chrv_rec.date_renewed;
7254: END IF;
7255: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7256: THEN
7257: x_chrv_rec.trn_code := l_chrv_rec.trn_code;
7258: END IF;
7259: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7255: IF (x_chrv_rec.trn_code = OKC_API.G_MISS_CHAR)
7256: THEN
7257: x_chrv_rec.trn_code := l_chrv_rec.trn_code;
7258: END IF;
7259: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7260: THEN
7261: x_chrv_rec.start_date := l_chrv_rec.start_date;
7262: END IF;
7263: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7259: IF (x_chrv_rec.start_date = OKC_API.G_MISS_DATE)
7260: THEN
7261: x_chrv_rec.start_date := l_chrv_rec.start_date;
7262: END IF;
7263: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7264: THEN
7265: x_chrv_rec.end_date := l_chrv_rec.end_date;
7266: END IF;
7267: IF (x_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM)
7263: IF (x_chrv_rec.end_date = OKC_API.G_MISS_DATE)
7264: THEN
7265: x_chrv_rec.end_date := l_chrv_rec.end_date;
7266: END IF;
7267: IF (x_chrv_rec.authoring_org_id = OKC_API.G_MISS_NUM)
7268: THEN
7269: x_chrv_rec.authoring_org_id := l_chrv_rec.authoring_org_id;
7270: END IF;
7271: --mmadhavi added for MOAC
7269: x_chrv_rec.authoring_org_id := l_chrv_rec.authoring_org_id;
7270: END IF;
7271: --mmadhavi added for MOAC
7272:
7273: IF (x_chrv_rec.org_id = OKC_API.G_MISS_NUM)
7274: THEN
7275: x_chrv_rec.org_id := l_chrv_rec.org_id;
7276: END IF;
7277:
7275: x_chrv_rec.org_id := l_chrv_rec.org_id;
7276: END IF;
7277:
7278: --mmadhavi end MOAC
7279: IF (x_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
7280: THEN
7281: x_chrv_rec.buy_or_sell := l_chrv_rec.buy_or_sell;
7282: END IF;
7283: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7279: IF (x_chrv_rec.buy_or_sell = OKC_API.G_MISS_CHAR)
7280: THEN
7281: x_chrv_rec.buy_or_sell := l_chrv_rec.buy_or_sell;
7282: END IF;
7283: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7284: THEN
7285: x_chrv_rec.issue_or_receive := l_chrv_rec.issue_or_receive;
7286: END IF;
7287: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7283: IF (x_chrv_rec.issue_or_receive = OKC_API.G_MISS_CHAR)
7284: THEN
7285: x_chrv_rec.issue_or_receive := l_chrv_rec.issue_or_receive;
7286: END IF;
7287: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7288: THEN
7289: x_chrv_rec.estimated_amount := l_chrv_rec.estimated_amount;
7290: END IF;
7291: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7287: IF (x_chrv_rec.estimated_amount = OKC_API.G_MISS_NUM)
7288: THEN
7289: x_chrv_rec.estimated_amount := l_chrv_rec.estimated_amount;
7290: END IF;
7291: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7292: THEN
7293: x_chrv_rec.estimated_amount_renewed := l_chrv_rec.estimated_amount_renewed;
7294: END IF;
7295: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7291: IF (x_chrv_rec.estimated_amount_renewed = OKC_API.G_MISS_NUM)
7292: THEN
7293: x_chrv_rec.estimated_amount_renewed := l_chrv_rec.estimated_amount_renewed;
7294: END IF;
7295: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7296: THEN
7297: x_chrv_rec.currency_code_renewed := l_chrv_rec.currency_code_renewed;
7298: END IF;
7299: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7295: IF (x_chrv_rec.currency_code_renewed = OKC_API.G_MISS_CHAR)
7296: THEN
7297: x_chrv_rec.currency_code_renewed := l_chrv_rec.currency_code_renewed;
7298: END IF;
7299: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7300: THEN
7301: x_chrv_rec.upg_orig_system_ref := l_chrv_rec.upg_orig_system_ref;
7302: END IF;
7303: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7299: IF (x_chrv_rec.upg_orig_system_ref = OKC_API.G_MISS_CHAR)
7300: THEN
7301: x_chrv_rec.upg_orig_system_ref := l_chrv_rec.upg_orig_system_ref;
7302: END IF;
7303: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7304: THEN
7305: x_chrv_rec.upg_orig_system_ref_id := l_chrv_rec.upg_orig_system_ref_id;
7306: END IF;
7307: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7303: IF (x_chrv_rec.upg_orig_system_ref_id = OKC_API.G_MISS_NUM)
7304: THEN
7305: x_chrv_rec.upg_orig_system_ref_id := l_chrv_rec.upg_orig_system_ref_id;
7306: END IF;
7307: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_chrv_rec.application_id := l_chrv_rec.application_id;
7310: END IF;
7311: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7307: IF (x_chrv_rec.application_id = OKC_API.G_MISS_NUM)
7308: THEN
7309: x_chrv_rec.application_id := l_chrv_rec.application_id;
7310: END IF;
7311: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7312: THEN
7313: x_chrv_rec.orig_system_source_code := l_chrv_rec.orig_system_source_code ;
7314: END IF;
7315: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7311: IF (x_chrv_rec.orig_system_source_code = OKC_API.G_MISS_CHAR )
7312: THEN
7313: x_chrv_rec.orig_system_source_code := l_chrv_rec.orig_system_source_code ;
7314: END IF;
7315: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7316: THEN
7317: x_chrv_rec.orig_system_id1 := l_chrv_rec.orig_system_id1 ;
7318: END IF;
7319: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7315: IF (x_chrv_rec.orig_system_id1 = OKC_API.G_MISS_NUM )
7316: THEN
7317: x_chrv_rec.orig_system_id1 := l_chrv_rec.orig_system_id1 ;
7318: END IF;
7319: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7320: THEN
7321: x_chrv_rec.orig_system_reference1 := l_chrv_rec.orig_system_reference1 ;
7322: END IF ;
7323: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7319: IF (x_chrv_rec.orig_system_reference1 = OKC_API.G_MISS_CHAR )
7320: THEN
7321: x_chrv_rec.orig_system_reference1 := l_chrv_rec.orig_system_reference1 ;
7322: END IF ;
7323: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_chrv_rec.program_id := l_chrv_rec.program_id;
7326: END IF;
7327: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7323: IF (x_chrv_rec.program_id = OKC_API.G_MISS_NUM)
7324: THEN
7325: x_chrv_rec.program_id := l_chrv_rec.program_id;
7326: END IF;
7327: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7328: THEN
7329: x_chrv_rec.request_id := l_chrv_rec.request_id;
7330: END IF;
7331: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7327: IF (x_chrv_rec.request_id = OKC_API.G_MISS_NUM)
7328: THEN
7329: x_chrv_rec.request_id := l_chrv_rec.request_id;
7330: END IF;
7331: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7332: THEN
7333: x_chrv_rec.program_update_date := l_chrv_rec.program_update_date;
7334: END IF;
7335: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7331: IF (x_chrv_rec.program_update_date = OKC_API.G_MISS_DATE)
7332: THEN
7333: x_chrv_rec.program_update_date := l_chrv_rec.program_update_date;
7334: END IF;
7335: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7336: THEN
7337: x_chrv_rec.program_application_id := l_chrv_rec.program_application_id;
7338: END IF;
7339: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7335: IF (x_chrv_rec.program_application_id = OKC_API.G_MISS_NUM)
7336: THEN
7337: x_chrv_rec.program_application_id := l_chrv_rec.program_application_id;
7338: END IF;
7339: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7340: THEN
7341: x_chrv_rec.price_list_id := l_chrv_rec.price_list_id;
7342: END IF;
7343: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7339: IF (x_chrv_rec.price_list_id = OKC_API.G_MISS_NUM)
7340: THEN
7341: x_chrv_rec.price_list_id := l_chrv_rec.price_list_id;
7342: END IF;
7343: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7344: THEN
7345: x_chrv_rec.pricing_date := l_chrv_rec.pricing_date;
7346: END IF;
7347: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7343: IF (x_chrv_rec.pricing_date = OKC_API.G_MISS_DATE)
7344: THEN
7345: x_chrv_rec.pricing_date := l_chrv_rec.pricing_date;
7346: END IF;
7347: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7348: THEN
7349: x_chrv_rec.sign_by_date := l_chrv_rec.sign_by_date;
7350: END IF;
7351: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7347: IF (x_chrv_rec.sign_by_date = OKC_API.G_MISS_DATE)
7348: THEN
7349: x_chrv_rec.sign_by_date := l_chrv_rec.sign_by_date;
7350: END IF;
7351: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7352: THEN
7353: x_chrv_rec.total_line_list_price := l_chrv_rec.total_line_list_price;
7354: END IF;
7355: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7351: IF (x_chrv_rec.total_line_list_price = OKC_API.G_MISS_NUM)
7352: THEN
7353: x_chrv_rec.total_line_list_price := l_chrv_rec.total_line_list_price;
7354: END IF;
7355: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7356: x_chrv_rec.user_estimated_amount := l_chrv_rec.user_estimated_amount;
7357: END IF;
7358: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7359: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7354: END IF;
7355: IF (x_chrv_rec.user_estimated_amount = OKC_API.G_MISS_NUM) THEN
7356: x_chrv_rec.user_estimated_amount := l_chrv_rec.user_estimated_amount;
7357: END IF;
7358: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7359: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7360: END IF;
7361: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7362: THEN
7357: END IF;
7358: IF (x_chrv_rec.governing_contract_yn = OKC_API.G_MISS_CHAR) THEN
7359: x_chrv_rec.governing_contract_yn := l_chrv_rec.governing_contract_yn;
7360: END IF;
7361: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7362: THEN
7363: x_chrv_rec.attribute_category := l_chrv_rec.attribute_category;
7364: END IF;
7365: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7361: IF (x_chrv_rec.attribute_category = OKC_API.G_MISS_CHAR)
7362: THEN
7363: x_chrv_rec.attribute_category := l_chrv_rec.attribute_category;
7364: END IF;
7365: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7366: THEN
7367: x_chrv_rec.attribute1 := l_chrv_rec.attribute1;
7368: END IF;
7369: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7365: IF (x_chrv_rec.attribute1 = OKC_API.G_MISS_CHAR)
7366: THEN
7367: x_chrv_rec.attribute1 := l_chrv_rec.attribute1;
7368: END IF;
7369: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7370: THEN
7371: x_chrv_rec.attribute2 := l_chrv_rec.attribute2;
7372: END IF;
7373: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7369: IF (x_chrv_rec.attribute2 = OKC_API.G_MISS_CHAR)
7370: THEN
7371: x_chrv_rec.attribute2 := l_chrv_rec.attribute2;
7372: END IF;
7373: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7374: THEN
7375: x_chrv_rec.attribute3 := l_chrv_rec.attribute3;
7376: END IF;
7377: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7373: IF (x_chrv_rec.attribute3 = OKC_API.G_MISS_CHAR)
7374: THEN
7375: x_chrv_rec.attribute3 := l_chrv_rec.attribute3;
7376: END IF;
7377: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7378: THEN
7379: x_chrv_rec.attribute4 := l_chrv_rec.attribute4;
7380: END IF;
7381: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7377: IF (x_chrv_rec.attribute4 = OKC_API.G_MISS_CHAR)
7378: THEN
7379: x_chrv_rec.attribute4 := l_chrv_rec.attribute4;
7380: END IF;
7381: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7382: THEN
7383: x_chrv_rec.attribute5 := l_chrv_rec.attribute5;
7384: END IF;
7385: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7381: IF (x_chrv_rec.attribute5 = OKC_API.G_MISS_CHAR)
7382: THEN
7383: x_chrv_rec.attribute5 := l_chrv_rec.attribute5;
7384: END IF;
7385: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7386: THEN
7387: x_chrv_rec.attribute6 := l_chrv_rec.attribute6;
7388: END IF;
7389: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7385: IF (x_chrv_rec.attribute6 = OKC_API.G_MISS_CHAR)
7386: THEN
7387: x_chrv_rec.attribute6 := l_chrv_rec.attribute6;
7388: END IF;
7389: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7390: THEN
7391: x_chrv_rec.attribute7 := l_chrv_rec.attribute7;
7392: END IF;
7393: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7389: IF (x_chrv_rec.attribute7 = OKC_API.G_MISS_CHAR)
7390: THEN
7391: x_chrv_rec.attribute7 := l_chrv_rec.attribute7;
7392: END IF;
7393: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7394: THEN
7395: x_chrv_rec.attribute8 := l_chrv_rec.attribute8;
7396: END IF;
7397: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7393: IF (x_chrv_rec.attribute8 = OKC_API.G_MISS_CHAR)
7394: THEN
7395: x_chrv_rec.attribute8 := l_chrv_rec.attribute8;
7396: END IF;
7397: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7398: THEN
7399: x_chrv_rec.attribute9 := l_chrv_rec.attribute9;
7400: END IF;
7401: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7397: IF (x_chrv_rec.attribute9 = OKC_API.G_MISS_CHAR)
7398: THEN
7399: x_chrv_rec.attribute9 := l_chrv_rec.attribute9;
7400: END IF;
7401: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7402: THEN
7403: x_chrv_rec.attribute10 := l_chrv_rec.attribute10;
7404: END IF;
7405: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7401: IF (x_chrv_rec.attribute10 = OKC_API.G_MISS_CHAR)
7402: THEN
7403: x_chrv_rec.attribute10 := l_chrv_rec.attribute10;
7404: END IF;
7405: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7406: THEN
7407: x_chrv_rec.attribute11 := l_chrv_rec.attribute11;
7408: END IF;
7409: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7405: IF (x_chrv_rec.attribute11 = OKC_API.G_MISS_CHAR)
7406: THEN
7407: x_chrv_rec.attribute11 := l_chrv_rec.attribute11;
7408: END IF;
7409: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7410: THEN
7411: x_chrv_rec.attribute12 := l_chrv_rec.attribute12;
7412: END IF;
7413: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7409: IF (x_chrv_rec.attribute12 = OKC_API.G_MISS_CHAR)
7410: THEN
7411: x_chrv_rec.attribute12 := l_chrv_rec.attribute12;
7412: END IF;
7413: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7414: THEN
7415: x_chrv_rec.attribute13 := l_chrv_rec.attribute13;
7416: END IF;
7417: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7413: IF (x_chrv_rec.attribute13 = OKC_API.G_MISS_CHAR)
7414: THEN
7415: x_chrv_rec.attribute13 := l_chrv_rec.attribute13;
7416: END IF;
7417: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7418: THEN
7419: x_chrv_rec.attribute14 := l_chrv_rec.attribute14;
7420: END IF;
7421: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7417: IF (x_chrv_rec.attribute14 = OKC_API.G_MISS_CHAR)
7418: THEN
7419: x_chrv_rec.attribute14 := l_chrv_rec.attribute14;
7420: END IF;
7421: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7422: THEN
7423: x_chrv_rec.attribute15 := l_chrv_rec.attribute15;
7424: END IF;
7425: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7421: IF (x_chrv_rec.attribute15 = OKC_API.G_MISS_CHAR)
7422: THEN
7423: x_chrv_rec.attribute15 := l_chrv_rec.attribute15;
7424: END IF;
7425: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7426: THEN
7427: x_chrv_rec.created_by := l_chrv_rec.created_by;
7428: END IF;
7429: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7425: IF (x_chrv_rec.created_by = OKC_API.G_MISS_NUM)
7426: THEN
7427: x_chrv_rec.created_by := l_chrv_rec.created_by;
7428: END IF;
7429: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7430: THEN
7431: x_chrv_rec.creation_date := l_chrv_rec.creation_date;
7432: END IF;
7433: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7429: IF (x_chrv_rec.creation_date = OKC_API.G_MISS_DATE)
7430: THEN
7431: x_chrv_rec.creation_date := l_chrv_rec.creation_date;
7432: END IF;
7433: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7434: THEN
7435: x_chrv_rec.last_updated_by := l_chrv_rec.last_updated_by;
7436: END IF;
7437: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7433: IF (x_chrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
7434: THEN
7435: x_chrv_rec.last_updated_by := l_chrv_rec.last_updated_by;
7436: END IF;
7437: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7438: THEN
7439: x_chrv_rec.last_update_date := l_chrv_rec.last_update_date;
7440: END IF;
7441: IF (x_chrv_rec.last_update_login = OKC_API.G_MISS_NUM)
7437: IF (x_chrv_rec.last_update_date = OKC_API.G_MISS_DATE)
7438: THEN
7439: x_chrv_rec.last_update_date := l_chrv_rec.last_update_date;
7440: END IF;
7441: IF (x_chrv_rec.last_update_login = OKC_API.G_MISS_NUM)
7442: THEN
7443: x_chrv_rec.last_update_login := l_chrv_rec.last_update_login;
7444: END IF;
7445: -- new columns to replace rules
7442: THEN
7443: x_chrv_rec.last_update_login := l_chrv_rec.last_update_login;
7444: END IF;
7445: -- new columns to replace rules
7446: IF (x_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
7447: x_chrv_rec.conversion_type := l_chrv_rec.conversion_type;
7448: END IF;
7449: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7450: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7445: -- new columns to replace rules
7446: IF (x_chrv_rec.conversion_type = OKC_API.G_MISS_CHAR) THEN
7447: x_chrv_rec.conversion_type := l_chrv_rec.conversion_type;
7448: END IF;
7449: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7450: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7451: END IF;
7452: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7453: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7448: END IF;
7449: IF (x_chrv_rec.conversion_rate = OKC_API.G_MISS_NUM) THEN
7450: x_chrv_rec.conversion_rate := l_chrv_rec.conversion_rate;
7451: END IF;
7452: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7453: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7454: END IF;
7455: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7456: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7451: END IF;
7452: IF (x_chrv_rec.conversion_rate_date = OKC_API.G_MISS_DATE) THEN
7453: x_chrv_rec.conversion_rate_date := l_chrv_rec.conversion_rate_date;
7454: END IF;
7455: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7456: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7457: END IF;
7458: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7459: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7454: END IF;
7455: IF (x_chrv_rec.conversion_euro_rate = OKC_API.G_MISS_NUM) THEN
7456: x_chrv_rec.conversion_euro_rate := l_chrv_rec.conversion_euro_rate;
7457: END IF;
7458: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7459: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7460: END IF;
7461: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7462: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7457: END IF;
7458: IF (x_chrv_rec.cust_acct_id = OKC_API.G_MISS_NUM) THEN
7459: x_chrv_rec.cust_acct_id := l_chrv_rec.cust_acct_id;
7460: END IF;
7461: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7462: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7463: END IF;
7464: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7465: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7460: END IF;
7461: IF (x_chrv_rec.bill_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7462: x_chrv_rec.bill_to_site_use_id := l_chrv_rec.bill_to_site_use_id;
7463: END IF;
7464: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7465: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7466: END IF;
7467: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7468: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7463: END IF;
7464: IF (x_chrv_rec.inv_rule_id = OKC_API.G_MISS_NUM) THEN
7465: x_chrv_rec.inv_rule_id := l_chrv_rec.inv_rule_id;
7466: END IF;
7467: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7468: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7469: END IF;
7470: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7471: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7466: END IF;
7467: IF (x_chrv_rec.renewal_type_code = OKC_API.G_MISS_CHAR) THEN
7468: x_chrv_rec.renewal_type_code := l_chrv_rec.renewal_type_code;
7469: END IF;
7470: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7471: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7472: END IF;
7473: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7474: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7469: END IF;
7470: IF (x_chrv_rec.renewal_notify_to = OKC_API.G_MISS_NUM) THEN
7471: x_chrv_rec.renewal_notify_to := l_chrv_rec.renewal_notify_to;
7472: END IF;
7473: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7474: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7475: END IF;
7476: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7477: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7472: END IF;
7473: IF (x_chrv_rec.renewal_end_date = OKC_API.G_MISS_DATE) THEN
7474: x_chrv_rec.renewal_end_date := l_chrv_rec.renewal_end_date;
7475: END IF;
7476: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7477: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7478: END IF;
7479: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7480: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7475: END IF;
7476: IF (x_chrv_rec.ship_to_site_use_id = OKC_API.G_MISS_NUM) THEN
7477: x_chrv_rec.ship_to_site_use_id := l_chrv_rec.ship_to_site_use_id;
7478: END IF;
7479: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7480: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7481: END IF;
7482: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7483: x_chrv_rec.document_id := l_chrv_rec.document_id;
7478: END IF;
7479: IF (x_chrv_rec.payment_term_id = OKC_API.G_MISS_NUM) THEN
7480: x_chrv_rec.payment_term_id := l_chrv_rec.payment_term_id;
7481: END IF;
7482: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7483: x_chrv_rec.document_id := l_chrv_rec.document_id;
7484: END IF;
7485: -- R12 Data Model Changes 4485150 Start
7486: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7482: IF (x_chrv_rec.document_id = OKC_API.G_MISS_NUM) THEN
7483: x_chrv_rec.document_id := l_chrv_rec.document_id;
7484: END IF;
7485: -- R12 Data Model Changes 4485150 Start
7486: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7487: x_chrv_rec.approval_type := l_chrv_rec.approval_type;
7488: END IF;
7489: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7490: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7485: -- R12 Data Model Changes 4485150 Start
7486: IF (x_chrv_rec.approval_type = OKC_API.G_MISS_CHAR) THEN
7487: x_chrv_rec.approval_type := l_chrv_rec.approval_type;
7488: END IF;
7489: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7490: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7491: END IF;
7492: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7493: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7488: END IF;
7489: IF (x_chrv_rec.term_cancel_source = OKC_API.G_MISS_CHAR) THEN
7490: x_chrv_rec.term_cancel_source := l_chrv_rec.term_cancel_source;
7491: END IF;
7492: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7493: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7494: END IF;
7495: -- LLC
7496: IF (x_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7492: IF (x_chrv_rec.payment_instruction_type = OKC_API.G_MISS_CHAR) THEN
7493: x_chrv_rec.payment_instruction_type := l_chrv_rec.payment_instruction_type;
7494: END IF;
7495: -- LLC
7496: IF (x_chrv_rec.cancelled_amount = OKC_API.G_MISS_NUM) THEN
7497: x_chrv_rec.cancelled_amount := l_chrv_rec.cancelled_amount;
7498: END IF;
7499: -- R12 Data Model Changes 4485150 End
7500:
7507: FUNCTION Set_Attributes (
7508: p_chrv_rec IN chrv_rec_type,
7509: x_chrv_rec OUT NOCOPY chrv_rec_type
7510: ) RETURN VARCHAR2 IS
7511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7512: BEGIN
7513:
7514: IF (l_debug = 'Y') THEN
7515: okc_debug.Set_Indentation('OKC_CHR_PVT');
7529: x_chrv_rec.CHR_TYPE := UPPER(x_chrv_rec.CHR_TYPE);
7530:
7531: -- If contract is cancelled, update datetime_cancelled
7532: IF (Get_Status_Type(x_chrv_rec.STS_CODE) = 'CANCELLED' AND
7533: (x_chrv_rec.datetime_cancelled = OKC_API.G_MISS_DATE OR
7534: x_chrv_rec.datetime_cancelled IS NULL) )
7535: THEN
7536: x_chrv_rec.datetime_cancelled := SYSDATE;
7537: END IF;
7545: okc_debug.Set_Indentation('OKC_CHR_PVT');
7546: okc_debug.LOG('20300: Entered update_row', 2);
7547: END IF;
7548:
7549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7550: G_PKG_NAME,
7551: p_init_msg_list,
7552: l_api_version,
7553: p_api_version,
7552: l_api_version,
7553: p_api_version,
7554: '_PVT',
7555: x_return_status);
7556: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7557: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7559: RAISE OKC_API.G_EXCEPTION_ERROR;
7560: END IF;
7553: p_api_version,
7554: '_PVT',
7555: x_return_status);
7556: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7557: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7559: RAISE OKC_API.G_EXCEPTION_ERROR;
7560: END IF;
7561: --- Setting item attributes
7554: '_PVT',
7555: x_return_status);
7556: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7557: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7559: RAISE OKC_API.G_EXCEPTION_ERROR;
7560: END IF;
7561: --- Setting item attributes
7562: l_return_status := Set_Attributes(
7555: x_return_status);
7556: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7557: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7559: RAISE OKC_API.G_EXCEPTION_ERROR;
7560: END IF;
7561: --- Setting item attributes
7562: l_return_status := Set_Attributes(
7563: p_chrv_rec, -- IN
7562: l_return_status := Set_Attributes(
7563: p_chrv_rec, -- IN
7564: l_chrv_rec); -- OUT
7565: --- If any errors happen abort API
7566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7569: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7563: p_chrv_rec, -- IN
7564: l_chrv_rec); -- OUT
7565: --- If any errors happen abort API
7566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7569: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7564: l_chrv_rec); -- OUT
7565: --- If any errors happen abort API
7566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7569: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7565: --- If any errors happen abort API
7566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7569: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
7572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7569: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
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: RAISE OKC_API.G_EXCEPTION_ERROR;
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
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: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7570: END IF;
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
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: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7578:
7571: l_return_status := populate_new_record(l_chrv_rec, l_def_chrv_rec);
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: l_def_chrv_rec := fill_who_columns(l_def_chrv_rec);
7578:
7579: IF p_chrv_rec.VALIDATE_YN = 'Y' THEN ---Bug#3150149
7584: END IF;
7585: END IF; ---Bug#3150149.
7586:
7587: --- If any errors happen abort API
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: END IF; ---Bug#3150149.
7586:
7587: --- If any errors happen abort API
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_return_status := Validate_Record(l_def_chrv_rec);
7586:
7587: --- If any errors happen abort API
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_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7587: --- If any errors happen abort API
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_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7595: 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_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_ERROR;
7598: END IF;
7591: RAISE OKC_API.G_EXCEPTION_ERROR;
7592: END IF;
7593: l_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_ERROR;
7598: END IF;
7599:
7592: END IF;
7593: l_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_ERROR;
7598: END IF;
7599:
7600: --------------------------------------
7593: l_return_status := Validate_Record(l_def_chrv_rec);
7594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_ERROR;
7598: END IF;
7599:
7600: --------------------------------------
7601: -- Move VIEW record to "Child" records
7612: x_msg_data,
7613: l_okc_k_headers_tl_rec,
7614: lx_okc_k_headers_tl_rec
7615: );
7616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7619: RAISE OKC_API.G_EXCEPTION_ERROR;
7620: END IF;
7613: l_okc_k_headers_tl_rec,
7614: lx_okc_k_headers_tl_rec
7615: );
7616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7619: RAISE OKC_API.G_EXCEPTION_ERROR;
7620: END IF;
7621: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7614: lx_okc_k_headers_tl_rec
7615: );
7616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7619: RAISE OKC_API.G_EXCEPTION_ERROR;
7620: END IF;
7621: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7622: update_row(
7615: );
7616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7619: RAISE OKC_API.G_EXCEPTION_ERROR;
7620: END IF;
7621: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7622: update_row(
7623: p_init_msg_list,
7627: p_restricted_update,
7628: l_chr_rec,
7629: lx_chr_rec
7630: );
7631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7634: RAISE OKC_API.G_EXCEPTION_ERROR;
7635: END IF;
7628: l_chr_rec,
7629: lx_chr_rec
7630: );
7631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7634: RAISE OKC_API.G_EXCEPTION_ERROR;
7635: END IF;
7636: migrate(lx_chr_rec, l_def_chrv_rec);
7629: lx_chr_rec
7630: );
7631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7634: RAISE OKC_API.G_EXCEPTION_ERROR;
7635: END IF;
7636: migrate(lx_chr_rec, l_def_chrv_rec);
7637: x_chrv_rec := l_def_chrv_rec;
7630: );
7631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7634: RAISE OKC_API.G_EXCEPTION_ERROR;
7635: END IF;
7636: migrate(lx_chr_rec, l_def_chrv_rec);
7637: x_chrv_rec := l_def_chrv_rec;
7638: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7634: RAISE OKC_API.G_EXCEPTION_ERROR;
7635: END IF;
7636: migrate(lx_chr_rec, l_def_chrv_rec);
7637: x_chrv_rec := l_def_chrv_rec;
7638: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7639: IF (l_debug = 'Y') THEN
7640: okc_debug.LOG('20400: Exiting update_row', 2);
7641: okc_debug.Reset_Indentation;
7642: END IF;
7642: END IF;
7643:
7644:
7645: EXCEPTION
7646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7647:
7648: IF (l_debug = 'Y') THEN
7649: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7650: okc_debug.Reset_Indentation;
7645: EXCEPTION
7646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7647:
7648: IF (l_debug = 'Y') THEN
7649: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7650: okc_debug.Reset_Indentation;
7651: END IF;
7652:
7653: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7649: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7650: okc_debug.Reset_Indentation;
7651: END IF;
7652:
7653: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7654: (
7655: l_api_name,
7656: G_PKG_NAME,
7657: 'OKC_API.G_RET_STS_ERROR',
7653: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7654: (
7655: l_api_name,
7656: G_PKG_NAME,
7657: 'OKC_API.G_RET_STS_ERROR',
7658: x_msg_count,
7659: x_msg_data,
7660: '_PVT'
7661: );
7658: x_msg_count,
7659: x_msg_data,
7660: '_PVT'
7661: );
7662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7661: );
7662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7665: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7670: (
7671: l_api_name,
7672: G_PKG_NAME,
7673: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7674: x_msg_count,
7675: x_msg_data,
7676: '_PVT'
7677: );
7681: okc_debug.LOG('20700: Exiting update_row:OTHERS 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: 'OTHERS',
7707: x_chrv_tbl OUT NOCOPY chrv_tbl_type) IS
7708:
7709: l_api_version CONSTANT NUMBER := 1;
7710: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7711: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7712: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7713: i NUMBER := 0;
7714: BEGIN
7715:
7708:
7709: l_api_version CONSTANT NUMBER := 1;
7710: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
7711: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7712: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7713: i NUMBER := 0;
7714: BEGIN
7715:
7716: IF (l_debug = 'Y') THEN
7717: okc_debug.Set_Indentation('OKC_CHR_PVT');
7718: okc_debug.LOG('20800: Entered update_row', 2);
7719: END IF;
7720:
7721: OKC_API.init_msg_list(p_init_msg_list);
7722: -- Make sure PL/SQL table has records in it before passing
7723: IF (p_chrv_tbl.COUNT > 0) THEN
7724: i := p_chrv_tbl.FIRST;
7725: LOOP
7724: i := p_chrv_tbl.FIRST;
7725: LOOP
7726: update_row (
7727: p_api_version => p_api_version,
7728: p_init_msg_list => OKC_API.G_FALSE,
7729: x_return_status => x_return_status,
7730: x_msg_count => x_msg_count,
7731: x_msg_data => x_msg_data,
7732: p_restricted_update => p_restricted_update,
7733: p_chrv_rec => p_chrv_tbl(i),
7734: x_chrv_rec => x_chrv_tbl(i));
7735:
7736: -- store the highest degree of error
7737: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7738: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
7739: l_overall_status := x_return_status;
7740: END IF;
7741: END IF;
7734: x_chrv_rec => x_chrv_tbl(i));
7735:
7736: -- store the highest degree of error
7737: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7738: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
7739: l_overall_status := x_return_status;
7740: END IF;
7741: END IF;
7742:
7752: END IF;
7753:
7754:
7755: EXCEPTION
7756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7757:
7758: IF (l_debug = 'Y') THEN
7759: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7760: okc_debug.Reset_Indentation;
7755: EXCEPTION
7756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7757:
7758: IF (l_debug = 'Y') THEN
7759: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7760: okc_debug.Reset_Indentation;
7761: END IF;
7762:
7763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7759: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7760: okc_debug.Reset_Indentation;
7761: END IF;
7762:
7763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7764: (
7765: l_api_name,
7766: G_PKG_NAME,
7767: 'OKC_API.G_RET_STS_ERROR',
7763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7764: (
7765: l_api_name,
7766: G_PKG_NAME,
7767: 'OKC_API.G_RET_STS_ERROR',
7768: x_msg_count,
7769: x_msg_data,
7770: '_PVT'
7771: );
7768: x_msg_count,
7769: x_msg_data,
7770: '_PVT'
7771: );
7772: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7771: );
7772: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7775: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7780: (
7781: l_api_name,
7782: G_PKG_NAME,
7783: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7784: x_msg_count,
7785: x_msg_data,
7786: '_PVT'
7787: );
7791: okc_debug.LOG('21200: Exiting update_row:OTHERS 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: 'OTHERS',
7818: p_chr_rec IN chr_rec_type) IS
7819:
7820: l_api_version CONSTANT NUMBER := 1;
7821: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
7822: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7823: l_chr_rec chr_rec_type := p_chr_rec;
7824: l_row_notfound BOOLEAN := TRUE;
7825: BEGIN
7826:
7828: okc_debug.Set_Indentation('OKC_CHR_PVT');
7829: okc_debug.LOG('21300: Entered delete_row', 2);
7830: END IF;
7831:
7832: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7833: p_init_msg_list,
7834: '_PVT',
7835: x_return_status);
7836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7832: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7833: p_init_msg_list,
7834: '_PVT',
7835: x_return_status);
7836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7839: RAISE OKC_API.G_EXCEPTION_ERROR;
7840: END IF;
7833: p_init_msg_list,
7834: '_PVT',
7835: x_return_status);
7836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7839: RAISE OKC_API.G_EXCEPTION_ERROR;
7840: END IF;
7841: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7834: '_PVT',
7835: x_return_status);
7836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7839: RAISE OKC_API.G_EXCEPTION_ERROR;
7840: END IF;
7841: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7842: WHERE ID = l_chr_rec.id;
7835: x_return_status);
7836: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7837: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7838: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7839: RAISE OKC_API.G_EXCEPTION_ERROR;
7840: END IF;
7841: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7842: WHERE ID = l_chr_rec.id;
7843:
7840: END IF;
7841: DELETE FROM OKC_K_HEADERS_ALL_B --mmadhavi changed to _ALL for MOAC
7842: WHERE ID = l_chr_rec.id;
7843:
7844: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7845: IF (l_debug = 'Y') THEN
7846: okc_debug.LOG('21400: Exiting delete_row', 2);
7847: okc_debug.Reset_Indentation;
7848: END IF;
7848: END IF;
7849:
7850:
7851: EXCEPTION
7852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7853:
7854: IF (l_debug = 'Y') THEN
7855: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7856: okc_debug.Reset_Indentation;
7851: EXCEPTION
7852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7853:
7854: IF (l_debug = 'Y') THEN
7855: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7856: okc_debug.Reset_Indentation;
7857: END IF;
7858:
7859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7855: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7856: okc_debug.Reset_Indentation;
7857: END IF;
7858:
7859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7860: (
7861: l_api_name,
7862: G_PKG_NAME,
7863: 'OKC_API.G_RET_STS_ERROR',
7859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7860: (
7861: l_api_name,
7862: G_PKG_NAME,
7863: 'OKC_API.G_RET_STS_ERROR',
7864: x_msg_count,
7865: x_msg_data,
7866: '_PVT'
7867: );
7864: x_msg_count,
7865: x_msg_data,
7866: '_PVT'
7867: );
7868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7867: );
7868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7871: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7876: (
7877: l_api_name,
7878: G_PKG_NAME,
7879: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7880: x_msg_count,
7881: x_msg_data,
7882: '_PVT'
7883: );
7887: okc_debug.LOG('21700: Exiting delete_row:OTHERS 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: 'OTHERS',
7910: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
7911:
7912: l_api_version CONSTANT NUMBER := 1;
7913: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
7914: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7915: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
7916: l_row_notfound BOOLEAN := TRUE;
7917: -----------------------------------------
7918: -- Set_Attributes for:OKC_K_HEADERS_TL --
7920: FUNCTION Set_Attributes (
7921: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
7922: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
7923: ) RETURN VARCHAR2 IS
7924: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7925: BEGIN
7926:
7927: IF (l_debug = 'Y') THEN
7928: okc_debug.Set_Indentation('OKC_CHR_PVT');
7940: okc_debug.Set_Indentation('OKC_CHR_PVT');
7941: okc_debug.LOG('21900: Entered delete_row', 2);
7942: END IF;
7943:
7944: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7945: p_init_msg_list,
7946: '_PVT',
7947: x_return_status);
7948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7944: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7945: p_init_msg_list,
7946: '_PVT',
7947: x_return_status);
7948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7951: RAISE OKC_API.G_EXCEPTION_ERROR;
7952: END IF;
7945: p_init_msg_list,
7946: '_PVT',
7947: x_return_status);
7948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7951: RAISE OKC_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: --- Setting item attributes
7946: '_PVT',
7947: x_return_status);
7948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7951: RAISE OKC_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: --- Setting item attributes
7954: l_return_status := Set_Attributes(
7947: x_return_status);
7948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7951: RAISE OKC_API.G_EXCEPTION_ERROR;
7952: END IF;
7953: --- Setting item attributes
7954: l_return_status := Set_Attributes(
7955: p_okc_k_headers_tl_rec, -- IN
7954: l_return_status := Set_Attributes(
7955: p_okc_k_headers_tl_rec, -- IN
7956: l_okc_k_headers_tl_rec); -- OUT
7957: --- If any errors happen abort API
7958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7961: RAISE OKC_API.G_EXCEPTION_ERROR;
7962: END IF;
7955: p_okc_k_headers_tl_rec, -- IN
7956: l_okc_k_headers_tl_rec); -- OUT
7957: --- If any errors happen abort API
7958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7961: RAISE OKC_API.G_EXCEPTION_ERROR;
7962: END IF;
7963: DELETE FROM OKC_K_HEADERS_TL
7956: l_okc_k_headers_tl_rec); -- OUT
7957: --- If any errors happen abort API
7958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7961: RAISE OKC_API.G_EXCEPTION_ERROR;
7962: END IF;
7963: DELETE FROM OKC_K_HEADERS_TL
7964: WHERE ID = l_okc_k_headers_tl_rec.id;
7957: --- If any errors happen abort API
7958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7961: RAISE OKC_API.G_EXCEPTION_ERROR;
7962: END IF;
7963: DELETE FROM OKC_K_HEADERS_TL
7964: WHERE ID = l_okc_k_headers_tl_rec.id;
7965:
7962: END IF;
7963: DELETE FROM OKC_K_HEADERS_TL
7964: WHERE ID = l_okc_k_headers_tl_rec.id;
7965:
7966: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7967: IF (l_debug = 'Y') THEN
7968: okc_debug.LOG('22000: Exiting delete_row', 2);
7969: okc_debug.Reset_Indentation;
7970: END IF;
7970: END IF;
7971:
7972:
7973: EXCEPTION
7974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7975:
7976: IF (l_debug = 'Y') THEN
7977: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7978: okc_debug.Reset_Indentation;
7973: EXCEPTION
7974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7975:
7976: IF (l_debug = 'Y') THEN
7977: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7978: okc_debug.Reset_Indentation;
7979: END IF;
7980:
7981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7977: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7978: okc_debug.Reset_Indentation;
7979: END IF;
7980:
7981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7982: (
7983: l_api_name,
7984: G_PKG_NAME,
7985: 'OKC_API.G_RET_STS_ERROR',
7981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7982: (
7983: l_api_name,
7984: G_PKG_NAME,
7985: 'OKC_API.G_RET_STS_ERROR',
7986: x_msg_count,
7987: x_msg_data,
7988: '_PVT'
7989: );
7986: x_msg_count,
7987: x_msg_data,
7988: '_PVT'
7989: );
7990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7989: );
7990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7993: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7998: (
7999: l_api_name,
8000: G_PKG_NAME,
8001: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8002: x_msg_count,
8003: x_msg_data,
8004: '_PVT'
8005: );
8009: okc_debug.LOG('22300: Exiting delete_row:OTHERS 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: 'OTHERS',
8033: p_chrv_rec IN chrv_rec_type) IS
8034:
8035: l_api_version CONSTANT NUMBER := 1;
8036: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
8037: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8038: l_chrv_rec chrv_rec_type := p_chrv_rec;
8039: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
8040: l_chr_rec chr_rec_type;
8041: BEGIN
8044: okc_debug.Set_Indentation('OKC_CHR_PVT');
8045: okc_debug.LOG('22400: Entered delete_row', 2);
8046: END IF;
8047:
8048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8049: G_PKG_NAME,
8050: p_init_msg_list,
8051: l_api_version,
8052: p_api_version,
8051: l_api_version,
8052: p_api_version,
8053: '_PVT',
8054: x_return_status);
8055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8058: RAISE OKC_API.G_EXCEPTION_ERROR;
8059: END IF;
8052: p_api_version,
8053: '_PVT',
8054: x_return_status);
8055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8058: RAISE OKC_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: --------------------------------------
8053: '_PVT',
8054: x_return_status);
8055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8058: RAISE OKC_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: --------------------------------------
8061: -- Move VIEW record to "Child" records
8054: x_return_status);
8055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
8058: RAISE OKC_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: --------------------------------------
8061: -- Move VIEW record to "Child" records
8062: --------------------------------------
8071: x_msg_count,
8072: x_msg_data,
8073: l_okc_k_headers_tl_rec
8074: );
8075: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8078: RAISE OKC_API.G_EXCEPTION_ERROR;
8079: END IF;
8072: x_msg_data,
8073: l_okc_k_headers_tl_rec
8074: );
8075: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8078: RAISE OKC_API.G_EXCEPTION_ERROR;
8079: END IF;
8080: delete_row(
8073: l_okc_k_headers_tl_rec
8074: );
8075: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8078: RAISE OKC_API.G_EXCEPTION_ERROR;
8079: END IF;
8080: delete_row(
8081: p_init_msg_list,
8074: );
8075: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8078: RAISE OKC_API.G_EXCEPTION_ERROR;
8079: END IF;
8080: delete_row(
8081: p_init_msg_list,
8082: x_return_status,
8083: x_msg_count,
8084: x_msg_data,
8085: l_chr_rec
8086: );
8087: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8088: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8084: x_msg_data,
8085: l_chr_rec
8086: );
8087: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8088: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8085: l_chr_rec
8086: );
8087: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8088: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8093: IF (l_debug = 'Y') THEN
8086: );
8087: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8088: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8093: IF (l_debug = 'Y') THEN
8094: okc_debug.LOG('22500: Exiting delete_row', 2);
8088: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8093: IF (l_debug = 'Y') THEN
8094: okc_debug.LOG('22500: Exiting delete_row', 2);
8095: okc_debug.Reset_Indentation;
8096: END IF;
8096: END IF;
8097:
8098:
8099: EXCEPTION
8100: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8101:
8102: IF (l_debug = 'Y') THEN
8103: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8104: okc_debug.Reset_Indentation;
8099: EXCEPTION
8100: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8101:
8102: IF (l_debug = 'Y') THEN
8103: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8104: okc_debug.Reset_Indentation;
8105: END IF;
8106:
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8103: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8104: okc_debug.Reset_Indentation;
8105: END IF;
8106:
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8109: l_api_name,
8110: G_PKG_NAME,
8111: 'OKC_API.G_RET_STS_ERROR',
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8109: l_api_name,
8110: G_PKG_NAME,
8111: 'OKC_API.G_RET_STS_ERROR',
8112: x_msg_count,
8113: x_msg_data,
8114: '_PVT'
8115: );
8112: x_msg_count,
8113: x_msg_data,
8114: '_PVT'
8115: );
8116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8115: );
8116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8119: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8124: (
8125: l_api_name,
8126: G_PKG_NAME,
8127: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8128: x_msg_count,
8129: x_msg_data,
8130: '_PVT'
8131: );
8135: okc_debug.LOG('22800: Exiting delete_row:OTHERS 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: 'OTHERS',
8159: p_chrv_tbl IN chrv_tbl_type) IS
8160:
8161: l_api_version CONSTANT NUMBER := 1;
8162: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8164: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8165: i NUMBER := 0;
8166: l_dummy_val NUMBER;
8167: CURSOR l_clev_csr IS
8160:
8161: l_api_version CONSTANT NUMBER := 1;
8162: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
8163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8164: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8165: i NUMBER := 0;
8166: l_dummy_val NUMBER;
8167: CURSOR l_clev_csr IS
8168: SELECT COUNT(1)
8174: okc_debug.Set_Indentation('OKC_CHR_PVT');
8175: okc_debug.LOG('22900: Entered delete_row', 2);
8176: END IF;
8177:
8178: OKC_API.init_msg_list(p_init_msg_list);
8179: -- Make sure PL/SQL table has records in it before passing
8180: IF (p_chrv_tbl.COUNT > 0) THEN
8181: i := p_chrv_tbl.FIRST;
8182: LOOP
8196: x_msg_data => x_msg_data,
8197: p_chrv_rec => p_chrv_tbl(i));
8198:
8199: -- store the highest degree of error
8200: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8201: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8202: l_overall_status := x_return_status;
8203: END IF;
8204: END IF;
8197: p_chrv_rec => p_chrv_tbl(i));
8198:
8199: -- store the highest degree of error
8200: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8201: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8202: l_overall_status := x_return_status;
8203: END IF;
8204: END IF;
8205: ELSE
8202: l_overall_status := x_return_status;
8203: END IF;
8204: END IF;
8205: ELSE
8206: OKC_API.SET_MESSAGE(
8207: p_app_name => g_app_name,
8208: p_msg_name => G_CHILD_RECORD_EXISTS);
8209: -- notify caller of an error
8210: x_return_status := OKC_API.G_RET_STS_ERROR;
8206: OKC_API.SET_MESSAGE(
8207: p_app_name => g_app_name,
8208: p_msg_name => G_CHILD_RECORD_EXISTS);
8209: -- notify caller of an error
8210: x_return_status := OKC_API.G_RET_STS_ERROR;
8211:
8212: -- store the highest degree of error
8213: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8214: l_overall_status := x_return_status;
8209: -- notify caller of an error
8210: x_return_status := OKC_API.G_RET_STS_ERROR;
8211:
8212: -- store the highest degree of error
8213: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
8214: l_overall_status := x_return_status;
8215: END IF;
8216:
8217: END IF;
8229: END IF;
8230:
8231:
8232: EXCEPTION
8233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8234:
8235: IF (l_debug = 'Y') THEN
8236: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8237: okc_debug.Reset_Indentation;
8232: EXCEPTION
8233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8234:
8235: IF (l_debug = 'Y') THEN
8236: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8237: okc_debug.Reset_Indentation;
8238: END IF;
8239:
8240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8236: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8237: okc_debug.Reset_Indentation;
8238: END IF;
8239:
8240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8241: (
8242: l_api_name,
8243: G_PKG_NAME,
8244: 'OKC_API.G_RET_STS_ERROR',
8240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8241: (
8242: l_api_name,
8243: G_PKG_NAME,
8244: 'OKC_API.G_RET_STS_ERROR',
8245: x_msg_count,
8246: x_msg_data,
8247: '_PVT'
8248: );
8245: x_msg_count,
8246: x_msg_data,
8247: '_PVT'
8248: );
8249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8248: );
8249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8252: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8257: (
8258: l_api_name,
8259: G_PKG_NAME,
8260: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8261: x_msg_count,
8262: x_msg_data,
8263: '_PVT'
8264: );
8268: okc_debug.LOG('23300: Exiting delete_row:OTHERS 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: 'OTHERS',
8405: j NUMBER := 0;
8406:
8407: BEGIN
8408: --Initializing return status
8409: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8410: IF (l_debug = 'Y') THEN
8411: okc_debug.Set_Indentation('OKC_CHR_PVT');
8412: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8413: END IF;
8840: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8841: okc_debug.Reset_Indentation;
8842: END IF;
8843: -- Store SQL error message on message stack
8844: OKC_API.SET_MESSAGE(
8845: p_app_name => G_APP_NAME,
8846: p_msg_name => G_UNEXPECTED_ERROR,
8847: p_token1 => G_SQLCODE_TOKEN,
8848: p_token1_value => SQLCODE,
8848: p_token1_value => SQLCODE,
8849: p_token2 => G_SQLERRM_TOKEN,
8850: p_token2_value => SQLERRM);
8851: -- notify caller of an error as UNEXPETED error
8852: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8853:
8854: -- RAISE;
8855:
8856: END INSERT_ROW_UPG;
8863: p_chr_id IN NUMBER,
8864: p_major_version IN NUMBER
8865: ) RETURN VARCHAR2 IS
8866:
8867: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8868:
8869: BEGIN
8870:
8871: IF (l_debug = 'Y') THEN
9145: okc_debug.Reset_Indentation;
9146: END IF;
9147:
9148: -- store SQL error message on message stack
9149: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9150: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9151: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9152: p_token1_value => SQLCODE,
9153: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9153: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9154: p_token2_value => SQLERRM);
9155:
9156: -- notify UNEXPECTED error
9157: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9158: RETURN l_return_status;
9159:
9160: END create_version;
9161:
9168: p_chr_id IN NUMBER,
9169: p_major_version IN NUMBER
9170: ) RETURN VARCHAR2 IS
9171:
9172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9173:
9174: BEGIN
9175:
9176: IF (l_debug = 'Y') THEN
9447: okc_debug.Reset_Indentation;
9448: END IF;
9449:
9450: -- store SQL error message on message stack
9451: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9452: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
9453: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
9454: p_token1_value => SQLCODE,
9455: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9455: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
9456: p_token2_value => SQLERRM);
9457:
9458: -- notify UNEXPECTED error
9459: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9460: RETURN l_return_status;
9461:
9462: END restore_version;
9463: