[Home] [Help]
32: from OKC_K_HEADERS_B
33: where ID = p_khrv_rec.khr_id;
34: begin
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: -- enforce foreign key, if data exists
39: if (p_khrv_rec.khr_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.khr_id IS NOT NULL) then
40: Open l_chrv_csr;
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: -- enforce foreign key, if data exists
39: if (p_khrv_rec.khr_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.khr_id IS NOT NULL) then
40: Open l_chrv_csr;
41: Fetch l_chrv_csr Into l_dummy_var;
42: Close l_chrv_csr;
43:
42: Close l_chrv_csr;
43:
44: -- if l_dummy_var still set to default, data was not found
45: If (l_dummy_var = '?') Then
46: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
47: p_msg_name => g_no_parent_record,
48: p_token1 => g_col_name_token,
49: p_token1_value=> 'khr_id',
50: p_token2 => g_child_table_token,
51: p_token2_value=> G_VIEW,
52: p_token3 => g_parent_table_token,
53: p_token3_value=> 'OKL_K_HEADERS_V');
54: -- notify caller of an error
55: x_return_status := OKC_API.G_RET_STS_ERROR;
56: End If;
57: end if;
58: exception
59: when G_EXCEPTION_HALT_VALIDATION then
61: null;
62:
63: when OTHERS then
64: -- store SQL error message on message stack for caller
65: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
66: p_msg_name => G_UNEXPECTED_ERROR,
67: p_token1 => g_sqlcode_token,
68: p_token1_value => sqlcode,
69: p_token2 => g_sqlerrm_token,
68: p_token1_value => sqlcode,
69: p_token2 => g_sqlerrm_token,
70: p_token2_value => sqlerrm);
71: -- notify caller of an error
72: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
73: end validate_khr_id;
74:
75:
76: -- Start of comments
89: from OKL_PRODUCTS
90: where ID = p_khrv_rec.pdt_id;
91: begin
92: -- initialize return status
93: x_return_status := OKC_API.G_RET_STS_SUCCESS;
94:
95: -- enforce foreign key, if data exists
96: if (p_khrv_rec.pdt_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.pdt_id IS NOT NULL) then
97: Open l_chrv_csr;
92: -- initialize return status
93: x_return_status := OKC_API.G_RET_STS_SUCCESS;
94:
95: -- enforce foreign key, if data exists
96: if (p_khrv_rec.pdt_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.pdt_id IS NOT NULL) then
97: Open l_chrv_csr;
98: Fetch l_chrv_csr Into l_dummy_var;
99: Close l_chrv_csr;
100:
99: Close l_chrv_csr;
100:
101: -- if l_dummy_var still set to default, data was not found
102: If (l_dummy_var = '?') Then
103: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
104: p_msg_name => g_no_parent_record,
105: p_token1 => g_col_name_token,
106: p_token1_value=> 'pdt_id',
107: p_token2 => g_child_table_token,
108: p_token2_value=> G_VIEW,
109: p_token3 => g_parent_table_token,
110: p_token3_value=> 'OKL_K_HEADERS_V');
111: -- notify caller of an error
112: x_return_status := OKC_API.G_RET_STS_ERROR;
113: End If;
114: end if;
115: exception
116: when G_EXCEPTION_HALT_VALIDATION then
118: null;
119:
120: when OTHERS then
121: -- store SQL error message on message stack for caller
122: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
123: p_msg_name => G_UNEXPECTED_ERROR,
124: p_token1 => g_sqlcode_token,
125: p_token1_value => sqlcode,
126: p_token2 => g_sqlerrm_token,
125: p_token1_value => sqlcode,
126: p_token2 => g_sqlerrm_token,
127: p_token2_value => sqlerrm);
128: -- notify caller of an error
129: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
130: end validate_pdt_id;
131:
132:
133: -- Added by dpsingh
150: item_not_found_error EXCEPTION;
151:
152: BEGIN
153:
154: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
155:
156: IF (p_khrv_rec.legal_entity_id IS NOT NULL) AND
157: (p_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
158: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_khrv_rec.legal_entity_id) ;
156: IF (p_khrv_rec.legal_entity_id IS NOT NULL) AND
157: (p_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
158: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_khrv_rec.legal_entity_id) ;
159: IF (l_exists<>1) THEN
160: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LEGAL_ENTITY_ID');
161: RAISE item_not_found_error;
162: END IF;
163: END IF;
164:
163: END IF;
164:
165: EXCEPTION
166: WHEN item_not_found_error THEN
167: x_return_status := Okc_Api.G_RET_STS_ERROR;
168:
169: WHEN OTHERS THEN
170: -- store SQL error message on message stack for caller
171: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
167: x_return_status := Okc_Api.G_RET_STS_ERROR;
168:
169: WHEN OTHERS THEN
170: -- store SQL error message on message stack for caller
171: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
172: ,p_msg_name => g_unexpected_error
173: ,p_token1 => g_sqlcode_token
174: ,p_token1_value => SQLCODE
175: ,p_token2 => g_sqlerrm_token
175: ,p_token2 => g_sqlerrm_token
176: ,p_token2_value => SQLERRM);
177:
178: -- notify caller of an UNEXPECTED error
179: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
180:
181: END Validate_LE_Id;
182:
183: -- Start of comments
191: PROCEDURE validate_AMD_CODE(x_return_status OUT NOCOPY VARCHAR2,
192: p_khrv_rec IN khrv_rec_type) is
193: Begin
194: -- initialize return status
195: x_return_status := OKC_API.G_RET_STS_SUCCESS;
196:
197: -- enforce foreign key if data exists
198: If (p_khrv_rec.AMD_CODE <> OKC_API.G_MISS_CHAR and
199: p_khrv_rec.AMD_CODE IS NOT NULL)
194: -- initialize return status
195: x_return_status := OKC_API.G_RET_STS_SUCCESS;
196:
197: -- enforce foreign key if data exists
198: If (p_khrv_rec.AMD_CODE <> OKC_API.G_MISS_CHAR and
199: p_khrv_rec.AMD_CODE IS NOT NULL)
200: Then
201: -- Check if the value is a valid code from lookup table
202: x_return_status := OKC_UTIL.check_lookup_code('OKL_ACCEPTANCE_METHOD',
200: Then
201: -- Check if the value is a valid code from lookup table
202: x_return_status := OKC_UTIL.check_lookup_code('OKL_ACCEPTANCE_METHOD',
203: p_khrv_rec.AMD_CODE);
204: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
205: --set error message in message stack
206: OKC_API.SET_MESSAGE(
207: p_app_name => G_APP_NAME,
208: p_msg_name => G_INVALID_VALUE,
202: x_return_status := OKC_UTIL.check_lookup_code('OKL_ACCEPTANCE_METHOD',
203: p_khrv_rec.AMD_CODE);
204: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
205: --set error message in message stack
206: OKC_API.SET_MESSAGE(
207: p_app_name => G_APP_NAME,
208: p_msg_name => G_INVALID_VALUE,
209: p_token1 => G_COL_NAME_TOKEN,
210: p_token1_value => 'ACCEPTANCE_METHOD');
208: p_msg_name => G_INVALID_VALUE,
209: p_token1 => G_COL_NAME_TOKEN,
210: p_token1_value => 'ACCEPTANCE_METHOD');
211: raise G_EXCEPTION_HALT_VALIDATION;
212: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
213: raise G_EXCEPTION_HALT_VALIDATION;
214: End If;
215: End If;
216: exception
215: End If;
216: exception
217: when OTHERS then
218: -- store SQL error message on message stack
219: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
220: p_msg_name => g_unexpected_error,
221: p_token1 => g_sqlcode_token,
222: p_token1_value => sqlcode,
223: p_token2 => g_sqlerrm_token,
222: p_token1_value => sqlcode,
223: p_token2 => g_sqlerrm_token,
224: p_token2_value => sqlerrm);
225: -- notify caller of an error as UNEXPETED error
226: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
227: End validate_AMD_CODE;
228:
229:
230: -- Start of comments
238: PROCEDURE validate_GENERATE_ACCRUAL_YN(x_return_status OUT NOCOPY VARCHAR2,
239: p_khrv_rec IN khrv_rec_type) is
240: Begin
241: -- initialize return status
242: x_return_status := OKC_API.G_RET_STS_SUCCESS;
243: If (p_khrv_rec.GENERATE_ACCRUAL_YN <> OKC_API.G_MISS_CHAR and
244: p_khrv_rec.GENERATE_ACCRUAL_YN IS NOT NULL)
245: Then
246: -- check allowed values
239: p_khrv_rec IN khrv_rec_type) is
240: Begin
241: -- initialize return status
242: x_return_status := OKC_API.G_RET_STS_SUCCESS;
243: If (p_khrv_rec.GENERATE_ACCRUAL_YN <> OKC_API.G_MISS_CHAR and
244: p_khrv_rec.GENERATE_ACCRUAL_YN IS NOT NULL)
245: Then
246: -- check allowed values
247: If (upper(p_khrv_rec.GENERATE_ACCRUAL_YN) NOT IN ('Y','N')) Then
244: p_khrv_rec.GENERATE_ACCRUAL_YN IS NOT NULL)
245: Then
246: -- check allowed values
247: If (upper(p_khrv_rec.GENERATE_ACCRUAL_YN) NOT IN ('Y','N')) Then
248: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
249: p_msg_name => g_invalid_value,
250: p_token1 => g_col_name_token,
251: p_token1_value => 'GENERATE_ACCRUAL_YN');
252: -- notify caller of an error
249: p_msg_name => g_invalid_value,
250: p_token1 => g_col_name_token,
251: p_token1_value => 'GENERATE_ACCRUAL_YN');
252: -- notify caller of an error
253: x_return_status := OKC_API.G_RET_STS_ERROR;
254: End If;
255: End If;
256: exception
257: when OTHERS then
255: End If;
256: exception
257: when OTHERS then
258: -- store SQL error message on message stack
259: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
260: p_msg_name => g_unexpected_error,
261: p_token1 => g_sqlcode_token,
262: p_token1_value => sqlcode,
263: p_token2 => g_sqlerrm_token,
262: p_token1_value => sqlcode,
263: p_token2 => g_sqlerrm_token,
264: p_token2_value => sqlerrm);
265: -- notify caller of an error as UNEXPETED error
266: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
267: End validate_GENERATE_ACCRUAL_YN;
268:
269:
270: -- Start of comments
278: PROCEDURE validate_ACCRUAL_OVERRIDE_YN(x_return_status OUT NOCOPY VARCHAR2,
279: p_khrv_rec IN khrv_rec_type) is
280: Begin
281: -- initialize return status
282: x_return_status := OKC_API.G_RET_STS_SUCCESS;
283: If (p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN <> OKC_API.G_MISS_CHAR and
284: p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN IS NOT NULL)
285: Then
286: -- check allowed values
279: p_khrv_rec IN khrv_rec_type) is
280: Begin
281: -- initialize return status
282: x_return_status := OKC_API.G_RET_STS_SUCCESS;
283: If (p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN <> OKC_API.G_MISS_CHAR and
284: p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN IS NOT NULL)
285: Then
286: -- check allowed values
287: If (upper(p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN) NOT IN ('Y','N')) Then
284: p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN IS NOT NULL)
285: Then
286: -- check allowed values
287: If (upper(p_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN) NOT IN ('Y','N')) Then
288: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
289: p_msg_name => g_invalid_value,
290: p_token1 => g_col_name_token,
291: p_token1_value => 'GENERATE_ACCRUAL_OVERRIDE_YN');
292: -- notify caller of an error
289: p_msg_name => g_invalid_value,
290: p_token1 => g_col_name_token,
291: p_token1_value => 'GENERATE_ACCRUAL_OVERRIDE_YN');
292: -- notify caller of an error
293: x_return_status := OKC_API.G_RET_STS_ERROR;
294: End If;
295: End If;
296: exception
297: when OTHERS then
295: End If;
296: exception
297: when OTHERS then
298: -- store SQL error message on message stack
299: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
300: p_msg_name => g_unexpected_error,
301: p_token1 => g_sqlcode_token,
302: p_token1_value => sqlcode,
303: p_token2 => g_sqlerrm_token,
302: p_token1_value => sqlcode,
303: p_token2 => g_sqlerrm_token,
304: p_token2_value => sqlerrm);
305: -- notify caller of an error as UNEXPETED error
306: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
307: End validate_ACCRUAL_OVERRIDE_YN;
308:
309: -- Start of comments
310: --
317: PROCEDURE validate_CREDIT_ACT_YN(x_return_status OUT NOCOPY VARCHAR2,
318: p_khrv_rec IN khrv_rec_type) is
319: Begin
320: -- initialize return status
321: x_return_status := OKC_API.G_RET_STS_SUCCESS;
322: If (p_khrv_rec.CREDIT_ACT_YN <> OKC_API.G_MISS_CHAR and
323: p_khrv_rec.CREDIT_ACT_YN IS NOT NULL)
324: Then
325: -- check allowed values
318: p_khrv_rec IN khrv_rec_type) is
319: Begin
320: -- initialize return status
321: x_return_status := OKC_API.G_RET_STS_SUCCESS;
322: If (p_khrv_rec.CREDIT_ACT_YN <> OKC_API.G_MISS_CHAR and
323: p_khrv_rec.CREDIT_ACT_YN IS NOT NULL)
324: Then
325: -- check allowed values
326: If (upper(p_khrv_rec.CREDIT_ACT_YN) NOT IN ('Y','N')) Then
323: p_khrv_rec.CREDIT_ACT_YN IS NOT NULL)
324: Then
325: -- check allowed values
326: If (upper(p_khrv_rec.CREDIT_ACT_YN) NOT IN ('Y','N')) Then
327: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
328: p_msg_name => g_invalid_value,
329: p_token1 => g_col_name_token,
330: p_token1_value => 'CREDIT_ACT_YN');
331: -- notify caller of an error
328: p_msg_name => g_invalid_value,
329: p_token1 => g_col_name_token,
330: p_token1_value => 'CREDIT_ACT_YN');
331: -- notify caller of an error
332: x_return_status := OKC_API.G_RET_STS_ERROR;
333: End If;
334: End If;
335: exception
336: when OTHERS then
334: End If;
335: exception
336: when OTHERS then
337: -- store SQL error message on message stack
338: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
339: p_msg_name => g_unexpected_error,
340: p_token1 => g_sqlcode_token,
341: p_token1_value => sqlcode,
342: p_token2 => g_sqlerrm_token,
341: p_token1_value => sqlcode,
342: p_token2 => g_sqlerrm_token,
343: p_token2_value => sqlerrm);
344: -- notify caller of an error as UNEXPETED error
345: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
346: End validate_CREDIT_ACT_YN;
347:
348: -- Start of comments
349: --
356: PROCEDURE validate_CONVERTED_ACCOUNT_YN(x_return_status OUT NOCOPY VARCHAR2,
357: p_khrv_rec IN khrv_rec_type) is
358: Begin
359: -- initialize return status
360: x_return_status := OKC_API.G_RET_STS_SUCCESS;
361: If (p_khrv_rec.CONVERTED_ACCOUNT_YN <> OKC_API.G_MISS_CHAR and
362: p_khrv_rec.CONVERTED_ACCOUNT_YN IS NOT NULL)
363: Then
364: -- check allowed values
357: p_khrv_rec IN khrv_rec_type) is
358: Begin
359: -- initialize return status
360: x_return_status := OKC_API.G_RET_STS_SUCCESS;
361: If (p_khrv_rec.CONVERTED_ACCOUNT_YN <> OKC_API.G_MISS_CHAR and
362: p_khrv_rec.CONVERTED_ACCOUNT_YN IS NOT NULL)
363: Then
364: -- check allowed values
365: If (upper(p_khrv_rec.CONVERTED_ACCOUNT_YN) NOT IN ('Y','N')) Then
362: p_khrv_rec.CONVERTED_ACCOUNT_YN IS NOT NULL)
363: Then
364: -- check allowed values
365: If (upper(p_khrv_rec.CONVERTED_ACCOUNT_YN) NOT IN ('Y','N')) Then
366: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
367: p_msg_name => g_invalid_value,
368: p_token1 => g_col_name_token,
369: p_token1_value => 'CONVERTED_ACCOUNT_YN');
370: -- notify caller of an error
367: p_msg_name => g_invalid_value,
368: p_token1 => g_col_name_token,
369: p_token1_value => 'CONVERTED_ACCOUNT_YN');
370: -- notify caller of an error
371: x_return_status := OKC_API.G_RET_STS_ERROR;
372: End If;
373: End If;
374: exception
375: when OTHERS then
373: End If;
374: exception
375: when OTHERS then
376: -- store SQL error message on message stack
377: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
378: p_msg_name => g_unexpected_error,
379: p_token1 => g_sqlcode_token,
380: p_token1_value => sqlcode,
381: p_token2 => g_sqlerrm_token,
380: p_token1_value => sqlcode,
381: p_token2 => g_sqlerrm_token,
382: p_token2_value => sqlerrm);
383: -- notify caller of an error as UNEXPETED error
384: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
385: End validate_CONVERTED_ACCOUNT_YN;
386:
387: -- Start of comments
388: --
395: PROCEDURE validate_SYNDICATABLE_YN(x_return_status OUT NOCOPY VARCHAR2,
396: p_khrv_rec IN khrv_rec_type) is
397: Begin
398: -- initialize return status
399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
400: If (p_khrv_rec.SYNDICATABLE_YN <> OKC_API.G_MISS_CHAR and
401: p_khrv_rec.SYNDICATABLE_YN IS NOT NULL)
402: Then
403: -- check allowed values
396: p_khrv_rec IN khrv_rec_type) is
397: Begin
398: -- initialize return status
399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
400: If (p_khrv_rec.SYNDICATABLE_YN <> OKC_API.G_MISS_CHAR and
401: p_khrv_rec.SYNDICATABLE_YN IS NOT NULL)
402: Then
403: -- check allowed values
404: If (upper(p_khrv_rec.SYNDICATABLE_YN) NOT IN ('Y','N')) Then
401: p_khrv_rec.SYNDICATABLE_YN IS NOT NULL)
402: Then
403: -- check allowed values
404: If (upper(p_khrv_rec.SYNDICATABLE_YN) NOT IN ('Y','N')) Then
405: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
406: p_msg_name => g_invalid_value,
407: p_token1 => g_col_name_token,
408: p_token1_value => 'SYNDICATABLE_YN');
409: -- notify caller of an error
406: p_msg_name => g_invalid_value,
407: p_token1 => g_col_name_token,
408: p_token1_value => 'SYNDICATABLE_YN');
409: -- notify caller of an error
410: x_return_status := OKC_API.G_RET_STS_ERROR;
411: End If;
412: End If;
413: exception
414: when OTHERS then
412: End If;
413: exception
414: when OTHERS then
415: -- store SQL error message on message stack
416: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
417: p_msg_name => g_unexpected_error,
418: p_token1 => g_sqlcode_token,
419: p_token1_value => sqlcode,
420: p_token2 => g_sqlerrm_token,
419: p_token1_value => sqlcode,
420: p_token2 => g_sqlerrm_token,
421: p_token2_value => sqlerrm);
422: -- notify caller of an error as UNEXPETED error
423: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
424: End validate_SYNDICATABLE_YN;
425:
426: -- Start of comments
427: --
434: PROCEDURE validate_SALESTYPE_YN(x_return_status OUT NOCOPY VARCHAR2,
435: p_khrv_rec IN khrv_rec_type) is
436: Begin
437: -- initialize return status
438: x_return_status := OKC_API.G_RET_STS_SUCCESS;
439: If (p_khrv_rec.SALESTYPE_YN <> OKC_API.G_MISS_CHAR and
440: p_khrv_rec.SALESTYPE_YN IS NOT NULL)
441: Then
442: -- check allowed values
435: p_khrv_rec IN khrv_rec_type) is
436: Begin
437: -- initialize return status
438: x_return_status := OKC_API.G_RET_STS_SUCCESS;
439: If (p_khrv_rec.SALESTYPE_YN <> OKC_API.G_MISS_CHAR and
440: p_khrv_rec.SALESTYPE_YN IS NOT NULL)
441: Then
442: -- check allowed values
443: If (upper(p_khrv_rec.SALESTYPE_YN) NOT IN ('Y','N')) Then
440: p_khrv_rec.SALESTYPE_YN IS NOT NULL)
441: Then
442: -- check allowed values
443: If (upper(p_khrv_rec.SALESTYPE_YN) NOT IN ('Y','N')) Then
444: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
445: p_msg_name => g_invalid_value,
446: p_token1 => g_col_name_token,
447: p_token1_value => 'SALESTYPE_YN');
448: -- notify caller of an error
445: p_msg_name => g_invalid_value,
446: p_token1 => g_col_name_token,
447: p_token1_value => 'SALESTYPE_YN');
448: -- notify caller of an error
449: x_return_status := OKC_API.G_RET_STS_ERROR;
450: End If;
451: End If;
452: exception
453: when OTHERS then
451: End If;
452: exception
453: when OTHERS then
454: -- store SQL error message on message stack
455: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
456: p_msg_name => g_unexpected_error,
457: p_token1 => g_sqlcode_token,
458: p_token1_value => sqlcode,
459: p_token2 => g_sqlerrm_token,
458: p_token1_value => sqlcode,
459: p_token2 => g_sqlerrm_token,
460: p_token2_value => sqlerrm);
461: -- notify caller of an error as UNEXPETED error
462: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
463: End validate_SALESTYPE_YN;
464:
465: -- Start of comments
466: --
473: PROCEDURE validate_DEAL_TYPE(x_return_status OUT NOCOPY VARCHAR2,
474: p_khrv_rec IN khrv_rec_type) is
475: Begin
476: -- initialize return status
477: x_return_status := OKC_API.G_RET_STS_SUCCESS;
478:
479: -- enforce foreign key if data exists
480: If (p_khrv_rec.deal_type <> OKC_API.G_MISS_CHAR and
481: p_khrv_rec.deal_type IS NOT NULL)
476: -- initialize return status
477: x_return_status := OKC_API.G_RET_STS_SUCCESS;
478:
479: -- enforce foreign key if data exists
480: If (p_khrv_rec.deal_type <> OKC_API.G_MISS_CHAR and
481: p_khrv_rec.deal_type IS NOT NULL)
482: Then
483: -- Check if the value is a valid code from lookup table
484: x_return_status := OKC_UTIL.check_lookup_code('OKL_BOOK_CLASS', p_khrv_rec.deal_type);
481: p_khrv_rec.deal_type IS NOT NULL)
482: Then
483: -- Check if the value is a valid code from lookup table
484: x_return_status := OKC_UTIL.check_lookup_code('OKL_BOOK_CLASS', p_khrv_rec.deal_type);
485: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
486: --set error message in message stack
487: OKC_API.SET_MESSAGE(
488: p_app_name => G_APP_NAME,
489: p_msg_name => G_INVALID_VALUE,
483: -- Check if the value is a valid code from lookup table
484: x_return_status := OKC_UTIL.check_lookup_code('OKL_BOOK_CLASS', p_khrv_rec.deal_type);
485: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
486: --set error message in message stack
487: OKC_API.SET_MESSAGE(
488: p_app_name => G_APP_NAME,
489: p_msg_name => G_INVALID_VALUE,
490: p_token1 => G_COL_NAME_TOKEN,
491: p_token1_value => 'DEAL_TYPE');
489: p_msg_name => G_INVALID_VALUE,
490: p_token1 => G_COL_NAME_TOKEN,
491: p_token1_value => 'DEAL_TYPE');
492: raise G_EXCEPTION_HALT_VALIDATION;
493: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
494: raise G_EXCEPTION_HALT_VALIDATION;
495: End If;
496: End If;
497: exception
496: End If;
497: exception
498: when OTHERS then
499: -- store SQL error message on message stack
500: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
501: p_msg_name => g_unexpected_error,
502: p_token1 => g_sqlcode_token,
503: p_token1_value => sqlcode,
504: p_token2 => g_sqlerrm_token,
503: p_token1_value => sqlcode,
504: p_token2 => g_sqlerrm_token,
505: p_token2_value => sqlerrm);
506: -- notify caller of an error as UNEXPETED error
507: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
508: End validate_DEAL_TYPE;
509: -- Start of comments
510: --
511: -- Procedure Name : validate_PREFUND_ELIGIBLE_YN
517: PROCEDURE validate_PREFUND_ELIGIBLE_YN(x_return_status OUT NOCOPY VARCHAR2,
518: p_khrv_rec IN khrv_rec_type) is
519: Begin
520: -- initialize return status
521: x_return_status := OKC_API.G_RET_STS_SUCCESS;
522: If (p_khrv_rec.PREFUNDING_ELIGIBLE_YN <> OKC_API.G_MISS_CHAR and
523: p_khrv_rec.PREFUNDING_ELIGIBLE_YN IS NOT NULL)
524: Then
525: -- check allowed values
518: p_khrv_rec IN khrv_rec_type) is
519: Begin
520: -- initialize return status
521: x_return_status := OKC_API.G_RET_STS_SUCCESS;
522: If (p_khrv_rec.PREFUNDING_ELIGIBLE_YN <> OKC_API.G_MISS_CHAR and
523: p_khrv_rec.PREFUNDING_ELIGIBLE_YN IS NOT NULL)
524: Then
525: -- check allowed values
526: If (upper(p_khrv_rec.PREFUNDING_ELIGIBLE_YN) NOT IN ('Y','N')) Then
523: p_khrv_rec.PREFUNDING_ELIGIBLE_YN IS NOT NULL)
524: Then
525: -- check allowed values
526: If (upper(p_khrv_rec.PREFUNDING_ELIGIBLE_YN) NOT IN ('Y','N')) Then
527: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
528: p_msg_name => g_invalid_value,
529: p_token1 => g_col_name_token,
530: p_token1_value => 'PREFUNDING_ELIGIBLE_YN');
531: -- notify caller of an error
528: p_msg_name => g_invalid_value,
529: p_token1 => g_col_name_token,
530: p_token1_value => 'PREFUNDING_ELIGIBLE_YN');
531: -- notify caller of an error
532: x_return_status := OKC_API.G_RET_STS_ERROR;
533: End If;
534: End If;
535: exception
536: when OTHERS then
534: End If;
535: exception
536: when OTHERS then
537: -- store SQL error message on message stack
538: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
539: p_msg_name => g_unexpected_error,
540: p_token1 => g_sqlcode_token,
541: p_token1_value => sqlcode,
542: p_token2 => g_sqlerrm_token,
541: p_token1_value => sqlcode,
542: p_token2 => g_sqlerrm_token,
543: p_token2_value => sqlerrm);
544: -- notify caller of an error as UNEXPETED error
545: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
546: End validate_PREFUND_ELIGIBLE_YN;
547:
548: -- Start of comments
549: --
556: PROCEDURE validate_REVOLVING_CREDIT_YN(x_return_status OUT NOCOPY VARCHAR2,
557: p_khrv_rec IN khrv_rec_type) is
558: Begin
559: -- initialize return status
560: x_return_status := OKC_API.G_RET_STS_SUCCESS;
561: If (p_khrv_rec.REVOLVING_CREDIT_YN <> OKC_API.G_MISS_CHAR and
562: p_khrv_rec.REVOLVING_CREDIT_YN IS NOT NULL)
563: Then
564: -- check allowed values
557: p_khrv_rec IN khrv_rec_type) is
558: Begin
559: -- initialize return status
560: x_return_status := OKC_API.G_RET_STS_SUCCESS;
561: If (p_khrv_rec.REVOLVING_CREDIT_YN <> OKC_API.G_MISS_CHAR and
562: p_khrv_rec.REVOLVING_CREDIT_YN IS NOT NULL)
563: Then
564: -- check allowed values
565: If (upper(p_khrv_rec.REVOLVING_CREDIT_YN) NOT IN ('Y','N')) Then
562: p_khrv_rec.REVOLVING_CREDIT_YN IS NOT NULL)
563: Then
564: -- check allowed values
565: If (upper(p_khrv_rec.REVOLVING_CREDIT_YN) NOT IN ('Y','N')) Then
566: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
567: p_msg_name => g_invalid_value,
568: p_token1 => g_col_name_token,
569: p_token1_value => 'REVOLVING_CREDIT_YN');
570: -- notify caller of an error
567: p_msg_name => g_invalid_value,
568: p_token1 => g_col_name_token,
569: p_token1_value => 'REVOLVING_CREDIT_YN');
570: -- notify caller of an error
571: x_return_status := OKC_API.G_RET_STS_ERROR;
572: End If;
573: End If;
574: exception
575: when OTHERS then
573: End If;
574: exception
575: when OTHERS then
576: -- store SQL error message on message stack
577: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
578: p_msg_name => g_unexpected_error,
579: p_token1 => g_sqlcode_token,
580: p_token1_value => sqlcode,
581: p_token2 => g_sqlerrm_token,
580: p_token1_value => sqlcode,
581: p_token2 => g_sqlerrm_token,
582: p_token2_value => sqlerrm);
583: -- notify caller of an error as UNEXPETED error
584: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
585: End validate_REVOLVING_CREDIT_YN;
586:
587: --Bug# 2697681 schema changes 11.5.9
588: -- Start of comments
604:
605: l_valid_convert_type varchar2(1) default '?';
606: Begin
607: -- initialize return status
608: x_return_status := OKC_API.G_RET_STS_SUCCESS;
609: If (p_khrv_rec.CURRENCY_CONVERSION_TYPE <> OKC_API.G_MISS_CHAR and
610: p_khrv_rec.CURRENCY_CONVERSION_TYPE IS NOT NULL)
611: Then
612: -- check allowed values
605: l_valid_convert_type varchar2(1) default '?';
606: Begin
607: -- initialize return status
608: x_return_status := OKC_API.G_RET_STS_SUCCESS;
609: If (p_khrv_rec.CURRENCY_CONVERSION_TYPE <> OKC_API.G_MISS_CHAR and
610: p_khrv_rec.CURRENCY_CONVERSION_TYPE IS NOT NULL)
611: Then
612: -- check allowed values
613: l_valid_convert_type := '?';
618: End If;
619: Close curr_conv_type_csr;
620:
621: If (l_valid_convert_type = '?') Then
622: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
623: p_msg_name => g_invalid_value,
624: p_token1 => g_col_name_token,
625: p_token1_value => 'CURRENCY_CONVERSION_TYPE');
626: -- notify caller of an error
623: p_msg_name => g_invalid_value,
624: p_token1 => g_col_name_token,
625: p_token1_value => 'CURRENCY_CONVERSION_TYPE');
626: -- notify caller of an error
627: x_return_status := OKC_API.G_RET_STS_ERROR;
628: End If;
629: End If;
630: exception
631: when OTHERS then
629: End If;
630: exception
631: when OTHERS then
632: -- store SQL error message on message stack
633: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
634: p_msg_name => g_unexpected_error,
635: p_token1 => g_sqlcode_token,
636: p_token1_value => sqlcode,
637: p_token2 => g_sqlerrm_token,
636: p_token1_value => sqlcode,
637: p_token2 => g_sqlerrm_token,
638: p_token2_value => sqlerrm);
639: -- notify caller of an error as UNEXPETED error
640: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
641: End validate_CURRENCY_CONV_TYPE;
642:
643: -- Start of comments
644: --
651: PROCEDURE validate_MULTI_GAAP_YN(x_return_status OUT NOCOPY VARCHAR2,
652: p_khrv_rec IN khrv_rec_type) is
653: Begin
654: -- initialize return status
655: x_return_status := OKC_API.G_RET_STS_SUCCESS;
656: If (p_khrv_rec.MULTI_GAAP_YN <> OKC_API.G_MISS_CHAR and
657: p_khrv_rec.MULTI_GAAP_YN IS NOT NULL)
658: Then
659: -- check allowed values
652: p_khrv_rec IN khrv_rec_type) is
653: Begin
654: -- initialize return status
655: x_return_status := OKC_API.G_RET_STS_SUCCESS;
656: If (p_khrv_rec.MULTI_GAAP_YN <> OKC_API.G_MISS_CHAR and
657: p_khrv_rec.MULTI_GAAP_YN IS NOT NULL)
658: Then
659: -- check allowed values
660: If (upper(p_khrv_rec.MULTI_GAAP_YN) NOT IN ('Y','N')) Then
657: p_khrv_rec.MULTI_GAAP_YN IS NOT NULL)
658: Then
659: -- check allowed values
660: If (upper(p_khrv_rec.MULTI_GAAP_YN) NOT IN ('Y','N')) Then
661: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
662: p_msg_name => g_invalid_value,
663: p_token1 => g_col_name_token,
664: p_token1_value => 'MULTI_GAAP_YN');
665: -- notify caller of an error
662: p_msg_name => g_invalid_value,
663: p_token1 => g_col_name_token,
664: p_token1_value => 'MULTI_GAAP_YN');
665: -- notify caller of an error
666: x_return_status := OKC_API.G_RET_STS_ERROR;
667: End If;
668: End If;
669: exception
670: when OTHERS then
668: End If;
669: exception
670: when OTHERS then
671: -- store SQL error message on message stack
672: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
673: p_msg_name => g_unexpected_error,
674: p_token1 => g_sqlcode_token,
675: p_token1_value => sqlcode,
676: p_token2 => g_sqlerrm_token,
675: p_token1_value => sqlcode,
676: p_token2 => g_sqlerrm_token,
677: p_token2_value => sqlerrm);
678: -- notify caller of an error as UNEXPETED error
679: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
680: End validate_MULTI_GAAP_YN;
681:
682: -- Start of comments
683: --
690: PROCEDURE validate_ASSIGNABLE_YN(x_return_status OUT NOCOPY VARCHAR2,
691: p_khrv_rec IN khrv_rec_type) is
692: Begin
693: -- initialize return status
694: x_return_status := OKC_API.G_RET_STS_SUCCESS;
695: If (p_khrv_rec.ASSIGNABLE_YN <> OKC_API.G_MISS_CHAR and
696: p_khrv_rec.ASSIGNABLE_YN IS NOT NULL)
697: Then
698: -- check allowed values
691: p_khrv_rec IN khrv_rec_type) is
692: Begin
693: -- initialize return status
694: x_return_status := OKC_API.G_RET_STS_SUCCESS;
695: If (p_khrv_rec.ASSIGNABLE_YN <> OKC_API.G_MISS_CHAR and
696: p_khrv_rec.ASSIGNABLE_YN IS NOT NULL)
697: Then
698: -- check allowed values
699: If (upper(p_khrv_rec.ASSIGNABLE_YN) NOT IN ('Y','N')) Then
696: p_khrv_rec.ASSIGNABLE_YN IS NOT NULL)
697: Then
698: -- check allowed values
699: If (upper(p_khrv_rec.ASSIGNABLE_YN) NOT IN ('Y','N')) Then
700: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
701: p_msg_name => g_invalid_value,
702: p_token1 => g_col_name_token,
703: p_token1_value => 'ASSIGNABLE_YN');
704: -- notify caller of an error
701: p_msg_name => g_invalid_value,
702: p_token1 => g_col_name_token,
703: p_token1_value => 'ASSIGNABLE_YN');
704: -- notify caller of an error
705: x_return_status := OKC_API.G_RET_STS_ERROR;
706: End If;
707: End If;
708: exception
709: when OTHERS then
707: End If;
708: exception
709: when OTHERS then
710: -- store SQL error message on message stack
711: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
712: p_msg_name => g_unexpected_error,
713: p_token1 => g_sqlcode_token,
714: p_token1_value => sqlcode,
715: p_token2 => g_sqlerrm_token,
714: p_token1_value => sqlcode,
715: p_token2 => g_sqlerrm_token,
716: p_token2_value => sqlerrm);
717: -- notify caller of an error as UNEXPETED error
718: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
719: End validate_ASSIGNABLE_YN;
720:
721: -- Start of comments
722: --
734: from OKL_VP_CHANGE_REQUESTS
735: where ID = p_khrv_rec.crs_id;
736: begin
737: -- initialize return status
738: x_return_status := OKC_API.G_RET_STS_SUCCESS;
739:
740: -- enforce foreign key, if data exists
741: if (p_khrv_rec.crs_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.crs_id IS NOT NULL) then
742: Open l_chrv_csr;
737: -- initialize return status
738: x_return_status := OKC_API.G_RET_STS_SUCCESS;
739:
740: -- enforce foreign key, if data exists
741: if (p_khrv_rec.crs_id <> OKC_API.G_MISS_NUM) AND (p_khrv_rec.crs_id IS NOT NULL) then
742: Open l_chrv_csr;
743: Fetch l_chrv_csr Into l_dummy_var;
744: Close l_chrv_csr;
745:
744: Close l_chrv_csr;
745:
746: -- if l_dummy_var still set to default, data was not found
747: If (l_dummy_var = '?') Then
748: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
749: p_msg_name => g_no_parent_record,
750: p_token1 => g_col_name_token,
751: p_token1_value => 'crs_id',
752: p_token2 => g_child_table_token,
753: p_token2_value => G_VIEW,
754: p_token3 => g_parent_table_token,
755: p_token3_value => 'OKL_K_HEADERS_V');
756: -- notify caller of an error
757: x_return_status := OKC_API.G_RET_STS_ERROR;
758: End If;
759: end if;
760: exception
761: when G_EXCEPTION_HALT_VALIDATION then
763: null;
764:
765: when OTHERS then
766: -- store SQL error message on message stack for caller
767: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
768: p_msg_name => G_UNEXPECTED_ERROR,
769: p_token1 => g_sqlcode_token,
770: p_token1_value => sqlcode,
771: p_token2 => g_sqlerrm_token,
770: p_token1_value => sqlcode,
771: p_token2 => g_sqlerrm_token,
772: p_token2_value => sqlerrm);
773: -- notify caller of an error
774: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
775: end validate_crs_id;
776:
777:
778: -- Start of comments
786: PROCEDURE validate_TEMPLATE_TYPE_CODE(x_return_status OUT NOCOPY VARCHAR2,
787: p_khrv_rec IN khrv_rec_type) is
788: Begin
789: -- initialize return status
790: x_return_status := OKC_API.G_RET_STS_SUCCESS;
791:
792: -- enforce foreign key if data exists
793: If (p_khrv_rec.template_type_code <> OKC_API.G_MISS_CHAR and
794: p_khrv_rec.template_type_code IS NOT NULL)
789: -- initialize return status
790: x_return_status := OKC_API.G_RET_STS_SUCCESS;
791:
792: -- enforce foreign key if data exists
793: If (p_khrv_rec.template_type_code <> OKC_API.G_MISS_CHAR and
794: p_khrv_rec.template_type_code IS NOT NULL)
795: Then
796: -- Check if the value is a valid code from lookup table
797: x_return_status := OKC_UTIL.check_lookup_code('OKL_TEMPLATE_TYPE', p_khrv_rec.template_type_code);
794: p_khrv_rec.template_type_code IS NOT NULL)
795: Then
796: -- Check if the value is a valid code from lookup table
797: x_return_status := OKC_UTIL.check_lookup_code('OKL_TEMPLATE_TYPE', p_khrv_rec.template_type_code);
798: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
799: --set error message in message stack
800: OKC_API.SET_MESSAGE(
801: p_app_name => G_APP_NAME,
802: p_msg_name => G_INVALID_VALUE,
796: -- Check if the value is a valid code from lookup table
797: x_return_status := OKC_UTIL.check_lookup_code('OKL_TEMPLATE_TYPE', p_khrv_rec.template_type_code);
798: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
799: --set error message in message stack
800: OKC_API.SET_MESSAGE(
801: p_app_name => G_APP_NAME,
802: p_msg_name => G_INVALID_VALUE,
803: p_token1 => G_COL_NAME_TOKEN,
804: p_token1_value => 'TEMPLATE_TYPE_CODE');
802: p_msg_name => G_INVALID_VALUE,
803: p_token1 => G_COL_NAME_TOKEN,
804: p_token1_value => 'TEMPLATE_TYPE_CODE');
805: raise G_EXCEPTION_HALT_VALIDATION;
806: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
807: raise G_EXCEPTION_HALT_VALIDATION;
808: End If;
809: End If;
810: exception
809: End If;
810: exception
811: when OTHERS then
812: -- store SQL error message on message stack
813: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
814: p_msg_name => g_unexpected_error,
815: p_token1 => g_sqlcode_token,
816: p_token1_value => sqlcode,
817: p_token2 => g_sqlerrm_token,
816: p_token1_value => sqlcode,
817: p_token2 => g_sqlerrm_token,
818: p_token2_value => sqlerrm);
819: -- notify caller of an error as UNEXPETED error
820: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
821: End validate_TEMPLATE_TYPE_CODE;
822:
823: --Bug# 4558486: start
824: -- Start of comments
907: p_khrv_rec IN khrv_rec_type
908: ) is
909: begin
910: -- initialize return status
911: x_return_status := OKC_API.G_RET_STS_SUCCESS;
912:
913: -- data is required
914: if (p_khrv_rec.ID = OKC_API.G_MISS_NUM) OR (p_khrv_rec.ID IS NULL) then
915: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
910: -- initialize return status
911: x_return_status := OKC_API.G_RET_STS_SUCCESS;
912:
913: -- data is required
914: if (p_khrv_rec.ID = OKC_API.G_MISS_NUM) OR (p_khrv_rec.ID IS NULL) then
915: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
916:
917: -- notify caller of an error
918: x_return_status := OKC_API.G_RET_STS_ERROR;
911: x_return_status := OKC_API.G_RET_STS_SUCCESS;
912:
913: -- data is required
914: if (p_khrv_rec.ID = OKC_API.G_MISS_NUM) OR (p_khrv_rec.ID IS NULL) then
915: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
916:
917: -- notify caller of an error
918: x_return_status := OKC_API.G_RET_STS_ERROR;
919:
914: if (p_khrv_rec.ID = OKC_API.G_MISS_NUM) OR (p_khrv_rec.ID IS NULL) then
915: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
916:
917: -- notify caller of an error
918: x_return_status := OKC_API.G_RET_STS_ERROR;
919:
920: -- halt further validation of this column
921: raise G_EXCEPTION_HALT_VALIDATION;
922: end if;
926: null;
927:
928: when OTHERS then
929: -- store SQL error message on message stack for caller
930: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
931: p_msg_name => G_UNEXPECTED_ERROR,
932: p_token1 => g_sqlcode_token,
933: p_token1_value => sqlcode,
934: p_token2 => g_sqlerrm_token,
933: p_token1_value => sqlcode,
934: p_token2 => g_sqlerrm_token,
935: p_token2_value => sqlerrm);
936: -- notify caller of an error
937: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
938: end validate_ID;
939:
940: -- Start of comments
941: --
949: p_khrv_rec IN khrv_rec_type
950: ) is
951: begin
952: -- initialize return status
953: x_return_status := OKC_API.G_RET_STS_SUCCESS;
954:
955: -- data is required
956: if (p_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_khrv_rec.OBJECT_VERSION_NUMBER IS NULL) then
957: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
952: -- initialize return status
953: x_return_status := OKC_API.G_RET_STS_SUCCESS;
954:
955: -- data is required
956: if (p_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_khrv_rec.OBJECT_VERSION_NUMBER IS NULL) then
957: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
958:
959: -- notify caller of an error
960: x_return_status := OKC_API.G_RET_STS_ERROR;
953: x_return_status := OKC_API.G_RET_STS_SUCCESS;
954:
955: -- data is required
956: if (p_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_khrv_rec.OBJECT_VERSION_NUMBER IS NULL) then
957: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
958:
959: -- notify caller of an error
960: x_return_status := OKC_API.G_RET_STS_ERROR;
961:
956: if (p_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_khrv_rec.OBJECT_VERSION_NUMBER IS NULL) then
957: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
958:
959: -- notify caller of an error
960: x_return_status := OKC_API.G_RET_STS_ERROR;
961:
962: -- halt further validation of this column
963: raise G_EXCEPTION_HALT_VALIDATION;
964: end if;
968: null;
969:
970: when OTHERS then
971: -- store SQL error message on message stack for caller
972: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
973: p_msg_name => G_UNEXPECTED_ERROR,
974: p_token1 => g_sqlcode_token,
975: p_token1_value => sqlcode,
976: p_token2 => g_sqlerrm_token,
975: p_token1_value => sqlcode,
976: p_token2 => g_sqlerrm_token,
977: p_token2_value => sqlerrm);
978: -- notify caller of an error
979: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
980: end validate_OBJECT_VERSION_NUMBER;
981:
982: ---------------------------------------------
983: -- Validate_Attributes for: OKL_K_HEADERS_V --
984: ---------------------------------------------
985: FUNCTION Validate_Attributes (
986: p_khrv_rec IN khrv_rec_type
987: ) RETURN VARCHAR2 IS
988: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
989: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
990: BEGIN
991:
992:
985: FUNCTION Validate_Attributes (
986: p_khrv_rec IN khrv_rec_type
987: ) RETURN VARCHAR2 IS
988: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
989: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
990: BEGIN
991:
992:
993: -- call each column-level validation
997: validate_ID(x_return_status => l_return_status,
998: p_khrv_rec => p_khrv_rec);
999:
1000: -- store the highest degree of error
1001: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1002: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1003: x_return_status := l_return_status;
1004: end if;
1005: end if;
998: p_khrv_rec => p_khrv_rec);
999:
1000: -- store the highest degree of error
1001: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1002: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1003: x_return_status := l_return_status;
1004: end if;
1005: end if;
1006: */
1007: validate_OBJECT_VERSION_NUMBER(x_return_status => l_return_status,
1008: p_khrv_rec => p_khrv_rec);
1009:
1010: -- store the highest degree of error
1011: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1012: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1013: x_return_status := l_return_status;
1014: end if;
1015: end if;
1008: p_khrv_rec => p_khrv_rec);
1009:
1010: -- store the highest degree of error
1011: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1012: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1013: x_return_status := l_return_status;
1014: end if;
1015: end if;
1016:
1017: validate_KHR_ID(x_return_status => l_return_status,
1018: p_khrv_rec => p_khrv_rec);
1019:
1020: -- store the highest degree of error
1021: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1022: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1023: x_return_status := l_return_status;
1024: end if;
1025: end if;
1018: p_khrv_rec => p_khrv_rec);
1019:
1020: -- store the highest degree of error
1021: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1022: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1023: x_return_status := l_return_status;
1024: end if;
1025: end if;
1026:
1027: validate_PDT_ID(x_return_status => l_return_status,
1028: p_khrv_rec => p_khrv_rec);
1029:
1030: -- store the highest degree of error
1031: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1032: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1033: x_return_status := l_return_status;
1034: end if;
1035: end if;
1028: p_khrv_rec => p_khrv_rec);
1029:
1030: -- store the highest degree of error
1031: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1032: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1033: x_return_status := l_return_status;
1034: end if;
1035: end if;
1036:
1037: validate_AMD_CODE(x_return_status => l_return_status,
1038: p_khrv_rec => p_khrv_rec);
1039:
1040: -- store the highest degree of error
1041: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1042: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1043: x_return_status := l_return_status;
1044: end if;
1045: end if;
1038: p_khrv_rec => p_khrv_rec);
1039:
1040: -- store the highest degree of error
1041: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1042: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1043: x_return_status := l_return_status;
1044: end if;
1045: end if;
1046:
1047: validate_GENERATE_ACCRUAL_YN(x_return_status => l_return_status,
1048: p_khrv_rec => p_khrv_rec);
1049:
1050: -- store the highest degree of error
1051: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1052: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1053: x_return_status := l_return_status;
1054: end if;
1055: end if;
1048: p_khrv_rec => p_khrv_rec);
1049:
1050: -- store the highest degree of error
1051: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1052: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1053: x_return_status := l_return_status;
1054: end if;
1055: end if;
1056:
1057: validate_ACCRUAL_OVERRIDE_YN(x_return_status => l_return_status,
1058: p_khrv_rec => p_khrv_rec);
1059:
1060: -- store the highest degree of error
1061: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1062: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1063: x_return_status := l_return_status;
1064: end if;
1065: end if;
1058: p_khrv_rec => p_khrv_rec);
1059:
1060: -- store the highest degree of error
1061: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1062: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1063: x_return_status := l_return_status;
1064: end if;
1065: end if;
1066:
1067: validate_CREDIT_ACT_YN(x_return_status => l_return_status,
1068: p_khrv_rec => p_khrv_rec);
1069:
1070: -- store the highest degree of error
1071: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1072: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1073: x_return_status := l_return_status;
1074: end if;
1075: end if;
1068: p_khrv_rec => p_khrv_rec);
1069:
1070: -- store the highest degree of error
1071: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1072: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1073: x_return_status := l_return_status;
1074: end if;
1075: end if;
1076:
1077: validate_CONVERTED_ACCOUNT_YN(x_return_status => l_return_status,
1078: p_khrv_rec => p_khrv_rec);
1079:
1080: -- store the highest degree of error
1081: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1082: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1083: x_return_status := l_return_status;
1084: end if;
1085: end if;
1078: p_khrv_rec => p_khrv_rec);
1079:
1080: -- store the highest degree of error
1081: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1082: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1083: x_return_status := l_return_status;
1084: end if;
1085: end if;
1086:
1087: validate_SYNDICATABLE_YN(x_return_status => l_return_status,
1088: p_khrv_rec => p_khrv_rec);
1089:
1090: -- store the highest degree of error
1091: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1092: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1093: x_return_status := l_return_status;
1094: end if;
1095: end if;
1088: p_khrv_rec => p_khrv_rec);
1089:
1090: -- store the highest degree of error
1091: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1092: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1093: x_return_status := l_return_status;
1094: end if;
1095: end if;
1096:
1097: validate_SALESTYPE_YN(x_return_status => l_return_status,
1098: p_khrv_rec => p_khrv_rec);
1099:
1100: -- store the highest degree of error
1101: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1102: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1103: x_return_status := l_return_status;
1104: end if;
1105: end if;
1098: p_khrv_rec => p_khrv_rec);
1099:
1100: -- store the highest degree of error
1101: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1102: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1103: x_return_status := l_return_status;
1104: end if;
1105: end if;
1106:
1108: validate_DEAL_TYPE(x_return_status => l_return_status,
1109: p_khrv_rec => p_khrv_rec);
1110:
1111: -- store the highest degree of error
1112: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1113: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1114: x_return_status := l_return_status;
1115: end if;
1116: end if;
1109: p_khrv_rec => p_khrv_rec);
1110:
1111: -- store the highest degree of error
1112: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1113: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1114: x_return_status := l_return_status;
1115: end if;
1116: end if;
1117:
1118: validate_PREFUND_ELIGIBLE_YN(x_return_status => l_return_status,
1119: p_khrv_rec => p_khrv_rec);
1120:
1121: -- store the highest degree of error
1122: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1123: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1124: x_return_status := l_return_status;
1125: end if;
1126: end if;
1119: p_khrv_rec => p_khrv_rec);
1120:
1121: -- store the highest degree of error
1122: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1123: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1124: x_return_status := l_return_status;
1125: end if;
1126: end if;
1127:
1128: validate_revolving_credit_YN(x_return_status => l_return_status,
1129: p_khrv_rec => p_khrv_rec);
1130:
1131: -- store the highest degree of error
1132: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1133: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1134: x_return_status := l_return_status;
1135: end if;
1136: end if;
1129: p_khrv_rec => p_khrv_rec);
1130:
1131: -- store the highest degree of error
1132: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1133: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1134: x_return_status := l_return_status;
1135: end if;
1136: end if;
1137:
1144: (x_return_status => l_return_status,
1145: p_khrv_rec => p_khrv_rec);
1146:
1147: -- store the highest degree of error
1148: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1149: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1150: x_return_status := l_return_status;
1151: end if;
1152: end if;
1145: p_khrv_rec => p_khrv_rec);
1146:
1147: -- store the highest degree of error
1148: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1149: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1150: x_return_status := l_return_status;
1151: end if;
1152: end if;
1153: end if;
1156:
1157: -- Validate_LE_Id
1158: Validate_LE_Id(p_khrv_rec => p_khrv_rec,
1159: x_return_status => l_return_status);
1160: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1161: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1162: x_return_status := l_return_status;
1163: end if;
1164: end if;
1157: -- Validate_LE_Id
1158: Validate_LE_Id(p_khrv_rec => p_khrv_rec,
1159: x_return_status => l_return_status);
1160: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1161: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1162: x_return_status := l_return_status;
1163: end if;
1164: end if;
1165:
1167: return x_return_status;
1168: exception
1169: when OTHERS then
1170: -- store SQL error message on message stack for caller
1171: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1172: p_msg_name => G_UNEXPECTED_ERROR,
1173: p_token1 => g_sqlcode_token,
1174: p_token1_value => sqlcode,
1175: p_token2 => g_sqlerrm_token,
1174: p_token1_value => sqlcode,
1175: p_token2 => g_sqlerrm_token,
1176: p_token2_value => sqlerrm);
1177: -- notify caller of an error
1178: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1179: -- return status to caller
1180: return x_return_status;
1181: END Validate_Attributes;
1182:
1860: ) RETURN khrv_rec_type IS
1861: l_khrv_rec khrv_rec_type := p_khrv_rec;
1862: BEGIN
1863:
1864: IF (l_khrv_rec.ID = OKC_API.G_MISS_NUM) THEN
1865: l_khrv_rec.ID := NULL;
1866: END IF;
1867:
1868: IF (l_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1864: IF (l_khrv_rec.ID = OKC_API.G_MISS_NUM) THEN
1865: l_khrv_rec.ID := NULL;
1866: END IF;
1867:
1868: IF (l_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1869: l_khrv_rec.OBJECT_VERSION_NUMBER := NULL;
1870: END IF;
1871:
1872: IF (l_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
1868: IF (l_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1869: l_khrv_rec.OBJECT_VERSION_NUMBER := NULL;
1870: END IF;
1871:
1872: IF (l_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
1873: l_khrv_rec.ISG_ID := NULL;
1874: END IF;
1875:
1876: IF (l_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
1872: IF (l_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
1873: l_khrv_rec.ISG_ID := NULL;
1874: END IF;
1875:
1876: IF (l_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
1877: l_khrv_rec.KHR_ID := NULL;
1878: END IF;
1879:
1880: IF (l_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
1876: IF (l_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
1877: l_khrv_rec.KHR_ID := NULL;
1878: END IF;
1879:
1880: IF (l_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
1881: l_khrv_rec.PDT_ID := NULL;
1882: END IF;
1883:
1884: IF (l_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
1880: IF (l_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
1881: l_khrv_rec.PDT_ID := NULL;
1882: END IF;
1883:
1884: IF (l_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
1885: l_khrv_rec.AMD_CODE := NULL;
1886: END IF;
1887:
1888: IF (l_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
1884: IF (l_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
1885: l_khrv_rec.AMD_CODE := NULL;
1886: END IF;
1887:
1888: IF (l_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
1889: l_khrv_rec.DATE_FIRST_ACTIVITY := NULL;
1890: END IF;
1891:
1892: IF (l_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
1888: IF (l_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
1889: l_khrv_rec.DATE_FIRST_ACTIVITY := NULL;
1890: END IF;
1891:
1892: IF (l_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
1893: l_khrv_rec.GENERATE_ACCRUAL_YN := NULL;
1894: END IF;
1895:
1896: IF (l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
1892: IF (l_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
1893: l_khrv_rec.GENERATE_ACCRUAL_YN := NULL;
1894: END IF;
1895:
1896: IF (l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
1897: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := NULL;
1898: END IF;
1899:
1900: IF (l_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
1896: IF (l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
1897: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := NULL;
1898: END IF;
1899:
1900: IF (l_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
1901: l_khrv_rec.DATE_REFINANCED := NULL;
1902: END IF;
1903:
1904: IF (l_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
1900: IF (l_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
1901: l_khrv_rec.DATE_REFINANCED := NULL;
1902: END IF;
1903:
1904: IF (l_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
1905: l_khrv_rec.CREDIT_ACT_YN := NULL;
1906: END IF;
1907:
1908: IF (l_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
1904: IF (l_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
1905: l_khrv_rec.CREDIT_ACT_YN := NULL;
1906: END IF;
1907:
1908: IF (l_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
1909: l_khrv_rec.TERM_DURATION := NULL;
1910: END IF;
1911:
1912: IF (l_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
1908: IF (l_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
1909: l_khrv_rec.TERM_DURATION := NULL;
1910: END IF;
1911:
1912: IF (l_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
1913: l_khrv_rec.CONVERTED_ACCOUNT_YN := NULL;
1914: END IF;
1915:
1916: IF (l_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1912: IF (l_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
1913: l_khrv_rec.CONVERTED_ACCOUNT_YN := NULL;
1914: END IF;
1915:
1916: IF (l_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1917: l_khrv_rec.DATE_CONVERSION_EFFECTIVE := NULL;
1918: END IF;
1919:
1920: IF (l_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
1916: IF (l_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1917: l_khrv_rec.DATE_CONVERSION_EFFECTIVE := NULL;
1918: END IF;
1919:
1920: IF (l_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
1921: l_khrv_rec.SYNDICATABLE_YN := NULL;
1922: END IF;
1923:
1924: IF (l_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
1920: IF (l_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
1921: l_khrv_rec.SYNDICATABLE_YN := NULL;
1922: END IF;
1923:
1924: IF (l_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
1925: l_khrv_rec.SALESTYPE_YN := NULL;
1926: END IF;
1927:
1928: IF (l_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
1924: IF (l_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
1925: l_khrv_rec.SALESTYPE_YN := NULL;
1926: END IF;
1927:
1928: IF (l_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
1929: l_khrv_rec.DATE_DEAL_TRANSFERRED := NULL;
1930: END IF;
1931:
1932: IF (l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1928: IF (l_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
1929: l_khrv_rec.DATE_DEAL_TRANSFERRED := NULL;
1930: END IF;
1931:
1932: IF (l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1933: l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE := NULL;
1934: END IF;
1935:
1936: IF (l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
1932: IF (l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
1933: l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE := NULL;
1934: END IF;
1935:
1936: IF (l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
1937: l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE := NULL;
1938: END IF;
1939:
1940: IF (l_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
1936: IF (l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
1937: l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE := NULL;
1938: END IF;
1939:
1940: IF (l_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
1941: l_khrv_rec.DATE_PROPOSAL_ACCEPTED := NULL;
1942: END IF;
1943:
1944: IF (l_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1940: IF (l_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
1941: l_khrv_rec.DATE_PROPOSAL_ACCEPTED := NULL;
1942: END IF;
1943:
1944: IF (l_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1945: l_khrv_rec.ATTRIBUTE_CATEGORY := NULL;
1946: END IF;
1947:
1948: IF (l_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1944: IF (l_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1945: l_khrv_rec.ATTRIBUTE_CATEGORY := NULL;
1946: END IF;
1947:
1948: IF (l_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1949: l_khrv_rec.ATTRIBUTE1 := NULL;
1950: END IF;
1951:
1952: IF (l_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1948: IF (l_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1949: l_khrv_rec.ATTRIBUTE1 := NULL;
1950: END IF;
1951:
1952: IF (l_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1953: l_khrv_rec.ATTRIBUTE2 := NULL;
1954: END IF;
1955:
1956: IF (l_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1952: IF (l_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1953: l_khrv_rec.ATTRIBUTE2 := NULL;
1954: END IF;
1955:
1956: IF (l_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1957: l_khrv_rec.ATTRIBUTE3 := NULL;
1958: END IF;
1959:
1960: IF (l_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1956: IF (l_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1957: l_khrv_rec.ATTRIBUTE3 := NULL;
1958: END IF;
1959:
1960: IF (l_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1961: l_khrv_rec.ATTRIBUTE4 := NULL;
1962: END IF;
1963:
1964: IF (l_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1960: IF (l_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1961: l_khrv_rec.ATTRIBUTE4 := NULL;
1962: END IF;
1963:
1964: IF (l_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1965: l_khrv_rec.ATTRIBUTE5 := NULL;
1966: END IF;
1967:
1968: IF (l_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1964: IF (l_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1965: l_khrv_rec.ATTRIBUTE5 := NULL;
1966: END IF;
1967:
1968: IF (l_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1969: l_khrv_rec.ATTRIBUTE6 := NULL;
1970: END IF;
1971:
1972: IF (l_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1968: IF (l_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1969: l_khrv_rec.ATTRIBUTE6 := NULL;
1970: END IF;
1971:
1972: IF (l_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1973: l_khrv_rec.ATTRIBUTE7 := NULL;
1974: END IF;
1975:
1976: IF (l_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1972: IF (l_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1973: l_khrv_rec.ATTRIBUTE7 := NULL;
1974: END IF;
1975:
1976: IF (l_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1977: l_khrv_rec.ATTRIBUTE8 := NULL;
1978: END IF;
1979:
1980: IF (l_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1976: IF (l_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1977: l_khrv_rec.ATTRIBUTE8 := NULL;
1978: END IF;
1979:
1980: IF (l_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1981: l_khrv_rec.ATTRIBUTE9 := NULL;
1982: END IF;
1983:
1984: IF (l_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1980: IF (l_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1981: l_khrv_rec.ATTRIBUTE9 := NULL;
1982: END IF;
1983:
1984: IF (l_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1985: l_khrv_rec.ATTRIBUTE10 := NULL;
1986: END IF;
1987:
1988: IF (l_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1984: IF (l_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1985: l_khrv_rec.ATTRIBUTE10 := NULL;
1986: END IF;
1987:
1988: IF (l_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1989: l_khrv_rec.ATTRIBUTE11 := NULL;
1990: END IF;
1991:
1992: IF (l_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1988: IF (l_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1989: l_khrv_rec.ATTRIBUTE11 := NULL;
1990: END IF;
1991:
1992: IF (l_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1993: l_khrv_rec.ATTRIBUTE12 := NULL;
1994: END IF;
1995:
1996: IF (l_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1992: IF (l_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1993: l_khrv_rec.ATTRIBUTE12 := NULL;
1994: END IF;
1995:
1996: IF (l_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1997: l_khrv_rec.ATTRIBUTE13 := NULL;
1998: END IF;
1999:
2000: IF (l_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
1996: IF (l_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1997: l_khrv_rec.ATTRIBUTE13 := NULL;
1998: END IF;
1999:
2000: IF (l_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
2001: l_khrv_rec.ATTRIBUTE14 := NULL;
2002: END IF;
2003:
2004: IF (l_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2000: IF (l_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
2001: l_khrv_rec.ATTRIBUTE14 := NULL;
2002: END IF;
2003:
2004: IF (l_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2005: l_khrv_rec.ATTRIBUTE15 := NULL;
2006: END IF;
2007:
2008: IF (l_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2004: IF (l_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2005: l_khrv_rec.ATTRIBUTE15 := NULL;
2006: END IF;
2007:
2008: IF (l_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2009: l_khrv_rec.CREATED_BY := NULL;
2010: END IF;
2011:
2012: IF (l_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2008: IF (l_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2009: l_khrv_rec.CREATED_BY := NULL;
2010: END IF;
2011:
2012: IF (l_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2013: l_khrv_rec.CREATION_DATE := NULL;
2014: END IF;
2015:
2016: IF (l_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2012: IF (l_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2013: l_khrv_rec.CREATION_DATE := NULL;
2014: END IF;
2015:
2016: IF (l_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2017: l_khrv_rec.LAST_UPDATED_BY := NULL;
2018: END IF;
2019:
2020: IF (l_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2016: IF (l_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2017: l_khrv_rec.LAST_UPDATED_BY := NULL;
2018: END IF;
2019:
2020: IF (l_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2021: l_khrv_rec.LAST_UPDATE_DATE := NULL;
2022: END IF;
2023:
2024: IF (l_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2020: IF (l_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2021: l_khrv_rec.LAST_UPDATE_DATE := NULL;
2022: END IF;
2023:
2024: IF (l_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2025: l_khrv_rec.LAST_UPDATE_LOGIN := NULL;
2026: END IF;
2027:
2028: IF (l_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2024: IF (l_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2025: l_khrv_rec.LAST_UPDATE_LOGIN := NULL;
2026: END IF;
2027:
2028: IF (l_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2029: l_khrv_rec.PRE_TAX_YIELD := NULL;
2030: END IF;
2031:
2032: IF (l_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2028: IF (l_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2029: l_khrv_rec.PRE_TAX_YIELD := NULL;
2030: END IF;
2031:
2032: IF (l_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2033: l_khrv_rec.AFTER_TAX_YIELD := NULL;
2034: END IF;
2035:
2036: IF (l_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2032: IF (l_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2033: l_khrv_rec.AFTER_TAX_YIELD := NULL;
2034: END IF;
2035:
2036: IF (l_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2037: l_khrv_rec.IMPLICIT_INTEREST_RATE := NULL;
2038: END IF;
2039:
2040: IF (l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2036: IF (l_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2037: l_khrv_rec.IMPLICIT_INTEREST_RATE := NULL;
2038: END IF;
2039:
2040: IF (l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2041: l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE := NULL;
2042: END IF;
2043:
2044: IF (l_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2040: IF (l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2041: l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE := NULL;
2042: END IF;
2043:
2044: IF (l_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2045: l_khrv_rec.TARGET_PRE_TAX_YIELD := NULL;
2046: END IF;
2047:
2048: IF (l_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2044: IF (l_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2045: l_khrv_rec.TARGET_PRE_TAX_YIELD := NULL;
2046: END IF;
2047:
2048: IF (l_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2049: l_khrv_rec.TARGET_AFTER_TAX_YIELD := NULL;
2050: END IF;
2051:
2052: IF (l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2048: IF (l_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2049: l_khrv_rec.TARGET_AFTER_TAX_YIELD := NULL;
2050: END IF;
2051:
2052: IF (l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2053: l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE := NULL;
2054: END IF;
2055:
2056: IF (l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
2052: IF (l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2053: l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE := NULL;
2054: END IF;
2055:
2056: IF (l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
2057: l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE := NULL;
2058: END IF;
2059:
2060: IF (l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
2056: IF (l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
2057: l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE := NULL;
2058: END IF;
2059:
2060: IF (l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
2061: l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL := NULL;
2062: END IF;
2063:
2064: IF (l_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2060: IF (l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
2061: l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL := NULL;
2062: END IF;
2063:
2064: IF (l_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2065: l_khrv_rec.DEAL_TYPE := NULL;
2066: END IF;
2067:
2068: IF (l_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2064: IF (l_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
2065: l_khrv_rec.DEAL_TYPE := NULL;
2066: END IF;
2067:
2068: IF (l_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2069: l_khrv_rec.PRE_TAX_IRR := NULL;
2070: END IF;
2071:
2072: IF (l_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2068: IF (l_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2069: l_khrv_rec.PRE_TAX_IRR := NULL;
2070: END IF;
2071:
2072: IF (l_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2073: l_khrv_rec.AFTER_TAX_IRR := NULL;
2074: END IF;
2075:
2076: IF (l_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
2072: IF (l_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2073: l_khrv_rec.AFTER_TAX_IRR := NULL;
2074: END IF;
2075:
2076: IF (l_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
2077: l_khrv_rec.EXPECTED_DELIVERY_DATE := NULL;
2078: END IF;
2079:
2080: IF (l_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
2076: IF (l_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
2077: l_khrv_rec.EXPECTED_DELIVERY_DATE := NULL;
2078: END IF;
2079:
2080: IF (l_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
2081: l_khrv_rec.ACCEPTED_DATE := NULL;
2082: END IF;
2083:
2084: IF (l_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
2080: IF (l_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
2081: l_khrv_rec.ACCEPTED_DATE := NULL;
2082: END IF;
2083:
2084: IF (l_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
2085: l_khrv_rec.PREFUNDING_ELIGIBLE_YN := NULL;
2086: END IF;
2087:
2088: IF (l_khrv_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
2084: IF (l_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
2085: l_khrv_rec.PREFUNDING_ELIGIBLE_YN := NULL;
2086: END IF;
2087:
2088: IF (l_khrv_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
2089: l_khrv_rec.REVOLVING_CREDIT_YN := NULL;
2090: END IF;
2091:
2092: --Bug# 2697681 schema changes 11.5.9
2089: l_khrv_rec.REVOLVING_CREDIT_YN := NULL;
2090: END IF;
2091:
2092: --Bug# 2697681 schema changes 11.5.9
2093: IF (l_khrv_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
2094: l_khrv_rec.CURRENCY_CONVERSION_TYPE := NULL;
2095: END IF;
2096:
2097: IF (l_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
2093: IF (l_khrv_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
2094: l_khrv_rec.CURRENCY_CONVERSION_TYPE := NULL;
2095: END IF;
2096:
2097: IF (l_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
2098: l_khrv_rec.CURRENCY_CONVERSION_RATE := NULL;
2099: END IF;
2100:
2101: IF (l_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
2097: IF (l_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
2098: l_khrv_rec.CURRENCY_CONVERSION_RATE := NULL;
2099: END IF;
2100:
2101: IF (l_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
2102: l_khrv_rec.CURRENCY_CONVERSION_DATE := NULL;
2103: END IF;
2104:
2105: IF (l_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
2101: IF (l_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
2102: l_khrv_rec.CURRENCY_CONVERSION_DATE := NULL;
2103: END IF;
2104:
2105: IF (l_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
2106: l_khrv_rec.MULTI_GAAP_YN := NULL;
2107: END IF;
2108:
2109: IF (l_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
2105: IF (l_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
2106: l_khrv_rec.MULTI_GAAP_YN := NULL;
2107: END IF;
2108:
2109: IF (l_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
2110: l_khrv_rec.RECOURSE_CODE := NULL;
2111: END IF;
2112:
2113: IF (l_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
2109: IF (l_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
2110: l_khrv_rec.RECOURSE_CODE := NULL;
2111: END IF;
2112:
2113: IF (l_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
2114: l_khrv_rec.LESSOR_SERV_ORG_CODE := NULL;
2115: END IF;
2116:
2117: IF (l_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
2113: IF (l_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
2114: l_khrv_rec.LESSOR_SERV_ORG_CODE := NULL;
2115: END IF;
2116:
2117: IF (l_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
2118: l_khrv_rec.ASSIGNABLE_YN := NULL;
2119: END IF;
2120:
2121: IF (l_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
2117: IF (l_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
2118: l_khrv_rec.ASSIGNABLE_YN := NULL;
2119: END IF;
2120:
2121: IF (l_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
2122: l_khrv_rec.SECURITIZED_CODE := NULL;
2123: END IF;
2124:
2125: IF (l_khrv_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
2121: IF (l_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
2122: l_khrv_rec.SECURITIZED_CODE := NULL;
2123: END IF;
2124:
2125: IF (l_khrv_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
2126: l_khrv_rec.SECURITIZATION_TYPE := NULL;
2127: END IF;
2128: --Bug#3143522 : 11.5.10
2129: --subsidy
2126: l_khrv_rec.SECURITIZATION_TYPE := NULL;
2127: END IF;
2128: --Bug#3143522 : 11.5.10
2129: --subsidy
2130: IF (l_khrv_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2131: l_khrv_rec.SUB_PRE_TAX_YIELD := NULL;
2132: END IF;
2133: IF (l_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2134: l_khrv_rec.SUB_AFTER_TAX_YIELD := NULL;
2129: --subsidy
2130: IF (l_khrv_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2131: l_khrv_rec.SUB_PRE_TAX_YIELD := NULL;
2132: END IF;
2133: IF (l_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2134: l_khrv_rec.SUB_AFTER_TAX_YIELD := NULL;
2135: END IF;
2136: IF (l_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2137: l_khrv_rec.SUB_IMPL_INTEREST_RATE := NULL;
2132: END IF;
2133: IF (l_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
2134: l_khrv_rec.SUB_AFTER_TAX_YIELD := NULL;
2135: END IF;
2136: IF (l_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2137: l_khrv_rec.SUB_IMPL_INTEREST_RATE := NULL;
2138: END IF;
2139: IF (l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
2140: l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := NULL;
2135: END IF;
2136: IF (l_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
2137: l_khrv_rec.SUB_IMPL_INTEREST_RATE := NULL;
2138: END IF;
2139: IF (l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
2140: l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := NULL;
2141: END IF;
2142: IF (l_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2143: l_khrv_rec.SUB_PRE_TAX_IRR := NULL;
2138: END IF;
2139: IF (l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
2140: l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := NULL;
2141: END IF;
2142: IF (l_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2143: l_khrv_rec.SUB_PRE_TAX_IRR := NULL;
2144: END IF;
2145: IF (l_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2146: l_khrv_rec.SUB_AFTER_TAX_IRR := NULL;
2141: END IF;
2142: IF (l_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2143: l_khrv_rec.SUB_PRE_TAX_IRR := NULL;
2144: END IF;
2145: IF (l_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2146: l_khrv_rec.SUB_AFTER_TAX_IRR := NULL;
2147: END IF;
2148: --Bug# 3973640 : 11.5.10+ schema changes
2149: IF (l_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2145: IF (l_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
2146: l_khrv_rec.SUB_AFTER_TAX_IRR := NULL;
2147: END IF;
2148: --Bug# 3973640 : 11.5.10+ schema changes
2149: IF (l_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2150: l_khrv_rec.TOT_CL_TRANSFER_AMT := NULL;
2151: END IF;
2152: IF (l_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2153: l_khrv_rec.TOT_CL_NET_TRANSFER_AMT := NULL;
2148: --Bug# 3973640 : 11.5.10+ schema changes
2149: IF (l_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2150: l_khrv_rec.TOT_CL_TRANSFER_AMT := NULL;
2151: END IF;
2152: IF (l_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2153: l_khrv_rec.TOT_CL_NET_TRANSFER_AMT := NULL;
2154: END IF;
2155: IF (l_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
2156: l_khrv_rec.TOT_CL_LIMIT := NULL;
2151: END IF;
2152: IF (l_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
2153: l_khrv_rec.TOT_CL_NET_TRANSFER_AMT := NULL;
2154: END IF;
2155: IF (l_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
2156: l_khrv_rec.TOT_CL_LIMIT := NULL;
2157: END IF;
2158: IF (l_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
2159: l_khrv_rec.TOT_CL_FUNDING_AMT := NULL;
2154: END IF;
2155: IF (l_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
2156: l_khrv_rec.TOT_CL_LIMIT := NULL;
2157: END IF;
2158: IF (l_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
2159: l_khrv_rec.TOT_CL_FUNDING_AMT := NULL;
2160: END IF;
2161: IF (l_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
2162: l_khrv_rec.CRS_ID := NULL;
2157: END IF;
2158: IF (l_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
2159: l_khrv_rec.TOT_CL_FUNDING_AMT := NULL;
2160: END IF;
2161: IF (l_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
2162: l_khrv_rec.CRS_ID := NULL;
2163: END IF;
2164: IF (l_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
2165: l_khrv_rec.TEMPLATE_TYPE_CODE := NULL;
2160: END IF;
2161: IF (l_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
2162: l_khrv_rec.CRS_ID := NULL;
2163: END IF;
2164: IF (l_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
2165: l_khrv_rec.TEMPLATE_TYPE_CODE := NULL;
2166: END IF;
2167: --Bug# 4419339 OKLH Schema Sales Quote
2168: IF (l_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
2164: IF (l_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
2165: l_khrv_rec.TEMPLATE_TYPE_CODE := NULL;
2166: END IF;
2167: --Bug# 4419339 OKLH Schema Sales Quote
2168: IF (l_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
2169: l_khrv_rec.DATE_FUNDING_EXPECTED := NULL;
2170: END IF;
2171:
2172: IF (l_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
2168: IF (l_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
2169: l_khrv_rec.DATE_FUNDING_EXPECTED := NULL;
2170: END IF;
2171:
2172: IF (l_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
2173: l_khrv_rec.DATE_TRADEIN := NULL;
2174: END IF;
2175:
2176: IF (l_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
2172: IF (l_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
2173: l_khrv_rec.DATE_TRADEIN := NULL;
2174: END IF;
2175:
2176: IF (l_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
2177: l_khrv_rec.TRADEIN_AMOUNT := NULL;
2178: END IF;
2179:
2180: IF (l_khrv_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
2176: IF (l_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
2177: l_khrv_rec.TRADEIN_AMOUNT := NULL;
2178: END IF;
2179:
2180: IF (l_khrv_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
2181: l_khrv_rec.TRADEIN_DESCRIPTION := NULL;
2182: END IF;
2183:
2184: --Added by dpsingh for LE uptake
2199: -----------------------------------------
2200: FUNCTION Validate_Record (
2201: p_khrv_rec IN khrv_rec_type
2202: ) RETURN VARCHAR2 IS
2203: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2204: BEGIN
2205: RETURN (l_return_status);
2206: END Validate_Record;
2207:
2694: p_khrv_rec IN khrv_rec_type) IS
2695:
2696: l_api_version CONSTANT NUMBER := 1;
2697: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
2698: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2699: l_khrv_rec khrv_rec_type := p_khrv_rec;
2700: BEGIN
2701: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2702: G_PKG_NAME,
2697: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
2698: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2699: l_khrv_rec khrv_rec_type := p_khrv_rec;
2700: BEGIN
2701: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2702: G_PKG_NAME,
2703: p_init_msg_list,
2704: l_api_version,
2705: p_api_version,
2705: p_api_version,
2706: '_PVT',
2707: x_return_status);
2708:
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2706: '_PVT',
2707: x_return_status);
2708:
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2707: x_return_status);
2708:
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2715:
2708:
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2715:
2716: --- Validate all non-missing attributes (Item Level Validation)
2716: --- Validate all non-missing attributes (Item Level Validation)
2717: l_return_status := Validate_Attributes(l_khrv_rec);
2718: --- If any errors happen abort API
2719:
2720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: RAISE OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2717: l_return_status := Validate_Attributes(l_khrv_rec);
2718: --- If any errors happen abort API
2719:
2720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: RAISE OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2718: --- If any errors happen abort API
2719:
2720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: RAISE OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2726:
2719:
2720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: RAISE OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2726:
2727: l_return_status := Validate_Record(l_khrv_rec);
2725:
2726:
2727: l_return_status := Validate_Record(l_khrv_rec);
2728:
2729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2732: RAISE OKC_API.G_EXCEPTION_ERROR;
2733: END IF;
2726:
2727: l_return_status := Validate_Record(l_khrv_rec);
2728:
2729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2732: RAISE OKC_API.G_EXCEPTION_ERROR;
2733: END IF;
2734:
2727: l_return_status := Validate_Record(l_khrv_rec);
2728:
2729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2732: RAISE OKC_API.G_EXCEPTION_ERROR;
2733: END IF;
2734:
2735:
2728:
2729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2732: RAISE OKC_API.G_EXCEPTION_ERROR;
2733: END IF;
2734:
2735:
2736: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2732: RAISE OKC_API.G_EXCEPTION_ERROR;
2733: END IF;
2734:
2735:
2736: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737:
2738: EXCEPTION
2739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2735:
2736: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737:
2738: EXCEPTION
2739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2736: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737:
2738: EXCEPTION
2739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_ERROR',
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_ERROR',
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2751: (
2752: l_api_name,
2753: G_PKG_NAME,
2746: x_msg_data,
2747: '_PVT'
2748: );
2749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2751: (
2752: l_api_name,
2753: G_PKG_NAME,
2754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2751: (
2752: l_api_name,
2753: G_PKG_NAME,
2754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2755: x_msg_count,
2756: x_msg_data,
2757: '_PVT'
2758: );
2756: x_msg_data,
2757: '_PVT'
2758: );
2759: WHEN OTHERS THEN
2760: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2761: (
2762: l_api_name,
2763: G_PKG_NAME,
2764: 'OTHERS',
2782: p_khrv_tbl IN khrv_tbl_type) IS
2783:
2784: l_api_version CONSTANT NUMBER := 1;
2785: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
2786: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2787: i NUMBER := 0;
2788: BEGIN
2789: OKC_API.init_msg_list(p_init_msg_list);
2790: -- Make sure PL/SQL table has records in it before passing
2785: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
2786: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2787: i NUMBER := 0;
2788: BEGIN
2789: OKC_API.init_msg_list(p_init_msg_list);
2790: -- Make sure PL/SQL table has records in it before passing
2791: IF (p_khrv_tbl.COUNT > 0) THEN
2792: i := p_khrv_tbl.FIRST;
2793: LOOP
2792: i := p_khrv_tbl.FIRST;
2793: LOOP
2794: validate_row (
2795: p_api_version => p_api_version,
2796: p_init_msg_list => OKC_API.G_FALSE,
2797: x_return_status => x_return_status,
2798: x_msg_count => x_msg_count,
2799: x_msg_data => x_msg_data,
2800: p_khrv_rec => p_khrv_tbl(i));
2803: END LOOP;
2804: END IF;
2805:
2806: EXCEPTION
2807: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2809: (
2810: l_api_name,
2811: G_PKG_NAME,
2804: END IF;
2805:
2806: EXCEPTION
2807: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2809: (
2810: l_api_name,
2811: G_PKG_NAME,
2812: 'OKC_API.G_RET_STS_ERROR',
2808: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2809: (
2810: l_api_name,
2811: G_PKG_NAME,
2812: 'OKC_API.G_RET_STS_ERROR',
2813: x_msg_count,
2814: x_msg_data,
2815: '_PVT'
2816: );
2813: x_msg_count,
2814: x_msg_data,
2815: '_PVT'
2816: );
2817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2819: (
2820: l_api_name,
2821: G_PKG_NAME,
2814: x_msg_data,
2815: '_PVT'
2816: );
2817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2819: (
2820: l_api_name,
2821: G_PKG_NAME,
2822: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2819: (
2820: l_api_name,
2821: G_PKG_NAME,
2822: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2823: x_msg_count,
2824: x_msg_data,
2825: '_PVT'
2826: );
2824: x_msg_data,
2825: '_PVT'
2826: );
2827: WHEN OTHERS THEN
2828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2829: (
2830: l_api_name,
2831: G_PKG_NAME,
2832: 'OTHERS',
2858: x_okl_k_headers_h_rec OUT NOCOPY okl_k_headers_h_rec_type) IS
2859:
2860: l_api_version CONSTANT NUMBER := 1;
2861: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
2862: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2863: l_okl_k_headers_h_rec okl_k_headers_h_rec_type := p_okl_k_headers_h_rec;
2864: l_def_okl_k_headers_h_rec okl_k_headers_h_rec_type;
2865: ----------------------------------------
2866: -- Set_Attributes for: OKL_K_HEADERS_H --
2868: FUNCTION Set_Attributes (
2869: p_okl_k_headers_h_rec IN okl_k_headers_h_rec_type,
2870: x_okl_k_headers_h_rec OUT NOCOPY okl_k_headers_h_rec_type
2871: ) RETURN VARCHAR2 IS
2872: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2873: BEGIN
2874: x_okl_k_headers_h_rec := p_okl_k_headers_h_rec;
2875: RETURN(l_return_status);
2876: END Set_Attributes;
2875: RETURN(l_return_status);
2876: END Set_Attributes;
2877: BEGIN
2878:
2879: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2880: p_init_msg_list,
2881: '_PVT',
2882: x_return_status);
2883:
2880: p_init_msg_list,
2881: '_PVT',
2882: x_return_status);
2883:
2884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2887: RAISE OKC_API.G_EXCEPTION_ERROR;
2888: END IF;
2881: '_PVT',
2882: x_return_status);
2883:
2884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2887: RAISE OKC_API.G_EXCEPTION_ERROR;
2888: END IF;
2889:
2882: x_return_status);
2883:
2884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2887: RAISE OKC_API.G_EXCEPTION_ERROR;
2888: END IF;
2889:
2890: --- Setting item attributes
2883:
2884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2887: RAISE OKC_API.G_EXCEPTION_ERROR;
2888: END IF;
2889:
2890: --- Setting item attributes
2891: l_return_status := Set_Attributes(
2892: p_okl_k_headers_h_rec, -- IN
2893: l_okl_k_headers_h_rec); -- OUT
2894: --- If any errors happen abort API
2895:
2896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2899: RAISE OKC_API.G_EXCEPTION_ERROR;
2900: END IF;
2893: l_okl_k_headers_h_rec); -- OUT
2894: --- If any errors happen abort API
2895:
2896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2899: RAISE OKC_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2894: --- If any errors happen abort API
2895:
2896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2899: RAISE OKC_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2902: INSERT INTO OKL_K_HEADERS_H(
2895:
2896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2899: RAISE OKC_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2902: INSERT INTO OKL_K_HEADERS_H(
2903: ID,
3083: --Added by dpsingh for LE uptake
3084: l_okl_k_headers_h_rec.LEGAL_ENTITY_ID);
3085: -- Set OUT values
3086: x_okl_k_headers_h_rec := l_okl_k_headers_h_rec;
3087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3086: x_okl_k_headers_h_rec := l_okl_k_headers_h_rec;
3087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3092: (
3093: l_api_name,
3094: G_PKG_NAME,
3087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3092: (
3093: l_api_name,
3094: G_PKG_NAME,
3095: 'OKC_API.G_RET_STS_ERROR',
3091: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3092: (
3093: l_api_name,
3094: G_PKG_NAME,
3095: 'OKC_API.G_RET_STS_ERROR',
3096: x_msg_count,
3097: x_msg_data,
3098: '_PVT'
3099: );
3096: x_msg_count,
3097: x_msg_data,
3098: '_PVT'
3099: );
3100: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3102: (
3103: l_api_name,
3104: G_PKG_NAME,
3097: x_msg_data,
3098: '_PVT'
3099: );
3100: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3102: (
3103: l_api_name,
3104: G_PKG_NAME,
3105: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3101: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3102: (
3103: l_api_name,
3104: G_PKG_NAME,
3105: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3106: x_msg_count,
3107: x_msg_data,
3108: '_PVT'
3109: );
3107: x_msg_data,
3108: '_PVT'
3109: );
3110: WHEN OTHERS THEN
3111: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3112: (
3113: l_api_name,
3114: G_PKG_NAME,
3115: 'OTHERS',
3135: x_khr_rec OUT NOCOPY khr_rec_type) IS
3136:
3137: l_api_version CONSTANT NUMBER := 1;
3138: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3139: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3140: l_khr_rec khr_rec_type := p_khr_rec;
3141: l_def_khr_rec khr_rec_type;
3142: ----------------------------------------
3143: -- Set_Attributes for: OKL_K_HEADERS --
3145: FUNCTION Set_Attributes (
3146: p_khr_rec IN khr_rec_type,
3147: x_khr_rec OUT NOCOPY khr_rec_type
3148: ) RETURN VARCHAR2 IS
3149: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3150: BEGIN
3151: x_khr_rec := p_khr_rec;
3152: RETURN(l_return_status);
3153: END Set_Attributes;
3152: RETURN(l_return_status);
3153: END Set_Attributes;
3154: BEGIN
3155:
3156: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3157: p_init_msg_list,
3158: '_PVT',
3159: x_return_status);
3160:
3157: p_init_msg_list,
3158: '_PVT',
3159: x_return_status);
3160:
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3158: '_PVT',
3159: x_return_status);
3160:
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166:
3159: x_return_status);
3160:
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166:
3167: --- Setting item attributes
3160:
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166:
3167: --- Setting item attributes
3168: l_return_status := Set_Attributes(
3169: p_khr_rec, -- IN
3170: l_khr_rec); -- OUT
3171: --- If any errors happen abort API
3172:
3173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3175: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3176: RAISE OKC_API.G_EXCEPTION_ERROR;
3177: END IF;
3170: l_khr_rec); -- OUT
3171: --- If any errors happen abort API
3172:
3173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3175: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3176: RAISE OKC_API.G_EXCEPTION_ERROR;
3177: END IF;
3178:
3171: --- If any errors happen abort API
3172:
3173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3175: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3176: RAISE OKC_API.G_EXCEPTION_ERROR;
3177: END IF;
3178:
3179: INSERT INTO OKL_K_HEADERS(
3172:
3173: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3175: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3176: RAISE OKC_API.G_EXCEPTION_ERROR;
3177: END IF;
3178:
3179: INSERT INTO OKL_K_HEADERS(
3180: ID,
3360: --Added by dpsingh for LE uptake
3361: l_khr_rec.LEGAL_ENTITY_ID);
3362: -- Set OUT values
3363: x_khr_rec := l_khr_rec;
3364: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3365:
3366: EXCEPTION
3367: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3363: x_khr_rec := l_khr_rec;
3364: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3365:
3366: EXCEPTION
3367: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3369: (
3370: l_api_name,
3371: G_PKG_NAME,
3364: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3365:
3366: EXCEPTION
3367: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3369: (
3370: l_api_name,
3371: G_PKG_NAME,
3372: 'OKC_API.G_RET_STS_ERROR',
3368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3369: (
3370: l_api_name,
3371: G_PKG_NAME,
3372: 'OKC_API.G_RET_STS_ERROR',
3373: x_msg_count,
3374: x_msg_data,
3375: '_PVT'
3376: );
3373: x_msg_count,
3374: x_msg_data,
3375: '_PVT'
3376: );
3377: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3378: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3379: (
3380: l_api_name,
3381: G_PKG_NAME,
3374: x_msg_data,
3375: '_PVT'
3376: );
3377: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3378: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3379: (
3380: l_api_name,
3381: G_PKG_NAME,
3382: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3378: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3379: (
3380: l_api_name,
3381: G_PKG_NAME,
3382: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3383: x_msg_count,
3384: x_msg_data,
3385: '_PVT'
3386: );
3384: x_msg_data,
3385: '_PVT'
3386: );
3387: WHEN OTHERS THEN
3388: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3389: (
3390: l_api_name,
3391: G_PKG_NAME,
3392: 'OTHERS',
3412: x_khrv_rec OUT NOCOPY khrv_rec_type) IS
3413:
3414: l_api_version CONSTANT NUMBER := 1;
3415: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3416: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3417: l_khrv_rec khrv_rec_type;
3418: l_def_khrv_rec khrv_rec_type;
3419: l_khr_rec khr_rec_type;
3420: lx_khr_rec khr_rec_type;
3439: FUNCTION Set_Attributes (
3440: p_khrv_rec IN khrv_rec_type,
3441: x_khrv_rec OUT NOCOPY khrv_rec_type
3442: ) RETURN VARCHAR2 IS
3443: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3444: BEGIN
3445: x_khrv_rec := p_khrv_rec;
3446: x_khrv_rec.OBJECT_VERSION_NUMBER := 1;
3447: RETURN(l_return_status);
3446: x_khrv_rec.OBJECT_VERSION_NUMBER := 1;
3447: RETURN(l_return_status);
3448: END Set_Attributes;
3449: BEGIN
3450: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3451: G_PKG_NAME,
3452: p_init_msg_list,
3453: l_api_version,
3454: p_api_version,
3454: p_api_version,
3455: '_PVT',
3456: x_return_status);
3457:
3458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_ERROR;
3462: END IF;
3455: '_PVT',
3456: x_return_status);
3457:
3458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_ERROR;
3462: END IF;
3463:
3456: x_return_status);
3457:
3458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_ERROR;
3462: END IF;
3463:
3464: l_khrv_rec := null_out_defaults(p_khrv_rec);
3457:
3458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_ERROR;
3462: END IF;
3463:
3464: l_khrv_rec := null_out_defaults(p_khrv_rec);
3465:
3474: l_khrv_rec, -- IN
3475: l_def_khrv_rec); -- OUT
3476: --- If any errors happen abort API
3477:
3478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3481: RAISE OKC_API.G_EXCEPTION_ERROR;
3482: END IF;
3475: l_def_khrv_rec); -- OUT
3476: --- If any errors happen abort API
3477:
3478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3481: RAISE OKC_API.G_EXCEPTION_ERROR;
3482: END IF;
3483:
3476: --- If any errors happen abort API
3477:
3478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3481: RAISE OKC_API.G_EXCEPTION_ERROR;
3482: END IF;
3483:
3484: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3477:
3478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3481: RAISE OKC_API.G_EXCEPTION_ERROR;
3482: END IF;
3483:
3484: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3485: --- Validate all non-missing attributes (Item Level Validation)
3485: --- Validate all non-missing attributes (Item Level Validation)
3486: l_return_status := Validate_Attributes(l_def_khrv_rec);
3487: --- If any errors happen abort API
3488:
3489: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3486: l_return_status := Validate_Attributes(l_def_khrv_rec);
3487: --- If any errors happen abort API
3488:
3489: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3487: --- If any errors happen abort API
3488:
3489: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3495: l_return_status := Validate_Record(l_def_khrv_rec);
3488:
3489: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3495: l_return_status := Validate_Record(l_def_khrv_rec);
3496:
3493: END IF;
3494:
3495: l_return_status := Validate_Record(l_def_khrv_rec);
3496:
3497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3499: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3500: RAISE OKC_API.G_EXCEPTION_ERROR;
3501: END IF;
3494:
3495: l_return_status := Validate_Record(l_def_khrv_rec);
3496:
3497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3499: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3500: RAISE OKC_API.G_EXCEPTION_ERROR;
3501: END IF;
3502:
3495: l_return_status := Validate_Record(l_def_khrv_rec);
3496:
3497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3499: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3500: RAISE OKC_API.G_EXCEPTION_ERROR;
3501: END IF;
3502:
3503: --------------------------------------
3496:
3497: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3498: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3499: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3500: RAISE OKC_API.G_EXCEPTION_ERROR;
3501: END IF;
3502:
3503: --------------------------------------
3504: -- Move VIEW record to "Child" records
3516: l_khr_rec,
3517: lx_khr_rec
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3517: lx_khr_rec
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: migrate(lx_khr_rec, l_def_khrv_rec);
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3523: RAISE OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: migrate(lx_khr_rec, l_def_khrv_rec);
3527: -- Set OUT values
3525:
3526: migrate(lx_khr_rec, l_def_khrv_rec);
3527: -- Set OUT values
3528: x_khrv_rec := l_def_khrv_rec;
3529: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3530:
3531: EXCEPTION
3532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3528: x_khrv_rec := l_def_khrv_rec;
3529: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3530:
3531: EXCEPTION
3532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3529: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3530:
3531: EXCEPTION
3532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3537: 'OKC_API.G_RET_STS_ERROR',
3533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3537: 'OKC_API.G_RET_STS_ERROR',
3538: x_msg_count,
3539: x_msg_data,
3540: '_PVT'
3541: );
3538: x_msg_count,
3539: x_msg_data,
3540: '_PVT'
3541: );
3542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3539: x_msg_data,
3540: '_PVT'
3541: );
3542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3548: x_msg_count,
3549: x_msg_data,
3550: '_PVT'
3551: );
3549: x_msg_data,
3550: '_PVT'
3551: );
3552: WHEN OTHERS THEN
3553: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3554: (
3555: l_api_name,
3556: G_PKG_NAME,
3557: 'OTHERS',
3577: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
3578:
3579: l_api_version CONSTANT NUMBER := 1;
3580: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
3581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3582: i NUMBER := 0;
3583: BEGIN
3584: OKC_API.init_msg_list(p_init_msg_list);
3585: -- Make sure PL/SQL table has records in it before passing
3580: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
3581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3582: i NUMBER := 0;
3583: BEGIN
3584: OKC_API.init_msg_list(p_init_msg_list);
3585: -- Make sure PL/SQL table has records in it before passing
3586: IF (p_khrv_tbl.COUNT > 0) THEN
3587: i := p_khrv_tbl.FIRST;
3588: LOOP
3587: i := p_khrv_tbl.FIRST;
3588: LOOP
3589: insert_row (
3590: p_api_version => p_api_version,
3591: p_init_msg_list => OKC_API.G_FALSE,
3592: x_return_status => x_return_status,
3593: x_msg_count => x_msg_count,
3594: x_msg_data => x_msg_data,
3595: p_khrv_rec => p_khrv_tbl(i),
3599: END LOOP;
3600: END IF;
3601:
3602: EXCEPTION
3603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3600: END IF;
3601:
3602: EXCEPTION
3603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_ERROR',
3604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT'
3612: );
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT'
3612: );
3613: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3615: (
3616: l_api_name,
3617: G_PKG_NAME,
3610: x_msg_data,
3611: '_PVT'
3612: );
3613: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3615: (
3616: l_api_name,
3617: G_PKG_NAME,
3618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3615: (
3616: l_api_name,
3617: G_PKG_NAME,
3618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3619: x_msg_count,
3620: x_msg_data,
3621: '_PVT'
3622: );
3620: x_msg_data,
3621: '_PVT'
3622: );
3623: WHEN OTHERS THEN
3624: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3625: (
3626: l_api_name,
3627: G_PKG_NAME,
3628: 'OTHERS',
3665: FROM OKL_K_HEADERS
3666: WHERE ID = p_khr_rec.id;
3667: l_api_version CONSTANT NUMBER := 1;
3668: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
3669: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3670: l_object_version_number OKL_K_HEADERS.OBJECT_VERSION_NUMBER%TYPE;
3671: lc_object_version_number OKL_K_HEADERS.OBJECT_VERSION_NUMBER%TYPE;
3672: l_row_notfound BOOLEAN := FALSE;
3673: lc_row_notfound BOOLEAN := FALSE;
3671: lc_object_version_number OKL_K_HEADERS.OBJECT_VERSION_NUMBER%TYPE;
3672: l_row_notfound BOOLEAN := FALSE;
3673: lc_row_notfound BOOLEAN := FALSE;
3674: BEGIN
3675: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3676: p_init_msg_list,
3677: '_PVT',
3678: x_return_status);
3679:
3676: p_init_msg_list,
3677: '_PVT',
3678: x_return_status);
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3677: '_PVT',
3678: x_return_status);
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685:
3678: x_return_status);
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685:
3686: BEGIN
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685:
3686: BEGIN
3687: OPEN lock_csr(p_khr_rec);
3692: WHEN E_Resource_Busy THEN
3693: IF (lock_csr%ISOPEN) THEN
3694: CLOSE lock_csr;
3695: END IF;
3696: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3697: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3698: END;
3699:
3700: IF ( l_row_notfound ) THEN
3703: lc_row_notfound := lchk_csr%NOTFOUND;
3704: CLOSE lchk_csr;
3705: END IF;
3706: IF (lc_row_notfound) THEN
3707: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3704: CLOSE lchk_csr;
3705: END IF;
3706: IF (lc_row_notfound) THEN
3707: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3706: IF (lc_row_notfound) THEN
3707: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3707: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3708: RAISE OKC_API.G_EXCEPTION_ERROR;
3709: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: ELSIF lc_object_version_number = -1 THEN
3709: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: ELSIF lc_object_version_number = -1 THEN
3716: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3717: RAISE OKC_API.G_EXCEPTION_ERROR;
3710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711: RAISE OKC_API.G_EXCEPTION_ERROR;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: ELSIF lc_object_version_number = -1 THEN
3716: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3717: RAISE OKC_API.G_EXCEPTION_ERROR;
3718: END IF;
3712: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: ELSIF lc_object_version_number = -1 THEN
3716: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3717: RAISE OKC_API.G_EXCEPTION_ERROR;
3718: END IF;
3719: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720:
3713: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: ELSIF lc_object_version_number = -1 THEN
3716: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3717: RAISE OKC_API.G_EXCEPTION_ERROR;
3718: END IF;
3719: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720:
3721: EXCEPTION
3715: ELSIF lc_object_version_number = -1 THEN
3716: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3717: RAISE OKC_API.G_EXCEPTION_ERROR;
3718: END IF;
3719: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720:
3721: EXCEPTION
3722: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3723: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3718: END IF;
3719: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720:
3721: EXCEPTION
3722: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3723: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3719: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3720:
3721: EXCEPTION
3722: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3723: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3727: 'OKC_API.G_RET_STS_ERROR',
3723: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3724: (
3725: l_api_name,
3726: G_PKG_NAME,
3727: 'OKC_API.G_RET_STS_ERROR',
3728: x_msg_count,
3729: x_msg_data,
3730: '_PVT'
3731: );
3728: x_msg_count,
3729: x_msg_data,
3730: '_PVT'
3731: );
3732: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3734: (
3735: l_api_name,
3736: G_PKG_NAME,
3729: x_msg_data,
3730: '_PVT'
3731: );
3732: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3734: (
3735: l_api_name,
3736: G_PKG_NAME,
3737: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3733: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3734: (
3735: l_api_name,
3736: G_PKG_NAME,
3737: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3738: x_msg_count,
3739: x_msg_data,
3740: '_PVT'
3741: );
3739: x_msg_data,
3740: '_PVT'
3741: );
3742: WHEN OTHERS THEN
3743: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3744: (
3745: l_api_name,
3746: G_PKG_NAME,
3747: 'OTHERS',
3766: p_khrv_rec IN khrv_rec_type) IS
3767:
3768: l_api_version CONSTANT NUMBER := 1;
3769: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
3770: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3771: l_khr_rec khr_rec_type;
3772: BEGIN
3773: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3774: G_PKG_NAME,
3769: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
3770: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3771: l_khr_rec khr_rec_type;
3772: BEGIN
3773: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3774: G_PKG_NAME,
3775: p_init_msg_list,
3776: l_api_version,
3777: p_api_version,
3777: p_api_version,
3778: '_PVT',
3779: x_return_status);
3780:
3781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3778: '_PVT',
3779: x_return_status);
3780:
3781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3779: x_return_status);
3780:
3781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3787: --------------------------------------
3780:
3781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: RAISE OKC_API.G_EXCEPTION_ERROR;
3785: END IF;
3786:
3787: --------------------------------------
3788: -- Move VIEW record to "Child" records
3799: x_msg_data,
3800: l_khr_rec
3801: );
3802:
3803: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3805: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3806: RAISE OKC_API.G_EXCEPTION_ERROR;
3807: END IF;
3800: l_khr_rec
3801: );
3802:
3803: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3805: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3806: RAISE OKC_API.G_EXCEPTION_ERROR;
3807: END IF;
3808:
3801: );
3802:
3803: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3805: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3806: RAISE OKC_API.G_EXCEPTION_ERROR;
3807: END IF;
3808:
3809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3802:
3803: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3805: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3806: RAISE OKC_API.G_EXCEPTION_ERROR;
3807: END IF;
3808:
3809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3810:
3805: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3806: RAISE OKC_API.G_EXCEPTION_ERROR;
3807: END IF;
3808:
3809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3810:
3811: EXCEPTION
3812: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3813: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3808:
3809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3810:
3811: EXCEPTION
3812: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3813: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3810:
3811: EXCEPTION
3812: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3813: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_ERROR',
3813: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_ERROR',
3818: x_msg_count,
3819: x_msg_data,
3820: '_PVT'
3821: );
3818: x_msg_count,
3819: x_msg_data,
3820: '_PVT'
3821: );
3822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3823: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3819: x_msg_data,
3820: '_PVT'
3821: );
3822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3823: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3827: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3823: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3827: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3828: x_msg_count,
3829: x_msg_data,
3830: '_PVT'
3831: );
3829: x_msg_data,
3830: '_PVT'
3831: );
3832: WHEN OTHERS THEN
3833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3837: 'OTHERS',
3855: p_khrv_tbl IN khrv_tbl_type) IS
3856:
3857: l_api_version CONSTANT NUMBER := 1;
3858: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
3859: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3860: i NUMBER := 0;
3861: BEGIN
3862: OKC_API.init_msg_list(p_init_msg_list);
3863: -- Make sure PL/SQL table has records in it before passing
3858: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
3859: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3860: i NUMBER := 0;
3861: BEGIN
3862: OKC_API.init_msg_list(p_init_msg_list);
3863: -- Make sure PL/SQL table has records in it before passing
3864: IF (p_khrv_tbl.COUNT > 0) THEN
3865: i := p_khrv_tbl.FIRST;
3866: LOOP
3865: i := p_khrv_tbl.FIRST;
3866: LOOP
3867: lock_row (
3868: p_api_version => p_api_version,
3869: p_init_msg_list => OKC_API.G_FALSE,
3870: x_return_status => x_return_status,
3871: x_msg_count => x_msg_count,
3872: x_msg_data => x_msg_data,
3873: p_khrv_rec => p_khrv_tbl(i));
3876: END LOOP;
3877: END IF;
3878:
3879: EXCEPTION
3880: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3881: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3882: (
3883: l_api_name,
3884: G_PKG_NAME,
3877: END IF;
3878:
3879: EXCEPTION
3880: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3881: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3882: (
3883: l_api_name,
3884: G_PKG_NAME,
3885: 'OKC_API.G_RET_STS_ERROR',
3881: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3882: (
3883: l_api_name,
3884: G_PKG_NAME,
3885: 'OKC_API.G_RET_STS_ERROR',
3886: x_msg_count,
3887: x_msg_data,
3888: '_PVT'
3889: );
3886: x_msg_count,
3887: x_msg_data,
3888: '_PVT'
3889: );
3890: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3892: (
3893: l_api_name,
3894: G_PKG_NAME,
3887: x_msg_data,
3888: '_PVT'
3889: );
3890: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3892: (
3893: l_api_name,
3894: G_PKG_NAME,
3895: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3892: (
3893: l_api_name,
3894: G_PKG_NAME,
3895: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3896: x_msg_count,
3897: x_msg_data,
3898: '_PVT'
3899: );
3897: x_msg_data,
3898: '_PVT'
3899: );
3900: WHEN OTHERS THEN
3901: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3902: (
3903: l_api_name,
3904: G_PKG_NAME,
3905: 'OTHERS',
3930: x_khr_rec OUT NOCOPY khr_rec_type) IS
3931:
3932: l_api_version CONSTANT NUMBER := 1;
3933: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
3934: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3935: l_khr_rec khr_rec_type := p_khr_rec;
3936: l_def_khr_rec khr_rec_type;
3937: l_row_notfound BOOLEAN := TRUE;
3938: l_okl_k_headers_h_rec okl_k_headers_h_rec_type;
3945: x_khr_rec OUT NOCOPY khr_rec_type
3946: ) RETURN VARCHAR2 IS
3947: l_khr_rec khr_rec_type;
3948: l_row_notfound BOOLEAN := TRUE;
3949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3950: BEGIN
3951: x_khr_rec := p_khr_rec;
3952: -- Get current database values
3953: l_khr_rec := get_rec(p_khr_rec, l_row_notfound);
3951: x_khr_rec := p_khr_rec;
3952: -- Get current database values
3953: l_khr_rec := get_rec(p_khr_rec, l_row_notfound);
3954: IF (l_row_notfound) THEN
3955: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3956: END IF;
3957: -- Move the "old" record to the history record:
3958: -- (1) to get the "old" version
3959: -- (2) to avoid 2 hits to the database
3958: -- (1) to get the "old" version
3959: -- (2) to avoid 2 hits to the database
3960: migrate(l_khr_rec, l_okl_k_headers_h_rec);
3961:
3962: IF (x_khr_rec.ID = OKC_API.G_MISS_NUM) THEN
3963: x_khr_rec.ID := l_khr_rec.ID;
3964: END IF;
3965:
3966: IF (x_khr_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
3962: IF (x_khr_rec.ID = OKC_API.G_MISS_NUM) THEN
3963: x_khr_rec.ID := l_khr_rec.ID;
3964: END IF;
3965:
3966: IF (x_khr_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
3967: x_khr_rec.ISG_ID := l_khr_rec.ISG_ID;
3968: END IF;
3969:
3970: IF (x_khr_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
3966: IF (x_khr_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
3967: x_khr_rec.ISG_ID := l_khr_rec.ISG_ID;
3968: END IF;
3969:
3970: IF (x_khr_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
3971: x_khr_rec.KHR_ID := l_khr_rec.KHR_ID;
3972: END IF;
3973:
3974: IF (x_khr_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
3970: IF (x_khr_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
3971: x_khr_rec.KHR_ID := l_khr_rec.KHR_ID;
3972: END IF;
3973:
3974: IF (x_khr_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
3975: x_khr_rec.PDT_ID := l_khr_rec.PDT_ID;
3976: END IF;
3977:
3978: IF (x_khr_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
3974: IF (x_khr_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
3975: x_khr_rec.PDT_ID := l_khr_rec.PDT_ID;
3976: END IF;
3977:
3978: IF (x_khr_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
3979: x_khr_rec.OBJECT_VERSION_NUMBER := l_khr_rec.OBJECT_VERSION_NUMBER;
3980: END IF;
3981:
3982: IF (x_khr_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
3978: IF (x_khr_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
3979: x_khr_rec.OBJECT_VERSION_NUMBER := l_khr_rec.OBJECT_VERSION_NUMBER;
3980: END IF;
3981:
3982: IF (x_khr_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
3983: x_khr_rec.DATE_FIRST_ACTIVITY := l_khr_rec.DATE_FIRST_ACTIVITY;
3984: END IF;
3985:
3986: IF (x_khr_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
3982: IF (x_khr_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
3983: x_khr_rec.DATE_FIRST_ACTIVITY := l_khr_rec.DATE_FIRST_ACTIVITY;
3984: END IF;
3985:
3986: IF (x_khr_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
3987: x_khr_rec.SYNDICATABLE_YN := l_khr_rec.SYNDICATABLE_YN;
3988: END IF;
3989:
3990: IF (x_khr_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
3986: IF (x_khr_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
3987: x_khr_rec.SYNDICATABLE_YN := l_khr_rec.SYNDICATABLE_YN;
3988: END IF;
3989:
3990: IF (x_khr_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
3991: x_khr_rec.SALESTYPE_YN := l_khr_rec.SALESTYPE_YN;
3992: END IF;
3993:
3994: IF (x_khr_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
3990: IF (x_khr_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
3991: x_khr_rec.SALESTYPE_YN := l_khr_rec.SALESTYPE_YN;
3992: END IF;
3993:
3994: IF (x_khr_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
3995: x_khr_rec.DATE_REFINANCED := l_khr_rec.DATE_REFINANCED;
3996: END IF;
3997:
3998: IF (x_khr_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
3994: IF (x_khr_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
3995: x_khr_rec.DATE_REFINANCED := l_khr_rec.DATE_REFINANCED;
3996: END IF;
3997:
3998: IF (x_khr_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
3999: x_khr_rec.DATE_CONVERSION_EFFECTIVE := l_khr_rec.DATE_CONVERSION_EFFECTIVE;
4000: END IF;
4001:
4002: IF (x_khr_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
3998: IF (x_khr_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
3999: x_khr_rec.DATE_CONVERSION_EFFECTIVE := l_khr_rec.DATE_CONVERSION_EFFECTIVE;
4000: END IF;
4001:
4002: IF (x_khr_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
4003: x_khr_rec.DATE_DEAL_TRANSFERRED := l_khr_rec.DATE_DEAL_TRANSFERRED;
4004: END IF;
4005:
4006: IF (x_khr_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4002: IF (x_khr_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
4003: x_khr_rec.DATE_DEAL_TRANSFERRED := l_khr_rec.DATE_DEAL_TRANSFERRED;
4004: END IF;
4005:
4006: IF (x_khr_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4007: x_khr_rec.TERM_DURATION := l_khr_rec.TERM_DURATION;
4008: END IF;
4009:
4010: IF (x_khr_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4006: IF (x_khr_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4007: x_khr_rec.TERM_DURATION := l_khr_rec.TERM_DURATION;
4008: END IF;
4009:
4010: IF (x_khr_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4011: x_khr_rec.DATETIME_PROPOSAL_EFFECTIVE := l_khr_rec.DATETIME_PROPOSAL_EFFECTIVE;
4012: END IF;
4013:
4014: IF (x_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4010: IF (x_khr_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4011: x_khr_rec.DATETIME_PROPOSAL_EFFECTIVE := l_khr_rec.DATETIME_PROPOSAL_EFFECTIVE;
4012: END IF;
4013:
4014: IF (x_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4015: x_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE := l_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE;
4016: END IF;
4017:
4018: IF (x_khr_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4014: IF (x_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4015: x_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE := l_khr_rec.DATETIME_PROPOSAL_INEFFECTIVE;
4016: END IF;
4017:
4018: IF (x_khr_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4019: x_khr_rec.DATE_PROPOSAL_ACCEPTED := l_khr_rec.DATE_PROPOSAL_ACCEPTED;
4020: END IF;
4021:
4022: IF (x_khr_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4018: IF (x_khr_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4019: x_khr_rec.DATE_PROPOSAL_ACCEPTED := l_khr_rec.DATE_PROPOSAL_ACCEPTED;
4020: END IF;
4021:
4022: IF (x_khr_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4023: x_khr_rec.ATTRIBUTE_CATEGORY := l_khr_rec.ATTRIBUTE_CATEGORY;
4024: END IF;
4025:
4026: IF (x_khr_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4022: IF (x_khr_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4023: x_khr_rec.ATTRIBUTE_CATEGORY := l_khr_rec.ATTRIBUTE_CATEGORY;
4024: END IF;
4025:
4026: IF (x_khr_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4027: x_khr_rec.ATTRIBUTE1 := l_khr_rec.ATTRIBUTE1;
4028: END IF;
4029:
4030: IF (x_khr_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4026: IF (x_khr_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4027: x_khr_rec.ATTRIBUTE1 := l_khr_rec.ATTRIBUTE1;
4028: END IF;
4029:
4030: IF (x_khr_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4031: x_khr_rec.ATTRIBUTE2 := l_khr_rec.ATTRIBUTE2;
4032: END IF;
4033:
4034: IF (x_khr_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4030: IF (x_khr_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4031: x_khr_rec.ATTRIBUTE2 := l_khr_rec.ATTRIBUTE2;
4032: END IF;
4033:
4034: IF (x_khr_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4035: x_khr_rec.ATTRIBUTE3 := l_khr_rec.ATTRIBUTE3;
4036: END IF;
4037:
4038: IF (x_khr_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4034: IF (x_khr_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4035: x_khr_rec.ATTRIBUTE3 := l_khr_rec.ATTRIBUTE3;
4036: END IF;
4037:
4038: IF (x_khr_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4039: x_khr_rec.ATTRIBUTE4 := l_khr_rec.ATTRIBUTE4;
4040: END IF;
4041:
4042: IF (x_khr_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4038: IF (x_khr_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4039: x_khr_rec.ATTRIBUTE4 := l_khr_rec.ATTRIBUTE4;
4040: END IF;
4041:
4042: IF (x_khr_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4043: x_khr_rec.ATTRIBUTE5 := l_khr_rec.ATTRIBUTE5;
4044: END IF;
4045:
4046: IF (x_khr_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4042: IF (x_khr_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4043: x_khr_rec.ATTRIBUTE5 := l_khr_rec.ATTRIBUTE5;
4044: END IF;
4045:
4046: IF (x_khr_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4047: x_khr_rec.ATTRIBUTE6 := l_khr_rec.ATTRIBUTE6;
4048: END IF;
4049:
4050: IF (x_khr_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4046: IF (x_khr_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4047: x_khr_rec.ATTRIBUTE6 := l_khr_rec.ATTRIBUTE6;
4048: END IF;
4049:
4050: IF (x_khr_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4051: x_khr_rec.ATTRIBUTE7 := l_khr_rec.ATTRIBUTE7;
4052: END IF;
4053:
4054: IF (x_khr_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4050: IF (x_khr_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4051: x_khr_rec.ATTRIBUTE7 := l_khr_rec.ATTRIBUTE7;
4052: END IF;
4053:
4054: IF (x_khr_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4055: x_khr_rec.ATTRIBUTE8 := l_khr_rec.ATTRIBUTE8;
4056: END IF;
4057:
4058: IF (x_khr_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4054: IF (x_khr_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4055: x_khr_rec.ATTRIBUTE8 := l_khr_rec.ATTRIBUTE8;
4056: END IF;
4057:
4058: IF (x_khr_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4059: x_khr_rec.ATTRIBUTE9 := l_khr_rec.ATTRIBUTE9;
4060: END IF;
4061:
4062: IF (x_khr_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4058: IF (x_khr_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4059: x_khr_rec.ATTRIBUTE9 := l_khr_rec.ATTRIBUTE9;
4060: END IF;
4061:
4062: IF (x_khr_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4063: x_khr_rec.ATTRIBUTE10 := l_khr_rec.ATTRIBUTE10;
4064: END IF;
4065:
4066: IF (x_khr_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4062: IF (x_khr_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4063: x_khr_rec.ATTRIBUTE10 := l_khr_rec.ATTRIBUTE10;
4064: END IF;
4065:
4066: IF (x_khr_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4067: x_khr_rec.ATTRIBUTE11 := l_khr_rec.ATTRIBUTE11;
4068: END IF;
4069:
4070: IF (x_khr_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4066: IF (x_khr_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4067: x_khr_rec.ATTRIBUTE11 := l_khr_rec.ATTRIBUTE11;
4068: END IF;
4069:
4070: IF (x_khr_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4071: x_khr_rec.ATTRIBUTE12 := l_khr_rec.ATTRIBUTE12;
4072: END IF;
4073:
4074: IF (x_khr_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4070: IF (x_khr_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4071: x_khr_rec.ATTRIBUTE12 := l_khr_rec.ATTRIBUTE12;
4072: END IF;
4073:
4074: IF (x_khr_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4075: x_khr_rec.ATTRIBUTE13 := l_khr_rec.ATTRIBUTE13;
4076: END IF;
4077:
4078: IF (x_khr_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4074: IF (x_khr_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4075: x_khr_rec.ATTRIBUTE13 := l_khr_rec.ATTRIBUTE13;
4076: END IF;
4077:
4078: IF (x_khr_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4079: x_khr_rec.ATTRIBUTE14 := l_khr_rec.ATTRIBUTE14;
4080: END IF;
4081:
4082: IF (x_khr_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4078: IF (x_khr_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4079: x_khr_rec.ATTRIBUTE14 := l_khr_rec.ATTRIBUTE14;
4080: END IF;
4081:
4082: IF (x_khr_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4083: x_khr_rec.ATTRIBUTE15 := l_khr_rec.ATTRIBUTE15;
4084: END IF;
4085:
4086: IF (x_khr_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4082: IF (x_khr_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4083: x_khr_rec.ATTRIBUTE15 := l_khr_rec.ATTRIBUTE15;
4084: END IF;
4085:
4086: IF (x_khr_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4087: x_khr_rec.CREATED_BY := l_khr_rec.CREATED_BY;
4088: END IF;
4089:
4090: IF (x_khr_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4086: IF (x_khr_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4087: x_khr_rec.CREATED_BY := l_khr_rec.CREATED_BY;
4088: END IF;
4089:
4090: IF (x_khr_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4091: x_khr_rec.CREATION_DATE := l_khr_rec.CREATION_DATE;
4092: END IF;
4093:
4094: IF (x_khr_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4090: IF (x_khr_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4091: x_khr_rec.CREATION_DATE := l_khr_rec.CREATION_DATE;
4092: END IF;
4093:
4094: IF (x_khr_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4095: x_khr_rec.LAST_UPDATED_BY := l_khr_rec.LAST_UPDATED_BY;
4096: END IF;
4097:
4098: IF (x_khr_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4094: IF (x_khr_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4095: x_khr_rec.LAST_UPDATED_BY := l_khr_rec.LAST_UPDATED_BY;
4096: END IF;
4097:
4098: IF (x_khr_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4099: x_khr_rec.LAST_UPDATE_DATE := l_khr_rec.LAST_UPDATE_DATE;
4100: END IF;
4101:
4102: IF (x_khr_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4098: IF (x_khr_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4099: x_khr_rec.LAST_UPDATE_DATE := l_khr_rec.LAST_UPDATE_DATE;
4100: END IF;
4101:
4102: IF (x_khr_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4103: x_khr_rec.LAST_UPDATE_LOGIN := l_khr_rec.LAST_UPDATE_LOGIN;
4104: END IF;
4105:
4106: IF (x_khr_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4102: IF (x_khr_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4103: x_khr_rec.LAST_UPDATE_LOGIN := l_khr_rec.LAST_UPDATE_LOGIN;
4104: END IF;
4105:
4106: IF (x_khr_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4107: x_khr_rec.AMD_CODE := l_khr_rec.AMD_CODE;
4108: END IF;
4109:
4110: IF (x_khr_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4106: IF (x_khr_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4107: x_khr_rec.AMD_CODE := l_khr_rec.AMD_CODE;
4108: END IF;
4109:
4110: IF (x_khr_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4111: x_khr_rec.GENERATE_ACCRUAL_YN := l_khr_rec.GENERATE_ACCRUAL_YN;
4112: END IF;
4113:
4114: IF (x_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4110: IF (x_khr_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4111: x_khr_rec.GENERATE_ACCRUAL_YN := l_khr_rec.GENERATE_ACCRUAL_YN;
4112: END IF;
4113:
4114: IF (x_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4115: x_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN := l_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN;
4116: END IF;
4117:
4118: IF (x_khr_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4114: IF (x_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4115: x_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN := l_khr_rec.GENERATE_ACCRUAL_OVERRIDE_YN;
4116: END IF;
4117:
4118: IF (x_khr_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4119: x_khr_rec.CREDIT_ACT_YN := l_khr_rec.CREDIT_ACT_YN;
4120: END IF;
4121:
4122: IF (x_khr_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4118: IF (x_khr_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4119: x_khr_rec.CREDIT_ACT_YN := l_khr_rec.CREDIT_ACT_YN;
4120: END IF;
4121:
4122: IF (x_khr_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4123: x_khr_rec.CONVERTED_ACCOUNT_YN := l_khr_rec.CONVERTED_ACCOUNT_YN;
4124: END IF;
4125:
4126: IF (x_khr_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4122: IF (x_khr_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4123: x_khr_rec.CONVERTED_ACCOUNT_YN := l_khr_rec.CONVERTED_ACCOUNT_YN;
4124: END IF;
4125:
4126: IF (x_khr_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4127: x_khr_rec.PRE_TAX_YIELD := l_khr_rec.PRE_TAX_YIELD;
4128: END IF;
4129:
4130: IF (x_khr_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4126: IF (x_khr_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4127: x_khr_rec.PRE_TAX_YIELD := l_khr_rec.PRE_TAX_YIELD;
4128: END IF;
4129:
4130: IF (x_khr_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4131: x_khr_rec.AFTER_TAX_YIELD := l_khr_rec.AFTER_TAX_YIELD;
4132: END IF;
4133:
4134: IF (x_khr_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4130: IF (x_khr_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4131: x_khr_rec.AFTER_TAX_YIELD := l_khr_rec.AFTER_TAX_YIELD;
4132: END IF;
4133:
4134: IF (x_khr_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4135: x_khr_rec.IMPLICIT_INTEREST_RATE := l_khr_rec.IMPLICIT_INTEREST_RATE;
4136: END IF;
4137:
4138: IF (x_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4134: IF (x_khr_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4135: x_khr_rec.IMPLICIT_INTEREST_RATE := l_khr_rec.IMPLICIT_INTEREST_RATE;
4136: END IF;
4137:
4138: IF (x_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4139: x_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE := l_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE;
4140: END IF;
4141:
4142: IF (x_khr_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4138: IF (x_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4139: x_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE := l_khr_rec.IMPLICIT_NON_IDC_INTEREST_RATE;
4140: END IF;
4141:
4142: IF (x_khr_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4143: x_khr_rec.TARGET_PRE_TAX_YIELD := l_khr_rec.TARGET_PRE_TAX_YIELD;
4144: END IF;
4145:
4146: IF (x_khr_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4142: IF (x_khr_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4143: x_khr_rec.TARGET_PRE_TAX_YIELD := l_khr_rec.TARGET_PRE_TAX_YIELD;
4144: END IF;
4145:
4146: IF (x_khr_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4147: x_khr_rec.TARGET_AFTER_TAX_YIELD := l_khr_rec.TARGET_AFTER_TAX_YIELD;
4148: END IF;
4149:
4150: IF (x_khr_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4146: IF (x_khr_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4147: x_khr_rec.TARGET_AFTER_TAX_YIELD := l_khr_rec.TARGET_AFTER_TAX_YIELD;
4148: END IF;
4149:
4150: IF (x_khr_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4151: x_khr_rec.TARGET_IMPLICIT_INTEREST_RATE := l_khr_rec.TARGET_IMPLICIT_INTEREST_RATE;
4152: END IF;
4153:
4154: IF (x_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4150: IF (x_khr_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4151: x_khr_rec.TARGET_IMPLICIT_INTEREST_RATE := l_khr_rec.TARGET_IMPLICIT_INTEREST_RATE;
4152: END IF;
4153:
4154: IF (x_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4155: x_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE := l_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE;
4156: END IF;
4157:
4158: IF (x_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4154: IF (x_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4155: x_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE := l_khr_rec.TARGET_IMPLICIT_NONIDC_INTRATE;
4156: END IF;
4157:
4158: IF (x_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4159: x_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL := l_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL;
4160: END IF;
4161:
4162: IF (x_khr_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4158: IF (x_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4159: x_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL := l_khr_rec.DATE_LAST_INTERIM_INTEREST_CAL;
4160: END IF;
4161:
4162: IF (x_khr_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4163: x_khr_rec.DEAL_TYPE := l_khr_rec.DEAL_TYPE;
4164: END IF;
4165:
4166: IF (x_khr_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4162: IF (x_khr_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4163: x_khr_rec.DEAL_TYPE := l_khr_rec.DEAL_TYPE;
4164: END IF;
4165:
4166: IF (x_khr_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4167: x_khr_rec.PRE_TAX_IRR := l_khr_rec.PRE_TAX_IRR;
4168: END IF;
4169:
4170: IF (x_khr_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4166: IF (x_khr_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4167: x_khr_rec.PRE_TAX_IRR := l_khr_rec.PRE_TAX_IRR;
4168: END IF;
4169:
4170: IF (x_khr_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4171: x_khr_rec.AFTER_TAX_IRR := l_khr_rec.AFTER_TAX_IRR;
4172: END IF;
4173:
4174: IF (x_khr_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4170: IF (x_khr_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4171: x_khr_rec.AFTER_TAX_IRR := l_khr_rec.AFTER_TAX_IRR;
4172: END IF;
4173:
4174: IF (x_khr_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4175: x_khr_rec.EXPECTED_DELIVERY_DATE := l_khr_rec.EXPECTED_DELIVERY_DATE;
4176: END IF;
4177:
4178: IF (x_khr_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4174: IF (x_khr_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4175: x_khr_rec.EXPECTED_DELIVERY_DATE := l_khr_rec.EXPECTED_DELIVERY_DATE;
4176: END IF;
4177:
4178: IF (x_khr_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4179: x_khr_rec.ACCEPTED_DATE := l_khr_rec.ACCEPTED_DATE;
4180: END IF;
4181:
4182: IF (x_khr_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4178: IF (x_khr_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4179: x_khr_rec.ACCEPTED_DATE := l_khr_rec.ACCEPTED_DATE;
4180: END IF;
4181:
4182: IF (x_khr_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4183: x_khr_rec.PREFUNDING_ELIGIBLE_YN := l_khr_rec.PREFUNDING_ELIGIBLE_YN;
4184: END IF;
4185:
4186: IF (x_khr_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
4182: IF (x_khr_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4183: x_khr_rec.PREFUNDING_ELIGIBLE_YN := l_khr_rec.PREFUNDING_ELIGIBLE_YN;
4184: END IF;
4185:
4186: IF (x_khr_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
4187: x_khr_rec.REVOLVING_CREDIT_YN := l_khr_rec.REVOLVING_CREDIT_YN;
4188: END IF;
4189: --Bug# 2697681 schema changes 11.5.9
4190: IF (x_khr_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
4186: IF (x_khr_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
4187: x_khr_rec.REVOLVING_CREDIT_YN := l_khr_rec.REVOLVING_CREDIT_YN;
4188: END IF;
4189: --Bug# 2697681 schema changes 11.5.9
4190: IF (x_khr_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
4191: x_khr_rec.CURRENCY_CONVERSION_TYPE := l_khr_rec.CURRENCY_CONVERSION_TYPE;
4192: END IF;
4193:
4194: IF (x_khr_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4190: IF (x_khr_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
4191: x_khr_rec.CURRENCY_CONVERSION_TYPE := l_khr_rec.CURRENCY_CONVERSION_TYPE;
4192: END IF;
4193:
4194: IF (x_khr_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4195: x_khr_rec.CURRENCY_CONVERSION_RATE := l_khr_rec.CURRENCY_CONVERSION_RATE;
4196: END IF;
4197:
4198: IF (x_khr_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4194: IF (x_khr_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4195: x_khr_rec.CURRENCY_CONVERSION_RATE := l_khr_rec.CURRENCY_CONVERSION_RATE;
4196: END IF;
4197:
4198: IF (x_khr_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4199: x_khr_rec.CURRENCY_CONVERSION_DATE := l_khr_rec.CURRENCY_CONVERSION_DATE;
4200: END IF;
4201:
4202: IF (x_khr_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4198: IF (x_khr_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4199: x_khr_rec.CURRENCY_CONVERSION_DATE := l_khr_rec.CURRENCY_CONVERSION_DATE;
4200: END IF;
4201:
4202: IF (x_khr_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4203: x_khr_rec.MULTI_GAAP_YN := l_khr_rec.MULTI_GAAP_YN;
4204: END IF;
4205:
4206: IF (x_khr_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4202: IF (x_khr_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4203: x_khr_rec.MULTI_GAAP_YN := l_khr_rec.MULTI_GAAP_YN;
4204: END IF;
4205:
4206: IF (x_khr_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4207: x_khr_rec.RECOURSE_CODE := l_khr_rec.RECOURSE_CODE;
4208: END IF;
4209:
4210: IF (x_khr_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4206: IF (x_khr_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4207: x_khr_rec.RECOURSE_CODE := l_khr_rec.RECOURSE_CODE;
4208: END IF;
4209:
4210: IF (x_khr_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4211: x_khr_rec.LESSOR_SERV_ORG_CODE := l_khr_rec.LESSOR_SERV_ORG_CODE;
4212: END IF;
4213:
4214: IF (x_khr_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4210: IF (x_khr_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4211: x_khr_rec.LESSOR_SERV_ORG_CODE := l_khr_rec.LESSOR_SERV_ORG_CODE;
4212: END IF;
4213:
4214: IF (x_khr_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4215: x_khr_rec.ASSIGNABLE_YN := l_khr_rec.ASSIGNABLE_YN;
4216: END IF;
4217:
4218: IF (x_khr_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4214: IF (x_khr_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4215: x_khr_rec.ASSIGNABLE_YN := l_khr_rec.ASSIGNABLE_YN;
4216: END IF;
4217:
4218: IF (x_khr_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4219: x_khr_rec.SECURITIZED_CODE := l_khr_rec.SECURITIZED_CODE;
4220: END IF;
4221:
4222: IF (x_khr_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
4218: IF (x_khr_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4219: x_khr_rec.SECURITIZED_CODE := l_khr_rec.SECURITIZED_CODE;
4220: END IF;
4221:
4222: IF (x_khr_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
4223: x_khr_rec.SECURITIZATION_TYPE := l_khr_rec.SECURITIZATION_TYPE;
4224: END IF;
4225: --Bug# 3143522: 11.5.10
4226: --subsidy
4223: x_khr_rec.SECURITIZATION_TYPE := l_khr_rec.SECURITIZATION_TYPE;
4224: END IF;
4225: --Bug# 3143522: 11.5.10
4226: --subsidy
4227: IF (x_khr_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4228: x_khr_rec.SUB_PRE_TAX_YIELD := l_khr_rec.SUB_PRE_TAX_YIELD;
4229: END IF;
4230: IF (x_khr_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4231: x_khr_rec.SUB_AFTER_TAX_YIELD := l_khr_rec.SUB_AFTER_TAX_YIELD;
4226: --subsidy
4227: IF (x_khr_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4228: x_khr_rec.SUB_PRE_TAX_YIELD := l_khr_rec.SUB_PRE_TAX_YIELD;
4229: END IF;
4230: IF (x_khr_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4231: x_khr_rec.SUB_AFTER_TAX_YIELD := l_khr_rec.SUB_AFTER_TAX_YIELD;
4232: END IF;
4233: IF (x_khr_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4234: x_khr_rec.SUB_IMPL_INTEREST_RATE := l_khr_rec.SUB_IMPL_INTEREST_RATE;
4229: END IF;
4230: IF (x_khr_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4231: x_khr_rec.SUB_AFTER_TAX_YIELD := l_khr_rec.SUB_AFTER_TAX_YIELD;
4232: END IF;
4233: IF (x_khr_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4234: x_khr_rec.SUB_IMPL_INTEREST_RATE := l_khr_rec.SUB_IMPL_INTEREST_RATE;
4235: END IF;
4236: IF (x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4237: x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khr_rec.SUB_IMPL_NON_IDC_INT_RATE;
4232: END IF;
4233: IF (x_khr_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4234: x_khr_rec.SUB_IMPL_INTEREST_RATE := l_khr_rec.SUB_IMPL_INTEREST_RATE;
4235: END IF;
4236: IF (x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4237: x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khr_rec.SUB_IMPL_NON_IDC_INT_RATE;
4238: END IF;
4239: IF (x_khr_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4240: x_khr_rec.SUB_PRE_TAX_IRR := l_khr_rec.SUB_PRE_TAX_IRR;
4235: END IF;
4236: IF (x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4237: x_khr_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khr_rec.SUB_IMPL_NON_IDC_INT_RATE;
4238: END IF;
4239: IF (x_khr_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4240: x_khr_rec.SUB_PRE_TAX_IRR := l_khr_rec.SUB_PRE_TAX_IRR;
4241: END IF;
4242: IF (x_khr_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4243: x_khr_rec.SUB_AFTER_TAX_IRR := l_khr_rec.SUB_AFTER_TAX_IRR;
4238: END IF;
4239: IF (x_khr_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4240: x_khr_rec.SUB_PRE_TAX_IRR := l_khr_rec.SUB_PRE_TAX_IRR;
4241: END IF;
4242: IF (x_khr_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4243: x_khr_rec.SUB_AFTER_TAX_IRR := l_khr_rec.SUB_AFTER_TAX_IRR;
4244: END IF;
4245: --Bug# 3973640 : 11.5.10+ schema
4246: IF (x_khr_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4242: IF (x_khr_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4243: x_khr_rec.SUB_AFTER_TAX_IRR := l_khr_rec.SUB_AFTER_TAX_IRR;
4244: END IF;
4245: --Bug# 3973640 : 11.5.10+ schema
4246: IF (x_khr_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4247: x_khr_rec.TOT_CL_TRANSFER_AMT := l_khr_rec.TOT_CL_TRANSFER_AMT;
4248: END IF;
4249: IF (x_khr_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4250: x_khr_rec.TOT_CL_NET_TRANSFER_AMT := l_khr_rec.TOT_CL_NET_TRANSFER_AMT;
4245: --Bug# 3973640 : 11.5.10+ schema
4246: IF (x_khr_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4247: x_khr_rec.TOT_CL_TRANSFER_AMT := l_khr_rec.TOT_CL_TRANSFER_AMT;
4248: END IF;
4249: IF (x_khr_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4250: x_khr_rec.TOT_CL_NET_TRANSFER_AMT := l_khr_rec.TOT_CL_NET_TRANSFER_AMT;
4251: END IF;
4252: IF (x_khr_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4253: x_khr_rec.TOT_CL_LIMIT := l_khr_rec.TOT_CL_LIMIT;
4248: END IF;
4249: IF (x_khr_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4250: x_khr_rec.TOT_CL_NET_TRANSFER_AMT := l_khr_rec.TOT_CL_NET_TRANSFER_AMT;
4251: END IF;
4252: IF (x_khr_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4253: x_khr_rec.TOT_CL_LIMIT := l_khr_rec.TOT_CL_LIMIT;
4254: END IF;
4255: IF (x_khr_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4256: x_khr_rec.TOT_CL_FUNDING_AMT := l_khr_rec.TOT_CL_FUNDING_AMT;
4251: END IF;
4252: IF (x_khr_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4253: x_khr_rec.TOT_CL_LIMIT := l_khr_rec.TOT_CL_LIMIT;
4254: END IF;
4255: IF (x_khr_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4256: x_khr_rec.TOT_CL_FUNDING_AMT := l_khr_rec.TOT_CL_FUNDING_AMT;
4257: END IF;
4258: IF (x_khr_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4259: x_khr_rec.CRS_ID := l_khr_rec.CRS_ID;
4254: END IF;
4255: IF (x_khr_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4256: x_khr_rec.TOT_CL_FUNDING_AMT := l_khr_rec.TOT_CL_FUNDING_AMT;
4257: END IF;
4258: IF (x_khr_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4259: x_khr_rec.CRS_ID := l_khr_rec.CRS_ID;
4260: END IF;
4261: IF (x_khr_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4262: x_khr_rec.TEMPLATE_TYPE_CODE := l_khr_rec.TEMPLATE_TYPE_CODE;
4257: END IF;
4258: IF (x_khr_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4259: x_khr_rec.CRS_ID := l_khr_rec.CRS_ID;
4260: END IF;
4261: IF (x_khr_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4262: x_khr_rec.TEMPLATE_TYPE_CODE := l_khr_rec.TEMPLATE_TYPE_CODE;
4263: END IF;
4264: --Bug# 4419339 OKLH Schema Sales Quote
4265: IF (x_khr_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4261: IF (x_khr_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4262: x_khr_rec.TEMPLATE_TYPE_CODE := l_khr_rec.TEMPLATE_TYPE_CODE;
4263: END IF;
4264: --Bug# 4419339 OKLH Schema Sales Quote
4265: IF (x_khr_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4266: x_khr_rec.DATE_FUNDING_EXPECTED := l_khr_rec.DATE_FUNDING_EXPECTED;
4267: END IF;
4268: IF (x_khr_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4269: x_khr_rec.DATE_TRADEIN := l_khr_rec.DATE_TRADEIN;
4264: --Bug# 4419339 OKLH Schema Sales Quote
4265: IF (x_khr_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4266: x_khr_rec.DATE_FUNDING_EXPECTED := l_khr_rec.DATE_FUNDING_EXPECTED;
4267: END IF;
4268: IF (x_khr_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4269: x_khr_rec.DATE_TRADEIN := l_khr_rec.DATE_TRADEIN;
4270: END IF;
4271: IF (x_khr_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4272: x_khr_rec.TRADEIN_AMOUNT := l_khr_rec.TRADEIN_AMOUNT;
4267: END IF;
4268: IF (x_khr_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4269: x_khr_rec.DATE_TRADEIN := l_khr_rec.DATE_TRADEIN;
4270: END IF;
4271: IF (x_khr_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4272: x_khr_rec.TRADEIN_AMOUNT := l_khr_rec.TRADEIN_AMOUNT;
4273: END IF;
4274: IF (x_khr_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
4275: x_khr_rec.TRADEIN_DESCRIPTION := l_khr_rec.TRADEIN_DESCRIPTION;
4270: END IF;
4271: IF (x_khr_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4272: x_khr_rec.TRADEIN_AMOUNT := l_khr_rec.TRADEIN_AMOUNT;
4273: END IF;
4274: IF (x_khr_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
4275: x_khr_rec.TRADEIN_DESCRIPTION := l_khr_rec.TRADEIN_DESCRIPTION;
4276: END IF;
4277: --Added by dpsingh for LE uptake
4278: IF (x_khr_rec.LEGAL_ENTITY_ID = OKL_API.G_MISS_NUM) THEN
4286: FUNCTION Set_Attributes (
4287: p_khr_rec IN khr_rec_type,
4288: x_khr_rec OUT NOCOPY khr_rec_type
4289: ) RETURN VARCHAR2 IS
4290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4291: BEGIN
4292: x_khr_rec := p_khr_rec;
4293: RETURN(l_return_status);
4294: END Set_Attributes;
4292: x_khr_rec := p_khr_rec;
4293: RETURN(l_return_status);
4294: END Set_Attributes;
4295: BEGIN
4296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4297: p_init_msg_list,
4298: '_PVT',
4299: x_return_status);
4300:
4297: p_init_msg_list,
4298: '_PVT',
4299: x_return_status);
4300:
4301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_ERROR;
4305: END IF;
4298: '_PVT',
4299: x_return_status);
4300:
4301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_ERROR;
4305: END IF;
4306:
4299: x_return_status);
4300:
4301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_ERROR;
4305: END IF;
4306:
4307: --- Setting item attributes
4300:
4301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_ERROR;
4305: END IF;
4306:
4307: --- Setting item attributes
4308: l_return_status := Set_Attributes(
4309: p_khr_rec, -- IN
4310: l_khr_rec); -- OUT
4311: --- If any errors happen abort API
4312:
4313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4315: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4316: RAISE OKC_API.G_EXCEPTION_ERROR;
4317: END IF;
4310: l_khr_rec); -- OUT
4311: --- If any errors happen abort API
4312:
4313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4315: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4316: RAISE OKC_API.G_EXCEPTION_ERROR;
4317: END IF;
4318:
4311: --- If any errors happen abort API
4312:
4313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4315: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4316: RAISE OKC_API.G_EXCEPTION_ERROR;
4317: END IF;
4318:
4319: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec);
4312:
4313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4315: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4316: RAISE OKC_API.G_EXCEPTION_ERROR;
4317: END IF;
4318:
4319: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec);
4320:
4317: END IF;
4318:
4319: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec);
4320:
4321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4324: RAISE OKC_API.G_EXCEPTION_ERROR;
4325: END IF;
4318:
4319: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec);
4320:
4321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4324: RAISE OKC_API.G_EXCEPTION_ERROR;
4325: END IF;
4326:
4319: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec);
4320:
4321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4324: RAISE OKC_API.G_EXCEPTION_ERROR;
4325: END IF;
4326:
4327: UPDATE OKL_K_HEADERS
4320:
4321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4324: RAISE OKC_API.G_EXCEPTION_ERROR;
4325: END IF;
4326:
4327: UPDATE OKL_K_HEADERS
4328: SET
4428: l_okl_k_headers_h_rec,
4429: lx_okl_k_headers_h_rec
4430: );
4431:
4432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4435: RAISE OKC_API.G_EXCEPTION_ERROR;
4436: END IF;
4429: lx_okl_k_headers_h_rec
4430: );
4431:
4432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4435: RAISE OKC_API.G_EXCEPTION_ERROR;
4436: END IF;
4437:
4430: );
4431:
4432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4435: RAISE OKC_API.G_EXCEPTION_ERROR;
4436: END IF;
4437:
4438: */
4431:
4432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4435: RAISE OKC_API.G_EXCEPTION_ERROR;
4436: END IF;
4437:
4438: */
4439: x_khr_rec := l_def_khr_rec;
4436: END IF;
4437:
4438: */
4439: x_khr_rec := l_def_khr_rec;
4440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4441:
4442: EXCEPTION
4443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4439: x_khr_rec := l_def_khr_rec;
4440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4441:
4442: EXCEPTION
4443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4445: (
4446: l_api_name,
4447: G_PKG_NAME,
4440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4441:
4442: EXCEPTION
4443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4445: (
4446: l_api_name,
4447: G_PKG_NAME,
4448: 'OKC_API.G_RET_STS_ERROR',
4444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4445: (
4446: l_api_name,
4447: G_PKG_NAME,
4448: 'OKC_API.G_RET_STS_ERROR',
4449: x_msg_count,
4450: x_msg_data,
4451: '_PVT'
4452: );
4449: x_msg_count,
4450: x_msg_data,
4451: '_PVT'
4452: );
4453: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4455: (
4456: l_api_name,
4457: G_PKG_NAME,
4450: x_msg_data,
4451: '_PVT'
4452: );
4453: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4455: (
4456: l_api_name,
4457: G_PKG_NAME,
4458: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4455: (
4456: l_api_name,
4457: G_PKG_NAME,
4458: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4459: x_msg_count,
4460: x_msg_data,
4461: '_PVT'
4462: );
4460: x_msg_data,
4461: '_PVT'
4462: );
4463: WHEN OTHERS THEN
4464: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4465: (
4466: l_api_name,
4467: G_PKG_NAME,
4468: 'OTHERS',
4488: x_khrv_rec OUT NOCOPY khrv_rec_type) IS
4489:
4490: l_api_version CONSTANT NUMBER := 1;
4491: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
4492: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4493: l_khrv_rec khrv_rec_type := p_khrv_rec;
4494: l_def_khrv_rec khrv_rec_type;
4495: l_khr_rec khr_rec_type;
4496: lx_khr_rec khr_rec_type;
4515: x_khrv_rec OUT NOCOPY khrv_rec_type
4516: ) RETURN VARCHAR2 IS
4517: l_khrv_rec khrv_rec_type;
4518: l_row_notfound BOOLEAN := TRUE;
4519: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4520: BEGIN
4521: x_khrv_rec := p_khrv_rec;
4522: -- Get current database values
4523: l_khrv_rec := get_rec(p_khrv_rec, l_row_notfound);
4521: x_khrv_rec := p_khrv_rec;
4522: -- Get current database values
4523: l_khrv_rec := get_rec(p_khrv_rec, l_row_notfound);
4524: IF (l_row_notfound) THEN
4525: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4526: END IF;
4527:
4528:
4529: IF (x_khrv_rec.ID = OKC_API.G_MISS_NUM) THEN
4525: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4526: END IF;
4527:
4528:
4529: IF (x_khrv_rec.ID = OKC_API.G_MISS_NUM) THEN
4530: x_khrv_rec.ID := l_khrv_rec.ID;
4531: END IF;
4532:
4533: IF (x_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4529: IF (x_khrv_rec.ID = OKC_API.G_MISS_NUM) THEN
4530: x_khrv_rec.ID := l_khrv_rec.ID;
4531: END IF;
4532:
4533: IF (x_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4534: x_khrv_rec.OBJECT_VERSION_NUMBER := l_khrv_rec.OBJECT_VERSION_NUMBER;
4535: END IF;
4536:
4537: IF (x_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
4533: IF (x_khrv_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4534: x_khrv_rec.OBJECT_VERSION_NUMBER := l_khrv_rec.OBJECT_VERSION_NUMBER;
4535: END IF;
4536:
4537: IF (x_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
4538: x_khrv_rec.ISG_ID := l_khrv_rec.ISG_ID;
4539: END IF;
4540:
4541: IF (x_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
4537: IF (x_khrv_rec.ISG_ID = OKC_API.G_MISS_NUM) THEN
4538: x_khrv_rec.ISG_ID := l_khrv_rec.ISG_ID;
4539: END IF;
4540:
4541: IF (x_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
4542: x_khrv_rec.KHR_ID := l_khrv_rec.KHR_ID;
4543: END IF;
4544:
4545: IF (x_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
4541: IF (x_khrv_rec.KHR_ID = OKC_API.G_MISS_NUM) THEN
4542: x_khrv_rec.KHR_ID := l_khrv_rec.KHR_ID;
4543: END IF;
4544:
4545: IF (x_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
4546: x_khrv_rec.PDT_ID := l_khrv_rec.PDT_ID;
4547: END IF;
4548:
4549: IF (x_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4545: IF (x_khrv_rec.PDT_ID = OKC_API.G_MISS_NUM) THEN
4546: x_khrv_rec.PDT_ID := l_khrv_rec.PDT_ID;
4547: END IF;
4548:
4549: IF (x_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4550: x_khrv_rec.AMD_CODE := l_khrv_rec.AMD_CODE;
4551: END IF;
4552:
4553: IF (x_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
4549: IF (x_khrv_rec.AMD_CODE = OKC_API.G_MISS_CHAR) THEN
4550: x_khrv_rec.AMD_CODE := l_khrv_rec.AMD_CODE;
4551: END IF;
4552:
4553: IF (x_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
4554: x_khrv_rec.DATE_FIRST_ACTIVITY := l_khrv_rec.DATE_FIRST_ACTIVITY;
4555: END IF;
4556:
4557: IF (x_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4553: IF (x_khrv_rec.DATE_FIRST_ACTIVITY = OKC_API.G_MISS_DATE) THEN
4554: x_khrv_rec.DATE_FIRST_ACTIVITY := l_khrv_rec.DATE_FIRST_ACTIVITY;
4555: END IF;
4556:
4557: IF (x_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4558: x_khrv_rec.GENERATE_ACCRUAL_YN := l_khrv_rec.GENERATE_ACCRUAL_YN;
4559: END IF;
4560:
4561: IF (x_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4557: IF (x_khrv_rec.GENERATE_ACCRUAL_YN = OKC_API.G_MISS_CHAR) THEN
4558: x_khrv_rec.GENERATE_ACCRUAL_YN := l_khrv_rec.GENERATE_ACCRUAL_YN;
4559: END IF;
4560:
4561: IF (x_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4562: x_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN;
4563: END IF;
4564:
4565: IF (x_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
4561: IF (x_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKC_API.G_MISS_CHAR) THEN
4562: x_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN;
4563: END IF;
4564:
4565: IF (x_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
4566: x_khrv_rec.DATE_REFINANCED := l_khrv_rec.DATE_REFINANCED;
4567: END IF;
4568:
4569: IF (x_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4565: IF (x_khrv_rec.DATE_REFINANCED = OKC_API.G_MISS_DATE) THEN
4566: x_khrv_rec.DATE_REFINANCED := l_khrv_rec.DATE_REFINANCED;
4567: END IF;
4568:
4569: IF (x_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4570: x_khrv_rec.CREDIT_ACT_YN := l_khrv_rec.CREDIT_ACT_YN;
4571: END IF;
4572:
4573: IF (x_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4569: IF (x_khrv_rec.CREDIT_ACT_YN = OKC_API.G_MISS_CHAR) THEN
4570: x_khrv_rec.CREDIT_ACT_YN := l_khrv_rec.CREDIT_ACT_YN;
4571: END IF;
4572:
4573: IF (x_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4574: x_khrv_rec.TERM_DURATION := l_khrv_rec.TERM_DURATION;
4575: END IF;
4576:
4577: IF (x_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4573: IF (x_khrv_rec.TERM_DURATION = OKC_API.G_MISS_NUM) THEN
4574: x_khrv_rec.TERM_DURATION := l_khrv_rec.TERM_DURATION;
4575: END IF;
4576:
4577: IF (x_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4578: x_khrv_rec.CONVERTED_ACCOUNT_YN := l_khrv_rec.CONVERTED_ACCOUNT_YN;
4579: END IF;
4580:
4581: IF (x_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4577: IF (x_khrv_rec.CONVERTED_ACCOUNT_YN = OKC_API.G_MISS_CHAR) THEN
4578: x_khrv_rec.CONVERTED_ACCOUNT_YN := l_khrv_rec.CONVERTED_ACCOUNT_YN;
4579: END IF;
4580:
4581: IF (x_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4582: x_khrv_rec.DATE_CONVERSION_EFFECTIVE := l_khrv_rec.DATE_CONVERSION_EFFECTIVE;
4583: END IF;
4584:
4585: IF (x_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
4581: IF (x_khrv_rec.DATE_CONVERSION_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4582: x_khrv_rec.DATE_CONVERSION_EFFECTIVE := l_khrv_rec.DATE_CONVERSION_EFFECTIVE;
4583: END IF;
4584:
4585: IF (x_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
4586: x_khrv_rec.SYNDICATABLE_YN := l_khrv_rec.SYNDICATABLE_YN;
4587: END IF;
4588:
4589: IF (x_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
4585: IF (x_khrv_rec.SYNDICATABLE_YN = OKC_API.G_MISS_CHAR) THEN
4586: x_khrv_rec.SYNDICATABLE_YN := l_khrv_rec.SYNDICATABLE_YN;
4587: END IF;
4588:
4589: IF (x_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
4590: x_khrv_rec.SALESTYPE_YN := l_khrv_rec.SALESTYPE_YN;
4591: END IF;
4592:
4593: IF (x_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
4589: IF (x_khrv_rec.SALESTYPE_YN = OKC_API.G_MISS_CHAR) THEN
4590: x_khrv_rec.SALESTYPE_YN := l_khrv_rec.SALESTYPE_YN;
4591: END IF;
4592:
4593: IF (x_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
4594: x_khrv_rec.DATE_DEAL_TRANSFERRED := l_khrv_rec.DATE_DEAL_TRANSFERRED;
4595: END IF;
4596:
4597: IF (x_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4593: IF (x_khrv_rec.DATE_DEAL_TRANSFERRED = OKC_API.G_MISS_DATE) THEN
4594: x_khrv_rec.DATE_DEAL_TRANSFERRED := l_khrv_rec.DATE_DEAL_TRANSFERRED;
4595: END IF;
4596:
4597: IF (x_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4598: x_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE := l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE;
4599: END IF;
4600:
4601: IF (x_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4597: IF (x_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE = OKC_API.G_MISS_DATE) THEN
4598: x_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE := l_khrv_rec.DATETIME_PROPOSAL_EFFECTIVE;
4599: END IF;
4600:
4601: IF (x_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4602: x_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE := l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE;
4603: END IF;
4604:
4605: IF (x_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4601: IF (x_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE = OKC_API.G_MISS_DATE) THEN
4602: x_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE := l_khrv_rec.DATETIME_PROPOSAL_INEFFECTIVE;
4603: END IF;
4604:
4605: IF (x_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4606: x_khrv_rec.DATE_PROPOSAL_ACCEPTED := l_khrv_rec.DATE_PROPOSAL_ACCEPTED;
4607: END IF;
4608:
4609: IF (x_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4605: IF (x_khrv_rec.DATE_PROPOSAL_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4606: x_khrv_rec.DATE_PROPOSAL_ACCEPTED := l_khrv_rec.DATE_PROPOSAL_ACCEPTED;
4607: END IF;
4608:
4609: IF (x_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4610: x_khrv_rec.ATTRIBUTE_CATEGORY := l_khrv_rec.ATTRIBUTE_CATEGORY;
4611: END IF;
4612:
4613: IF (x_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4609: IF (x_khrv_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4610: x_khrv_rec.ATTRIBUTE_CATEGORY := l_khrv_rec.ATTRIBUTE_CATEGORY;
4611: END IF;
4612:
4613: IF (x_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4614: x_khrv_rec.ATTRIBUTE1 := l_khrv_rec.ATTRIBUTE1;
4615: END IF;
4616:
4617: IF (x_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4613: IF (x_khrv_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4614: x_khrv_rec.ATTRIBUTE1 := l_khrv_rec.ATTRIBUTE1;
4615: END IF;
4616:
4617: IF (x_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4618: x_khrv_rec.ATTRIBUTE2 := l_khrv_rec.ATTRIBUTE2;
4619: END IF;
4620:
4621: IF (x_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4617: IF (x_khrv_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4618: x_khrv_rec.ATTRIBUTE2 := l_khrv_rec.ATTRIBUTE2;
4619: END IF;
4620:
4621: IF (x_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4622: x_khrv_rec.ATTRIBUTE3 := l_khrv_rec.ATTRIBUTE3;
4623: END IF;
4624:
4625: IF (x_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4621: IF (x_khrv_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4622: x_khrv_rec.ATTRIBUTE3 := l_khrv_rec.ATTRIBUTE3;
4623: END IF;
4624:
4625: IF (x_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4626: x_khrv_rec.ATTRIBUTE4 := l_khrv_rec.ATTRIBUTE4;
4627: END IF;
4628:
4629: IF (x_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4625: IF (x_khrv_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4626: x_khrv_rec.ATTRIBUTE4 := l_khrv_rec.ATTRIBUTE4;
4627: END IF;
4628:
4629: IF (x_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4630: x_khrv_rec.ATTRIBUTE5 := l_khrv_rec.ATTRIBUTE5;
4631: END IF;
4632:
4633: IF (x_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4629: IF (x_khrv_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4630: x_khrv_rec.ATTRIBUTE5 := l_khrv_rec.ATTRIBUTE5;
4631: END IF;
4632:
4633: IF (x_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4634: x_khrv_rec.ATTRIBUTE6 := l_khrv_rec.ATTRIBUTE6;
4635: END IF;
4636:
4637: IF (x_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4633: IF (x_khrv_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4634: x_khrv_rec.ATTRIBUTE6 := l_khrv_rec.ATTRIBUTE6;
4635: END IF;
4636:
4637: IF (x_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4638: x_khrv_rec.ATTRIBUTE7 := l_khrv_rec.ATTRIBUTE7;
4639: END IF;
4640:
4641: IF (x_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4637: IF (x_khrv_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4638: x_khrv_rec.ATTRIBUTE7 := l_khrv_rec.ATTRIBUTE7;
4639: END IF;
4640:
4641: IF (x_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4642: x_khrv_rec.ATTRIBUTE8 := l_khrv_rec.ATTRIBUTE8;
4643: END IF;
4644:
4645: IF (x_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4641: IF (x_khrv_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4642: x_khrv_rec.ATTRIBUTE8 := l_khrv_rec.ATTRIBUTE8;
4643: END IF;
4644:
4645: IF (x_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4646: x_khrv_rec.ATTRIBUTE9 := l_khrv_rec.ATTRIBUTE9;
4647: END IF;
4648:
4649: IF (x_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4645: IF (x_khrv_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4646: x_khrv_rec.ATTRIBUTE9 := l_khrv_rec.ATTRIBUTE9;
4647: END IF;
4648:
4649: IF (x_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4650: x_khrv_rec.ATTRIBUTE10 := l_khrv_rec.ATTRIBUTE10;
4651: END IF;
4652:
4653: IF (x_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4649: IF (x_khrv_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4650: x_khrv_rec.ATTRIBUTE10 := l_khrv_rec.ATTRIBUTE10;
4651: END IF;
4652:
4653: IF (x_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4654: x_khrv_rec.ATTRIBUTE11 := l_khrv_rec.ATTRIBUTE11;
4655: END IF;
4656:
4657: IF (x_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4653: IF (x_khrv_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4654: x_khrv_rec.ATTRIBUTE11 := l_khrv_rec.ATTRIBUTE11;
4655: END IF;
4656:
4657: IF (x_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4658: x_khrv_rec.ATTRIBUTE12 := l_khrv_rec.ATTRIBUTE12;
4659: END IF;
4660:
4661: IF (x_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4657: IF (x_khrv_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4658: x_khrv_rec.ATTRIBUTE12 := l_khrv_rec.ATTRIBUTE12;
4659: END IF;
4660:
4661: IF (x_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4662: x_khrv_rec.ATTRIBUTE13 := l_khrv_rec.ATTRIBUTE13;
4663: END IF;
4664:
4665: IF (x_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4661: IF (x_khrv_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4662: x_khrv_rec.ATTRIBUTE13 := l_khrv_rec.ATTRIBUTE13;
4663: END IF;
4664:
4665: IF (x_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4666: x_khrv_rec.ATTRIBUTE14 := l_khrv_rec.ATTRIBUTE14;
4667: END IF;
4668:
4669: IF (x_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4665: IF (x_khrv_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4666: x_khrv_rec.ATTRIBUTE14 := l_khrv_rec.ATTRIBUTE14;
4667: END IF;
4668:
4669: IF (x_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4670: x_khrv_rec.ATTRIBUTE15 := l_khrv_rec.ATTRIBUTE15;
4671: END IF;
4672:
4673: IF (x_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4669: IF (x_khrv_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4670: x_khrv_rec.ATTRIBUTE15 := l_khrv_rec.ATTRIBUTE15;
4671: END IF;
4672:
4673: IF (x_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4674: x_khrv_rec.CREATED_BY := l_khrv_rec.CREATED_BY;
4675: END IF;
4676:
4677: IF (x_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4673: IF (x_khrv_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4674: x_khrv_rec.CREATED_BY := l_khrv_rec.CREATED_BY;
4675: END IF;
4676:
4677: IF (x_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4678: x_khrv_rec.CREATION_DATE := l_khrv_rec.CREATION_DATE;
4679: END IF;
4680:
4681: IF (x_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4677: IF (x_khrv_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4678: x_khrv_rec.CREATION_DATE := l_khrv_rec.CREATION_DATE;
4679: END IF;
4680:
4681: IF (x_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4682: x_khrv_rec.LAST_UPDATED_BY := l_khrv_rec.LAST_UPDATED_BY;
4683: END IF;
4684:
4685: IF (x_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4681: IF (x_khrv_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4682: x_khrv_rec.LAST_UPDATED_BY := l_khrv_rec.LAST_UPDATED_BY;
4683: END IF;
4684:
4685: IF (x_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4686: x_khrv_rec.LAST_UPDATE_DATE := l_khrv_rec.LAST_UPDATE_DATE;
4687: END IF;
4688:
4689: IF (x_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4685: IF (x_khrv_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4686: x_khrv_rec.LAST_UPDATE_DATE := l_khrv_rec.LAST_UPDATE_DATE;
4687: END IF;
4688:
4689: IF (x_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4690: x_khrv_rec.LAST_UPDATE_LOGIN := l_khrv_rec.LAST_UPDATE_LOGIN;
4691: END IF;
4692:
4693: IF (x_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4689: IF (x_khrv_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4690: x_khrv_rec.LAST_UPDATE_LOGIN := l_khrv_rec.LAST_UPDATE_LOGIN;
4691: END IF;
4692:
4693: IF (x_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4694: x_khrv_rec.PRE_TAX_YIELD := l_khrv_rec.PRE_TAX_YIELD;
4695: END IF;
4696:
4697: IF (x_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4693: IF (x_khrv_rec.PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4694: x_khrv_rec.PRE_TAX_YIELD := l_khrv_rec.PRE_TAX_YIELD;
4695: END IF;
4696:
4697: IF (x_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4698: x_khrv_rec.AFTER_TAX_YIELD := l_khrv_rec.AFTER_TAX_YIELD;
4699: END IF;
4700:
4701: IF (x_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4697: IF (x_khrv_rec.AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4698: x_khrv_rec.AFTER_TAX_YIELD := l_khrv_rec.AFTER_TAX_YIELD;
4699: END IF;
4700:
4701: IF (x_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4702: x_khrv_rec.IMPLICIT_INTEREST_RATE := l_khrv_rec.IMPLICIT_INTEREST_RATE;
4703: END IF;
4704:
4705: IF (x_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4701: IF (x_khrv_rec.IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4702: x_khrv_rec.IMPLICIT_INTEREST_RATE := l_khrv_rec.IMPLICIT_INTEREST_RATE;
4703: END IF;
4704:
4705: IF (x_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4706: x_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE := l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE;
4707: END IF;
4708:
4709: IF (x_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4705: IF (x_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4706: x_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE := l_khrv_rec.IMPLICIT_NON_IDC_INTEREST_RATE;
4707: END IF;
4708:
4709: IF (x_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4710: x_khrv_rec.TARGET_PRE_TAX_YIELD := l_khrv_rec.TARGET_PRE_TAX_YIELD;
4711: END IF;
4712:
4713: IF (x_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4709: IF (x_khrv_rec.TARGET_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4710: x_khrv_rec.TARGET_PRE_TAX_YIELD := l_khrv_rec.TARGET_PRE_TAX_YIELD;
4711: END IF;
4712:
4713: IF (x_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4714: x_khrv_rec.TARGET_AFTER_TAX_YIELD := l_khrv_rec.TARGET_AFTER_TAX_YIELD;
4715: END IF;
4716:
4717: IF (x_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4713: IF (x_khrv_rec.TARGET_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4714: x_khrv_rec.TARGET_AFTER_TAX_YIELD := l_khrv_rec.TARGET_AFTER_TAX_YIELD;
4715: END IF;
4716:
4717: IF (x_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4718: x_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE := l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE;
4719: END IF;
4720:
4721: IF (x_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4717: IF (x_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4718: x_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE := l_khrv_rec.TARGET_IMPLICIT_INTEREST_RATE;
4719: END IF;
4720:
4721: IF (x_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4722: x_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE := l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE;
4723: END IF;
4724:
4725: IF (x_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4721: IF (x_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE = OKC_API.G_MISS_NUM) THEN
4722: x_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE := l_khrv_rec.TARGET_IMPLICIT_NONIDC_INTRATE;
4723: END IF;
4724:
4725: IF (x_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4726: x_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL := l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL;
4727: END IF;
4728:
4729: IF (x_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4725: IF (x_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL = OKC_API.G_MISS_DATE) THEN
4726: x_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL := l_khrv_rec.DATE_LAST_INTERIM_INTEREST_CAL;
4727: END IF;
4728:
4729: IF (x_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4730: x_khrv_rec.DEAL_TYPE := l_khrv_rec.DEAL_TYPE;
4731: END IF;
4732:
4733: IF (x_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4729: IF (x_khrv_rec.DEAL_TYPE = OKC_API.G_MISS_CHAR) THEN
4730: x_khrv_rec.DEAL_TYPE := l_khrv_rec.DEAL_TYPE;
4731: END IF;
4732:
4733: IF (x_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4734: x_khrv_rec.PRE_TAX_IRR := l_khrv_rec.PRE_TAX_IRR;
4735: END IF;
4736:
4737: IF (x_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4733: IF (x_khrv_rec.PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4734: x_khrv_rec.PRE_TAX_IRR := l_khrv_rec.PRE_TAX_IRR;
4735: END IF;
4736:
4737: IF (x_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4738: x_khrv_rec.AFTER_TAX_IRR := l_khrv_rec.AFTER_TAX_IRR;
4739: END IF;
4740:
4741: IF (x_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4737: IF (x_khrv_rec.AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4738: x_khrv_rec.AFTER_TAX_IRR := l_khrv_rec.AFTER_TAX_IRR;
4739: END IF;
4740:
4741: IF (x_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4742: x_khrv_rec.EXPECTED_DELIVERY_DATE := l_khrv_rec.EXPECTED_DELIVERY_DATE;
4743: END IF;
4744:
4745: IF (x_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4741: IF (x_khrv_rec.EXPECTED_DELIVERY_DATE = OKC_API.G_MISS_DATE) THEN
4742: x_khrv_rec.EXPECTED_DELIVERY_DATE := l_khrv_rec.EXPECTED_DELIVERY_DATE;
4743: END IF;
4744:
4745: IF (x_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4746: x_khrv_rec.ACCEPTED_DATE := l_khrv_rec.ACCEPTED_DATE;
4747: END IF;
4748:
4749: IF (x_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4745: IF (x_khrv_rec.ACCEPTED_DATE = OKC_API.G_MISS_DATE) THEN
4746: x_khrv_rec.ACCEPTED_DATE := l_khrv_rec.ACCEPTED_DATE;
4747: END IF;
4748:
4749: IF (x_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4750: x_khrv_rec.PREFUNDING_ELIGIBLE_YN := l_khrv_rec.PREFUNDING_ELIGIBLE_YN;
4751: END IF;
4752:
4753: IF (x_khrv_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
4749: IF (x_khrv_rec.PREFUNDING_ELIGIBLE_YN = OKC_API.G_MISS_CHAR) THEN
4750: x_khrv_rec.PREFUNDING_ELIGIBLE_YN := l_khrv_rec.PREFUNDING_ELIGIBLE_YN;
4751: END IF;
4752:
4753: IF (x_khrv_rec.REVOLVING_CREDIT_YN = OKC_API.G_MISS_CHAR) THEN
4754: x_khrv_rec.REVOLVING_CREDIT_YN := l_khrv_rec.REVOLVING_CREDIT_YN;
4755: END IF;
4756:
4757: --Bug# 2697681 schema changes 11.5.9
4754: x_khrv_rec.REVOLVING_CREDIT_YN := l_khrv_rec.REVOLVING_CREDIT_YN;
4755: END IF;
4756:
4757: --Bug# 2697681 schema changes 11.5.9
4758: IF (x_khrv_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
4759: x_khrv_rec.CURRENCY_CONVERSION_TYPE := l_khrv_rec.CURRENCY_CONVERSION_TYPE;
4760: END IF;
4761:
4762: IF (x_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4758: IF (x_khrv_rec.CURRENCY_CONVERSION_TYPE = OKC_API.G_MISS_CHAR) THEN
4759: x_khrv_rec.CURRENCY_CONVERSION_TYPE := l_khrv_rec.CURRENCY_CONVERSION_TYPE;
4760: END IF;
4761:
4762: IF (x_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4763: x_khrv_rec.CURRENCY_CONVERSION_RATE := l_khrv_rec.CURRENCY_CONVERSION_RATE;
4764: END IF;
4765:
4766: IF (x_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4762: IF (x_khrv_rec.CURRENCY_CONVERSION_RATE = OKC_API.G_MISS_NUM) THEN
4763: x_khrv_rec.CURRENCY_CONVERSION_RATE := l_khrv_rec.CURRENCY_CONVERSION_RATE;
4764: END IF;
4765:
4766: IF (x_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4767: x_khrv_rec.CURRENCY_CONVERSION_DATE := l_khrv_rec.CURRENCY_CONVERSION_DATE;
4768: END IF;
4769:
4770: IF (x_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4766: IF (x_khrv_rec.CURRENCY_CONVERSION_DATE = OKC_API.G_MISS_DATE) THEN
4767: x_khrv_rec.CURRENCY_CONVERSION_DATE := l_khrv_rec.CURRENCY_CONVERSION_DATE;
4768: END IF;
4769:
4770: IF (x_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4771: x_khrv_rec.MULTI_GAAP_YN := l_khrv_rec.MULTI_GAAP_YN;
4772: END IF;
4773:
4774: IF (x_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4770: IF (x_khrv_rec.MULTI_GAAP_YN = OKC_API.G_MISS_CHAR) THEN
4771: x_khrv_rec.MULTI_GAAP_YN := l_khrv_rec.MULTI_GAAP_YN;
4772: END IF;
4773:
4774: IF (x_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4775: x_khrv_rec.RECOURSE_CODE := l_khrv_rec.RECOURSE_CODE;
4776: END IF;
4777:
4778: IF (x_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4774: IF (x_khrv_rec.RECOURSE_CODE = OKC_API.G_MISS_CHAR) THEN
4775: x_khrv_rec.RECOURSE_CODE := l_khrv_rec.RECOURSE_CODE;
4776: END IF;
4777:
4778: IF (x_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4779: x_khrv_rec.LESSOR_SERV_ORG_CODE := l_khrv_rec.LESSOR_SERV_ORG_CODE;
4780: END IF;
4781:
4782: IF (x_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4778: IF (x_khrv_rec.LESSOR_SERV_ORG_CODE = OKC_API.G_MISS_CHAR) THEN
4779: x_khrv_rec.LESSOR_SERV_ORG_CODE := l_khrv_rec.LESSOR_SERV_ORG_CODE;
4780: END IF;
4781:
4782: IF (x_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4783: x_khrv_rec.ASSIGNABLE_YN := l_khrv_rec.ASSIGNABLE_YN;
4784: END IF;
4785:
4786: IF (x_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4782: IF (x_khrv_rec.ASSIGNABLE_YN = OKC_API.G_MISS_CHAR) THEN
4783: x_khrv_rec.ASSIGNABLE_YN := l_khrv_rec.ASSIGNABLE_YN;
4784: END IF;
4785:
4786: IF (x_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4787: x_khrv_rec.SECURITIZED_CODE := l_khrv_rec.SECURITIZED_CODE;
4788: END IF;
4789:
4790: IF (x_khrv_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
4786: IF (x_khrv_rec.SECURITIZED_CODE = OKC_API.G_MISS_CHAR) THEN
4787: x_khrv_rec.SECURITIZED_CODE := l_khrv_rec.SECURITIZED_CODE;
4788: END IF;
4789:
4790: IF (x_khrv_rec.SECURITIZATION_TYPE = OKC_API.G_MISS_CHAR) THEN
4791: x_khrv_rec.SECURITIZATION_TYPE := l_khrv_rec.SECURITIZATION_TYPE;
4792: END IF;
4793:
4794: --Bug# 3143522 : 11.5.10
4792: END IF;
4793:
4794: --Bug# 3143522 : 11.5.10
4795: --subsidy
4796: IF (x_khrv_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4797: x_khrv_rec.SUB_PRE_TAX_YIELD := l_khrv_rec.SUB_PRE_TAX_YIELD;
4798: END IF;
4799: IF (x_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4800: x_khrv_rec.SUB_AFTER_TAX_YIELD := l_khrv_rec.SUB_AFTER_TAX_YIELD;
4795: --subsidy
4796: IF (x_khrv_rec.SUB_PRE_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4797: x_khrv_rec.SUB_PRE_TAX_YIELD := l_khrv_rec.SUB_PRE_TAX_YIELD;
4798: END IF;
4799: IF (x_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4800: x_khrv_rec.SUB_AFTER_TAX_YIELD := l_khrv_rec.SUB_AFTER_TAX_YIELD;
4801: END IF;
4802: IF (x_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4803: x_khrv_rec.SUB_IMPL_INTEREST_RATE := l_khrv_rec.SUB_IMPL_INTEREST_RATE;
4798: END IF;
4799: IF (x_khrv_rec.SUB_AFTER_TAX_YIELD = OKC_API.G_MISS_NUM) THEN
4800: x_khrv_rec.SUB_AFTER_TAX_YIELD := l_khrv_rec.SUB_AFTER_TAX_YIELD;
4801: END IF;
4802: IF (x_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4803: x_khrv_rec.SUB_IMPL_INTEREST_RATE := l_khrv_rec.SUB_IMPL_INTEREST_RATE;
4804: END IF;
4805: IF (x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4806: x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE;
4801: END IF;
4802: IF (x_khrv_rec.SUB_IMPL_INTEREST_RATE = OKC_API.G_MISS_NUM) THEN
4803: x_khrv_rec.SUB_IMPL_INTEREST_RATE := l_khrv_rec.SUB_IMPL_INTEREST_RATE;
4804: END IF;
4805: IF (x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4806: x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE;
4807: END IF;
4808: IF (x_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4809: x_khrv_rec.SUB_PRE_TAX_IRR := l_khrv_rec.SUB_PRE_TAX_IRR;
4804: END IF;
4805: IF (x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE = OKC_API.G_MISS_NUM) THEN
4806: x_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE := l_khrv_rec.SUB_IMPL_NON_IDC_INT_RATE;
4807: END IF;
4808: IF (x_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4809: x_khrv_rec.SUB_PRE_TAX_IRR := l_khrv_rec.SUB_PRE_TAX_IRR;
4810: END IF;
4811: IF (x_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4812: x_khrv_rec.SUB_AFTER_TAX_IRR := l_khrv_rec.SUB_AFTER_TAX_IRR;
4807: END IF;
4808: IF (x_khrv_rec.SUB_PRE_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4809: x_khrv_rec.SUB_PRE_TAX_IRR := l_khrv_rec.SUB_PRE_TAX_IRR;
4810: END IF;
4811: IF (x_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4812: x_khrv_rec.SUB_AFTER_TAX_IRR := l_khrv_rec.SUB_AFTER_TAX_IRR;
4813: END IF;
4814: --Bug# 3973640 : 11.5.10+ schema changes
4815: IF (x_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4811: IF (x_khrv_rec.SUB_AFTER_TAX_IRR = OKC_API.G_MISS_NUM) THEN
4812: x_khrv_rec.SUB_AFTER_TAX_IRR := l_khrv_rec.SUB_AFTER_TAX_IRR;
4813: END IF;
4814: --Bug# 3973640 : 11.5.10+ schema changes
4815: IF (x_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4816: x_khrv_rec.TOT_CL_TRANSFER_AMT := l_khrv_rec.TOT_CL_TRANSFER_AMT;
4817: END IF;
4818: IF (x_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4819: x_khrv_rec.TOT_CL_NET_TRANSFER_AMT := l_khrv_rec.TOT_CL_NET_TRANSFER_AMT;
4814: --Bug# 3973640 : 11.5.10+ schema changes
4815: IF (x_khrv_rec.TOT_CL_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4816: x_khrv_rec.TOT_CL_TRANSFER_AMT := l_khrv_rec.TOT_CL_TRANSFER_AMT;
4817: END IF;
4818: IF (x_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4819: x_khrv_rec.TOT_CL_NET_TRANSFER_AMT := l_khrv_rec.TOT_CL_NET_TRANSFER_AMT;
4820: END IF;
4821: IF (x_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4822: x_khrv_rec.TOT_CL_LIMIT := l_khrv_rec.TOT_CL_LIMIT;
4817: END IF;
4818: IF (x_khrv_rec.TOT_CL_NET_TRANSFER_AMT = OKC_API.G_MISS_NUM) THEN
4819: x_khrv_rec.TOT_CL_NET_TRANSFER_AMT := l_khrv_rec.TOT_CL_NET_TRANSFER_AMT;
4820: END IF;
4821: IF (x_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4822: x_khrv_rec.TOT_CL_LIMIT := l_khrv_rec.TOT_CL_LIMIT;
4823: END IF;
4824: IF (x_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4825: x_khrv_rec.TOT_CL_FUNDING_AMT := l_khrv_rec.TOT_CL_FUNDING_AMT;
4820: END IF;
4821: IF (x_khrv_rec.TOT_CL_LIMIT = OKC_API.G_MISS_NUM) THEN
4822: x_khrv_rec.TOT_CL_LIMIT := l_khrv_rec.TOT_CL_LIMIT;
4823: END IF;
4824: IF (x_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4825: x_khrv_rec.TOT_CL_FUNDING_AMT := l_khrv_rec.TOT_CL_FUNDING_AMT;
4826: END IF;
4827: IF (x_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4828: x_khrv_rec.CRS_ID := l_khrv_rec.CRS_ID;
4823: END IF;
4824: IF (x_khrv_rec.TOT_CL_FUNDING_AMT = OKC_API.G_MISS_NUM) THEN
4825: x_khrv_rec.TOT_CL_FUNDING_AMT := l_khrv_rec.TOT_CL_FUNDING_AMT;
4826: END IF;
4827: IF (x_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4828: x_khrv_rec.CRS_ID := l_khrv_rec.CRS_ID;
4829: END IF;
4830: IF (x_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4831: x_khrv_rec.TEMPLATE_TYPE_CODE := l_khrv_rec.TEMPLATE_TYPE_CODE;
4826: END IF;
4827: IF (x_khrv_rec.CRS_ID = OKC_API.G_MISS_NUM) THEN
4828: x_khrv_rec.CRS_ID := l_khrv_rec.CRS_ID;
4829: END IF;
4830: IF (x_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4831: x_khrv_rec.TEMPLATE_TYPE_CODE := l_khrv_rec.TEMPLATE_TYPE_CODE;
4832: END IF;
4833: --Bug# 4419339 OKLH Schema Sales Quote
4834: IF (x_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4830: IF (x_khrv_rec.TEMPLATE_TYPE_CODE = OKC_API.G_MISS_CHAR) THEN
4831: x_khrv_rec.TEMPLATE_TYPE_CODE := l_khrv_rec.TEMPLATE_TYPE_CODE;
4832: END IF;
4833: --Bug# 4419339 OKLH Schema Sales Quote
4834: IF (x_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4835: x_khrv_rec.DATE_FUNDING_EXPECTED := l_khrv_rec.DATE_FUNDING_EXPECTED;
4836: END IF;
4837: IF (x_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4838: x_khrv_rec.DATE_TRADEIN := l_khrv_rec.DATE_TRADEIN;
4833: --Bug# 4419339 OKLH Schema Sales Quote
4834: IF (x_khrv_rec.DATE_FUNDING_EXPECTED = OKC_API.G_MISS_DATE) THEN
4835: x_khrv_rec.DATE_FUNDING_EXPECTED := l_khrv_rec.DATE_FUNDING_EXPECTED;
4836: END IF;
4837: IF (x_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4838: x_khrv_rec.DATE_TRADEIN := l_khrv_rec.DATE_TRADEIN;
4839: END IF;
4840: IF (x_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4841: x_khrv_rec.TRADEIN_AMOUNT := l_khrv_rec.TRADEIN_AMOUNT;
4836: END IF;
4837: IF (x_khrv_rec.DATE_TRADEIN = OKC_API.G_MISS_DATE) THEN
4838: x_khrv_rec.DATE_TRADEIN := l_khrv_rec.DATE_TRADEIN;
4839: END IF;
4840: IF (x_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4841: x_khrv_rec.TRADEIN_AMOUNT := l_khrv_rec.TRADEIN_AMOUNT;
4842: END IF;
4843: IF (x_khrv_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
4844: x_khrv_rec.TRADEIN_DESCRIPTION := l_khrv_rec.TRADEIN_DESCRIPTION;
4839: END IF;
4840: IF (x_khrv_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4841: x_khrv_rec.TRADEIN_AMOUNT := l_khrv_rec.TRADEIN_AMOUNT;
4842: END IF;
4843: IF (x_khrv_rec.TRADEIN_DESCRIPTION = OKC_API.G_MISS_CHAR) THEN
4844: x_khrv_rec.TRADEIN_DESCRIPTION := l_khrv_rec.TRADEIN_DESCRIPTION;
4845: END IF;
4846: --Added by dpsingh for LE uptake
4847: IF (x_khrv_rec.LEGAL_ENTITY_ID = OKL_API.G_MISS_NUM) THEN
4856: FUNCTION Set_Attributes (
4857: p_khrv_rec IN khrv_rec_type,
4858: x_khrv_rec OUT NOCOPY khrv_rec_type
4859: ) RETURN VARCHAR2 IS
4860: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4861: BEGIN
4862: x_khrv_rec := p_khrv_rec;
4863: x_khrv_rec.OBJECT_VERSION_NUMBER := NVL(x_khrv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4864: RETURN(l_return_status);
4863: x_khrv_rec.OBJECT_VERSION_NUMBER := NVL(x_khrv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4864: RETURN(l_return_status);
4865: END Set_Attributes;
4866: BEGIN
4867: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4868: G_PKG_NAME,
4869: p_init_msg_list,
4870: l_api_version,
4871: p_api_version,
4871: p_api_version,
4872: '_PVT',
4873: x_return_status);
4874:
4875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4878: RAISE OKC_API.G_EXCEPTION_ERROR;
4879: END IF;
4872: '_PVT',
4873: x_return_status);
4874:
4875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4878: RAISE OKC_API.G_EXCEPTION_ERROR;
4879: END IF;
4880:
4873: x_return_status);
4874:
4875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4878: RAISE OKC_API.G_EXCEPTION_ERROR;
4879: END IF;
4880:
4881: --- Setting item attributes
4874:
4875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4878: RAISE OKC_API.G_EXCEPTION_ERROR;
4879: END IF;
4880:
4881: --- Setting item attributes
4882: l_return_status := Set_Attributes(
4883: p_khrv_rec, -- IN
4884: l_khrv_rec); -- OUT
4885: --- If any errors happen abort API
4886:
4887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4890: RAISE OKC_API.G_EXCEPTION_ERROR;
4891: END IF;
4884: l_khrv_rec); -- OUT
4885: --- If any errors happen abort API
4886:
4887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4890: RAISE OKC_API.G_EXCEPTION_ERROR;
4891: END IF;
4892:
4885: --- If any errors happen abort API
4886:
4887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4890: RAISE OKC_API.G_EXCEPTION_ERROR;
4891: END IF;
4892:
4893: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
4886:
4887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4890: RAISE OKC_API.G_EXCEPTION_ERROR;
4891: END IF;
4892:
4893: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
4894:
4891: END IF;
4892:
4893: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
4894:
4895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4892:
4893: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
4894:
4895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900:
4893: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
4894:
4895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900:
4901: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
4894:
4895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4898: RAISE OKC_API.G_EXCEPTION_ERROR;
4899: END IF;
4900:
4901: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
4902: --- Validate all non-missing attributes (Item Level Validation)
4902: --- Validate all non-missing attributes (Item Level Validation)
4903: l_return_status := Validate_Attributes(l_def_khrv_rec);
4904: --- If any errors happen abort API
4905:
4906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4909: RAISE OKC_API.G_EXCEPTION_ERROR;
4910: END IF;
4903: l_return_status := Validate_Attributes(l_def_khrv_rec);
4904: --- If any errors happen abort API
4905:
4906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4909: RAISE OKC_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4904: --- If any errors happen abort API
4905:
4906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4909: RAISE OKC_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4912: l_return_status := Validate_Record(l_def_khrv_rec);
4905:
4906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4909: RAISE OKC_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4912: l_return_status := Validate_Record(l_def_khrv_rec);
4913:
4910: END IF;
4911:
4912: l_return_status := Validate_Record(l_def_khrv_rec);
4913:
4914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_ERROR;
4918: END IF;
4911:
4912: l_return_status := Validate_Record(l_def_khrv_rec);
4913:
4914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4912: l_return_status := Validate_Record(l_def_khrv_rec);
4913:
4914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4920:
4913:
4914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4917: RAISE OKC_API.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4920:
4921: --------------------------------------
4934: l_khr_rec,
4935: lx_khr_rec
4936: );
4937:
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4935: lx_khr_rec
4936: );
4937:
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943:
4936: );
4937:
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943:
4944: migrate(lx_khr_rec, l_def_khrv_rec);
4937:
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943:
4944: migrate(lx_khr_rec, l_def_khrv_rec);
4945: x_khrv_rec := l_def_khrv_rec;
4942: END IF;
4943:
4944: migrate(lx_khr_rec, l_def_khrv_rec);
4945: x_khrv_rec := l_def_khrv_rec;
4946: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4947:
4948: EXCEPTION
4949: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4945: x_khrv_rec := l_def_khrv_rec;
4946: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4947:
4948: EXCEPTION
4949: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4951: (
4952: l_api_name,
4953: G_PKG_NAME,
4946: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4947:
4948: EXCEPTION
4949: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4951: (
4952: l_api_name,
4953: G_PKG_NAME,
4954: 'OKC_API.G_RET_STS_ERROR',
4950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4951: (
4952: l_api_name,
4953: G_PKG_NAME,
4954: 'OKC_API.G_RET_STS_ERROR',
4955: x_msg_count,
4956: x_msg_data,
4957: '_PVT'
4958: );
4955: x_msg_count,
4956: x_msg_data,
4957: '_PVT'
4958: );
4959: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4960: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4961: (
4962: l_api_name,
4963: G_PKG_NAME,
4956: x_msg_data,
4957: '_PVT'
4958: );
4959: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4960: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4961: (
4962: l_api_name,
4963: G_PKG_NAME,
4964: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4960: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4961: (
4962: l_api_name,
4963: G_PKG_NAME,
4964: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4965: x_msg_count,
4966: x_msg_data,
4967: '_PVT'
4968: );
4966: x_msg_data,
4967: '_PVT'
4968: );
4969: WHEN OTHERS THEN
4970: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4971: (
4972: l_api_name,
4973: G_PKG_NAME,
4974: 'OTHERS',
4993: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
4994:
4995: l_api_version CONSTANT NUMBER := 1;
4996: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
4997: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4998: i NUMBER := 0;
4999: BEGIN
5000: OKC_API.init_msg_list(p_init_msg_list);
5001: -- Make sure PL/SQL table has records in it before passing
4996: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
4997: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4998: i NUMBER := 0;
4999: BEGIN
5000: OKC_API.init_msg_list(p_init_msg_list);
5001: -- Make sure PL/SQL table has records in it before passing
5002: IF (p_khrv_tbl.COUNT > 0) THEN
5003: i := p_khrv_tbl.FIRST;
5004: LOOP
5003: i := p_khrv_tbl.FIRST;
5004: LOOP
5005: update_row (
5006: p_api_version => p_api_version,
5007: p_init_msg_list => OKC_API.G_FALSE,
5008: x_return_status => x_return_status,
5009: x_msg_count => x_msg_count,
5010: x_msg_data => x_msg_data,
5011: p_khrv_rec => p_khrv_tbl(i),
5015: END LOOP;
5016: END IF;
5017:
5018: EXCEPTION
5019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5021: (
5022: l_api_name,
5023: G_PKG_NAME,
5016: END IF;
5017:
5018: EXCEPTION
5019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5021: (
5022: l_api_name,
5023: G_PKG_NAME,
5024: 'OKC_API.G_RET_STS_ERROR',
5020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5021: (
5022: l_api_name,
5023: G_PKG_NAME,
5024: 'OKC_API.G_RET_STS_ERROR',
5025: x_msg_count,
5026: x_msg_data,
5027: '_PVT'
5028: );
5025: x_msg_count,
5026: x_msg_data,
5027: '_PVT'
5028: );
5029: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5031: (
5032: l_api_name,
5033: G_PKG_NAME,
5026: x_msg_data,
5027: '_PVT'
5028: );
5029: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5031: (
5032: l_api_name,
5033: G_PKG_NAME,
5034: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5031: (
5032: l_api_name,
5033: G_PKG_NAME,
5034: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5035: x_msg_count,
5036: x_msg_data,
5037: '_PVT'
5038: );
5036: x_msg_data,
5037: '_PVT'
5038: );
5039: WHEN OTHERS THEN
5040: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5041: (
5042: l_api_name,
5043: G_PKG_NAME,
5044: 'OTHERS',
5069: p_khr_rec IN khr_rec_type) IS
5070:
5071: l_api_version CONSTANT NUMBER := 1;
5072: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
5073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5074: l_khr_rec khr_rec_type:= p_khr_rec;
5075: l_row_notfound BOOLEAN := TRUE;
5076: l_okl_k_headers_h_rec okl_k_headers_h_rec_type;
5077: lx_okl_k_headers_h_rec okl_k_headers_h_rec_type;
5075: l_row_notfound BOOLEAN := TRUE;
5076: l_okl_k_headers_h_rec okl_k_headers_h_rec_type;
5077: lx_okl_k_headers_h_rec okl_k_headers_h_rec_type;
5078: BEGIN
5079: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5080: p_init_msg_list,
5081: '_PVT',
5082: x_return_status);
5083:
5080: p_init_msg_list,
5081: '_PVT',
5082: x_return_status);
5083:
5084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5087: RAISE OKC_API.G_EXCEPTION_ERROR;
5088: END IF;
5081: '_PVT',
5082: x_return_status);
5083:
5084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5087: RAISE OKC_API.G_EXCEPTION_ERROR;
5088: END IF;
5089: --Bug # 2522268
5082: x_return_status);
5083:
5084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5087: RAISE OKC_API.G_EXCEPTION_ERROR;
5088: END IF;
5089: --Bug # 2522268
5090: /*-------removed as we do not do implicit versioning on delete------------------
5083:
5084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5087: RAISE OKC_API.G_EXCEPTION_ERROR;
5088: END IF;
5089: --Bug # 2522268
5090: /*-------removed as we do not do implicit versioning on delete------------------
5091: -- Insert into History table
5090: /*-------removed as we do not do implicit versioning on delete------------------
5091: -- Insert into History table
5092: l_khr_rec := get_rec(l_khr_rec, l_row_notfound);
5093: IF (l_row_notfound) THEN
5094: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5095: END IF;
5096: migrate(l_khr_rec, l_okl_k_headers_h_rec);
5097: insert_row(
5098: l_api_version,
5103: l_okl_k_headers_h_rec,
5104: lx_okl_k_headers_h_rec
5105: );
5106:
5107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5108: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5110: RAISE OKC_API.G_EXCEPTION_ERROR;
5111: END IF;
5104: lx_okl_k_headers_h_rec
5105: );
5106:
5107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5108: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5110: RAISE OKC_API.G_EXCEPTION_ERROR;
5111: END IF;
5112: -------removed as we do not do implicit versioning on delete-----------------*/
5105: );
5106:
5107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5108: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5110: RAISE OKC_API.G_EXCEPTION_ERROR;
5111: END IF;
5112: -------removed as we do not do implicit versioning on delete-----------------*/
5113: --Bug # 2522268
5106:
5107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5108: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5110: RAISE OKC_API.G_EXCEPTION_ERROR;
5111: END IF;
5112: -------removed as we do not do implicit versioning on delete-----------------*/
5113: --Bug # 2522268
5114: DELETE FROM OKL_K_HEADERS
5113: --Bug # 2522268
5114: DELETE FROM OKL_K_HEADERS
5115: WHERE ID = l_khr_rec.id;
5116:
5117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5118:
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5116:
5117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5118:
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (
5123: l_api_name,
5124: G_PKG_NAME,
5117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5118:
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (
5123: l_api_name,
5124: G_PKG_NAME,
5125: 'OKC_API.G_RET_STS_ERROR',
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (
5123: l_api_name,
5124: G_PKG_NAME,
5125: 'OKC_API.G_RET_STS_ERROR',
5126: x_msg_count,
5127: x_msg_data,
5128: '_PVT'
5129: );
5126: x_msg_count,
5127: x_msg_data,
5128: '_PVT'
5129: );
5130: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5131: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5132: (
5133: l_api_name,
5134: G_PKG_NAME,
5127: x_msg_data,
5128: '_PVT'
5129: );
5130: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5131: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5132: (
5133: l_api_name,
5134: G_PKG_NAME,
5135: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5131: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5132: (
5133: l_api_name,
5134: G_PKG_NAME,
5135: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5136: x_msg_count,
5137: x_msg_data,
5138: '_PVT'
5139: );
5137: x_msg_data,
5138: '_PVT'
5139: );
5140: WHEN OTHERS THEN
5141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5142: (
5143: l_api_name,
5144: G_PKG_NAME,
5145: 'OTHERS',
5160: p_khrv_rec IN khrv_rec_type) IS
5161:
5162: l_api_version CONSTANT NUMBER := 1;
5163: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
5164: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5165: l_khrv_rec khrv_rec_type := p_khrv_rec;
5166: l_khr_rec khr_rec_type;
5167: BEGIN
5168: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5164: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5165: l_khrv_rec khrv_rec_type := p_khrv_rec;
5166: l_khr_rec khr_rec_type;
5167: BEGIN
5168: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5169: G_PKG_NAME,
5170: p_init_msg_list,
5171: l_api_version,
5172: p_api_version,
5172: p_api_version,
5173: '_PVT',
5174: x_return_status);
5175:
5176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5179: RAISE OKC_API.G_EXCEPTION_ERROR;
5180: END IF;
5173: '_PVT',
5174: x_return_status);
5175:
5176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5179: RAISE OKC_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5174: x_return_status);
5175:
5176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5179: RAISE OKC_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5182: --------------------------------------
5175:
5176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5179: RAISE OKC_API.G_EXCEPTION_ERROR;
5180: END IF;
5181:
5182: --------------------------------------
5183: -- Move VIEW record to "Child" records
5194: x_msg_data,
5195: l_khr_rec
5196: );
5197:
5198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5201: RAISE OKC_API.G_EXCEPTION_ERROR;
5202: END IF;
5195: l_khr_rec
5196: );
5197:
5198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5201: RAISE OKC_API.G_EXCEPTION_ERROR;
5202: END IF;
5203:
5196: );
5197:
5198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5201: RAISE OKC_API.G_EXCEPTION_ERROR;
5202: END IF;
5203:
5204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5197:
5198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5201: RAISE OKC_API.G_EXCEPTION_ERROR;
5202: END IF;
5203:
5204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5205:
5200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5201: RAISE OKC_API.G_EXCEPTION_ERROR;
5202: END IF;
5203:
5204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5205:
5206: EXCEPTION
5207: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5203:
5204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5205:
5206: EXCEPTION
5207: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5209: (
5210: l_api_name,
5211: G_PKG_NAME,
5204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5205:
5206: EXCEPTION
5207: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5209: (
5210: l_api_name,
5211: G_PKG_NAME,
5212: 'OKC_API.G_RET_STS_ERROR',
5208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5209: (
5210: l_api_name,
5211: G_PKG_NAME,
5212: 'OKC_API.G_RET_STS_ERROR',
5213: x_msg_count,
5214: x_msg_data,
5215: '_PVT'
5216: );
5213: x_msg_count,
5214: x_msg_data,
5215: '_PVT'
5216: );
5217: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5219: (
5220: l_api_name,
5221: G_PKG_NAME,
5214: x_msg_data,
5215: '_PVT'
5216: );
5217: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5219: (
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5219: (
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5223: x_msg_count,
5224: x_msg_data,
5225: '_PVT'
5226: );
5224: x_msg_data,
5225: '_PVT'
5226: );
5227: WHEN OTHERS THEN
5228: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5229: (
5230: l_api_name,
5231: G_PKG_NAME,
5232: 'OTHERS',
5250: p_khrv_tbl IN khrv_tbl_type) IS
5251:
5252: l_api_version CONSTANT NUMBER := 1;
5253: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
5254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5255: i NUMBER := 0;
5256: BEGIN
5257: OKC_API.init_msg_list(p_init_msg_list);
5258: -- Make sure PL/SQL table has records in it before passing
5253: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
5254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5255: i NUMBER := 0;
5256: BEGIN
5257: OKC_API.init_msg_list(p_init_msg_list);
5258: -- Make sure PL/SQL table has records in it before passing
5259: IF (p_khrv_tbl.COUNT > 0) THEN
5260: i := p_khrv_tbl.FIRST;
5261: LOOP
5260: i := p_khrv_tbl.FIRST;
5261: LOOP
5262: delete_row (
5263: p_api_version => p_api_version,
5264: p_init_msg_list => OKC_API.G_FALSE,
5265: x_return_status => x_return_status,
5266: x_msg_count => x_msg_count,
5267: x_msg_data => x_msg_data,
5268: p_khrv_rec => p_khrv_tbl(i));
5271: END LOOP;
5272: END IF;
5273:
5274: EXCEPTION
5275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5277: (
5278: l_api_name,
5279: G_PKG_NAME,
5272: END IF;
5273:
5274: EXCEPTION
5275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5277: (
5278: l_api_name,
5279: G_PKG_NAME,
5280: 'OKC_API.G_RET_STS_ERROR',
5276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5277: (
5278: l_api_name,
5279: G_PKG_NAME,
5280: 'OKC_API.G_RET_STS_ERROR',
5281: x_msg_count,
5282: x_msg_data,
5283: '_PVT'
5284: );
5281: x_msg_count,
5282: x_msg_data,
5283: '_PVT'
5284: );
5285: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5286: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5287: (
5288: l_api_name,
5289: G_PKG_NAME,
5282: x_msg_data,
5283: '_PVT'
5284: );
5285: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5286: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5287: (
5288: l_api_name,
5289: G_PKG_NAME,
5290: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5286: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5287: (
5288: l_api_name,
5289: G_PKG_NAME,
5290: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5291: x_msg_count,
5292: x_msg_data,
5293: '_PVT'
5294: );
5292: x_msg_data,
5293: '_PVT'
5294: );
5295: WHEN OTHERS THEN
5296: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5297: (
5298: l_api_name,
5299: G_PKG_NAME,
5300: 'OTHERS',
5313: FUNCTION create_version(
5314: p_khr_id IN NUMBER,
5315: p_major_version IN NUMBER) RETURN VARCHAR2 IS
5316:
5317: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5318:
5319: BEGIN
5320: INSERT INTO OKL_K_HEADERS_H
5321: (
5508: EXCEPTION
5509: -- other appropriate handlers
5510: WHEN OTHERS THEN
5511: -- store SQL error message on message stack
5512: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
5513: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
5514: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
5515: p_token1_value => sqlcode,
5516: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5516: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5517: p_token2_value => sqlerrm);
5518:
5519: -- notify UNEXPECTED error
5520: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5521: return l_return_status;
5522: END create_version;
5523:
5524: FUNCTION restore_version(
5524: FUNCTION restore_version(
5525: p_khr_id IN NUMBER,
5526: p_major_version IN NUMBER) RETURN VARCHAR2 IS
5527:
5528: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5529:
5530: BEGIN
5531: INSERT INTO OKL_K_HEADERS
5532: (
5716: EXCEPTION
5717: -- other appropriate handlers
5718: WHEN OTHERS THEN
5719: -- store SQL error message on message stack
5720: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
5721: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
5722: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
5723: p_token1_value => sqlcode,
5724: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5724: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5725: p_token2_value => sqlerrm);
5726:
5727: -- notify UNEXPECTED error
5728: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5729: return l_return_status;
5730: END restore_version;
5731:
5732: