[Home] [Help]
27: PROCEDURE validate_CREDIT_TENANT_YN(x_return_status OUT NOCOPY VARCHAR2,
28: p_klev_rec IN klev_rec_type) is
29: Begin
30: -- initialize return status
31: x_return_status := OKC_API.G_RET_STS_SUCCESS;
32: If (p_klev_rec.CREDIT_TENANT_YN <> OKC_API.G_MISS_CHAR and
33: p_klev_rec.CREDIT_TENANT_YN IS NOT NULL)
34: Then
35: -- check allowed values
28: p_klev_rec IN klev_rec_type) is
29: Begin
30: -- initialize return status
31: x_return_status := OKC_API.G_RET_STS_SUCCESS;
32: If (p_klev_rec.CREDIT_TENANT_YN <> OKC_API.G_MISS_CHAR and
33: p_klev_rec.CREDIT_TENANT_YN IS NOT NULL)
34: Then
35: -- check allowed values
36: If (upper(p_klev_rec.CREDIT_TENANT_YN) NOT IN ('Y','N')) Then
33: p_klev_rec.CREDIT_TENANT_YN IS NOT NULL)
34: Then
35: -- check allowed values
36: If (upper(p_klev_rec.CREDIT_TENANT_YN) NOT IN ('Y','N')) Then
37: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
38: p_msg_name => g_invalid_value,
39: p_token1 => g_col_name_token,
40: p_token1_value => 'CREDIT_TENANT_YN');
41: -- notify caller of an error
38: p_msg_name => g_invalid_value,
39: p_token1 => g_col_name_token,
40: p_token1_value => 'CREDIT_TENANT_YN');
41: -- notify caller of an error
42: x_return_status := OKC_API.G_RET_STS_ERROR;
43: End If;
44: End If;
45: exception
46: when OTHERS then
44: End If;
45: exception
46: when OTHERS then
47: -- store SQL error message on message stack
48: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
49: p_msg_name => g_unexpected_error,
50: p_token1 => g_sqlcode_token,
51: p_token1_value => sqlcode,
52: p_token2 => g_sqlerrm_token,
51: p_token1_value => sqlcode,
52: p_token2 => g_sqlerrm_token,
53: p_token2_value => sqlerrm);
54: -- notify caller of an error as UNEXPETED error
55: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
56: End validate_CREDIT_TENANT_YN;
57:
58:
59: -- Start of comments
67: PROCEDURE validate_PRESCRIBED_ASSET_YN(x_return_status OUT NOCOPY VARCHAR2,
68: p_klev_rec IN klev_rec_type) is
69: Begin
70: -- initialize return status
71: x_return_status := OKC_API.G_RET_STS_SUCCESS;
72: If (p_klev_rec.PRESCRIBED_ASSET_YN <> OKC_API.G_MISS_CHAR and
73: p_klev_rec.PRESCRIBED_ASSET_YN IS NOT NULL)
74: Then
75: -- check allowed values
68: p_klev_rec IN klev_rec_type) is
69: Begin
70: -- initialize return status
71: x_return_status := OKC_API.G_RET_STS_SUCCESS;
72: If (p_klev_rec.PRESCRIBED_ASSET_YN <> OKC_API.G_MISS_CHAR and
73: p_klev_rec.PRESCRIBED_ASSET_YN IS NOT NULL)
74: Then
75: -- check allowed values
76: If (upper(p_klev_rec.PRESCRIBED_ASSET_YN) NOT IN ('Y','N')) Then
73: p_klev_rec.PRESCRIBED_ASSET_YN IS NOT NULL)
74: Then
75: -- check allowed values
76: If (upper(p_klev_rec.PRESCRIBED_ASSET_YN) NOT IN ('Y','N')) Then
77: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
78: p_msg_name => g_invalid_value,
79: p_token1 => g_col_name_token,
80: p_token1_value => 'PRESCRIBED_ASSET_YN');
81: -- notify caller of an error
78: p_msg_name => g_invalid_value,
79: p_token1 => g_col_name_token,
80: p_token1_value => 'PRESCRIBED_ASSET_YN');
81: -- notify caller of an error
82: x_return_status := OKC_API.G_RET_STS_ERROR;
83: End If;
84: End If;
85: exception
86: when OTHERS then
84: End If;
85: exception
86: when OTHERS then
87: -- store SQL error message on message stack
88: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
89: p_msg_name => g_unexpected_error,
90: p_token1 => g_sqlcode_token,
91: p_token1_value => sqlcode,
92: p_token2 => g_sqlerrm_token,
91: p_token1_value => sqlcode,
92: p_token2 => g_sqlerrm_token,
93: p_token2_value => sqlerrm);
94: -- notify caller of an error as UNEXPETED error
95: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
96: End validate_PRESCRIBED_ASSET_YN;
97:
98:
99: -- Start of comments
107: PROCEDURE validate_SECURED_DEAL_YN(x_return_status OUT NOCOPY VARCHAR2,
108: p_klev_rec IN klev_rec_type) is
109: Begin
110: -- initialize return status
111: x_return_status := OKC_API.G_RET_STS_SUCCESS;
112: If (p_klev_rec.SECURED_DEAL_YN <> OKC_API.G_MISS_CHAR and
113: p_klev_rec.SECURED_DEAL_YN IS NOT NULL)
114: Then
115: -- check allowed values
108: p_klev_rec IN klev_rec_type) is
109: Begin
110: -- initialize return status
111: x_return_status := OKC_API.G_RET_STS_SUCCESS;
112: If (p_klev_rec.SECURED_DEAL_YN <> OKC_API.G_MISS_CHAR and
113: p_klev_rec.SECURED_DEAL_YN IS NOT NULL)
114: Then
115: -- check allowed values
116: If (upper(p_klev_rec.SECURED_DEAL_YN) NOT IN ('Y','N')) Then
113: p_klev_rec.SECURED_DEAL_YN IS NOT NULL)
114: Then
115: -- check allowed values
116: If (upper(p_klev_rec.SECURED_DEAL_YN) NOT IN ('Y','N')) Then
117: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
118: p_msg_name => g_invalid_value,
119: p_token1 => g_col_name_token,
120: p_token1_value => 'SECURED_DEAL_YN');
121: -- notify caller of an error
118: p_msg_name => g_invalid_value,
119: p_token1 => g_col_name_token,
120: p_token1_value => 'SECURED_DEAL_YN');
121: -- notify caller of an error
122: x_return_status := OKC_API.G_RET_STS_ERROR;
123: End If;
124: End If;
125: exception
126: when OTHERS then
124: End If;
125: exception
126: when OTHERS then
127: -- store SQL error message on message stack
128: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
129: p_msg_name => g_unexpected_error,
130: p_token1 => g_sqlcode_token,
131: p_token1_value => sqlcode,
132: p_token2 => g_sqlerrm_token,
131: p_token1_value => sqlcode,
132: p_token2 => g_sqlerrm_token,
133: p_token2_value => sqlerrm);
134: -- notify caller of an error as UNEXPETED error
135: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
136: End validate_SECURED_DEAL_YN;
137:
138: -- Start of comments
139: --
146: PROCEDURE validate_RE_LEASE_YN(x_return_status OUT NOCOPY VARCHAR2,
147: p_klev_rec IN klev_rec_type) is
148: Begin
149: -- initialize return status
150: x_return_status := OKC_API.G_RET_STS_SUCCESS;
151: If (p_klev_rec.RE_LEASE_YN <> OKC_API.G_MISS_CHAR and
152: p_klev_rec.RE_LEASE_YN IS NOT NULL)
153: Then
154: -- check allowed values
147: p_klev_rec IN klev_rec_type) is
148: Begin
149: -- initialize return status
150: x_return_status := OKC_API.G_RET_STS_SUCCESS;
151: If (p_klev_rec.RE_LEASE_YN <> OKC_API.G_MISS_CHAR and
152: p_klev_rec.RE_LEASE_YN IS NOT NULL)
153: Then
154: -- check allowed values
155: If (upper(p_klev_rec.RE_LEASE_YN) NOT IN ('Y','N')) Then
152: p_klev_rec.RE_LEASE_YN IS NOT NULL)
153: Then
154: -- check allowed values
155: If (upper(p_klev_rec.RE_LEASE_YN) NOT IN ('Y','N')) Then
156: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => g_invalid_value,
158: p_token1 => g_col_name_token,
159: p_token1_value => 'RE_LEASE_YN');
160: -- notify caller of an error
157: p_msg_name => g_invalid_value,
158: p_token1 => g_col_name_token,
159: p_token1_value => 'RE_LEASE_YN');
160: -- notify caller of an error
161: x_return_status := OKC_API.G_RET_STS_ERROR;
162: End If;
163: End If;
164: exception
165: when OTHERS then
163: End If;
164: exception
165: when OTHERS then
166: -- store SQL error message on message stack
167: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
168: p_msg_name => g_unexpected_error,
169: p_token1 => g_sqlcode_token,
170: p_token1_value => sqlcode,
171: p_token2 => g_sqlerrm_token,
170: p_token1_value => sqlcode,
171: p_token2 => g_sqlerrm_token,
172: p_token2_value => sqlerrm);
173: -- notify caller of an error as UNEXPETED error
174: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
175: End validate_RE_LEASE_YN;
176:
177: -- Start of comments
178: --
186: p_klev_rec IN klev_rec_type
187: ) is
188: begin
189: -- initialize return status
190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
191:
192: -- nulls are allowed
193: if (p_klev_rec.FEE_TYPE <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.FEE_TYPE IS NOT NULL) then
194: -- Check if the value is a valid code from lookup table
189: -- initialize return status
190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
191:
192: -- nulls are allowed
193: if (p_klev_rec.FEE_TYPE <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.FEE_TYPE IS NOT NULL) then
194: -- Check if the value is a valid code from lookup table
195: x_return_status := OKC_UTIL.check_lookup_code('OKL_FEE_TYPES',
196: p_klev_rec.FEE_TYPE);
197: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
193: if (p_klev_rec.FEE_TYPE <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.FEE_TYPE IS NOT NULL) then
194: -- Check if the value is a valid code from lookup table
195: x_return_status := OKC_UTIL.check_lookup_code('OKL_FEE_TYPES',
196: p_klev_rec.FEE_TYPE);
197: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
198: --set error message in message stack
199: OKC_API.SET_MESSAGE(
200: p_app_name => G_APP_NAME,
201: p_msg_name => G_INVALID_VALUE,
195: x_return_status := OKC_UTIL.check_lookup_code('OKL_FEE_TYPES',
196: p_klev_rec.FEE_TYPE);
197: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
198: --set error message in message stack
199: OKC_API.SET_MESSAGE(
200: p_app_name => G_APP_NAME,
201: p_msg_name => G_INVALID_VALUE,
202: p_token1 => G_COL_NAME_TOKEN,
203: p_token1_value => 'FEE_TYPE');
201: p_msg_name => G_INVALID_VALUE,
202: p_token1 => G_COL_NAME_TOKEN,
203: p_token1_value => 'FEE_TYPE');
204: raise G_EXCEPTION_HALT_VALIDATION;
205: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
206: raise G_EXCEPTION_HALT_VALIDATION;
207: End If;
208:
209: end if;
213: null;
214:
215: when OTHERS then
216: -- store SQL error message on message stack for caller
217: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
218: p_msg_name => G_UNEXPECTED_ERROR,
219: p_token1 => g_sqlcode_token,
220: p_token1_value => sqlcode,
221: p_token2 => g_sqlerrm_token,
220: p_token1_value => sqlcode,
221: p_token2 => g_sqlerrm_token,
222: p_token2_value => sqlerrm);
223: -- notify caller of an error
224: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
225: end validate_FEE_TYPE;
226:
227:
228: --Added by jjuneja
239: p_klev_rec IN klev_rec_type
240: ) is
241: begin
242: -- initialize return status
243: x_return_status := OKC_API.G_RET_STS_SUCCESS;
244:
245:
246: IF ( p_klev_rec.FEE_TYPE = 'INCOME') THEN
247: --Check if the origination_income is less than the amount and greater than 0
247: --Check if the origination_income is less than the amount and greater than 0
248: if (p_klev_rec.ORIGINATION_INCOME > p_klev_rec.AMOUNT) OR (p_klev_rec.ORIGINATION_INCOME < 0) then
249:
250:
251: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
252: p_msg_name => 'OKL_INVALID_ORIG_INCOME');
253: -- notify caller of an error
254: x_return_status := OKC_API.G_RET_STS_ERROR;
255: End If;
250:
251: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
252: p_msg_name => 'OKL_INVALID_ORIG_INCOME');
253: -- notify caller of an error
254: x_return_status := OKC_API.G_RET_STS_ERROR;
255: End If;
256: END IF;
257:
258:
260:
261:
262: when OTHERS then
263: -- store SQL error message on message stack for caller
264: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
265: p_msg_name => G_UNEXPECTED_ERROR,
266: p_token1 => g_sqlcode_token,
267: p_token1_value => sqlcode,
268: p_token2 => g_sqlerrm_token,
267: p_token1_value => sqlcode,
268: p_token2 => g_sqlerrm_token,
269: p_token2_value => sqlerrm);
270: -- notify caller of an error
271: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
272: end validate_ORIGINATION_INCOME;
273: --End of addition by jjuneja
274:
275: --Bug# 3973640 :
285: p_klev_rec IN klev_rec_type
286: ) is
287: begin
288: -- initialize return status
289: x_return_status := OKC_API.G_RET_STS_SUCCESS;
290:
291: -- nulls are allowed
292: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
293: -- Check if the value is a valid code from lookup table
288: -- initialize return status
289: x_return_status := OKC_API.G_RET_STS_SUCCESS;
290:
291: -- nulls are allowed
292: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
293: -- Check if the value is a valid code from lookup table
294: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
295: p_klev_rec.STREAM_TYPE_SUBCLASS);
296: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
292: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
293: -- Check if the value is a valid code from lookup table
294: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
295: p_klev_rec.STREAM_TYPE_SUBCLASS);
296: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
297: --set error message in message stack
298: OKC_API.SET_MESSAGE(
299: p_app_name => G_APP_NAME,
300: p_msg_name => G_INVALID_VALUE,
294: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
295: p_klev_rec.STREAM_TYPE_SUBCLASS);
296: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
297: --set error message in message stack
298: OKC_API.SET_MESSAGE(
299: p_app_name => G_APP_NAME,
300: p_msg_name => G_INVALID_VALUE,
301: p_token1 => G_COL_NAME_TOKEN,
302: p_token1_value => 'STREAM_TYPE_SUBCLASS');
300: p_msg_name => G_INVALID_VALUE,
301: p_token1 => G_COL_NAME_TOKEN,
302: p_token1_value => 'STREAM_TYPE_SUBCLASS');
303: raise G_EXCEPTION_HALT_VALIDATION;
304: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
305: raise G_EXCEPTION_HALT_VALIDATION;
306: End If;
307:
308: end if;
312: null;
313:
314: when OTHERS then
315: -- store SQL error message on message stack for caller
316: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
317: p_msg_name => G_UNEXPECTED_ERROR,
318: p_token1 => g_sqlcode_token,
319: p_token1_value => sqlcode,
320: p_token2 => g_sqlerrm_token,
319: p_token1_value => sqlcode,
320: p_token2 => g_sqlerrm_token,
321: p_token2_value => sqlerrm);
322: -- notify caller of an error
323: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
324: end validate_strm_subclass;
325:
326: --Bug# 4558486: start
327: -- Start of comments
410: p_klev_rec IN klev_rec_type
411: ) is
412: begin
413: -- initialize return status
414: x_return_status := OKC_API.G_RET_STS_SUCCESS;
415:
416: -- data is required
417: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
418: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
413: -- initialize return status
414: x_return_status := OKC_API.G_RET_STS_SUCCESS;
415:
416: -- data is required
417: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
418: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
419:
420: -- notify caller of an error
421: x_return_status := OKC_API.G_RET_STS_ERROR;
414: x_return_status := OKC_API.G_RET_STS_SUCCESS;
415:
416: -- data is required
417: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
418: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
419:
420: -- notify caller of an error
421: x_return_status := OKC_API.G_RET_STS_ERROR;
422:
417: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
418: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
419:
420: -- notify caller of an error
421: x_return_status := OKC_API.G_RET_STS_ERROR;
422:
423: -- halt further validation of this column
424: raise G_EXCEPTION_HALT_VALIDATION;
425: end if;
429: null;
430:
431: when OTHERS then
432: -- store SQL error message on message stack for caller
433: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
434: p_msg_name => G_UNEXPECTED_ERROR,
435: p_token1 => g_sqlcode_token,
436: p_token1_value => sqlcode,
437: p_token2 => g_sqlerrm_token,
436: p_token1_value => sqlcode,
437: p_token2 => g_sqlerrm_token,
438: p_token2_value => sqlerrm);
439: -- notify caller of an error
440: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
441: end validate_ID;
442:
443: -- Start of comments
444: --
452: p_klev_rec IN klev_rec_type
453: ) is
454: begin
455: -- initialize return status
456: x_return_status := OKC_API.G_RET_STS_SUCCESS;
457:
458: -- data is required
459: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
455: -- initialize return status
456: x_return_status := OKC_API.G_RET_STS_SUCCESS;
457:
458: -- data is required
459: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
461:
462: -- notify caller of an error
463: x_return_status := OKC_API.G_RET_STS_ERROR;
456: x_return_status := OKC_API.G_RET_STS_SUCCESS;
457:
458: -- data is required
459: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
461:
462: -- notify caller of an error
463: x_return_status := OKC_API.G_RET_STS_ERROR;
464:
459: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
461:
462: -- notify caller of an error
463: x_return_status := OKC_API.G_RET_STS_ERROR;
464:
465: -- halt further validation of this column
466: raise G_EXCEPTION_HALT_VALIDATION;
467: end if;
471: null;
472:
473: when OTHERS then
474: -- store SQL error message on message stack for caller
475: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
476: p_msg_name => G_UNEXPECTED_ERROR,
477: p_token1 => g_sqlcode_token,
478: p_token1_value => sqlcode,
479: p_token2 => g_sqlerrm_token,
478: p_token1_value => sqlcode,
479: p_token2 => g_sqlerrm_token,
480: p_token2_value => sqlerrm);
481: -- notify caller of an error
482: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
483: end validate_OBJECT_VERSION_NUMBER;
484:
485: -- Start of comments
486: --
494: p_klev_rec IN klev_rec_type
495: ) is
496: begin
497: -- initialize return status
498: x_return_status := OKC_API.G_RET_STS_SUCCESS;
499:
500: -- data is required
501: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
502: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
497: -- initialize return status
498: x_return_status := OKC_API.G_RET_STS_SUCCESS;
499:
500: -- data is required
501: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
502: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
503:
504: -- notify caller of an error
505: x_return_status := OKC_API.G_RET_STS_ERROR;
498: x_return_status := OKC_API.G_RET_STS_SUCCESS;
499:
500: -- data is required
501: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
502: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
503:
504: -- notify caller of an error
505: x_return_status := OKC_API.G_RET_STS_ERROR;
506:
501: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
502: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
503:
504: -- notify caller of an error
505: x_return_status := OKC_API.G_RET_STS_ERROR;
506:
507: -- halt further validation of this column
508: raise G_EXCEPTION_HALT_VALIDATION;
509: end if;
513: null;
514:
515: when OTHERS then
516: -- store SQL error message on message stack for caller
517: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
518: p_msg_name => G_UNEXPECTED_ERROR,
519: p_token1 => g_sqlcode_token,
520: p_token1_value => sqlcode,
521: p_token2 => g_sqlerrm_token,
520: p_token1_value => sqlcode,
521: p_token2 => g_sqlerrm_token,
522: p_token2_value => sqlerrm);
523: -- notify caller of an error
524: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
525: end validate_CLG_ID;
526: --Bug# 3143522 : 11.5.10 Subsidies
527: -------------------------------------------
528: --validate attributes for subsidy_id
575: ---------------------------------------------
576: FUNCTION Validate_Attributes (
577: p_klev_rec IN klev_rec_type
578: ) RETURN VARCHAR2 IS
579: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
580: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
581: BEGIN
582:
583:
576: FUNCTION Validate_Attributes (
577: p_klev_rec IN klev_rec_type
578: ) RETURN VARCHAR2 IS
579: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
580: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
581: BEGIN
582:
583:
584: -- call each column-level validation
588: validate_ID(x_return_status => l_return_status,
589: p_klev_rec => p_klev_rec);
590:
591: -- store the highest degree of error
592: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
593: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
594: x_return_status := l_return_status;
595: end if;
596: end if;
589: p_klev_rec => p_klev_rec);
590:
591: -- store the highest degree of error
592: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
593: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
594: x_return_status := l_return_status;
595: end if;
596: end if;
597: */
598: validate_OBJECT_VERSION_NUMBER(x_return_status => l_return_status,
599: p_klev_rec => p_klev_rec);
600:
601: -- store the highest degree of error
602: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
603: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
604: x_return_status := l_return_status;
605: end if;
606: end if;
599: p_klev_rec => p_klev_rec);
600:
601: -- store the highest degree of error
602: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
603: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
604: x_return_status := l_return_status;
605: end if;
606: end if;
607: /*
608: validate_CLG_ID(x_return_status => l_return_status,
609: p_klev_rec => p_klev_rec);
610:
611: -- store the highest degree of error
612: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
613: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
614: x_return_status := l_return_status;
615: end if;
616: end if;
609: p_klev_rec => p_klev_rec);
610:
611: -- store the highest degree of error
612: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
613: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
614: x_return_status := l_return_status;
615: end if;
616: end if;
617: */
619: validate_CREDIT_TENANT_YN(x_return_status => l_return_status,
620: p_klev_rec => p_klev_rec);
621:
622: -- store the highest degree of error
623: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
624: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
625: x_return_status := l_return_status;
626: end if;
627: end if;
620: p_klev_rec => p_klev_rec);
621:
622: -- store the highest degree of error
623: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
624: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
625: x_return_status := l_return_status;
626: end if;
627: end if;
628:
629: validate_PRESCRIBED_ASSET_YN(x_return_status => l_return_status,
630: p_klev_rec => p_klev_rec);
631:
632: -- store the highest degree of error
633: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
634: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
635: x_return_status := l_return_status;
636: end if;
637: end if;
630: p_klev_rec => p_klev_rec);
631:
632: -- store the highest degree of error
633: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
634: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
635: x_return_status := l_return_status;
636: end if;
637: end if;
638:
639: validate_SECURED_DEAL_YN(x_return_status => l_return_status,
640: p_klev_rec => p_klev_rec);
641:
642: -- store the highest degree of error
643: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
644: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
645: x_return_status := l_return_status;
646: end if;
647: end if;
640: p_klev_rec => p_klev_rec);
641:
642: -- store the highest degree of error
643: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
644: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
645: x_return_status := l_return_status;
646: end if;
647: end if;
648:
649: validate_RE_LEASE_YN(x_return_status => l_return_status,
650: p_klev_rec => p_klev_rec);
651:
652: -- store the highest degree of error
653: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
654: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
655: x_return_status := l_return_status;
656: end if;
657: end if;
650: p_klev_rec => p_klev_rec);
651:
652: -- store the highest degree of error
653: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
654: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
655: x_return_status := l_return_status;
656: end if;
657: end if;
658:
660: validate_FEE_TYPE(x_return_status => l_return_status,
661: p_klev_rec => p_klev_rec);
662:
663: -- store the highest degree of error
664: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
665: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
666: x_return_status := l_return_status;
667: end if;
668: end if;
661: p_klev_rec => p_klev_rec);
662:
663: -- store the highest degree of error
664: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
665: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
666: x_return_status := l_return_status;
667: end if;
668: end if;
669:
673: validate_SUBSIDY_ID(x_return_status => l_return_status,
674: p_klev_rec => p_klev_rec);
675:
676: -- store the highest degree of error
677: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
678: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
679: x_return_status := l_return_status;
680: end if;
681: end if;
674: p_klev_rec => p_klev_rec);
675:
676: -- store the highest degree of error
677: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
678: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
679: x_return_status := l_return_status;
680: end if;
681: end if;
682: -------------------------
689: validate_strm_subclass(x_return_status => l_return_status,
690: p_klev_rec => p_klev_rec);
691:
692: -- store the highest degree of error
693: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
694: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
695: x_return_status := l_return_status;
696: end if;
697: end if;
690: p_klev_rec => p_klev_rec);
691:
692: -- store the highest degree of error
693: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
694: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
695: x_return_status := l_return_status;
696: end if;
697: end if;
698: ------------------------
708: (x_return_status => l_return_status,
709: p_klev_rec => p_klev_rec);
710:
711: -- store the highest degree of error
712: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
713: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
714: x_return_status := l_return_status;
715: end if;
716: end if;
709: p_klev_rec => p_klev_rec);
710:
711: -- store the highest degree of error
712: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
713: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
714: x_return_status := l_return_status;
715: end if;
716: end if;
717: end if;
721:
722: validate_ORIGINATION_INCOME(x_return_status => l_return_status,
723: p_klev_rec => p_klev_rec);
724: -- store the highest degree of error
725: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
726: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
727: x_return_status := l_return_status;
728: end if;
729: end if;
722: validate_ORIGINATION_INCOME(x_return_status => l_return_status,
723: p_klev_rec => p_klev_rec);
724: -- store the highest degree of error
725: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
726: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
727: x_return_status := l_return_status;
728: end if;
729: end if;
730:
735: return x_return_status;
736: exception
737: when OTHERS then
738: -- store SQL error message on message stack for caller
739: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
740: p_msg_name => G_UNEXPECTED_ERROR,
741: p_token1 => g_sqlcode_token,
742: p_token1_value => sqlcode,
743: p_token2 => g_sqlerrm_token,
742: p_token1_value => sqlcode,
743: p_token2 => g_sqlerrm_token,
744: p_token2_value => sqlerrm);
745: -- notify caller of an error
746: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
747: -- return status to caller
748: return x_return_status;
749: END Validate_Attributes;
750:
1769: ) RETURN klev_rec_type IS
1770: l_klev_rec klev_rec_type := p_klev_rec;
1771: BEGIN
1772:
1773: IF (l_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
1774: l_klev_rec.ID := NULL;
1775: END IF;
1776:
1777: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1773: IF (l_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
1774: l_klev_rec.ID := NULL;
1775: END IF;
1776:
1777: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1778: l_klev_rec.OBJECT_VERSION_NUMBER := NULL;
1779: END IF;
1780:
1781: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1777: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1778: l_klev_rec.OBJECT_VERSION_NUMBER := NULL;
1779: END IF;
1780:
1781: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1782: l_klev_rec.KLE_ID := NULL;
1783: END IF;
1784:
1785: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1781: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1782: l_klev_rec.KLE_ID := NULL;
1783: END IF;
1784:
1785: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1786: l_klev_rec.STY_ID := NULL;
1787: END IF;
1788:
1789: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1785: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1786: l_klev_rec.STY_ID := NULL;
1787: END IF;
1788:
1789: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1790: l_klev_rec.PRC_CODE := NULL;
1791: END IF;
1792:
1793: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1789: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1790: l_klev_rec.PRC_CODE := NULL;
1791: END IF;
1792:
1793: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1794: l_klev_rec.FCG_CODE := NULL;
1795: END IF;
1796:
1797: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1793: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1794: l_klev_rec.FCG_CODE := NULL;
1795: END IF;
1796:
1797: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1798: l_klev_rec.NTY_CODE := NULL;
1799: END IF;
1800:
1801: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1797: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1798: l_klev_rec.NTY_CODE := NULL;
1799: END IF;
1800:
1801: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1802: l_klev_rec.ESTIMATED_OEC := NULL;
1803: END IF;
1804:
1805: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1801: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1802: l_klev_rec.ESTIMATED_OEC := NULL;
1803: END IF;
1804:
1805: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1806: l_klev_rec.LAO_AMOUNT := NULL;
1807: END IF;
1808:
1809: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1805: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1806: l_klev_rec.LAO_AMOUNT := NULL;
1807: END IF;
1808:
1809: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1810: l_klev_rec.TITLE_DATE := NULL;
1811: END IF;
1812:
1813: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1809: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1810: l_klev_rec.TITLE_DATE := NULL;
1811: END IF;
1812:
1813: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1814: l_klev_rec.FEE_CHARGE := NULL;
1815: END IF;
1816:
1817: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1813: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1814: l_klev_rec.FEE_CHARGE := NULL;
1815: END IF;
1816:
1817: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1818: l_klev_rec.LRS_PERCENT := NULL;
1819: END IF;
1820:
1821: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1817: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1818: l_klev_rec.LRS_PERCENT := NULL;
1819: END IF;
1820:
1821: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1822: l_klev_rec.INITIAL_DIRECT_COST := NULL;
1823: END IF;
1824:
1825: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1821: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1822: l_klev_rec.INITIAL_DIRECT_COST := NULL;
1823: END IF;
1824:
1825: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1826: l_klev_rec.PERCENT_STAKE := NULL;
1827: END IF;
1828:
1829: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1825: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1826: l_klev_rec.PERCENT_STAKE := NULL;
1827: END IF;
1828:
1829: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1830: l_klev_rec.PERCENT := NULL;
1831: END IF;
1832:
1833: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1829: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1830: l_klev_rec.PERCENT := NULL;
1831: END IF;
1832:
1833: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1834: l_klev_rec.EVERGREEN_PERCENT := NULL;
1835: END IF;
1836:
1837: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1833: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1834: l_klev_rec.EVERGREEN_PERCENT := NULL;
1835: END IF;
1836:
1837: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1838: l_klev_rec.AMOUNT_STAKE := NULL;
1839: END IF;
1840:
1841: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1837: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1838: l_klev_rec.AMOUNT_STAKE := NULL;
1839: END IF;
1840:
1841: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1842: l_klev_rec.OCCUPANCY := NULL;
1843: END IF;
1844:
1845: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1841: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1842: l_klev_rec.OCCUPANCY := NULL;
1843: END IF;
1844:
1845: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1846: l_klev_rec.COVERAGE := NULL;
1847: END IF;
1848:
1849: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1845: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1846: l_klev_rec.COVERAGE := NULL;
1847: END IF;
1848:
1849: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1850: l_klev_rec.RESIDUAL_PERCENTAGE := NULL;
1851: END IF;
1852:
1853: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1849: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1850: l_klev_rec.RESIDUAL_PERCENTAGE := NULL;
1851: END IF;
1852:
1853: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1854: l_klev_rec.DATE_LAST_INSPECTION := NULL;
1855: END IF;
1856:
1857: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1853: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1854: l_klev_rec.DATE_LAST_INSPECTION := NULL;
1855: END IF;
1856:
1857: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1858: l_klev_rec.DATE_SOLD := NULL;
1859: END IF;
1860:
1861: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1857: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1858: l_klev_rec.DATE_SOLD := NULL;
1859: END IF;
1860:
1861: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1862: l_klev_rec.LRV_AMOUNT := NULL;
1863: END IF;
1864:
1865: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1861: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1862: l_klev_rec.LRV_AMOUNT := NULL;
1863: END IF;
1864:
1865: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1866: l_klev_rec.CAPITAL_REDUCTION := NULL;
1867: END IF;
1868:
1869: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1865: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1866: l_klev_rec.CAPITAL_REDUCTION := NULL;
1867: END IF;
1868:
1869: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1870: l_klev_rec.DATE_NEXT_INSPECTION_DUE := NULL;
1871: END IF;
1872:
1873: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1869: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1870: l_klev_rec.DATE_NEXT_INSPECTION_DUE := NULL;
1871: END IF;
1872:
1873: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1874: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW := NULL;
1875: END IF;
1876:
1877: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1873: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1874: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW := NULL;
1875: END IF;
1876:
1877: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1878: l_klev_rec.DATE_LAST_REAMORTISATION := NULL;
1879: END IF;
1880:
1881: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1877: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1878: l_klev_rec.DATE_LAST_REAMORTISATION := NULL;
1879: END IF;
1880:
1881: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1882: l_klev_rec.VENDOR_ADVANCE_PAID := NULL;
1883: END IF;
1884:
1885: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1881: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1882: l_klev_rec.VENDOR_ADVANCE_PAID := NULL;
1883: END IF;
1884:
1885: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1886: l_klev_rec.WEIGHTED_AVERAGE_LIFE := NULL;
1887: END IF;
1888:
1889: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1885: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1886: l_klev_rec.WEIGHTED_AVERAGE_LIFE := NULL;
1887: END IF;
1888:
1889: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1890: l_klev_rec.TRADEIN_AMOUNT := NULL;
1891: END IF;
1892:
1893: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1889: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1890: l_klev_rec.TRADEIN_AMOUNT := NULL;
1891: END IF;
1892:
1893: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1894: l_klev_rec.BOND_EQUIVALENT_YIELD := NULL;
1895: END IF;
1896:
1897: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1893: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1894: l_klev_rec.BOND_EQUIVALENT_YIELD := NULL;
1895: END IF;
1896:
1897: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1898: l_klev_rec.TERMINATION_PURCHASE_AMOUNT := NULL;
1899: END IF;
1900:
1901: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1897: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1898: l_klev_rec.TERMINATION_PURCHASE_AMOUNT := NULL;
1899: END IF;
1900:
1901: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1902: l_klev_rec.REFINANCE_AMOUNT := NULL;
1903: END IF;
1904:
1905: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1901: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1902: l_klev_rec.REFINANCE_AMOUNT := NULL;
1903: END IF;
1904:
1905: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1906: l_klev_rec.YEAR_BUILT := NULL;
1907: END IF;
1908:
1909: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1905: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1906: l_klev_rec.YEAR_BUILT := NULL;
1907: END IF;
1908:
1909: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1910: l_klev_rec.DELIVERED_DATE := NULL;
1911: END IF;
1912:
1913: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1909: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1910: l_klev_rec.DELIVERED_DATE := NULL;
1911: END IF;
1912:
1913: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1914: l_klev_rec.CREDIT_TENANT_YN := NULL;
1915: END IF;
1916:
1917: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1913: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1914: l_klev_rec.CREDIT_TENANT_YN := NULL;
1915: END IF;
1916:
1917: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1918: l_klev_rec.DATE_LAST_CLEANUP := NULL;
1919: END IF;
1920:
1921: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1917: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1918: l_klev_rec.DATE_LAST_CLEANUP := NULL;
1919: END IF;
1920:
1921: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1922: l_klev_rec.YEAR_OF_MANUFACTURE := NULL;
1923: END IF;
1924:
1925: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1921: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1922: l_klev_rec.YEAR_OF_MANUFACTURE := NULL;
1923: END IF;
1924:
1925: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1926: l_klev_rec.COVERAGE_RATIO := NULL;
1927: END IF;
1928:
1929: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1925: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1926: l_klev_rec.COVERAGE_RATIO := NULL;
1927: END IF;
1928:
1929: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1930: l_klev_rec.REMARKETED_AMOUNT := NULL;
1931: END IF;
1932:
1933: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1929: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1930: l_klev_rec.REMARKETED_AMOUNT := NULL;
1931: END IF;
1932:
1933: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1934: l_klev_rec.GROSS_SQUARE_FOOTAGE := NULL;
1935: END IF;
1936:
1937: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1933: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1934: l_klev_rec.GROSS_SQUARE_FOOTAGE := NULL;
1935: END IF;
1936:
1937: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1938: l_klev_rec.PRESCRIBED_ASSET_YN := NULL;
1939: END IF;
1940:
1941: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1937: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1938: l_klev_rec.PRESCRIBED_ASSET_YN := NULL;
1939: END IF;
1940:
1941: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1942: l_klev_rec.DATE_REMARKETED := NULL;
1943: END IF;
1944:
1945: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1941: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1942: l_klev_rec.DATE_REMARKETED := NULL;
1943: END IF;
1944:
1945: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1946: l_klev_rec.NET_RENTABLE := NULL;
1947: END IF;
1948:
1949: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1945: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1946: l_klev_rec.NET_RENTABLE := NULL;
1947: END IF;
1948:
1949: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1950: l_klev_rec.REMARKET_MARGIN := NULL;
1951: END IF;
1952:
1953: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1949: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1950: l_klev_rec.REMARKET_MARGIN := NULL;
1951: END IF;
1952:
1953: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1954: l_klev_rec.DATE_LETTER_ACCEPTANCE := NULL;
1955: END IF;
1956:
1957: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1953: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1954: l_klev_rec.DATE_LETTER_ACCEPTANCE := NULL;
1955: END IF;
1956:
1957: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1958: l_klev_rec.REPURCHASED_AMOUNT := NULL;
1959: END IF;
1960:
1961: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1957: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1958: l_klev_rec.REPURCHASED_AMOUNT := NULL;
1959: END IF;
1960:
1961: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1962: l_klev_rec.DATE_COMMITMENT_EXPIRATION := NULL;
1963: END IF;
1964:
1965: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1961: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1962: l_klev_rec.DATE_COMMITMENT_EXPIRATION := NULL;
1963: END IF;
1964:
1965: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1966: l_klev_rec.DATE_REPURCHASED := NULL;
1967: END IF;
1968:
1969: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1965: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1966: l_klev_rec.DATE_REPURCHASED := NULL;
1967: END IF;
1968:
1969: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1970: l_klev_rec.DATE_APPRAISAL := NULL;
1971: END IF;
1972:
1973: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1969: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1970: l_klev_rec.DATE_APPRAISAL := NULL;
1971: END IF;
1972:
1973: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1974: l_klev_rec.RESIDUAL_VALUE := NULL;
1975: END IF;
1976:
1977: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1973: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1974: l_klev_rec.RESIDUAL_VALUE := NULL;
1975: END IF;
1976:
1977: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1978: l_klev_rec.APPRAISAL_VALUE := NULL;
1979: END IF;
1980:
1981: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1977: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1978: l_klev_rec.APPRAISAL_VALUE := NULL;
1979: END IF;
1980:
1981: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1982: l_klev_rec.SECURED_DEAL_YN := NULL;
1983: END IF;
1984:
1985: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1981: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1982: l_klev_rec.SECURED_DEAL_YN := NULL;
1983: END IF;
1984:
1985: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1986: l_klev_rec.GAIN_LOSS := NULL;
1987: END IF;
1988:
1989: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1985: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1986: l_klev_rec.GAIN_LOSS := NULL;
1987: END IF;
1988:
1989: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1990: l_klev_rec.FLOOR_AMOUNT := NULL;
1991: END IF;
1992:
1993: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1989: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1990: l_klev_rec.FLOOR_AMOUNT := NULL;
1991: END IF;
1992:
1993: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1994: l_klev_rec.RE_LEASE_YN := NULL;
1995: END IF;
1996:
1997: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1993: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1994: l_klev_rec.RE_LEASE_YN := NULL;
1995: END IF;
1996:
1997: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1998: l_klev_rec.PREVIOUS_CONTRACT := NULL;
1999: END IF;
2000:
2001: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
1997: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1998: l_klev_rec.PREVIOUS_CONTRACT := NULL;
1999: END IF;
2000:
2001: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
2002: l_klev_rec.TRACKED_RESIDUAL := NULL;
2003: END IF;
2004:
2005: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
2001: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
2002: l_klev_rec.TRACKED_RESIDUAL := NULL;
2003: END IF;
2004:
2005: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
2006: l_klev_rec.DATE_TITLE_RECEIVED := NULL;
2007: END IF;
2008:
2009: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
2005: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
2006: l_klev_rec.DATE_TITLE_RECEIVED := NULL;
2007: END IF;
2008:
2009: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
2010: l_klev_rec.AMOUNT := NULL;
2011: END IF;
2012:
2013: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
2009: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
2010: l_klev_rec.AMOUNT := NULL;
2011: END IF;
2012:
2013: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
2014: l_klev_rec.ATTRIBUTE_CATEGORY := NULL;
2015: END IF;
2016:
2017: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
2013: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
2014: l_klev_rec.ATTRIBUTE_CATEGORY := NULL;
2015: END IF;
2016:
2017: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
2018: l_klev_rec.ATTRIBUTE1 := NULL;
2019: END IF;
2020:
2021: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
2017: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
2018: l_klev_rec.ATTRIBUTE1 := NULL;
2019: END IF;
2020:
2021: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
2022: l_klev_rec.ATTRIBUTE2 := NULL;
2023: END IF;
2024:
2025: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
2021: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
2022: l_klev_rec.ATTRIBUTE2 := NULL;
2023: END IF;
2024:
2025: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
2026: l_klev_rec.ATTRIBUTE3 := NULL;
2027: END IF;
2028:
2029: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
2025: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
2026: l_klev_rec.ATTRIBUTE3 := NULL;
2027: END IF;
2028:
2029: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
2030: l_klev_rec.ATTRIBUTE4 := NULL;
2031: END IF;
2032:
2033: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
2029: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
2030: l_klev_rec.ATTRIBUTE4 := NULL;
2031: END IF;
2032:
2033: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
2034: l_klev_rec.ATTRIBUTE5 := NULL;
2035: END IF;
2036:
2037: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
2033: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
2034: l_klev_rec.ATTRIBUTE5 := NULL;
2035: END IF;
2036:
2037: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
2038: l_klev_rec.ATTRIBUTE6 := NULL;
2039: END IF;
2040:
2041: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
2037: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
2038: l_klev_rec.ATTRIBUTE6 := NULL;
2039: END IF;
2040:
2041: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
2042: l_klev_rec.ATTRIBUTE7 := NULL;
2043: END IF;
2044:
2045: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
2041: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
2042: l_klev_rec.ATTRIBUTE7 := NULL;
2043: END IF;
2044:
2045: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
2046: l_klev_rec.ATTRIBUTE8 := NULL;
2047: END IF;
2048:
2049: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
2045: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
2046: l_klev_rec.ATTRIBUTE8 := NULL;
2047: END IF;
2048:
2049: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
2050: l_klev_rec.ATTRIBUTE9 := NULL;
2051: END IF;
2052:
2053: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
2049: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
2050: l_klev_rec.ATTRIBUTE9 := NULL;
2051: END IF;
2052:
2053: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
2054: l_klev_rec.ATTRIBUTE10 := NULL;
2055: END IF;
2056:
2057: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
2053: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
2054: l_klev_rec.ATTRIBUTE10 := NULL;
2055: END IF;
2056:
2057: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
2058: l_klev_rec.ATTRIBUTE11 := NULL;
2059: END IF;
2060:
2061: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
2057: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
2058: l_klev_rec.ATTRIBUTE11 := NULL;
2059: END IF;
2060:
2061: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
2062: l_klev_rec.ATTRIBUTE12 := NULL;
2063: END IF;
2064:
2065: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
2061: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
2062: l_klev_rec.ATTRIBUTE12 := NULL;
2063: END IF;
2064:
2065: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
2066: l_klev_rec.ATTRIBUTE13 := NULL;
2067: END IF;
2068:
2069: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
2065: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
2066: l_klev_rec.ATTRIBUTE13 := NULL;
2067: END IF;
2068:
2069: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
2070: l_klev_rec.ATTRIBUTE14 := NULL;
2071: END IF;
2072:
2073: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2069: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
2070: l_klev_rec.ATTRIBUTE14 := NULL;
2071: END IF;
2072:
2073: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2074: l_klev_rec.ATTRIBUTE15 := NULL;
2075: END IF;
2076:
2077: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
2073: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
2074: l_klev_rec.ATTRIBUTE15 := NULL;
2075: END IF;
2076:
2077: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
2078: l_klev_rec.STY_ID_FOR := NULL;
2079: END IF;
2080:
2081: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
2077: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
2078: l_klev_rec.STY_ID_FOR := NULL;
2079: END IF;
2080:
2081: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
2082: l_klev_rec.CLG_ID := NULL;
2083: END IF;
2084:
2085: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2081: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
2082: l_klev_rec.CLG_ID := NULL;
2083: END IF;
2084:
2085: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2086: l_klev_rec.CREATED_BY := NULL;
2087: END IF;
2088:
2089: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2085: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
2086: l_klev_rec.CREATED_BY := NULL;
2087: END IF;
2088:
2089: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2090: l_klev_rec.CREATION_DATE := NULL;
2091: END IF;
2092:
2093: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2089: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
2090: l_klev_rec.CREATION_DATE := NULL;
2091: END IF;
2092:
2093: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2094: l_klev_rec.LAST_UPDATED_BY := NULL;
2095: END IF;
2096:
2097: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2093: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
2094: l_klev_rec.LAST_UPDATED_BY := NULL;
2095: END IF;
2096:
2097: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2098: l_klev_rec.LAST_UPDATE_DATE := NULL;
2099: END IF;
2100:
2101: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2097: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2098: l_klev_rec.LAST_UPDATE_DATE := NULL;
2099: END IF;
2100:
2101: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2102: l_klev_rec.LAST_UPDATE_LOGIN := NULL;
2103: END IF;
2104:
2105: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2101: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2102: l_klev_rec.LAST_UPDATE_LOGIN := NULL;
2103: END IF;
2104:
2105: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2106: l_klev_rec.DATE_FUNDING := NULL;
2107: END IF;
2108:
2109: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2105: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2106: l_klev_rec.DATE_FUNDING := NULL;
2107: END IF;
2108:
2109: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2110: l_klev_rec.DATE_FUNDING_REQUIRED := NULL;
2111: END IF;
2112:
2113: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2109: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2110: l_klev_rec.DATE_FUNDING_REQUIRED := NULL;
2111: END IF;
2112:
2113: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2114: l_klev_rec.DATE_ACCEPTED := NULL;
2115: END IF;
2116:
2117: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2113: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2114: l_klev_rec.DATE_ACCEPTED := NULL;
2115: END IF;
2116:
2117: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2118: l_klev_rec.DATE_DELIVERY_EXPECTED := NULL;
2119: END IF;
2120:
2121: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2117: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2118: l_klev_rec.DATE_DELIVERY_EXPECTED := NULL;
2119: END IF;
2120:
2121: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2122: l_klev_rec.OEC := NULL;
2123: END IF;
2124:
2125: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2121: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2122: l_klev_rec.OEC := NULL;
2123: END IF;
2124:
2125: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2126: l_klev_rec.CAPITAL_AMOUNT := NULL;
2127: END IF;
2128:
2129: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2125: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2126: l_klev_rec.CAPITAL_AMOUNT := NULL;
2127: END IF;
2128:
2129: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2130: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := NULL;
2131: END IF;
2132:
2133: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2129: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2130: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := NULL;
2131: END IF;
2132:
2133: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2134: l_klev_rec.RESIDUAL_CODE := NULL;
2135: END IF;
2136:
2137: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2133: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2134: l_klev_rec.RESIDUAL_CODE := NULL;
2135: END IF;
2136:
2137: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2138: l_klev_rec.RVI_PREMIUM := NULL;
2139: END IF;
2140:
2141: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2137: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2138: l_klev_rec.RVI_PREMIUM := NULL;
2139: END IF;
2140:
2141: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2142: l_klev_rec.CREDIT_NATURE := NULL;
2143: END IF;
2144:
2145: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2141: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2142: l_klev_rec.CREDIT_NATURE := NULL;
2143: END IF;
2144:
2145: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2146: l_klev_rec.CAPITALIZED_INTEREST := NULL;
2147: END IF;
2148:
2149: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2145: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2146: l_klev_rec.CAPITALIZED_INTEREST := NULL;
2147: END IF;
2148:
2149: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2150: l_klev_rec.CAPITAL_REDUCTION_PERCENT := NULL;
2151: END IF;
2152:
2153: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2149: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2150: l_klev_rec.CAPITAL_REDUCTION_PERCENT := NULL;
2151: END IF;
2152:
2153: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2154: l_klev_rec.DATE_PAY_INVESTOR_START := NULL;
2155: END IF;
2156:
2157: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2153: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2154: l_klev_rec.DATE_PAY_INVESTOR_START := NULL;
2155: END IF;
2156:
2157: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2158: l_klev_rec.PAY_INVESTOR_FREQUENCY := NULL;
2159: END IF;
2160:
2161: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2157: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2158: l_klev_rec.PAY_INVESTOR_FREQUENCY := NULL;
2159: END IF;
2160:
2161: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2162: l_klev_rec.PAY_INVESTOR_EVENT := NULL;
2163: END IF;
2164:
2165: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2161: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2162: l_klev_rec.PAY_INVESTOR_EVENT := NULL;
2163: END IF;
2164:
2165: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2166: l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := NULL;
2167: END IF;
2168:
2169: IF (l_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
2165: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2166: l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := NULL;
2167: END IF;
2168:
2169: IF (l_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
2170: l_klev_rec.FEE_TYPE := NULL;
2171: END IF;
2172: --Bug# 3143522: 11.5.10
2173: --subsidy
2303: -----------------------------------------
2304: FUNCTION Validate_Record (
2305: p_klev_rec IN klev_rec_type
2306: ) RETURN VARCHAR2 IS
2307: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2308: BEGIN
2309: RETURN (l_return_status);
2310: END Validate_Record;
2311:
3084: p_klev_rec IN klev_rec_type) IS
3085:
3086: l_api_version CONSTANT NUMBER := 1;
3087: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
3088: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3089: l_klev_rec klev_rec_type := p_klev_rec;
3090: BEGIN
3091: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3092: G_PKG_NAME,
3087: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
3088: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3089: l_klev_rec klev_rec_type := p_klev_rec;
3090: BEGIN
3091: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3092: G_PKG_NAME,
3093: p_init_msg_list,
3094: l_api_version,
3095: p_api_version,
3095: p_api_version,
3096: '_PVT',
3097: x_return_status);
3098:
3099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3102: RAISE OKC_API.G_EXCEPTION_ERROR;
3103: END IF;
3096: '_PVT',
3097: x_return_status);
3098:
3099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3102: RAISE OKC_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3097: x_return_status);
3098:
3099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3102: RAISE OKC_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3105:
3098:
3099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3102: RAISE OKC_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3105:
3106: --- Validate all non-missing attributes (Item Level Validation)
3106: --- Validate all non-missing attributes (Item Level Validation)
3107: l_return_status := Validate_Attributes(l_klev_rec);
3108: --- If any errors happen abort API
3109:
3110: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3113: RAISE OKC_API.G_EXCEPTION_ERROR;
3114: END IF;
3107: l_return_status := Validate_Attributes(l_klev_rec);
3108: --- If any errors happen abort API
3109:
3110: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3113: RAISE OKC_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3108: --- If any errors happen abort API
3109:
3110: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3113: RAISE OKC_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3116:
3109:
3110: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3112: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3113: RAISE OKC_API.G_EXCEPTION_ERROR;
3114: END IF;
3115:
3116:
3117: l_return_status := Validate_Record(l_klev_rec);
3115:
3116:
3117: l_return_status := Validate_Record(l_klev_rec);
3118:
3119: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3122: RAISE OKC_API.G_EXCEPTION_ERROR;
3123: END IF;
3116:
3117: l_return_status := Validate_Record(l_klev_rec);
3118:
3119: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3122: RAISE OKC_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3117: l_return_status := Validate_Record(l_klev_rec);
3118:
3119: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3122: RAISE OKC_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3125:
3118:
3119: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3122: RAISE OKC_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3122: RAISE OKC_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127:
3128: EXCEPTION
3129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127:
3128: EXCEPTION
3129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3131: (
3132: l_api_name,
3133: G_PKG_NAME,
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127:
3128: EXCEPTION
3129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3131: (
3132: l_api_name,
3133: G_PKG_NAME,
3134: 'OKC_API.G_RET_STS_ERROR',
3130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3131: (
3132: l_api_name,
3133: G_PKG_NAME,
3134: 'OKC_API.G_RET_STS_ERROR',
3135: x_msg_count,
3136: x_msg_data,
3137: '_PVT'
3138: );
3135: x_msg_count,
3136: x_msg_data,
3137: '_PVT'
3138: );
3139: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3140: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3141: (
3142: l_api_name,
3143: G_PKG_NAME,
3136: x_msg_data,
3137: '_PVT'
3138: );
3139: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3140: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3141: (
3142: l_api_name,
3143: G_PKG_NAME,
3144: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3140: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3141: (
3142: l_api_name,
3143: G_PKG_NAME,
3144: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3145: x_msg_count,
3146: x_msg_data,
3147: '_PVT'
3148: );
3146: x_msg_data,
3147: '_PVT'
3148: );
3149: WHEN OTHERS THEN
3150: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3151: (
3152: l_api_name,
3153: G_PKG_NAME,
3154: 'OTHERS',
3172: p_klev_tbl IN klev_tbl_type) IS
3173:
3174: l_api_version CONSTANT NUMBER := 1;
3175: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
3176: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3177: i NUMBER := 0;
3178: BEGIN
3179: OKC_API.init_msg_list(p_init_msg_list);
3180: -- Make sure PL/SQL table has records in it before passing
3175: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
3176: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3177: i NUMBER := 0;
3178: BEGIN
3179: OKC_API.init_msg_list(p_init_msg_list);
3180: -- Make sure PL/SQL table has records in it before passing
3181: IF (p_klev_tbl.COUNT > 0) THEN
3182: i := p_klev_tbl.FIRST;
3183: LOOP
3182: i := p_klev_tbl.FIRST;
3183: LOOP
3184: validate_row (
3185: p_api_version => p_api_version,
3186: p_init_msg_list => OKC_API.G_FALSE,
3187: x_return_status => x_return_status,
3188: x_msg_count => x_msg_count,
3189: x_msg_data => x_msg_data,
3190: p_klev_rec => p_klev_tbl(i));
3193: END LOOP;
3194: END IF;
3195:
3196: EXCEPTION
3197: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3198: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3199: (
3200: l_api_name,
3201: G_PKG_NAME,
3194: END IF;
3195:
3196: EXCEPTION
3197: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3198: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3199: (
3200: l_api_name,
3201: G_PKG_NAME,
3202: 'OKC_API.G_RET_STS_ERROR',
3198: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3199: (
3200: l_api_name,
3201: G_PKG_NAME,
3202: 'OKC_API.G_RET_STS_ERROR',
3203: x_msg_count,
3204: x_msg_data,
3205: '_PVT'
3206: );
3203: x_msg_count,
3204: x_msg_data,
3205: '_PVT'
3206: );
3207: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3208: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3204: x_msg_data,
3205: '_PVT'
3206: );
3207: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3208: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3212: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3208: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3212: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3213: x_msg_count,
3214: x_msg_data,
3215: '_PVT'
3216: );
3214: x_msg_data,
3215: '_PVT'
3216: );
3217: WHEN OTHERS THEN
3218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3219: (
3220: l_api_name,
3221: G_PKG_NAME,
3222: 'OTHERS',
3248: x_okl_k_lines_h_rec OUT NOCOPY okl_k_lines_h_rec_type) IS
3249:
3250: l_api_version CONSTANT NUMBER := 1;
3251: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3252: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3253: l_okl_k_lines_h_rec okl_k_lines_h_rec_type := p_okl_k_lines_h_rec;
3254: l_def_okl_k_lines_h_rec okl_k_lines_h_rec_type;
3255: ----------------------------------------
3256: -- Set_Attributes for: OKL_K_LINES_H --
3258: FUNCTION Set_Attributes (
3259: p_okl_k_lines_h_rec IN okl_k_lines_h_rec_type,
3260: x_okl_k_lines_h_rec OUT NOCOPY okl_k_lines_h_rec_type
3261: ) RETURN VARCHAR2 IS
3262: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3263: BEGIN
3264: x_okl_k_lines_h_rec := p_okl_k_lines_h_rec;
3265: RETURN(l_return_status);
3266: END Set_Attributes;
3265: RETURN(l_return_status);
3266: END Set_Attributes;
3267: BEGIN
3268:
3269: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3270: p_init_msg_list,
3271: '_PVT',
3272: x_return_status);
3273:
3270: p_init_msg_list,
3271: '_PVT',
3272: x_return_status);
3273:
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3271: '_PVT',
3272: x_return_status);
3273:
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279:
3272: x_return_status);
3273:
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279:
3280: --- Setting item attributes
3273:
3274: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3276: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3277: RAISE OKC_API.G_EXCEPTION_ERROR;
3278: END IF;
3279:
3280: --- Setting item attributes
3281: l_return_status := Set_Attributes(
3282: p_okl_k_lines_h_rec, -- IN
3283: l_okl_k_lines_h_rec); -- OUT
3284: --- If any errors happen abort API
3285:
3286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3289: RAISE OKC_API.G_EXCEPTION_ERROR;
3290: END IF;
3283: l_okl_k_lines_h_rec); -- OUT
3284: --- If any errors happen abort API
3285:
3286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3289: RAISE OKC_API.G_EXCEPTION_ERROR;
3290: END IF;
3291:
3284: --- If any errors happen abort API
3285:
3286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3289: RAISE OKC_API.G_EXCEPTION_ERROR;
3290: END IF;
3291:
3292: INSERT INTO OKL_K_LINES_H(
3285:
3286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3289: RAISE OKC_API.G_EXCEPTION_ERROR;
3290: END IF;
3291:
3292: INSERT INTO OKL_K_LINES_H(
3293: ID,
3586:
3587: );
3588: -- Set OUT values
3589: x_okl_k_lines_h_rec := l_okl_k_lines_h_rec;
3590: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3591:
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3589: x_okl_k_lines_h_rec := l_okl_k_lines_h_rec;
3590: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3591:
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3590: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3591:
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3598: 'OKC_API.G_RET_STS_ERROR',
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3598: 'OKC_API.G_RET_STS_ERROR',
3599: x_msg_count,
3600: x_msg_data,
3601: '_PVT'
3602: );
3599: x_msg_count,
3600: x_msg_data,
3601: '_PVT'
3602: );
3603: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3600: x_msg_data,
3601: '_PVT'
3602: );
3603: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXP_ERROR',
3604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT'
3612: );
3610: x_msg_data,
3611: '_PVT'
3612: );
3613: WHEN OTHERS THEN
3614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3615: (
3616: l_api_name,
3617: G_PKG_NAME,
3618: 'OTHERS',
3638: x_kle_rec OUT NOCOPY kle_rec_type) IS
3639:
3640: l_api_version CONSTANT NUMBER := 1;
3641: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3642: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3643: l_kle_rec kle_rec_type := p_kle_rec;
3644: l_def_kle_rec kle_rec_type;
3645: ----------------------------------------
3646: -- Set_Attributes for: OKL_K_LINES --
3648: FUNCTION Set_Attributes (
3649: p_kle_rec IN kle_rec_type,
3650: x_kle_rec OUT NOCOPY kle_rec_type
3651: ) RETURN VARCHAR2 IS
3652: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3653: BEGIN
3654: x_kle_rec := p_kle_rec;
3655: --Added by jjuneja
3656: --in case the Fee_type is income then setting origination income to 0 if it is null
3662: RETURN(l_return_status);
3663: END Set_Attributes;
3664: BEGIN
3665:
3666: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3667: p_init_msg_list,
3668: '_PVT',
3669: x_return_status);
3670:
3667: p_init_msg_list,
3668: '_PVT',
3669: x_return_status);
3670:
3671: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_ERROR;
3675: END IF;
3668: '_PVT',
3669: x_return_status);
3670:
3671: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3669: x_return_status);
3670:
3671: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3677: --- Setting item attributes
3670:
3671: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3674: RAISE OKC_API.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3677: --- Setting item attributes
3678: l_return_status := Set_Attributes(
3679: p_kle_rec, -- IN
3680: l_kle_rec); -- OUT
3681: --- If any errors happen abort API
3682:
3683: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3685: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_ERROR;
3687: END IF;
3680: l_kle_rec); -- OUT
3681: --- If any errors happen abort API
3682:
3683: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3685: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_ERROR;
3687: END IF;
3688:
3681: --- If any errors happen abort API
3682:
3683: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3685: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_ERROR;
3687: END IF;
3688:
3689: INSERT INTO OKL_K_LINES(
3682:
3683: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3685: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_ERROR;
3687: END IF;
3688:
3689: INSERT INTO OKL_K_LINES(
3690: ID,
3983: l_kle_rec.DT_EFFECTIVE_BALANCE_LEGACY
3984: );
3985: -- Set OUT values
3986: x_kle_rec := l_kle_rec;
3987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3988:
3989: EXCEPTION
3990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3986: x_kle_rec := l_kle_rec;
3987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3988:
3989: EXCEPTION
3990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3992: (
3993: l_api_name,
3994: G_PKG_NAME,
3987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3988:
3989: EXCEPTION
3990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3991: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3992: (
3993: l_api_name,
3994: G_PKG_NAME,
3995: 'OKC_API.G_RET_STS_ERROR',
3991: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3992: (
3993: l_api_name,
3994: G_PKG_NAME,
3995: 'OKC_API.G_RET_STS_ERROR',
3996: x_msg_count,
3997: x_msg_data,
3998: '_PVT'
3999: );
3996: x_msg_count,
3997: x_msg_data,
3998: '_PVT'
3999: );
4000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4002: (
4003: l_api_name,
4004: G_PKG_NAME,
3997: x_msg_data,
3998: '_PVT'
3999: );
4000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4002: (
4003: l_api_name,
4004: G_PKG_NAME,
4005: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4002: (
4003: l_api_name,
4004: G_PKG_NAME,
4005: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4006: x_msg_count,
4007: x_msg_data,
4008: '_PVT'
4009: );
4007: x_msg_data,
4008: '_PVT'
4009: );
4010: WHEN OTHERS THEN
4011: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4012: (
4013: l_api_name,
4014: G_PKG_NAME,
4015: 'OTHERS',
4035: x_klev_rec OUT NOCOPY klev_rec_type) IS
4036:
4037: l_api_version CONSTANT NUMBER := 1;
4038: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
4039: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4040: l_klev_rec klev_rec_type;
4041: l_def_klev_rec klev_rec_type;
4042: l_kle_rec kle_rec_type;
4043: lx_kle_rec kle_rec_type;
4062: FUNCTION Set_Attributes (
4063: p_klev_rec IN klev_rec_type,
4064: x_klev_rec OUT NOCOPY klev_rec_type
4065: ) RETURN VARCHAR2 IS
4066: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4067: BEGIN
4068: x_klev_rec := p_klev_rec;
4069: x_klev_rec.OBJECT_VERSION_NUMBER := 1;
4070: RETURN(l_return_status);
4069: x_klev_rec.OBJECT_VERSION_NUMBER := 1;
4070: RETURN(l_return_status);
4071: END Set_Attributes;
4072: BEGIN
4073: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4074: G_PKG_NAME,
4075: p_init_msg_list,
4076: l_api_version,
4077: p_api_version,
4077: p_api_version,
4078: '_PVT',
4079: x_return_status);
4080:
4081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4078: '_PVT',
4079: x_return_status);
4080:
4081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086:
4079: x_return_status);
4080:
4081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086:
4087: l_klev_rec := null_out_defaults(p_klev_rec);
4080:
4081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086:
4087: l_klev_rec := null_out_defaults(p_klev_rec);
4088:
4097: l_klev_rec, -- IN
4098: l_def_klev_rec); -- OUT
4099: --- If any errors happen abort API
4100:
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4104: RAISE OKC_API.G_EXCEPTION_ERROR;
4105: END IF;
4098: l_def_klev_rec); -- OUT
4099: --- If any errors happen abort API
4100:
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4104: RAISE OKC_API.G_EXCEPTION_ERROR;
4105: END IF;
4106:
4099: --- If any errors happen abort API
4100:
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4104: RAISE OKC_API.G_EXCEPTION_ERROR;
4105: END IF;
4106:
4107: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
4100:
4101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4103: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4104: RAISE OKC_API.G_EXCEPTION_ERROR;
4105: END IF;
4106:
4107: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
4108: --- Validate all non-missing attributes (Item Level Validation)
4108: --- Validate all non-missing attributes (Item Level Validation)
4109: l_return_status := Validate_Attributes(l_def_klev_rec);
4110: --- If any errors happen abort API
4111:
4112: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4114: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: END IF;
4109: l_return_status := Validate_Attributes(l_def_klev_rec);
4110: --- If any errors happen abort API
4111:
4112: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4114: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: END IF;
4117:
4110: --- If any errors happen abort API
4111:
4112: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4114: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: END IF;
4117:
4118: l_return_status := Validate_Record(l_def_klev_rec);
4111:
4112: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4114: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: END IF;
4117:
4118: l_return_status := Validate_Record(l_def_klev_rec);
4119:
4116: END IF;
4117:
4118: l_return_status := Validate_Record(l_def_klev_rec);
4119:
4120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4123: RAISE OKC_API.G_EXCEPTION_ERROR;
4124: END IF;
4117:
4118: l_return_status := Validate_Record(l_def_klev_rec);
4119:
4120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4123: RAISE OKC_API.G_EXCEPTION_ERROR;
4124: END IF;
4125:
4118: l_return_status := Validate_Record(l_def_klev_rec);
4119:
4120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4123: RAISE OKC_API.G_EXCEPTION_ERROR;
4124: END IF;
4125:
4126: --------------------------------------
4119:
4120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4123: RAISE OKC_API.G_EXCEPTION_ERROR;
4124: END IF;
4125:
4126: --------------------------------------
4127: -- Move VIEW record to "Child" records
4139: l_kle_rec,
4140: lx_kle_rec
4141: );
4142:
4143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4145: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4146: RAISE OKC_API.G_EXCEPTION_ERROR;
4147: END IF;
4140: lx_kle_rec
4141: );
4142:
4143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4145: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4146: RAISE OKC_API.G_EXCEPTION_ERROR;
4147: END IF;
4148:
4141: );
4142:
4143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4145: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4146: RAISE OKC_API.G_EXCEPTION_ERROR;
4147: END IF;
4148:
4149: migrate(lx_kle_rec, l_def_klev_rec);
4142:
4143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4145: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4146: RAISE OKC_API.G_EXCEPTION_ERROR;
4147: END IF;
4148:
4149: migrate(lx_kle_rec, l_def_klev_rec);
4150: -- Set OUT values
4148:
4149: migrate(lx_kle_rec, l_def_klev_rec);
4150: -- Set OUT values
4151: x_klev_rec := l_def_klev_rec;
4152: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4153:
4154: EXCEPTION
4155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4151: x_klev_rec := l_def_klev_rec;
4152: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4153:
4154: EXCEPTION
4155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4157: (
4158: l_api_name,
4159: G_PKG_NAME,
4152: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4153:
4154: EXCEPTION
4155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4157: (
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKC_API.G_RET_STS_ERROR',
4156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4157: (
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKC_API.G_RET_STS_ERROR',
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT'
4164: );
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT'
4164: );
4165: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4166: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4162: x_msg_data,
4163: '_PVT'
4164: );
4165: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4166: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4166: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4171: x_msg_count,
4172: x_msg_data,
4173: '_PVT'
4174: );
4172: x_msg_data,
4173: '_PVT'
4174: );
4175: WHEN OTHERS THEN
4176: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4177: (
4178: l_api_name,
4179: G_PKG_NAME,
4180: 'OTHERS',
4200: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
4201:
4202: l_api_version CONSTANT NUMBER := 1;
4203: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
4204: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4205: i NUMBER := 0;
4206: BEGIN
4207: OKC_API.init_msg_list(p_init_msg_list);
4208: -- Make sure PL/SQL table has records in it before passing
4203: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
4204: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4205: i NUMBER := 0;
4206: BEGIN
4207: OKC_API.init_msg_list(p_init_msg_list);
4208: -- Make sure PL/SQL table has records in it before passing
4209: IF (p_klev_tbl.COUNT > 0) THEN
4210: i := p_klev_tbl.FIRST;
4211: LOOP
4210: i := p_klev_tbl.FIRST;
4211: LOOP
4212: insert_row (
4213: p_api_version => p_api_version,
4214: p_init_msg_list => OKC_API.G_FALSE,
4215: x_return_status => x_return_status,
4216: x_msg_count => x_msg_count,
4217: x_msg_data => x_msg_data,
4218: p_klev_rec => p_klev_tbl(i),
4222: END LOOP;
4223: END IF;
4224:
4225: EXCEPTION
4226: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4228: (
4229: l_api_name,
4230: G_PKG_NAME,
4223: END IF;
4224:
4225: EXCEPTION
4226: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4228: (
4229: l_api_name,
4230: G_PKG_NAME,
4231: 'OKC_API.G_RET_STS_ERROR',
4227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4228: (
4229: l_api_name,
4230: G_PKG_NAME,
4231: 'OKC_API.G_RET_STS_ERROR',
4232: x_msg_count,
4233: x_msg_data,
4234: '_PVT'
4235: );
4232: x_msg_count,
4233: x_msg_data,
4234: '_PVT'
4235: );
4236: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4238: (
4239: l_api_name,
4240: G_PKG_NAME,
4233: x_msg_data,
4234: '_PVT'
4235: );
4236: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4238: (
4239: l_api_name,
4240: G_PKG_NAME,
4241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4238: (
4239: l_api_name,
4240: G_PKG_NAME,
4241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4242: x_msg_count,
4243: x_msg_data,
4244: '_PVT'
4245: );
4243: x_msg_data,
4244: '_PVT'
4245: );
4246: WHEN OTHERS THEN
4247: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4248: (
4249: l_api_name,
4250: G_PKG_NAME,
4251: 'OTHERS',
4288: FROM OKL_K_LINES
4289: WHERE ID = p_kle_rec.id;
4290: l_api_version CONSTANT NUMBER := 1;
4291: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4292: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4293: l_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4294: lc_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4295: l_row_notfound BOOLEAN := FALSE;
4296: lc_row_notfound BOOLEAN := FALSE;
4294: lc_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4295: l_row_notfound BOOLEAN := FALSE;
4296: lc_row_notfound BOOLEAN := FALSE;
4297: BEGIN
4298: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4299: p_init_msg_list,
4300: '_PVT',
4301: x_return_status);
4302:
4299: p_init_msg_list,
4300: '_PVT',
4301: x_return_status);
4302:
4303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_ERROR;
4307: END IF;
4300: '_PVT',
4301: x_return_status);
4302:
4303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_ERROR;
4307: END IF;
4308:
4301: x_return_status);
4302:
4303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_ERROR;
4307: END IF;
4308:
4309: BEGIN
4302:
4303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_ERROR;
4307: END IF;
4308:
4309: BEGIN
4310: OPEN lock_csr(p_kle_rec);
4315: WHEN E_Resource_Busy THEN
4316: IF (lock_csr%ISOPEN) THEN
4317: CLOSE lock_csr;
4318: END IF;
4319: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
4320: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
4321: END;
4322:
4323: IF ( l_row_notfound ) THEN
4326: lc_row_notfound := lchk_csr%NOTFOUND;
4327: CLOSE lchk_csr;
4328: END IF;
4329: IF (lc_row_notfound) THEN
4330: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4331: RAISE OKC_API.G_EXCEPTION_ERROR;
4332: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4327: CLOSE lchk_csr;
4328: END IF;
4329: IF (lc_row_notfound) THEN
4330: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4331: RAISE OKC_API.G_EXCEPTION_ERROR;
4332: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4329: IF (lc_row_notfound) THEN
4330: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4331: RAISE OKC_API.G_EXCEPTION_ERROR;
4332: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4330: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4331: RAISE OKC_API.G_EXCEPTION_ERROR;
4332: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4338: ELSIF lc_object_version_number = -1 THEN
4332: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4338: ELSIF lc_object_version_number = -1 THEN
4339: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4333: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4334: RAISE OKC_API.G_EXCEPTION_ERROR;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4338: ELSIF lc_object_version_number = -1 THEN
4339: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4335: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4338: ELSIF lc_object_version_number = -1 THEN
4339: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4343:
4336: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4337: RAISE OKC_API.G_EXCEPTION_ERROR;
4338: ELSIF lc_object_version_number = -1 THEN
4339: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4343:
4344: EXCEPTION
4338: ELSIF lc_object_version_number = -1 THEN
4339: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4343:
4344: EXCEPTION
4345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4341: END IF;
4342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4343:
4344: EXCEPTION
4345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4347: (
4348: l_api_name,
4349: G_PKG_NAME,
4342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4343:
4344: EXCEPTION
4345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4347: (
4348: l_api_name,
4349: G_PKG_NAME,
4350: 'OKC_API.G_RET_STS_ERROR',
4346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4347: (
4348: l_api_name,
4349: G_PKG_NAME,
4350: 'OKC_API.G_RET_STS_ERROR',
4351: x_msg_count,
4352: x_msg_data,
4353: '_PVT'
4354: );
4351: x_msg_count,
4352: x_msg_data,
4353: '_PVT'
4354: );
4355: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4357: (
4358: l_api_name,
4359: G_PKG_NAME,
4352: x_msg_data,
4353: '_PVT'
4354: );
4355: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4357: (
4358: l_api_name,
4359: G_PKG_NAME,
4360: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4357: (
4358: l_api_name,
4359: G_PKG_NAME,
4360: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4361: x_msg_count,
4362: x_msg_data,
4363: '_PVT'
4364: );
4362: x_msg_data,
4363: '_PVT'
4364: );
4365: WHEN OTHERS THEN
4366: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4367: (
4368: l_api_name,
4369: G_PKG_NAME,
4370: 'OTHERS',
4389: p_klev_rec IN klev_rec_type) IS
4390:
4391: l_api_version CONSTANT NUMBER := 1;
4392: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4393: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4394: l_kle_rec kle_rec_type;
4395: BEGIN
4396: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4397: G_PKG_NAME,
4392: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4393: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4394: l_kle_rec kle_rec_type;
4395: BEGIN
4396: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4397: G_PKG_NAME,
4398: p_init_msg_list,
4399: l_api_version,
4400: p_api_version,
4400: p_api_version,
4401: '_PVT',
4402: x_return_status);
4403:
4404: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4406: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4407: RAISE OKC_API.G_EXCEPTION_ERROR;
4408: END IF;
4401: '_PVT',
4402: x_return_status);
4403:
4404: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4406: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4407: RAISE OKC_API.G_EXCEPTION_ERROR;
4408: END IF;
4409:
4402: x_return_status);
4403:
4404: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4406: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4407: RAISE OKC_API.G_EXCEPTION_ERROR;
4408: END IF;
4409:
4410: --------------------------------------
4403:
4404: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4406: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4407: RAISE OKC_API.G_EXCEPTION_ERROR;
4408: END IF;
4409:
4410: --------------------------------------
4411: -- Move VIEW record to "Child" records
4422: x_msg_data,
4423: l_kle_rec
4424: );
4425:
4426: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4428: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4429: RAISE OKC_API.G_EXCEPTION_ERROR;
4430: END IF;
4423: l_kle_rec
4424: );
4425:
4426: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4428: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4429: RAISE OKC_API.G_EXCEPTION_ERROR;
4430: END IF;
4431:
4424: );
4425:
4426: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4428: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4429: RAISE OKC_API.G_EXCEPTION_ERROR;
4430: END IF;
4431:
4432: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4425:
4426: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4428: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4429: RAISE OKC_API.G_EXCEPTION_ERROR;
4430: END IF;
4431:
4432: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4433:
4428: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4429: RAISE OKC_API.G_EXCEPTION_ERROR;
4430: END IF;
4431:
4432: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4433:
4434: EXCEPTION
4435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4431:
4432: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4433:
4434: EXCEPTION
4435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4432: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4433:
4434: EXCEPTION
4435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4440: 'OKC_API.G_RET_STS_ERROR',
4436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4440: 'OKC_API.G_RET_STS_ERROR',
4441: x_msg_count,
4442: x_msg_data,
4443: '_PVT'
4444: );
4441: x_msg_count,
4442: x_msg_data,
4443: '_PVT'
4444: );
4445: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4446: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4442: x_msg_data,
4443: '_PVT'
4444: );
4445: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4446: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4446: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT'
4454: );
4452: x_msg_data,
4453: '_PVT'
4454: );
4455: WHEN OTHERS THEN
4456: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4457: (
4458: l_api_name,
4459: G_PKG_NAME,
4460: 'OTHERS',
4478: p_klev_tbl IN klev_tbl_type) IS
4479:
4480: l_api_version CONSTANT NUMBER := 1;
4481: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
4482: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4483: i NUMBER := 0;
4484: BEGIN
4485: OKC_API.init_msg_list(p_init_msg_list);
4486: -- Make sure PL/SQL table has records in it before passing
4481: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
4482: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4483: i NUMBER := 0;
4484: BEGIN
4485: OKC_API.init_msg_list(p_init_msg_list);
4486: -- Make sure PL/SQL table has records in it before passing
4487: IF (p_klev_tbl.COUNT > 0) THEN
4488: i := p_klev_tbl.FIRST;
4489: LOOP
4488: i := p_klev_tbl.FIRST;
4489: LOOP
4490: lock_row (
4491: p_api_version => p_api_version,
4492: p_init_msg_list => OKC_API.G_FALSE,
4493: x_return_status => x_return_status,
4494: x_msg_count => x_msg_count,
4495: x_msg_data => x_msg_data,
4496: p_klev_rec => p_klev_tbl(i));
4499: END LOOP;
4500: END IF;
4501:
4502: EXCEPTION
4503: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4505: (
4506: l_api_name,
4507: G_PKG_NAME,
4500: END IF;
4501:
4502: EXCEPTION
4503: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4505: (
4506: l_api_name,
4507: G_PKG_NAME,
4508: 'OKC_API.G_RET_STS_ERROR',
4504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4505: (
4506: l_api_name,
4507: G_PKG_NAME,
4508: 'OKC_API.G_RET_STS_ERROR',
4509: x_msg_count,
4510: x_msg_data,
4511: '_PVT'
4512: );
4509: x_msg_count,
4510: x_msg_data,
4511: '_PVT'
4512: );
4513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4514: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4515: (
4516: l_api_name,
4517: G_PKG_NAME,
4510: x_msg_data,
4511: '_PVT'
4512: );
4513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4514: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4515: (
4516: l_api_name,
4517: G_PKG_NAME,
4518: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4514: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4515: (
4516: l_api_name,
4517: G_PKG_NAME,
4518: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4519: x_msg_count,
4520: x_msg_data,
4521: '_PVT'
4522: );
4520: x_msg_data,
4521: '_PVT'
4522: );
4523: WHEN OTHERS THEN
4524: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4525: (
4526: l_api_name,
4527: G_PKG_NAME,
4528: 'OTHERS',
4553: x_kle_rec OUT NOCOPY kle_rec_type) IS
4554:
4555: l_api_version CONSTANT NUMBER := 1;
4556: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
4557: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4558: l_kle_rec kle_rec_type := p_kle_rec;
4559: l_def_kle_rec kle_rec_type;
4560: l_row_notfound BOOLEAN := TRUE;
4561: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
4568: x_kle_rec OUT NOCOPY kle_rec_type
4569: ) RETURN VARCHAR2 IS
4570: l_kle_rec kle_rec_type;
4571: l_row_notfound BOOLEAN := TRUE;
4572: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4573: BEGIN
4574: x_kle_rec := p_kle_rec;
4575: -- Get current database values
4576: l_kle_rec := get_rec(p_kle_rec, l_row_notfound);
4574: x_kle_rec := p_kle_rec;
4575: -- Get current database values
4576: l_kle_rec := get_rec(p_kle_rec, l_row_notfound);
4577: IF (l_row_notfound) THEN
4578: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4579: END IF;
4580: -- Move the "old" record to the history record:
4581: -- (1) to get the "old" version
4582: -- (2) to avoid 2 hits to the database
4581: -- (1) to get the "old" version
4582: -- (2) to avoid 2 hits to the database
4583: migrate(l_kle_rec, l_okl_k_lines_h_rec);
4584:
4585: IF (x_kle_rec.ID = OKC_API.G_MISS_NUM) THEN
4586: x_kle_rec.ID := l_kle_rec.ID;
4587: END IF;
4588:
4589: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4585: IF (x_kle_rec.ID = OKC_API.G_MISS_NUM) THEN
4586: x_kle_rec.ID := l_kle_rec.ID;
4587: END IF;
4588:
4589: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4590: x_kle_rec.KLE_ID := l_kle_rec.KLE_ID;
4591: END IF;
4592:
4593: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4589: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4590: x_kle_rec.KLE_ID := l_kle_rec.KLE_ID;
4591: END IF;
4592:
4593: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4594: x_kle_rec.STY_ID := l_kle_rec.STY_ID;
4595: END IF;
4596:
4597: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4593: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4594: x_kle_rec.STY_ID := l_kle_rec.STY_ID;
4595: END IF;
4596:
4597: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4598: x_kle_rec.OBJECT_VERSION_NUMBER := l_kle_rec.OBJECT_VERSION_NUMBER;
4599: END IF;
4600:
4601: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4597: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4598: x_kle_rec.OBJECT_VERSION_NUMBER := l_kle_rec.OBJECT_VERSION_NUMBER;
4599: END IF;
4600:
4601: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4602: x_kle_rec.LAO_AMOUNT := l_kle_rec.LAO_AMOUNT;
4603: END IF;
4604:
4605: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4601: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4602: x_kle_rec.LAO_AMOUNT := l_kle_rec.LAO_AMOUNT;
4603: END IF;
4604:
4605: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4606: x_kle_rec.FEE_CHARGE := l_kle_rec.FEE_CHARGE;
4607: END IF;
4608:
4609: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4605: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4606: x_kle_rec.FEE_CHARGE := l_kle_rec.FEE_CHARGE;
4607: END IF;
4608:
4609: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4610: x_kle_rec.TITLE_DATE := l_kle_rec.TITLE_DATE;
4611: END IF;
4612:
4613: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4609: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4610: x_kle_rec.TITLE_DATE := l_kle_rec.TITLE_DATE;
4611: END IF;
4612:
4613: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4614: x_kle_rec.DATE_RESIDUAL_LAST_REVIEW := l_kle_rec.DATE_RESIDUAL_LAST_REVIEW;
4615: END IF;
4616:
4617: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4613: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4614: x_kle_rec.DATE_RESIDUAL_LAST_REVIEW := l_kle_rec.DATE_RESIDUAL_LAST_REVIEW;
4615: END IF;
4616:
4617: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4618: x_kle_rec.DATE_LAST_REAMORTISATION := l_kle_rec.DATE_LAST_REAMORTISATION;
4619: END IF;
4620:
4621: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4617: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4618: x_kle_rec.DATE_LAST_REAMORTISATION := l_kle_rec.DATE_LAST_REAMORTISATION;
4619: END IF;
4620:
4621: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4622: x_kle_rec.TERMINATION_PURCHASE_AMOUNT := l_kle_rec.TERMINATION_PURCHASE_AMOUNT;
4623: END IF;
4624:
4625: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4621: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4622: x_kle_rec.TERMINATION_PURCHASE_AMOUNT := l_kle_rec.TERMINATION_PURCHASE_AMOUNT;
4623: END IF;
4624:
4625: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4626: x_kle_rec.DATE_LAST_CLEANUP := l_kle_rec.DATE_LAST_CLEANUP;
4627: END IF;
4628:
4629: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4625: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4626: x_kle_rec.DATE_LAST_CLEANUP := l_kle_rec.DATE_LAST_CLEANUP;
4627: END IF;
4628:
4629: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4630: x_kle_rec.REMARKETED_AMOUNT := l_kle_rec.REMARKETED_AMOUNT;
4631: END IF;
4632:
4633: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4629: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4630: x_kle_rec.REMARKETED_AMOUNT := l_kle_rec.REMARKETED_AMOUNT;
4631: END IF;
4632:
4633: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4634: x_kle_rec.DATE_REMARKETED := l_kle_rec.DATE_REMARKETED;
4635: END IF;
4636:
4637: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4633: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4634: x_kle_rec.DATE_REMARKETED := l_kle_rec.DATE_REMARKETED;
4635: END IF;
4636:
4637: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4638: x_kle_rec.REMARKET_MARGIN := l_kle_rec.REMARKET_MARGIN;
4639: END IF;
4640:
4641: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4637: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4638: x_kle_rec.REMARKET_MARGIN := l_kle_rec.REMARKET_MARGIN;
4639: END IF;
4640:
4641: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4642: x_kle_rec.REPURCHASED_AMOUNT := l_kle_rec.REPURCHASED_AMOUNT;
4643: END IF;
4644:
4645: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4641: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4642: x_kle_rec.REPURCHASED_AMOUNT := l_kle_rec.REPURCHASED_AMOUNT;
4643: END IF;
4644:
4645: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4646: x_kle_rec.DATE_REPURCHASED := l_kle_rec.DATE_REPURCHASED;
4647: END IF;
4648:
4649: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4645: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4646: x_kle_rec.DATE_REPURCHASED := l_kle_rec.DATE_REPURCHASED;
4647: END IF;
4648:
4649: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4650: x_kle_rec.GAIN_LOSS := l_kle_rec.GAIN_LOSS;
4651: END IF;
4652:
4653: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4649: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4650: x_kle_rec.GAIN_LOSS := l_kle_rec.GAIN_LOSS;
4651: END IF;
4652:
4653: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4654: x_kle_rec.FLOOR_AMOUNT := l_kle_rec.FLOOR_AMOUNT;
4655: END IF;
4656:
4657: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4653: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4654: x_kle_rec.FLOOR_AMOUNT := l_kle_rec.FLOOR_AMOUNT;
4655: END IF;
4656:
4657: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4658: x_kle_rec.PREVIOUS_CONTRACT := l_kle_rec.PREVIOUS_CONTRACT;
4659: END IF;
4660:
4661: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4657: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4658: x_kle_rec.PREVIOUS_CONTRACT := l_kle_rec.PREVIOUS_CONTRACT;
4659: END IF;
4660:
4661: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4662: x_kle_rec.TRACKED_RESIDUAL := l_kle_rec.TRACKED_RESIDUAL;
4663: END IF;
4664:
4665: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4661: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4662: x_kle_rec.TRACKED_RESIDUAL := l_kle_rec.TRACKED_RESIDUAL;
4663: END IF;
4664:
4665: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4666: x_kle_rec.DATE_TITLE_RECEIVED := l_kle_rec.DATE_TITLE_RECEIVED;
4667: END IF;
4668:
4669: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4665: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4666: x_kle_rec.DATE_TITLE_RECEIVED := l_kle_rec.DATE_TITLE_RECEIVED;
4667: END IF;
4668:
4669: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4670: x_kle_rec.ESTIMATED_OEC := l_kle_rec.ESTIMATED_OEC;
4671: END IF;
4672:
4673: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4669: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4670: x_kle_rec.ESTIMATED_OEC := l_kle_rec.ESTIMATED_OEC;
4671: END IF;
4672:
4673: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4674: x_kle_rec.RESIDUAL_PERCENTAGE := l_kle_rec.RESIDUAL_PERCENTAGE;
4675: END IF;
4676:
4677: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4673: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4674: x_kle_rec.RESIDUAL_PERCENTAGE := l_kle_rec.RESIDUAL_PERCENTAGE;
4675: END IF;
4676:
4677: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4678: x_kle_rec.CAPITAL_REDUCTION := l_kle_rec.CAPITAL_REDUCTION;
4679: END IF;
4680:
4681: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4677: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4678: x_kle_rec.CAPITAL_REDUCTION := l_kle_rec.CAPITAL_REDUCTION;
4679: END IF;
4680:
4681: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4682: x_kle_rec.VENDOR_ADVANCE_PAID := l_kle_rec.VENDOR_ADVANCE_PAID;
4683: END IF;
4684:
4685: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4681: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4682: x_kle_rec.VENDOR_ADVANCE_PAID := l_kle_rec.VENDOR_ADVANCE_PAID;
4683: END IF;
4684:
4685: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4686: x_kle_rec.TRADEIN_AMOUNT := l_kle_rec.TRADEIN_AMOUNT;
4687: END IF;
4688:
4689: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4685: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4686: x_kle_rec.TRADEIN_AMOUNT := l_kle_rec.TRADEIN_AMOUNT;
4687: END IF;
4688:
4689: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4690: x_kle_rec.DELIVERED_DATE := l_kle_rec.DELIVERED_DATE;
4691: END IF;
4692:
4693: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4689: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4690: x_kle_rec.DELIVERED_DATE := l_kle_rec.DELIVERED_DATE;
4691: END IF;
4692:
4693: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4694: x_kle_rec.YEAR_OF_MANUFACTURE := l_kle_rec.YEAR_OF_MANUFACTURE;
4695: END IF;
4696:
4697: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4693: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4694: x_kle_rec.YEAR_OF_MANUFACTURE := l_kle_rec.YEAR_OF_MANUFACTURE;
4695: END IF;
4696:
4697: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4698: x_kle_rec.INITIAL_DIRECT_COST := l_kle_rec.INITIAL_DIRECT_COST;
4699: END IF;
4700:
4701: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4697: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4698: x_kle_rec.INITIAL_DIRECT_COST := l_kle_rec.INITIAL_DIRECT_COST;
4699: END IF;
4700:
4701: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4702: x_kle_rec.OCCUPANCY := l_kle_rec.OCCUPANCY;
4703: END IF;
4704:
4705: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4701: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4702: x_kle_rec.OCCUPANCY := l_kle_rec.OCCUPANCY;
4703: END IF;
4704:
4705: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4706: x_kle_rec.DATE_LAST_INSPECTION := l_kle_rec.DATE_LAST_INSPECTION;
4707: END IF;
4708:
4709: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4705: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4706: x_kle_rec.DATE_LAST_INSPECTION := l_kle_rec.DATE_LAST_INSPECTION;
4707: END IF;
4708:
4709: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4710: x_kle_rec.DATE_NEXT_INSPECTION_DUE := l_kle_rec.DATE_NEXT_INSPECTION_DUE;
4711: END IF;
4712:
4713: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4709: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4710: x_kle_rec.DATE_NEXT_INSPECTION_DUE := l_kle_rec.DATE_NEXT_INSPECTION_DUE;
4711: END IF;
4712:
4713: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4714: x_kle_rec.WEIGHTED_AVERAGE_LIFE := l_kle_rec.WEIGHTED_AVERAGE_LIFE;
4715: END IF;
4716:
4717: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4713: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4714: x_kle_rec.WEIGHTED_AVERAGE_LIFE := l_kle_rec.WEIGHTED_AVERAGE_LIFE;
4715: END IF;
4716:
4717: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4718: x_kle_rec.BOND_EQUIVALENT_YIELD := l_kle_rec.BOND_EQUIVALENT_YIELD;
4719: END IF;
4720:
4721: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4717: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4718: x_kle_rec.BOND_EQUIVALENT_YIELD := l_kle_rec.BOND_EQUIVALENT_YIELD;
4719: END IF;
4720:
4721: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4722: x_kle_rec.REFINANCE_AMOUNT := l_kle_rec.REFINANCE_AMOUNT;
4723: END IF;
4724:
4725: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4721: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4722: x_kle_rec.REFINANCE_AMOUNT := l_kle_rec.REFINANCE_AMOUNT;
4723: END IF;
4724:
4725: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4726: x_kle_rec.YEAR_BUILT := l_kle_rec.YEAR_BUILT;
4727: END IF;
4728:
4729: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4725: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4726: x_kle_rec.YEAR_BUILT := l_kle_rec.YEAR_BUILT;
4727: END IF;
4728:
4729: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4730: x_kle_rec.COVERAGE_RATIO := l_kle_rec.COVERAGE_RATIO;
4731: END IF;
4732:
4733: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4729: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4730: x_kle_rec.COVERAGE_RATIO := l_kle_rec.COVERAGE_RATIO;
4731: END IF;
4732:
4733: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4734: x_kle_rec.GROSS_SQUARE_FOOTAGE := l_kle_rec.GROSS_SQUARE_FOOTAGE;
4735: END IF;
4736:
4737: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4733: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4734: x_kle_rec.GROSS_SQUARE_FOOTAGE := l_kle_rec.GROSS_SQUARE_FOOTAGE;
4735: END IF;
4736:
4737: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4738: x_kle_rec.NET_RENTABLE := l_kle_rec.NET_RENTABLE;
4739: END IF;
4740:
4741: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4737: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4738: x_kle_rec.NET_RENTABLE := l_kle_rec.NET_RENTABLE;
4739: END IF;
4740:
4741: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4742: x_kle_rec.DATE_LETTER_ACCEPTANCE := l_kle_rec.DATE_LETTER_ACCEPTANCE;
4743: END IF;
4744:
4745: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4741: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4742: x_kle_rec.DATE_LETTER_ACCEPTANCE := l_kle_rec.DATE_LETTER_ACCEPTANCE;
4743: END IF;
4744:
4745: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4746: x_kle_rec.DATE_COMMITMENT_EXPIRATION := l_kle_rec.DATE_COMMITMENT_EXPIRATION;
4747: END IF;
4748:
4749: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4745: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4746: x_kle_rec.DATE_COMMITMENT_EXPIRATION := l_kle_rec.DATE_COMMITMENT_EXPIRATION;
4747: END IF;
4748:
4749: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4750: x_kle_rec.DATE_APPRAISAL := l_kle_rec.DATE_APPRAISAL;
4751: END IF;
4752:
4753: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4749: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4750: x_kle_rec.DATE_APPRAISAL := l_kle_rec.DATE_APPRAISAL;
4751: END IF;
4752:
4753: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4754: x_kle_rec.APPRAISAL_VALUE := l_kle_rec.APPRAISAL_VALUE;
4755: END IF;
4756:
4757: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4753: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4754: x_kle_rec.APPRAISAL_VALUE := l_kle_rec.APPRAISAL_VALUE;
4755: END IF;
4756:
4757: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4758: x_kle_rec.RESIDUAL_VALUE := l_kle_rec.RESIDUAL_VALUE;
4759: END IF;
4760:
4761: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4757: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4758: x_kle_rec.RESIDUAL_VALUE := l_kle_rec.RESIDUAL_VALUE;
4759: END IF;
4760:
4761: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4762: x_kle_rec.PERCENT := l_kle_rec.PERCENT;
4763: END IF;
4764:
4765: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4761: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4762: x_kle_rec.PERCENT := l_kle_rec.PERCENT;
4763: END IF;
4764:
4765: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4766: x_kle_rec.COVERAGE := l_kle_rec.COVERAGE;
4767: END IF;
4768:
4769: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4765: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4766: x_kle_rec.COVERAGE := l_kle_rec.COVERAGE;
4767: END IF;
4768:
4769: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4770: x_kle_rec.LRV_AMOUNT := l_kle_rec.LRV_AMOUNT;
4771: END IF;
4772:
4773: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4769: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4770: x_kle_rec.LRV_AMOUNT := l_kle_rec.LRV_AMOUNT;
4771: END IF;
4772:
4773: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4774: x_kle_rec.AMOUNT := l_kle_rec.AMOUNT;
4775: END IF;
4776:
4777: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4773: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4774: x_kle_rec.AMOUNT := l_kle_rec.AMOUNT;
4775: END IF;
4776:
4777: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4778: x_kle_rec.LRS_PERCENT := l_kle_rec.LRS_PERCENT;
4779: END IF;
4780:
4781: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4777: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4778: x_kle_rec.LRS_PERCENT := l_kle_rec.LRS_PERCENT;
4779: END IF;
4780:
4781: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4782: x_kle_rec.EVERGREEN_PERCENT := l_kle_rec.EVERGREEN_PERCENT;
4783: END IF;
4784:
4785: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4781: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4782: x_kle_rec.EVERGREEN_PERCENT := l_kle_rec.EVERGREEN_PERCENT;
4783: END IF;
4784:
4785: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4786: x_kle_rec.PERCENT_STAKE := l_kle_rec.PERCENT_STAKE;
4787: END IF;
4788:
4789: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4785: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4786: x_kle_rec.PERCENT_STAKE := l_kle_rec.PERCENT_STAKE;
4787: END IF;
4788:
4789: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4790: x_kle_rec.AMOUNT_STAKE := l_kle_rec.AMOUNT_STAKE;
4791: END IF;
4792:
4793: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4789: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4790: x_kle_rec.AMOUNT_STAKE := l_kle_rec.AMOUNT_STAKE;
4791: END IF;
4792:
4793: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4794: x_kle_rec.DATE_SOLD := l_kle_rec.DATE_SOLD;
4795: END IF;
4796:
4797: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4793: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4794: x_kle_rec.DATE_SOLD := l_kle_rec.DATE_SOLD;
4795: END IF;
4796:
4797: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4798: x_kle_rec.STY_ID_FOR := l_kle_rec.STY_ID_FOR;
4799: END IF;
4800:
4801: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4797: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4798: x_kle_rec.STY_ID_FOR := l_kle_rec.STY_ID_FOR;
4799: END IF;
4800:
4801: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4802: x_kle_rec.ATTRIBUTE_CATEGORY := l_kle_rec.ATTRIBUTE_CATEGORY;
4803: END IF;
4804:
4805: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4801: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4802: x_kle_rec.ATTRIBUTE_CATEGORY := l_kle_rec.ATTRIBUTE_CATEGORY;
4803: END IF;
4804:
4805: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4806: x_kle_rec.ATTRIBUTE1 := l_kle_rec.ATTRIBUTE1;
4807: END IF;
4808:
4809: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4805: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4806: x_kle_rec.ATTRIBUTE1 := l_kle_rec.ATTRIBUTE1;
4807: END IF;
4808:
4809: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4810: x_kle_rec.ATTRIBUTE2 := l_kle_rec.ATTRIBUTE2;
4811: END IF;
4812:
4813: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4809: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4810: x_kle_rec.ATTRIBUTE2 := l_kle_rec.ATTRIBUTE2;
4811: END IF;
4812:
4813: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4814: x_kle_rec.ATTRIBUTE3 := l_kle_rec.ATTRIBUTE3;
4815: END IF;
4816:
4817: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4813: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4814: x_kle_rec.ATTRIBUTE3 := l_kle_rec.ATTRIBUTE3;
4815: END IF;
4816:
4817: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4818: x_kle_rec.ATTRIBUTE4 := l_kle_rec.ATTRIBUTE4;
4819: END IF;
4820:
4821: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4817: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4818: x_kle_rec.ATTRIBUTE4 := l_kle_rec.ATTRIBUTE4;
4819: END IF;
4820:
4821: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4822: x_kle_rec.ATTRIBUTE5 := l_kle_rec.ATTRIBUTE5;
4823: END IF;
4824:
4825: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4821: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4822: x_kle_rec.ATTRIBUTE5 := l_kle_rec.ATTRIBUTE5;
4823: END IF;
4824:
4825: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4826: x_kle_rec.ATTRIBUTE6 := l_kle_rec.ATTRIBUTE6;
4827: END IF;
4828:
4829: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4825: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4826: x_kle_rec.ATTRIBUTE6 := l_kle_rec.ATTRIBUTE6;
4827: END IF;
4828:
4829: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4830: x_kle_rec.ATTRIBUTE7 := l_kle_rec.ATTRIBUTE7;
4831: END IF;
4832:
4833: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4829: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4830: x_kle_rec.ATTRIBUTE7 := l_kle_rec.ATTRIBUTE7;
4831: END IF;
4832:
4833: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4834: x_kle_rec.ATTRIBUTE8 := l_kle_rec.ATTRIBUTE8;
4835: END IF;
4836:
4837: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4833: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4834: x_kle_rec.ATTRIBUTE8 := l_kle_rec.ATTRIBUTE8;
4835: END IF;
4836:
4837: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4838: x_kle_rec.ATTRIBUTE9 := l_kle_rec.ATTRIBUTE9;
4839: END IF;
4840:
4841: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4837: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4838: x_kle_rec.ATTRIBUTE9 := l_kle_rec.ATTRIBUTE9;
4839: END IF;
4840:
4841: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4842: x_kle_rec.ATTRIBUTE10 := l_kle_rec.ATTRIBUTE10;
4843: END IF;
4844:
4845: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4841: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4842: x_kle_rec.ATTRIBUTE10 := l_kle_rec.ATTRIBUTE10;
4843: END IF;
4844:
4845: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4846: x_kle_rec.ATTRIBUTE11 := l_kle_rec.ATTRIBUTE11;
4847: END IF;
4848:
4849: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4845: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4846: x_kle_rec.ATTRIBUTE11 := l_kle_rec.ATTRIBUTE11;
4847: END IF;
4848:
4849: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4850: x_kle_rec.ATTRIBUTE12 := l_kle_rec.ATTRIBUTE12;
4851: END IF;
4852:
4853: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4849: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4850: x_kle_rec.ATTRIBUTE12 := l_kle_rec.ATTRIBUTE12;
4851: END IF;
4852:
4853: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4854: x_kle_rec.ATTRIBUTE13 := l_kle_rec.ATTRIBUTE13;
4855: END IF;
4856:
4857: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4853: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4854: x_kle_rec.ATTRIBUTE13 := l_kle_rec.ATTRIBUTE13;
4855: END IF;
4856:
4857: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4858: x_kle_rec.ATTRIBUTE14 := l_kle_rec.ATTRIBUTE14;
4859: END IF;
4860:
4861: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4857: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4858: x_kle_rec.ATTRIBUTE14 := l_kle_rec.ATTRIBUTE14;
4859: END IF;
4860:
4861: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4862: x_kle_rec.ATTRIBUTE15 := l_kle_rec.ATTRIBUTE15;
4863: END IF;
4864:
4865: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4861: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4862: x_kle_rec.ATTRIBUTE15 := l_kle_rec.ATTRIBUTE15;
4863: END IF;
4864:
4865: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4866: x_kle_rec.CREATED_BY := l_kle_rec.CREATED_BY;
4867: END IF;
4868:
4869: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4865: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4866: x_kle_rec.CREATED_BY := l_kle_rec.CREATED_BY;
4867: END IF;
4868:
4869: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4870: x_kle_rec.CREATION_DATE := l_kle_rec.CREATION_DATE;
4871: END IF;
4872:
4873: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4869: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4870: x_kle_rec.CREATION_DATE := l_kle_rec.CREATION_DATE;
4871: END IF;
4872:
4873: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4874: x_kle_rec.LAST_UPDATED_BY := l_kle_rec.LAST_UPDATED_BY;
4875: END IF;
4876:
4877: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4873: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4874: x_kle_rec.LAST_UPDATED_BY := l_kle_rec.LAST_UPDATED_BY;
4875: END IF;
4876:
4877: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4878: x_kle_rec.LAST_UPDATE_DATE := l_kle_rec.LAST_UPDATE_DATE;
4879: END IF;
4880:
4881: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4877: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4878: x_kle_rec.LAST_UPDATE_DATE := l_kle_rec.LAST_UPDATE_DATE;
4879: END IF;
4880:
4881: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4882: x_kle_rec.LAST_UPDATE_LOGIN := l_kle_rec.LAST_UPDATE_LOGIN;
4883: END IF;
4884:
4885: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4881: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4882: x_kle_rec.LAST_UPDATE_LOGIN := l_kle_rec.LAST_UPDATE_LOGIN;
4883: END IF;
4884:
4885: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4886: x_kle_rec.NTY_CODE := l_kle_rec.NTY_CODE;
4887: END IF;
4888:
4889: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4885: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4886: x_kle_rec.NTY_CODE := l_kle_rec.NTY_CODE;
4887: END IF;
4888:
4889: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4890: x_kle_rec.FCG_CODE := l_kle_rec.FCG_CODE;
4891: END IF;
4892:
4893: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4889: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4890: x_kle_rec.FCG_CODE := l_kle_rec.FCG_CODE;
4891: END IF;
4892:
4893: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4894: x_kle_rec.PRC_CODE := l_kle_rec.PRC_CODE;
4895: END IF;
4896:
4897: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4893: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4894: x_kle_rec.PRC_CODE := l_kle_rec.PRC_CODE;
4895: END IF;
4896:
4897: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4898: x_kle_rec.RE_LEASE_YN := l_kle_rec.RE_LEASE_YN;
4899: END IF;
4900:
4901: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4897: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4898: x_kle_rec.RE_LEASE_YN := l_kle_rec.RE_LEASE_YN;
4899: END IF;
4900:
4901: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4902: x_kle_rec.PRESCRIBED_ASSET_YN := l_kle_rec.PRESCRIBED_ASSET_YN;
4903: END IF;
4904:
4905: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4901: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4902: x_kle_rec.PRESCRIBED_ASSET_YN := l_kle_rec.PRESCRIBED_ASSET_YN;
4903: END IF;
4904:
4905: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4906: x_kle_rec.CREDIT_TENANT_YN := l_kle_rec.CREDIT_TENANT_YN;
4907: END IF;
4908:
4909: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4905: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4906: x_kle_rec.CREDIT_TENANT_YN := l_kle_rec.CREDIT_TENANT_YN;
4907: END IF;
4908:
4909: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4910: x_kle_rec.SECURED_DEAL_YN := l_kle_rec.SECURED_DEAL_YN;
4911: END IF;
4912:
4913: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4909: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4910: x_kle_rec.SECURED_DEAL_YN := l_kle_rec.SECURED_DEAL_YN;
4911: END IF;
4912:
4913: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4914: x_kle_rec.CLG_ID := l_kle_rec.CLG_ID;
4915: END IF;
4916:
4917: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4913: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4914: x_kle_rec.CLG_ID := l_kle_rec.CLG_ID;
4915: END IF;
4916:
4917: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4918: x_kle_rec.DATE_FUNDING := l_kle_rec.DATE_FUNDING;
4919: END IF;
4920:
4921: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4917: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4918: x_kle_rec.DATE_FUNDING := l_kle_rec.DATE_FUNDING;
4919: END IF;
4920:
4921: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4922: x_kle_rec.DATE_FUNDING_REQUIRED := l_kle_rec.DATE_FUNDING_REQUIRED;
4923: END IF;
4924:
4925: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4921: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4922: x_kle_rec.DATE_FUNDING_REQUIRED := l_kle_rec.DATE_FUNDING_REQUIRED;
4923: END IF;
4924:
4925: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4926: x_kle_rec.DATE_ACCEPTED := l_kle_rec.DATE_ACCEPTED;
4927: END IF;
4928:
4929: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4925: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4926: x_kle_rec.DATE_ACCEPTED := l_kle_rec.DATE_ACCEPTED;
4927: END IF;
4928:
4929: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4930: x_kle_rec.DATE_DELIVERY_EXPECTED := l_kle_rec.DATE_DELIVERY_EXPECTED;
4931: END IF;
4932:
4933: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4929: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4930: x_kle_rec.DATE_DELIVERY_EXPECTED := l_kle_rec.DATE_DELIVERY_EXPECTED;
4931: END IF;
4932:
4933: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4934: x_kle_rec.OEC := l_kle_rec.OEC;
4935: END IF;
4936:
4937: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4933: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4934: x_kle_rec.OEC := l_kle_rec.OEC;
4935: END IF;
4936:
4937: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4938: x_kle_rec.CAPITAL_AMOUNT := l_kle_rec.CAPITAL_AMOUNT;
4939: END IF;
4940:
4941: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4937: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4938: x_kle_rec.CAPITAL_AMOUNT := l_kle_rec.CAPITAL_AMOUNT;
4939: END IF;
4940:
4941: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4942: x_kle_rec.RESIDUAL_GRNTY_AMOUNT := l_kle_rec.RESIDUAL_GRNTY_AMOUNT;
4943: END IF;
4944:
4945: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4941: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4942: x_kle_rec.RESIDUAL_GRNTY_AMOUNT := l_kle_rec.RESIDUAL_GRNTY_AMOUNT;
4943: END IF;
4944:
4945: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4946: x_kle_rec.RESIDUAL_CODE := l_kle_rec.RESIDUAL_CODE;
4947: END IF;
4948:
4949: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4945: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4946: x_kle_rec.RESIDUAL_CODE := l_kle_rec.RESIDUAL_CODE;
4947: END IF;
4948:
4949: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4950: x_kle_rec.RVI_PREMIUM := l_kle_rec.RVI_PREMIUM;
4951: END IF;
4952:
4953: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4949: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4950: x_kle_rec.RVI_PREMIUM := l_kle_rec.RVI_PREMIUM;
4951: END IF;
4952:
4953: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4954: x_kle_rec.CREDIT_NATURE := l_kle_rec.CREDIT_NATURE;
4955: END IF;
4956:
4957: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4953: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4954: x_kle_rec.CREDIT_NATURE := l_kle_rec.CREDIT_NATURE;
4955: END IF;
4956:
4957: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4958: x_kle_rec.CAPITALIZED_INTEREST := l_kle_rec.CAPITALIZED_INTEREST;
4959: END IF;
4960:
4961: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4957: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4958: x_kle_rec.CAPITALIZED_INTEREST := l_kle_rec.CAPITALIZED_INTEREST;
4959: END IF;
4960:
4961: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4962: x_kle_rec.CAPITAL_REDUCTION_PERCENT := l_kle_rec.CAPITAL_REDUCTION_PERCENT;
4963: END IF;
4964:
4965: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4961: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4962: x_kle_rec.CAPITAL_REDUCTION_PERCENT := l_kle_rec.CAPITAL_REDUCTION_PERCENT;
4963: END IF;
4964:
4965: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4966: x_kle_rec.DATE_PAY_INVESTOR_START := l_kle_rec.DATE_PAY_INVESTOR_START;
4967: END IF;
4968:
4969: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4965: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4966: x_kle_rec.DATE_PAY_INVESTOR_START := l_kle_rec.DATE_PAY_INVESTOR_START;
4967: END IF;
4968:
4969: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4970: x_kle_rec.PAY_INVESTOR_FREQUENCY := l_kle_rec.PAY_INVESTOR_FREQUENCY;
4971: END IF;
4972:
4973: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4969: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4970: x_kle_rec.PAY_INVESTOR_FREQUENCY := l_kle_rec.PAY_INVESTOR_FREQUENCY;
4971: END IF;
4972:
4973: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4974: x_kle_rec.PAY_INVESTOR_EVENT := l_kle_rec.PAY_INVESTOR_EVENT;
4975: END IF;
4976:
4977: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4973: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4974: x_kle_rec.PAY_INVESTOR_EVENT := l_kle_rec.PAY_INVESTOR_EVENT;
4975: END IF;
4976:
4977: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4978: x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS;
4979: END IF;
4980:
4981: IF (x_kle_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
4977: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4978: x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS;
4979: END IF;
4980:
4981: IF (x_kle_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
4982: x_kle_rec.FEE_TYPE := l_kle_rec.FEE_TYPE;
4983: END IF;
4984:
4985: --Bug# 3143522: 11.5.10
5110: FUNCTION Set_Attributes (
5111: p_kle_rec IN kle_rec_type,
5112: x_kle_rec OUT NOCOPY kle_rec_type
5113: ) RETURN VARCHAR2 IS
5114: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5115: BEGIN
5116: x_kle_rec := p_kle_rec;
5117: --Added by jjuneja
5118: --in case the Fee_type is income then setting origination income to 0 if it is null
5123: --End of addition by jjuneja
5124: RETURN(l_return_status);
5125: END Set_Attributes;
5126: BEGIN
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5128: p_init_msg_list,
5129: '_PVT',
5130: x_return_status);
5131:
5128: p_init_msg_list,
5129: '_PVT',
5130: x_return_status);
5131:
5132: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_ERROR;
5136: END IF;
5129: '_PVT',
5130: x_return_status);
5131:
5132: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:
5130: x_return_status);
5131:
5132: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:
5138: --- Setting item attributes
5131:
5132: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:
5138: --- Setting item attributes
5139: l_return_status := Set_Attributes(
5140: p_kle_rec, -- IN
5141: l_kle_rec); -- OUT
5142: --- If any errors happen abort API
5143:
5144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_ERROR;
5148: END IF;
5141: l_kle_rec); -- OUT
5142: --- If any errors happen abort API
5143:
5144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_ERROR;
5148: END IF;
5149:
5142: --- If any errors happen abort API
5143:
5144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_ERROR;
5148: END IF;
5149:
5150: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
5143:
5144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_ERROR;
5148: END IF;
5149:
5150: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
5151:
5148: END IF;
5149:
5150: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
5151:
5152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5155: RAISE OKC_API.G_EXCEPTION_ERROR;
5156: END IF;
5149:
5150: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
5151:
5152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5155: RAISE OKC_API.G_EXCEPTION_ERROR;
5156: END IF;
5157:
5150: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
5151:
5152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5155: RAISE OKC_API.G_EXCEPTION_ERROR;
5156: END IF;
5157:
5158: UPDATE OKL_K_LINES
5151:
5152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5155: RAISE OKC_API.G_EXCEPTION_ERROR;
5156: END IF;
5157:
5158: UPDATE OKL_K_LINES
5159: SET
5316: l_okl_k_lines_h_rec,
5317: lx_okl_k_lines_h_rec
5318: );
5319:
5320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_ERROR;
5324: END IF;
5317: lx_okl_k_lines_h_rec
5318: );
5319:
5320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_ERROR;
5324: END IF;
5325:
5318: );
5319:
5320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_ERROR;
5324: END IF;
5325:
5326: */
5319:
5320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_ERROR;
5324: END IF;
5325:
5326: */
5327: x_kle_rec := l_def_kle_rec;
5324: END IF;
5325:
5326: */
5327: x_kle_rec := l_def_kle_rec;
5328: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5329:
5330: EXCEPTION
5331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5332: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5327: x_kle_rec := l_def_kle_rec;
5328: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5329:
5330: EXCEPTION
5331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5332: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5333: (
5334: l_api_name,
5335: G_PKG_NAME,
5328: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5329:
5330: EXCEPTION
5331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5332: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5333: (
5334: l_api_name,
5335: G_PKG_NAME,
5336: 'OKC_API.G_RET_STS_ERROR',
5332: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5333: (
5334: l_api_name,
5335: G_PKG_NAME,
5336: 'OKC_API.G_RET_STS_ERROR',
5337: x_msg_count,
5338: x_msg_data,
5339: '_PVT'
5340: );
5337: x_msg_count,
5338: x_msg_data,
5339: '_PVT'
5340: );
5341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5342: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5343: (
5344: l_api_name,
5345: G_PKG_NAME,
5338: x_msg_data,
5339: '_PVT'
5340: );
5341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5342: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5343: (
5344: l_api_name,
5345: G_PKG_NAME,
5346: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5342: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5343: (
5344: l_api_name,
5345: G_PKG_NAME,
5346: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5347: x_msg_count,
5348: x_msg_data,
5349: '_PVT'
5350: );
5348: x_msg_data,
5349: '_PVT'
5350: );
5351: WHEN OTHERS THEN
5352: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5353: (
5354: l_api_name,
5355: G_PKG_NAME,
5356: 'OTHERS',
5376: x_klev_rec OUT NOCOPY klev_rec_type) IS
5377:
5378: l_api_version CONSTANT NUMBER := 1;
5379: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
5380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5381: l_klev_rec klev_rec_type := p_klev_rec;
5382: l_def_klev_rec klev_rec_type;
5383: l_kle_rec kle_rec_type;
5384: lx_kle_rec kle_rec_type;
5403: x_klev_rec OUT NOCOPY klev_rec_type
5404: ) RETURN VARCHAR2 IS
5405: l_klev_rec klev_rec_type;
5406: l_row_notfound BOOLEAN := TRUE;
5407: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5408: BEGIN
5409: x_klev_rec := p_klev_rec;
5410: -- Get current database values
5411: l_klev_rec := get_rec(p_klev_rec, l_row_notfound);
5409: x_klev_rec := p_klev_rec;
5410: -- Get current database values
5411: l_klev_rec := get_rec(p_klev_rec, l_row_notfound);
5412: IF (l_row_notfound) THEN
5413: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5414: END IF;
5415:
5416:
5417: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5413: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5414: END IF;
5415:
5416:
5417: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5418: x_klev_rec.ID := l_klev_rec.ID;
5419: END IF;
5420:
5421: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5417: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5418: x_klev_rec.ID := l_klev_rec.ID;
5419: END IF;
5420:
5421: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5422: x_klev_rec.OBJECT_VERSION_NUMBER := l_klev_rec.OBJECT_VERSION_NUMBER;
5423: END IF;
5424:
5425: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5421: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5422: x_klev_rec.OBJECT_VERSION_NUMBER := l_klev_rec.OBJECT_VERSION_NUMBER;
5423: END IF;
5424:
5425: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5426: x_klev_rec.KLE_ID := l_klev_rec.KLE_ID;
5427: END IF;
5428:
5429: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5425: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5426: x_klev_rec.KLE_ID := l_klev_rec.KLE_ID;
5427: END IF;
5428:
5429: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5430: x_klev_rec.STY_ID := l_klev_rec.STY_ID;
5431: END IF;
5432:
5433: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5429: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5430: x_klev_rec.STY_ID := l_klev_rec.STY_ID;
5431: END IF;
5432:
5433: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5434: x_klev_rec.PRC_CODE := l_klev_rec.PRC_CODE;
5435: END IF;
5436:
5437: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5433: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5434: x_klev_rec.PRC_CODE := l_klev_rec.PRC_CODE;
5435: END IF;
5436:
5437: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5438: x_klev_rec.FCG_CODE := l_klev_rec.FCG_CODE;
5439: END IF;
5440:
5441: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5437: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5438: x_klev_rec.FCG_CODE := l_klev_rec.FCG_CODE;
5439: END IF;
5440:
5441: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5442: x_klev_rec.NTY_CODE := l_klev_rec.NTY_CODE;
5443: END IF;
5444:
5445: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5441: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5442: x_klev_rec.NTY_CODE := l_klev_rec.NTY_CODE;
5443: END IF;
5444:
5445: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5446: x_klev_rec.ESTIMATED_OEC := l_klev_rec.ESTIMATED_OEC;
5447: END IF;
5448:
5449: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5445: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5446: x_klev_rec.ESTIMATED_OEC := l_klev_rec.ESTIMATED_OEC;
5447: END IF;
5448:
5449: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5450: x_klev_rec.LAO_AMOUNT := l_klev_rec.LAO_AMOUNT;
5451: END IF;
5452:
5453: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5449: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5450: x_klev_rec.LAO_AMOUNT := l_klev_rec.LAO_AMOUNT;
5451: END IF;
5452:
5453: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5454: x_klev_rec.TITLE_DATE := l_klev_rec.TITLE_DATE;
5455: END IF;
5456:
5457: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5453: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5454: x_klev_rec.TITLE_DATE := l_klev_rec.TITLE_DATE;
5455: END IF;
5456:
5457: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5458: x_klev_rec.FEE_CHARGE := l_klev_rec.FEE_CHARGE;
5459: END IF;
5460:
5461: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5457: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5458: x_klev_rec.FEE_CHARGE := l_klev_rec.FEE_CHARGE;
5459: END IF;
5460:
5461: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5462: x_klev_rec.LRS_PERCENT := l_klev_rec.LRS_PERCENT;
5463: END IF;
5464:
5465: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5461: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5462: x_klev_rec.LRS_PERCENT := l_klev_rec.LRS_PERCENT;
5463: END IF;
5464:
5465: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5466: x_klev_rec.INITIAL_DIRECT_COST := l_klev_rec.INITIAL_DIRECT_COST;
5467: END IF;
5468:
5469: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5465: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5466: x_klev_rec.INITIAL_DIRECT_COST := l_klev_rec.INITIAL_DIRECT_COST;
5467: END IF;
5468:
5469: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5470: x_klev_rec.PERCENT_STAKE := l_klev_rec.PERCENT_STAKE;
5471: END IF;
5472:
5473: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5469: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5470: x_klev_rec.PERCENT_STAKE := l_klev_rec.PERCENT_STAKE;
5471: END IF;
5472:
5473: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5474: x_klev_rec.PERCENT := l_klev_rec.PERCENT;
5475: END IF;
5476:
5477: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5473: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5474: x_klev_rec.PERCENT := l_klev_rec.PERCENT;
5475: END IF;
5476:
5477: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5478: x_klev_rec.EVERGREEN_PERCENT := l_klev_rec.EVERGREEN_PERCENT;
5479: END IF;
5480:
5481: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5477: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5478: x_klev_rec.EVERGREEN_PERCENT := l_klev_rec.EVERGREEN_PERCENT;
5479: END IF;
5480:
5481: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5482: x_klev_rec.AMOUNT_STAKE := l_klev_rec.AMOUNT_STAKE;
5483: END IF;
5484:
5485: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5481: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5482: x_klev_rec.AMOUNT_STAKE := l_klev_rec.AMOUNT_STAKE;
5483: END IF;
5484:
5485: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5486: x_klev_rec.OCCUPANCY := l_klev_rec.OCCUPANCY;
5487: END IF;
5488:
5489: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5485: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5486: x_klev_rec.OCCUPANCY := l_klev_rec.OCCUPANCY;
5487: END IF;
5488:
5489: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5490: x_klev_rec.COVERAGE := l_klev_rec.COVERAGE;
5491: END IF;
5492:
5493: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5489: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5490: x_klev_rec.COVERAGE := l_klev_rec.COVERAGE;
5491: END IF;
5492:
5493: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5494: x_klev_rec.RESIDUAL_PERCENTAGE := l_klev_rec.RESIDUAL_PERCENTAGE;
5495: END IF;
5496:
5497: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5493: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5494: x_klev_rec.RESIDUAL_PERCENTAGE := l_klev_rec.RESIDUAL_PERCENTAGE;
5495: END IF;
5496:
5497: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5498: x_klev_rec.DATE_LAST_INSPECTION := l_klev_rec.DATE_LAST_INSPECTION;
5499: END IF;
5500:
5501: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5497: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5498: x_klev_rec.DATE_LAST_INSPECTION := l_klev_rec.DATE_LAST_INSPECTION;
5499: END IF;
5500:
5501: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5502: x_klev_rec.DATE_SOLD := l_klev_rec.DATE_SOLD;
5503: END IF;
5504:
5505: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5501: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5502: x_klev_rec.DATE_SOLD := l_klev_rec.DATE_SOLD;
5503: END IF;
5504:
5505: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5506: x_klev_rec.LRV_AMOUNT := l_klev_rec.LRV_AMOUNT;
5507: END IF;
5508:
5509: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5505: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5506: x_klev_rec.LRV_AMOUNT := l_klev_rec.LRV_AMOUNT;
5507: END IF;
5508:
5509: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5510: x_klev_rec.CAPITAL_REDUCTION := l_klev_rec.CAPITAL_REDUCTION;
5511: END IF;
5512:
5513: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5509: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5510: x_klev_rec.CAPITAL_REDUCTION := l_klev_rec.CAPITAL_REDUCTION;
5511: END IF;
5512:
5513: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5514: x_klev_rec.DATE_NEXT_INSPECTION_DUE := l_klev_rec.DATE_NEXT_INSPECTION_DUE;
5515: END IF;
5516:
5517: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5513: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5514: x_klev_rec.DATE_NEXT_INSPECTION_DUE := l_klev_rec.DATE_NEXT_INSPECTION_DUE;
5515: END IF;
5516:
5517: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5518: x_klev_rec.DATE_RESIDUAL_LAST_REVIEW := l_klev_rec.DATE_RESIDUAL_LAST_REVIEW;
5519: END IF;
5520:
5521: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5517: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5518: x_klev_rec.DATE_RESIDUAL_LAST_REVIEW := l_klev_rec.DATE_RESIDUAL_LAST_REVIEW;
5519: END IF;
5520:
5521: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5522: x_klev_rec.DATE_LAST_REAMORTISATION := l_klev_rec.DATE_LAST_REAMORTISATION;
5523: END IF;
5524:
5525: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5521: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5522: x_klev_rec.DATE_LAST_REAMORTISATION := l_klev_rec.DATE_LAST_REAMORTISATION;
5523: END IF;
5524:
5525: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5526: x_klev_rec.VENDOR_ADVANCE_PAID := l_klev_rec.VENDOR_ADVANCE_PAID;
5527: END IF;
5528:
5529: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5525: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5526: x_klev_rec.VENDOR_ADVANCE_PAID := l_klev_rec.VENDOR_ADVANCE_PAID;
5527: END IF;
5528:
5529: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5530: x_klev_rec.WEIGHTED_AVERAGE_LIFE := l_klev_rec.WEIGHTED_AVERAGE_LIFE;
5531: END IF;
5532:
5533: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5529: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5530: x_klev_rec.WEIGHTED_AVERAGE_LIFE := l_klev_rec.WEIGHTED_AVERAGE_LIFE;
5531: END IF;
5532:
5533: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5534: x_klev_rec.TRADEIN_AMOUNT := l_klev_rec.TRADEIN_AMOUNT;
5535: END IF;
5536:
5537: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5533: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5534: x_klev_rec.TRADEIN_AMOUNT := l_klev_rec.TRADEIN_AMOUNT;
5535: END IF;
5536:
5537: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5538: x_klev_rec.BOND_EQUIVALENT_YIELD := l_klev_rec.BOND_EQUIVALENT_YIELD;
5539: END IF;
5540:
5541: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5537: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5538: x_klev_rec.BOND_EQUIVALENT_YIELD := l_klev_rec.BOND_EQUIVALENT_YIELD;
5539: END IF;
5540:
5541: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5542: x_klev_rec.TERMINATION_PURCHASE_AMOUNT := l_klev_rec.TERMINATION_PURCHASE_AMOUNT;
5543: END IF;
5544:
5545: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5541: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5542: x_klev_rec.TERMINATION_PURCHASE_AMOUNT := l_klev_rec.TERMINATION_PURCHASE_AMOUNT;
5543: END IF;
5544:
5545: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5546: x_klev_rec.REFINANCE_AMOUNT := l_klev_rec.REFINANCE_AMOUNT;
5547: END IF;
5548:
5549: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5545: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5546: x_klev_rec.REFINANCE_AMOUNT := l_klev_rec.REFINANCE_AMOUNT;
5547: END IF;
5548:
5549: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5550: x_klev_rec.YEAR_BUILT := l_klev_rec.YEAR_BUILT;
5551: END IF;
5552:
5553: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5549: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5550: x_klev_rec.YEAR_BUILT := l_klev_rec.YEAR_BUILT;
5551: END IF;
5552:
5553: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5554: x_klev_rec.DELIVERED_DATE := l_klev_rec.DELIVERED_DATE;
5555: END IF;
5556:
5557: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5553: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5554: x_klev_rec.DELIVERED_DATE := l_klev_rec.DELIVERED_DATE;
5555: END IF;
5556:
5557: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5558: x_klev_rec.CREDIT_TENANT_YN := l_klev_rec.CREDIT_TENANT_YN;
5559: END IF;
5560:
5561: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5557: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5558: x_klev_rec.CREDIT_TENANT_YN := l_klev_rec.CREDIT_TENANT_YN;
5559: END IF;
5560:
5561: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5562: x_klev_rec.DATE_LAST_CLEANUP := l_klev_rec.DATE_LAST_CLEANUP;
5563: END IF;
5564:
5565: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5561: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5562: x_klev_rec.DATE_LAST_CLEANUP := l_klev_rec.DATE_LAST_CLEANUP;
5563: END IF;
5564:
5565: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5566: x_klev_rec.YEAR_OF_MANUFACTURE := l_klev_rec.YEAR_OF_MANUFACTURE;
5567: END IF;
5568:
5569: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5565: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5566: x_klev_rec.YEAR_OF_MANUFACTURE := l_klev_rec.YEAR_OF_MANUFACTURE;
5567: END IF;
5568:
5569: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5570: x_klev_rec.COVERAGE_RATIO := l_klev_rec.COVERAGE_RATIO;
5571: END IF;
5572:
5573: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5569: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5570: x_klev_rec.COVERAGE_RATIO := l_klev_rec.COVERAGE_RATIO;
5571: END IF;
5572:
5573: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5574: x_klev_rec.REMARKETED_AMOUNT := l_klev_rec.REMARKETED_AMOUNT;
5575: END IF;
5576:
5577: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5573: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5574: x_klev_rec.REMARKETED_AMOUNT := l_klev_rec.REMARKETED_AMOUNT;
5575: END IF;
5576:
5577: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5578: x_klev_rec.GROSS_SQUARE_FOOTAGE := l_klev_rec.GROSS_SQUARE_FOOTAGE;
5579: END IF;
5580:
5581: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5577: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5578: x_klev_rec.GROSS_SQUARE_FOOTAGE := l_klev_rec.GROSS_SQUARE_FOOTAGE;
5579: END IF;
5580:
5581: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5582: x_klev_rec.PRESCRIBED_ASSET_YN := l_klev_rec.PRESCRIBED_ASSET_YN;
5583: END IF;
5584:
5585: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5581: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5582: x_klev_rec.PRESCRIBED_ASSET_YN := l_klev_rec.PRESCRIBED_ASSET_YN;
5583: END IF;
5584:
5585: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5586: x_klev_rec.DATE_REMARKETED := l_klev_rec.DATE_REMARKETED;
5587: END IF;
5588:
5589: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5585: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5586: x_klev_rec.DATE_REMARKETED := l_klev_rec.DATE_REMARKETED;
5587: END IF;
5588:
5589: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5590: x_klev_rec.NET_RENTABLE := l_klev_rec.NET_RENTABLE;
5591: END IF;
5592:
5593: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5589: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5590: x_klev_rec.NET_RENTABLE := l_klev_rec.NET_RENTABLE;
5591: END IF;
5592:
5593: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5594: x_klev_rec.REMARKET_MARGIN := l_klev_rec.REMARKET_MARGIN;
5595: END IF;
5596:
5597: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5593: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5594: x_klev_rec.REMARKET_MARGIN := l_klev_rec.REMARKET_MARGIN;
5595: END IF;
5596:
5597: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5598: x_klev_rec.DATE_LETTER_ACCEPTANCE := l_klev_rec.DATE_LETTER_ACCEPTANCE;
5599: END IF;
5600:
5601: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5597: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5598: x_klev_rec.DATE_LETTER_ACCEPTANCE := l_klev_rec.DATE_LETTER_ACCEPTANCE;
5599: END IF;
5600:
5601: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5602: x_klev_rec.REPURCHASED_AMOUNT := l_klev_rec.REPURCHASED_AMOUNT;
5603: END IF;
5604:
5605: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5601: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5602: x_klev_rec.REPURCHASED_AMOUNT := l_klev_rec.REPURCHASED_AMOUNT;
5603: END IF;
5604:
5605: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5606: x_klev_rec.DATE_COMMITMENT_EXPIRATION := l_klev_rec.DATE_COMMITMENT_EXPIRATION;
5607: END IF;
5608:
5609: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5605: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5606: x_klev_rec.DATE_COMMITMENT_EXPIRATION := l_klev_rec.DATE_COMMITMENT_EXPIRATION;
5607: END IF;
5608:
5609: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5610: x_klev_rec.DATE_REPURCHASED := l_klev_rec.DATE_REPURCHASED;
5611: END IF;
5612:
5613: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5609: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5610: x_klev_rec.DATE_REPURCHASED := l_klev_rec.DATE_REPURCHASED;
5611: END IF;
5612:
5613: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5614: x_klev_rec.DATE_APPRAISAL := l_klev_rec.DATE_APPRAISAL;
5615: END IF;
5616:
5617: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5613: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5614: x_klev_rec.DATE_APPRAISAL := l_klev_rec.DATE_APPRAISAL;
5615: END IF;
5616:
5617: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5618: x_klev_rec.RESIDUAL_VALUE := l_klev_rec.RESIDUAL_VALUE;
5619: END IF;
5620:
5621: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5617: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5618: x_klev_rec.RESIDUAL_VALUE := l_klev_rec.RESIDUAL_VALUE;
5619: END IF;
5620:
5621: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5622: x_klev_rec.APPRAISAL_VALUE := l_klev_rec.APPRAISAL_VALUE;
5623: END IF;
5624:
5625: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5621: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5622: x_klev_rec.APPRAISAL_VALUE := l_klev_rec.APPRAISAL_VALUE;
5623: END IF;
5624:
5625: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5626: x_klev_rec.SECURED_DEAL_YN := l_klev_rec.SECURED_DEAL_YN;
5627: END IF;
5628:
5629: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5625: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5626: x_klev_rec.SECURED_DEAL_YN := l_klev_rec.SECURED_DEAL_YN;
5627: END IF;
5628:
5629: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5630: x_klev_rec.GAIN_LOSS := l_klev_rec.GAIN_LOSS;
5631: END IF;
5632:
5633: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5629: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5630: x_klev_rec.GAIN_LOSS := l_klev_rec.GAIN_LOSS;
5631: END IF;
5632:
5633: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5634: x_klev_rec.FLOOR_AMOUNT := l_klev_rec.FLOOR_AMOUNT;
5635: END IF;
5636:
5637: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5633: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5634: x_klev_rec.FLOOR_AMOUNT := l_klev_rec.FLOOR_AMOUNT;
5635: END IF;
5636:
5637: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5638: x_klev_rec.RE_LEASE_YN := l_klev_rec.RE_LEASE_YN;
5639: END IF;
5640:
5641: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5637: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5638: x_klev_rec.RE_LEASE_YN := l_klev_rec.RE_LEASE_YN;
5639: END IF;
5640:
5641: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5642: x_klev_rec.PREVIOUS_CONTRACT := l_klev_rec.PREVIOUS_CONTRACT;
5643: END IF;
5644:
5645: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5641: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5642: x_klev_rec.PREVIOUS_CONTRACT := l_klev_rec.PREVIOUS_CONTRACT;
5643: END IF;
5644:
5645: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5646: x_klev_rec.TRACKED_RESIDUAL := l_klev_rec.TRACKED_RESIDUAL;
5647: END IF;
5648:
5649: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5645: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5646: x_klev_rec.TRACKED_RESIDUAL := l_klev_rec.TRACKED_RESIDUAL;
5647: END IF;
5648:
5649: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5650: x_klev_rec.DATE_TITLE_RECEIVED := l_klev_rec.DATE_TITLE_RECEIVED;
5651: END IF;
5652:
5653: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5649: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5650: x_klev_rec.DATE_TITLE_RECEIVED := l_klev_rec.DATE_TITLE_RECEIVED;
5651: END IF;
5652:
5653: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5654: x_klev_rec.AMOUNT := l_klev_rec.AMOUNT;
5655: END IF;
5656:
5657: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5653: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5654: x_klev_rec.AMOUNT := l_klev_rec.AMOUNT;
5655: END IF;
5656:
5657: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5658: x_klev_rec.ATTRIBUTE_CATEGORY := l_klev_rec.ATTRIBUTE_CATEGORY;
5659: END IF;
5660:
5661: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5657: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5658: x_klev_rec.ATTRIBUTE_CATEGORY := l_klev_rec.ATTRIBUTE_CATEGORY;
5659: END IF;
5660:
5661: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5662: x_klev_rec.ATTRIBUTE1 := l_klev_rec.ATTRIBUTE1;
5663: END IF;
5664:
5665: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5661: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5662: x_klev_rec.ATTRIBUTE1 := l_klev_rec.ATTRIBUTE1;
5663: END IF;
5664:
5665: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5666: x_klev_rec.ATTRIBUTE2 := l_klev_rec.ATTRIBUTE2;
5667: END IF;
5668:
5669: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5665: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5666: x_klev_rec.ATTRIBUTE2 := l_klev_rec.ATTRIBUTE2;
5667: END IF;
5668:
5669: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5670: x_klev_rec.ATTRIBUTE3 := l_klev_rec.ATTRIBUTE3;
5671: END IF;
5672:
5673: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5669: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5670: x_klev_rec.ATTRIBUTE3 := l_klev_rec.ATTRIBUTE3;
5671: END IF;
5672:
5673: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5674: x_klev_rec.ATTRIBUTE4 := l_klev_rec.ATTRIBUTE4;
5675: END IF;
5676:
5677: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5673: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5674: x_klev_rec.ATTRIBUTE4 := l_klev_rec.ATTRIBUTE4;
5675: END IF;
5676:
5677: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5678: x_klev_rec.ATTRIBUTE5 := l_klev_rec.ATTRIBUTE5;
5679: END IF;
5680:
5681: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5677: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5678: x_klev_rec.ATTRIBUTE5 := l_klev_rec.ATTRIBUTE5;
5679: END IF;
5680:
5681: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5682: x_klev_rec.ATTRIBUTE6 := l_klev_rec.ATTRIBUTE6;
5683: END IF;
5684:
5685: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5681: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5682: x_klev_rec.ATTRIBUTE6 := l_klev_rec.ATTRIBUTE6;
5683: END IF;
5684:
5685: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5686: x_klev_rec.ATTRIBUTE7 := l_klev_rec.ATTRIBUTE7;
5687: END IF;
5688:
5689: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5685: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5686: x_klev_rec.ATTRIBUTE7 := l_klev_rec.ATTRIBUTE7;
5687: END IF;
5688:
5689: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5690: x_klev_rec.ATTRIBUTE8 := l_klev_rec.ATTRIBUTE8;
5691: END IF;
5692:
5693: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5689: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5690: x_klev_rec.ATTRIBUTE8 := l_klev_rec.ATTRIBUTE8;
5691: END IF;
5692:
5693: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5694: x_klev_rec.ATTRIBUTE9 := l_klev_rec.ATTRIBUTE9;
5695: END IF;
5696:
5697: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5693: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5694: x_klev_rec.ATTRIBUTE9 := l_klev_rec.ATTRIBUTE9;
5695: END IF;
5696:
5697: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5698: x_klev_rec.ATTRIBUTE10 := l_klev_rec.ATTRIBUTE10;
5699: END IF;
5700:
5701: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5697: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5698: x_klev_rec.ATTRIBUTE10 := l_klev_rec.ATTRIBUTE10;
5699: END IF;
5700:
5701: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5702: x_klev_rec.ATTRIBUTE11 := l_klev_rec.ATTRIBUTE11;
5703: END IF;
5704:
5705: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5701: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5702: x_klev_rec.ATTRIBUTE11 := l_klev_rec.ATTRIBUTE11;
5703: END IF;
5704:
5705: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5706: x_klev_rec.ATTRIBUTE12 := l_klev_rec.ATTRIBUTE12;
5707: END IF;
5708:
5709: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5705: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5706: x_klev_rec.ATTRIBUTE12 := l_klev_rec.ATTRIBUTE12;
5707: END IF;
5708:
5709: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5710: x_klev_rec.ATTRIBUTE13 := l_klev_rec.ATTRIBUTE13;
5711: END IF;
5712:
5713: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5709: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5710: x_klev_rec.ATTRIBUTE13 := l_klev_rec.ATTRIBUTE13;
5711: END IF;
5712:
5713: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5714: x_klev_rec.ATTRIBUTE14 := l_klev_rec.ATTRIBUTE14;
5715: END IF;
5716:
5717: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5713: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5714: x_klev_rec.ATTRIBUTE14 := l_klev_rec.ATTRIBUTE14;
5715: END IF;
5716:
5717: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5718: x_klev_rec.ATTRIBUTE15 := l_klev_rec.ATTRIBUTE15;
5719: END IF;
5720:
5721: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5717: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5718: x_klev_rec.ATTRIBUTE15 := l_klev_rec.ATTRIBUTE15;
5719: END IF;
5720:
5721: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5722: x_klev_rec.STY_ID_FOR := l_klev_rec.STY_ID_FOR;
5723: END IF;
5724:
5725: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5721: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5722: x_klev_rec.STY_ID_FOR := l_klev_rec.STY_ID_FOR;
5723: END IF;
5724:
5725: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5726: x_klev_rec.CLG_ID := l_klev_rec.CLG_ID;
5727: END IF;
5728:
5729: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5725: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5726: x_klev_rec.CLG_ID := l_klev_rec.CLG_ID;
5727: END IF;
5728:
5729: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5730: x_klev_rec.CREATED_BY := l_klev_rec.CREATED_BY;
5731: END IF;
5732:
5733: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5729: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5730: x_klev_rec.CREATED_BY := l_klev_rec.CREATED_BY;
5731: END IF;
5732:
5733: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5734: x_klev_rec.CREATION_DATE := l_klev_rec.CREATION_DATE;
5735: END IF;
5736:
5737: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5733: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5734: x_klev_rec.CREATION_DATE := l_klev_rec.CREATION_DATE;
5735: END IF;
5736:
5737: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5738: x_klev_rec.LAST_UPDATED_BY := l_klev_rec.LAST_UPDATED_BY;
5739: END IF;
5740:
5741: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5737: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5738: x_klev_rec.LAST_UPDATED_BY := l_klev_rec.LAST_UPDATED_BY;
5739: END IF;
5740:
5741: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5742: x_klev_rec.LAST_UPDATE_DATE := l_klev_rec.LAST_UPDATE_DATE;
5743: END IF;
5744:
5745: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5741: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5742: x_klev_rec.LAST_UPDATE_DATE := l_klev_rec.LAST_UPDATE_DATE;
5743: END IF;
5744:
5745: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5746: x_klev_rec.LAST_UPDATE_LOGIN := l_klev_rec.LAST_UPDATE_LOGIN;
5747: END IF;
5748:
5749: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5745: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5746: x_klev_rec.LAST_UPDATE_LOGIN := l_klev_rec.LAST_UPDATE_LOGIN;
5747: END IF;
5748:
5749: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5750: x_klev_rec.DATE_FUNDING := l_klev_rec.DATE_FUNDING;
5751: END IF;
5752:
5753: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5749: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5750: x_klev_rec.DATE_FUNDING := l_klev_rec.DATE_FUNDING;
5751: END IF;
5752:
5753: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5754: x_klev_rec.DATE_FUNDING_REQUIRED := l_klev_rec.DATE_FUNDING_REQUIRED;
5755: END IF;
5756:
5757: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5753: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5754: x_klev_rec.DATE_FUNDING_REQUIRED := l_klev_rec.DATE_FUNDING_REQUIRED;
5755: END IF;
5756:
5757: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5758: x_klev_rec.DATE_ACCEPTED := l_klev_rec.DATE_ACCEPTED;
5759: END IF;
5760:
5761: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5757: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5758: x_klev_rec.DATE_ACCEPTED := l_klev_rec.DATE_ACCEPTED;
5759: END IF;
5760:
5761: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5762: x_klev_rec.DATE_DELIVERY_EXPECTED := l_klev_rec.DATE_DELIVERY_EXPECTED;
5763: END IF;
5764:
5765: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5761: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5762: x_klev_rec.DATE_DELIVERY_EXPECTED := l_klev_rec.DATE_DELIVERY_EXPECTED;
5763: END IF;
5764:
5765: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5766: x_klev_rec.OEC := l_klev_rec.OEC;
5767: END IF;
5768:
5769: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5765: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5766: x_klev_rec.OEC := l_klev_rec.OEC;
5767: END IF;
5768:
5769: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5770: x_klev_rec.CAPITAL_AMOUNT := l_klev_rec.CAPITAL_AMOUNT;
5771: END IF;
5772:
5773: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5769: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5770: x_klev_rec.CAPITAL_AMOUNT := l_klev_rec.CAPITAL_AMOUNT;
5771: END IF;
5772:
5773: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5774: x_klev_rec.RESIDUAL_GRNTY_AMOUNT := l_klev_rec.RESIDUAL_GRNTY_AMOUNT;
5775: END IF;
5776:
5777: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5773: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5774: x_klev_rec.RESIDUAL_GRNTY_AMOUNT := l_klev_rec.RESIDUAL_GRNTY_AMOUNT;
5775: END IF;
5776:
5777: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5778: x_klev_rec.RESIDUAL_CODE := l_klev_rec.RESIDUAL_CODE;
5779: END IF;
5780:
5781: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5777: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5778: x_klev_rec.RESIDUAL_CODE := l_klev_rec.RESIDUAL_CODE;
5779: END IF;
5780:
5781: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5782: x_klev_rec.RVI_PREMIUM := l_klev_rec.RVI_PREMIUM;
5783: END IF;
5784:
5785: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5781: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5782: x_klev_rec.RVI_PREMIUM := l_klev_rec.RVI_PREMIUM;
5783: END IF;
5784:
5785: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5786: x_klev_rec.CREDIT_NATURE := l_klev_rec.CREDIT_NATURE;
5787: END IF;
5788:
5789: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5785: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5786: x_klev_rec.CREDIT_NATURE := l_klev_rec.CREDIT_NATURE;
5787: END IF;
5788:
5789: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5790: x_klev_rec.CAPITALIZED_INTEREST := l_klev_rec.CAPITALIZED_INTEREST;
5791: END IF;
5792:
5793: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5789: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5790: x_klev_rec.CAPITALIZED_INTEREST := l_klev_rec.CAPITALIZED_INTEREST;
5791: END IF;
5792:
5793: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5794: x_klev_rec.CAPITAL_REDUCTION_PERCENT := l_klev_rec.CAPITAL_REDUCTION_PERCENT;
5795: END IF;
5796:
5797: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5793: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5794: x_klev_rec.CAPITAL_REDUCTION_PERCENT := l_klev_rec.CAPITAL_REDUCTION_PERCENT;
5795: END IF;
5796:
5797: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5798: x_klev_rec.DATE_PAY_INVESTOR_START := l_klev_rec.DATE_PAY_INVESTOR_START;
5799: END IF;
5800:
5801: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5797: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5798: x_klev_rec.DATE_PAY_INVESTOR_START := l_klev_rec.DATE_PAY_INVESTOR_START;
5799: END IF;
5800:
5801: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5802: x_klev_rec.PAY_INVESTOR_FREQUENCY := l_klev_rec.PAY_INVESTOR_FREQUENCY;
5803: END IF;
5804:
5805: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5801: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5802: x_klev_rec.PAY_INVESTOR_FREQUENCY := l_klev_rec.PAY_INVESTOR_FREQUENCY;
5803: END IF;
5804:
5805: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5806: x_klev_rec.PAY_INVESTOR_EVENT := l_klev_rec.PAY_INVESTOR_EVENT;
5807: END IF;
5808:
5809: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5805: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5806: x_klev_rec.PAY_INVESTOR_EVENT := l_klev_rec.PAY_INVESTOR_EVENT;
5807: END IF;
5808:
5809: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5810: x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS;
5811: END IF;
5812: IF (x_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
5813: x_klev_rec.FEE_TYPE := l_klev_rec.FEE_TYPE;
5808:
5809: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5810: x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS;
5811: END IF;
5812: IF (x_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
5813: x_klev_rec.FEE_TYPE := l_klev_rec.FEE_TYPE;
5814: END IF;
5815: --Bug# 3143522: 11.5.10
5816: --subsidy
5940: FUNCTION Set_Attributes (
5941: p_klev_rec IN klev_rec_type,
5942: x_klev_rec OUT NOCOPY klev_rec_type
5943: ) RETURN VARCHAR2 IS
5944: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5945: BEGIN
5946: x_klev_rec := p_klev_rec;
5947: x_klev_rec.OBJECT_VERSION_NUMBER := NVL(x_klev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5948: RETURN(l_return_status);
5947: x_klev_rec.OBJECT_VERSION_NUMBER := NVL(x_klev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5948: RETURN(l_return_status);
5949: END Set_Attributes;
5950: BEGIN
5951: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5952: G_PKG_NAME,
5953: p_init_msg_list,
5954: l_api_version,
5955: p_api_version,
5955: p_api_version,
5956: '_PVT',
5957: x_return_status);
5958:
5959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5962: RAISE OKC_API.G_EXCEPTION_ERROR;
5963: END IF;
5956: '_PVT',
5957: x_return_status);
5958:
5959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5962: RAISE OKC_API.G_EXCEPTION_ERROR;
5963: END IF;
5964:
5957: x_return_status);
5958:
5959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5962: RAISE OKC_API.G_EXCEPTION_ERROR;
5963: END IF;
5964:
5965: --- Setting item attributes
5958:
5959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5962: RAISE OKC_API.G_EXCEPTION_ERROR;
5963: END IF;
5964:
5965: --- Setting item attributes
5966: l_return_status := Set_Attributes(
5967: p_klev_rec, -- IN
5968: l_klev_rec); -- OUT
5969: --- If any errors happen abort API
5970:
5971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5974: RAISE OKC_API.G_EXCEPTION_ERROR;
5975: END IF;
5968: l_klev_rec); -- OUT
5969: --- If any errors happen abort API
5970:
5971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5974: RAISE OKC_API.G_EXCEPTION_ERROR;
5975: END IF;
5976:
5969: --- If any errors happen abort API
5970:
5971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5974: RAISE OKC_API.G_EXCEPTION_ERROR;
5975: END IF;
5976:
5977: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5970:
5971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5974: RAISE OKC_API.G_EXCEPTION_ERROR;
5975: END IF;
5976:
5977: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5978:
5975: END IF;
5976:
5977: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5978:
5979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5982: RAISE OKC_API.G_EXCEPTION_ERROR;
5983: END IF;
5976:
5977: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5978:
5979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5982: RAISE OKC_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5977: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5978:
5979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5982: RAISE OKC_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5985: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
5978:
5979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5982: RAISE OKC_API.G_EXCEPTION_ERROR;
5983: END IF;
5984:
5985: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
5986: --- Validate all non-missing attributes (Item Level Validation)
5986: --- Validate all non-missing attributes (Item Level Validation)
5987: l_return_status := Validate_Attributes(l_def_klev_rec);
5988: --- If any errors happen abort API
5989:
5990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5993: RAISE OKC_API.G_EXCEPTION_ERROR;
5994: END IF;
5987: l_return_status := Validate_Attributes(l_def_klev_rec);
5988: --- If any errors happen abort API
5989:
5990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5993: RAISE OKC_API.G_EXCEPTION_ERROR;
5994: END IF;
5995:
5988: --- If any errors happen abort API
5989:
5990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5993: RAISE OKC_API.G_EXCEPTION_ERROR;
5994: END IF;
5995:
5996: l_return_status := Validate_Record(l_def_klev_rec);
5989:
5990: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5991: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5992: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5993: RAISE OKC_API.G_EXCEPTION_ERROR;
5994: END IF;
5995:
5996: l_return_status := Validate_Record(l_def_klev_rec);
5997:
5994: END IF;
5995:
5996: l_return_status := Validate_Record(l_def_klev_rec);
5997:
5998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6001: RAISE OKC_API.G_EXCEPTION_ERROR;
6002: END IF;
5995:
5996: l_return_status := Validate_Record(l_def_klev_rec);
5997:
5998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6001: RAISE OKC_API.G_EXCEPTION_ERROR;
6002: END IF;
6003:
5996: l_return_status := Validate_Record(l_def_klev_rec);
5997:
5998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6001: RAISE OKC_API.G_EXCEPTION_ERROR;
6002: END IF;
6003:
6004:
5997:
5998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6001: RAISE OKC_API.G_EXCEPTION_ERROR;
6002: END IF;
6003:
6004:
6005: --------------------------------------
6018: l_kle_rec,
6019: lx_kle_rec
6020: );
6021:
6022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_ERROR;
6026: END IF;
6019: lx_kle_rec
6020: );
6021:
6022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_ERROR;
6026: END IF;
6027:
6020: );
6021:
6022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_ERROR;
6026: END IF;
6027:
6028: migrate(lx_kle_rec, l_def_klev_rec);
6021:
6022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6025: RAISE OKC_API.G_EXCEPTION_ERROR;
6026: END IF;
6027:
6028: migrate(lx_kle_rec, l_def_klev_rec);
6029: x_klev_rec := l_def_klev_rec;
6026: END IF;
6027:
6028: migrate(lx_kle_rec, l_def_klev_rec);
6029: x_klev_rec := l_def_klev_rec;
6030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6031:
6032: EXCEPTION
6033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6029: x_klev_rec := l_def_klev_rec;
6030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6031:
6032: EXCEPTION
6033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6031:
6032: EXCEPTION
6033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6038: 'OKC_API.G_RET_STS_ERROR',
6034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6038: 'OKC_API.G_RET_STS_ERROR',
6039: x_msg_count,
6040: x_msg_data,
6041: '_PVT'
6042: );
6039: x_msg_count,
6040: x_msg_data,
6041: '_PVT'
6042: );
6043: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6040: x_msg_data,
6041: '_PVT'
6042: );
6043: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6049: x_msg_count,
6050: x_msg_data,
6051: '_PVT'
6052: );
6050: x_msg_data,
6051: '_PVT'
6052: );
6053: WHEN OTHERS THEN
6054: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6055: (
6056: l_api_name,
6057: G_PKG_NAME,
6058: 'OTHERS',
6077: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
6078:
6079: l_api_version CONSTANT NUMBER := 1;
6080: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
6081: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6082: i NUMBER := 0;
6083: BEGIN
6084: OKC_API.init_msg_list(p_init_msg_list);
6085: -- Make sure PL/SQL table has records in it before passing
6080: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
6081: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6082: i NUMBER := 0;
6083: BEGIN
6084: OKC_API.init_msg_list(p_init_msg_list);
6085: -- Make sure PL/SQL table has records in it before passing
6086: IF (p_klev_tbl.COUNT > 0) THEN
6087: i := p_klev_tbl.FIRST;
6088: LOOP
6087: i := p_klev_tbl.FIRST;
6088: LOOP
6089: update_row (
6090: p_api_version => p_api_version,
6091: p_init_msg_list => OKC_API.G_FALSE,
6092: x_return_status => x_return_status,
6093: x_msg_count => x_msg_count,
6094: x_msg_data => x_msg_data,
6095: p_klev_rec => p_klev_tbl(i),
6099: END LOOP;
6100: END IF;
6101:
6102: EXCEPTION
6103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6105: (
6106: l_api_name,
6107: G_PKG_NAME,
6100: END IF;
6101:
6102: EXCEPTION
6103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6105: (
6106: l_api_name,
6107: G_PKG_NAME,
6108: 'OKC_API.G_RET_STS_ERROR',
6104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6105: (
6106: l_api_name,
6107: G_PKG_NAME,
6108: 'OKC_API.G_RET_STS_ERROR',
6109: x_msg_count,
6110: x_msg_data,
6111: '_PVT'
6112: );
6109: x_msg_count,
6110: x_msg_data,
6111: '_PVT'
6112: );
6113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6110: x_msg_data,
6111: '_PVT'
6112: );
6113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6115: (
6116: l_api_name,
6117: G_PKG_NAME,
6118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6119: x_msg_count,
6120: x_msg_data,
6121: '_PVT'
6122: );
6120: x_msg_data,
6121: '_PVT'
6122: );
6123: WHEN OTHERS THEN
6124: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6125: (
6126: l_api_name,
6127: G_PKG_NAME,
6128: 'OTHERS',
6153: p_kle_rec IN kle_rec_type) IS
6154:
6155: l_api_version CONSTANT NUMBER := 1;
6156: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
6157: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6158: l_kle_rec kle_rec_type:= p_kle_rec;
6159: l_row_notfound BOOLEAN := TRUE;
6160: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
6161: lx_okl_k_lines_h_rec okl_k_lines_h_rec_type;
6159: l_row_notfound BOOLEAN := TRUE;
6160: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
6161: lx_okl_k_lines_h_rec okl_k_lines_h_rec_type;
6162: BEGIN
6163: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6164: p_init_msg_list,
6165: '_PVT',
6166: x_return_status);
6167:
6164: p_init_msg_list,
6165: '_PVT',
6166: x_return_status);
6167:
6168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6165: '_PVT',
6166: x_return_status);
6167:
6168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6166: x_return_status);
6167:
6168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: /*
6167:
6168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: /*
6175: -- Insert into History table
6174: /*
6175: -- Insert into History table
6176: l_kle_rec := get_rec(l_kle_rec, l_row_notfound);
6177: IF (l_row_notfound) THEN
6178: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6179: END IF;
6180: migrate(l_kle_rec, l_okl_k_lines_h_rec);
6181: insert_row(
6182: l_api_version,
6187: l_okl_k_lines_h_rec,
6188: lx_okl_k_lines_h_rec
6189: );
6190:
6191: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6194: RAISE OKC_API.G_EXCEPTION_ERROR;
6195: END IF;
6188: lx_okl_k_lines_h_rec
6189: );
6190:
6191: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6194: RAISE OKC_API.G_EXCEPTION_ERROR;
6195: END IF;
6196: */
6189: );
6190:
6191: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6194: RAISE OKC_API.G_EXCEPTION_ERROR;
6195: END IF;
6196: */
6197: DELETE FROM OKL_K_LINES
6190:
6191: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6194: RAISE OKC_API.G_EXCEPTION_ERROR;
6195: END IF;
6196: */
6197: DELETE FROM OKL_K_LINES
6198: WHERE ID = l_kle_rec.id;
6196: */
6197: DELETE FROM OKL_K_LINES
6198: WHERE ID = l_kle_rec.id;
6199:
6200: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6201:
6202: EXCEPTION
6203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6199:
6200: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6201:
6202: EXCEPTION
6203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6205: (
6206: l_api_name,
6207: G_PKG_NAME,
6200: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6201:
6202: EXCEPTION
6203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6205: (
6206: l_api_name,
6207: G_PKG_NAME,
6208: 'OKC_API.G_RET_STS_ERROR',
6204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6205: (
6206: l_api_name,
6207: G_PKG_NAME,
6208: 'OKC_API.G_RET_STS_ERROR',
6209: x_msg_count,
6210: x_msg_data,
6211: '_PVT'
6212: );
6209: x_msg_count,
6210: x_msg_data,
6211: '_PVT'
6212: );
6213: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6215: (
6216: l_api_name,
6217: G_PKG_NAME,
6210: x_msg_data,
6211: '_PVT'
6212: );
6213: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6215: (
6216: l_api_name,
6217: G_PKG_NAME,
6218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6215: (
6216: l_api_name,
6217: G_PKG_NAME,
6218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6219: x_msg_count,
6220: x_msg_data,
6221: '_PVT'
6222: );
6220: x_msg_data,
6221: '_PVT'
6222: );
6223: WHEN OTHERS THEN
6224: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6225: (
6226: l_api_name,
6227: G_PKG_NAME,
6228: 'OTHERS',
6243: p_klev_rec IN klev_rec_type) IS
6244:
6245: l_api_version CONSTANT NUMBER := 1;
6246: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
6247: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6248: l_klev_rec klev_rec_type := p_klev_rec;
6249: l_kle_rec kle_rec_type;
6250: BEGIN
6251: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6247: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6248: l_klev_rec klev_rec_type := p_klev_rec;
6249: l_kle_rec kle_rec_type;
6250: BEGIN
6251: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6252: G_PKG_NAME,
6253: p_init_msg_list,
6254: l_api_version,
6255: p_api_version,
6255: p_api_version,
6256: '_PVT',
6257: x_return_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6256: '_PVT',
6257: x_return_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6257: x_return_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6265: --------------------------------------
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6265: --------------------------------------
6266: -- Move VIEW record to "Child" records
6277: x_msg_data,
6278: l_kle_rec
6279: );
6280:
6281: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6282: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6283: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6284: RAISE OKC_API.G_EXCEPTION_ERROR;
6285: END IF;
6278: l_kle_rec
6279: );
6280:
6281: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6282: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6283: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6284: RAISE OKC_API.G_EXCEPTION_ERROR;
6285: END IF;
6286:
6279: );
6280:
6281: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6282: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6283: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6284: RAISE OKC_API.G_EXCEPTION_ERROR;
6285: END IF;
6286:
6287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6280:
6281: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6282: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6283: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6284: RAISE OKC_API.G_EXCEPTION_ERROR;
6285: END IF;
6286:
6287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6288:
6283: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6284: RAISE OKC_API.G_EXCEPTION_ERROR;
6285: END IF;
6286:
6287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6288:
6289: EXCEPTION
6290: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6291: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6286:
6287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6288:
6289: EXCEPTION
6290: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6291: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6292: (
6293: l_api_name,
6294: G_PKG_NAME,
6287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6288:
6289: EXCEPTION
6290: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6291: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6292: (
6293: l_api_name,
6294: G_PKG_NAME,
6295: 'OKC_API.G_RET_STS_ERROR',
6291: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6292: (
6293: l_api_name,
6294: G_PKG_NAME,
6295: 'OKC_API.G_RET_STS_ERROR',
6296: x_msg_count,
6297: x_msg_data,
6298: '_PVT'
6299: );
6296: x_msg_count,
6297: x_msg_data,
6298: '_PVT'
6299: );
6300: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6301: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6302: (
6303: l_api_name,
6304: G_PKG_NAME,
6297: x_msg_data,
6298: '_PVT'
6299: );
6300: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6301: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6302: (
6303: l_api_name,
6304: G_PKG_NAME,
6305: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6301: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6302: (
6303: l_api_name,
6304: G_PKG_NAME,
6305: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6306: x_msg_count,
6307: x_msg_data,
6308: '_PVT'
6309: );
6307: x_msg_data,
6308: '_PVT'
6309: );
6310: WHEN OTHERS THEN
6311: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6312: (
6313: l_api_name,
6314: G_PKG_NAME,
6315: 'OTHERS',
6333: p_klev_tbl IN klev_tbl_type) IS
6334:
6335: l_api_version CONSTANT NUMBER := 1;
6336: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
6337: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6338: i NUMBER := 0;
6339: BEGIN
6340: OKC_API.init_msg_list(p_init_msg_list);
6341: -- Make sure PL/SQL table has records in it before passing
6336: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
6337: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6338: i NUMBER := 0;
6339: BEGIN
6340: OKC_API.init_msg_list(p_init_msg_list);
6341: -- Make sure PL/SQL table has records in it before passing
6342: IF (p_klev_tbl.COUNT > 0) THEN
6343: i := p_klev_tbl.FIRST;
6344: LOOP
6343: i := p_klev_tbl.FIRST;
6344: LOOP
6345: delete_row (
6346: p_api_version => p_api_version,
6347: p_init_msg_list => OKC_API.G_FALSE,
6348: x_return_status => x_return_status,
6349: x_msg_count => x_msg_count,
6350: x_msg_data => x_msg_data,
6351: p_klev_rec => p_klev_tbl(i));
6354: END LOOP;
6355: END IF;
6356:
6357: EXCEPTION
6358: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6360: (
6361: l_api_name,
6362: G_PKG_NAME,
6355: END IF;
6356:
6357: EXCEPTION
6358: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6360: (
6361: l_api_name,
6362: G_PKG_NAME,
6363: 'OKC_API.G_RET_STS_ERROR',
6359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6360: (
6361: l_api_name,
6362: G_PKG_NAME,
6363: 'OKC_API.G_RET_STS_ERROR',
6364: x_msg_count,
6365: x_msg_data,
6366: '_PVT'
6367: );
6364: x_msg_count,
6365: x_msg_data,
6366: '_PVT'
6367: );
6368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6369: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6370: (
6371: l_api_name,
6372: G_PKG_NAME,
6365: x_msg_data,
6366: '_PVT'
6367: );
6368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6369: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6370: (
6371: l_api_name,
6372: G_PKG_NAME,
6373: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6369: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6370: (
6371: l_api_name,
6372: G_PKG_NAME,
6373: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6374: x_msg_count,
6375: x_msg_data,
6376: '_PVT'
6377: );
6375: x_msg_data,
6376: '_PVT'
6377: );
6378: WHEN OTHERS THEN
6379: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6380: (
6381: l_api_name,
6382: G_PKG_NAME,
6383: 'OTHERS',
6396: FUNCTION create_version(
6397: p_chr_id IN NUMBER,
6398: p_major_version IN NUMBER) RETURN VARCHAR2 IS
6399:
6400: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6401:
6402: BEGIN
6403: INSERT INTO OKL_K_LINES_H
6404: (
6702: EXCEPTION
6703: -- other appropriate handlers
6704: WHEN OTHERS THEN
6705: -- store SQL error message on message stack
6706: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
6707: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
6708: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
6709: p_token1_value => sqlcode,
6710: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6710: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6711: p_token2_value => sqlerrm);
6712:
6713: -- notify UNEXPECTED error
6714: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6715: return l_return_status;
6716: END create_version;
6717:
6718: FUNCTION restore_version(
6718: FUNCTION restore_version(
6719: p_chr_id IN NUMBER,
6720: p_major_version IN NUMBER) RETURN VARCHAR2 IS
6721:
6722: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6723:
6724: BEGIN
6725: INSERT INTO OKL_K_LINES
6726: (
7024: EXCEPTION
7025: -- other appropriate handlers
7026: WHEN OTHERS THEN
7027: -- store SQL error message on message stack
7028: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
7029: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
7030: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
7031: p_token1_value => sqlcode,
7032: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
7032: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
7033: p_token2_value => sqlerrm);
7034:
7035: -- notify UNEXPECTED error
7036: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7037: return l_return_status;
7038: END restore_version;
7039:
7040: