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: --Bug# 3973640 :
228: -- Start of comments
237: p_klev_rec IN klev_rec_type
238: ) is
239: begin
240: -- initialize return status
241: x_return_status := OKC_API.G_RET_STS_SUCCESS;
242:
243: -- nulls are allowed
244: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
245: -- Check if the value is a valid code from lookup table
240: -- initialize return status
241: x_return_status := OKC_API.G_RET_STS_SUCCESS;
242:
243: -- nulls are allowed
244: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
245: -- Check if the value is a valid code from lookup table
246: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
247: p_klev_rec.STREAM_TYPE_SUBCLASS);
248: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
244: if (p_klev_rec.STREAM_TYPE_SUBCLASS <> OKC_API.G_MISS_CHAR) OR (p_klev_rec.STREAM_TYPE_SUBCLASS IS NOT NULL) then
245: -- Check if the value is a valid code from lookup table
246: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
247: p_klev_rec.STREAM_TYPE_SUBCLASS);
248: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
249: --set error message in message stack
250: OKC_API.SET_MESSAGE(
251: p_app_name => G_APP_NAME,
252: p_msg_name => G_INVALID_VALUE,
246: x_return_status := OKC_UTIL.check_lookup_code('OKL_STREAM_TYPE_SUBCLASS',
247: p_klev_rec.STREAM_TYPE_SUBCLASS);
248: If (x_return_status = OKC_API.G_RET_STS_ERROR) Then
249: --set error message in message stack
250: OKC_API.SET_MESSAGE(
251: p_app_name => G_APP_NAME,
252: p_msg_name => G_INVALID_VALUE,
253: p_token1 => G_COL_NAME_TOKEN,
254: p_token1_value => 'STREAM_TYPE_SUBCLASS');
252: p_msg_name => G_INVALID_VALUE,
253: p_token1 => G_COL_NAME_TOKEN,
254: p_token1_value => 'STREAM_TYPE_SUBCLASS');
255: raise G_EXCEPTION_HALT_VALIDATION;
256: Elsif (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
257: raise G_EXCEPTION_HALT_VALIDATION;
258: End If;
259:
260: end if;
264: null;
265:
266: when OTHERS then
267: -- store SQL error message on message stack for caller
268: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
269: p_msg_name => G_UNEXPECTED_ERROR,
270: p_token1 => g_sqlcode_token,
271: p_token1_value => sqlcode,
272: p_token2 => g_sqlerrm_token,
271: p_token1_value => sqlcode,
272: p_token2 => g_sqlerrm_token,
273: p_token2_value => sqlerrm);
274: -- notify caller of an error
275: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
276: end validate_strm_subclass;
277:
278: --Bug# 4558486: start
279: -- Start of comments
362: p_klev_rec IN klev_rec_type
363: ) is
364: begin
365: -- initialize return status
366: x_return_status := OKC_API.G_RET_STS_SUCCESS;
367:
368: -- data is required
369: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
370: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
365: -- initialize return status
366: x_return_status := OKC_API.G_RET_STS_SUCCESS;
367:
368: -- data is required
369: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
370: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
371:
372: -- notify caller of an error
373: x_return_status := OKC_API.G_RET_STS_ERROR;
366: x_return_status := OKC_API.G_RET_STS_SUCCESS;
367:
368: -- data is required
369: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
370: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
371:
372: -- notify caller of an error
373: x_return_status := OKC_API.G_RET_STS_ERROR;
374:
369: if (p_klev_rec.ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.ID IS NULL) then
370: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
371:
372: -- notify caller of an error
373: x_return_status := OKC_API.G_RET_STS_ERROR;
374:
375: -- halt further validation of this column
376: raise G_EXCEPTION_HALT_VALIDATION;
377: end if;
381: null;
382:
383: when OTHERS then
384: -- store SQL error message on message stack for caller
385: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
386: p_msg_name => G_UNEXPECTED_ERROR,
387: p_token1 => g_sqlcode_token,
388: p_token1_value => sqlcode,
389: p_token2 => g_sqlerrm_token,
388: p_token1_value => sqlcode,
389: p_token2 => g_sqlerrm_token,
390: p_token2_value => sqlerrm);
391: -- notify caller of an error
392: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
393: end validate_ID;
394:
395: -- Start of comments
396: --
404: p_klev_rec IN klev_rec_type
405: ) is
406: begin
407: -- initialize return status
408: x_return_status := OKC_API.G_RET_STS_SUCCESS;
409:
410: -- data is required
411: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
412: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
407: -- initialize return status
408: x_return_status := OKC_API.G_RET_STS_SUCCESS;
409:
410: -- data is required
411: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
412: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
413:
414: -- notify caller of an error
415: x_return_status := OKC_API.G_RET_STS_ERROR;
408: x_return_status := OKC_API.G_RET_STS_SUCCESS;
409:
410: -- data is required
411: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
412: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
413:
414: -- notify caller of an error
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416:
411: if (p_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) OR (p_klev_rec.OBJECT_VERSION_NUMBER IS NULL) then
412: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'OBJECT_VERSION_NUMBER');
413:
414: -- notify caller of an error
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416:
417: -- halt further validation of this column
418: raise G_EXCEPTION_HALT_VALIDATION;
419: end if;
423: null;
424:
425: when OTHERS then
426: -- store SQL error message on message stack for caller
427: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
428: p_msg_name => G_UNEXPECTED_ERROR,
429: p_token1 => g_sqlcode_token,
430: p_token1_value => sqlcode,
431: p_token2 => g_sqlerrm_token,
430: p_token1_value => sqlcode,
431: p_token2 => g_sqlerrm_token,
432: p_token2_value => sqlerrm);
433: -- notify caller of an error
434: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
435: end validate_OBJECT_VERSION_NUMBER;
436:
437: -- Start of comments
438: --
446: p_klev_rec IN klev_rec_type
447: ) is
448: begin
449: -- initialize return status
450: x_return_status := OKC_API.G_RET_STS_SUCCESS;
451:
452: -- data is required
453: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
454: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
449: -- initialize return status
450: x_return_status := OKC_API.G_RET_STS_SUCCESS;
451:
452: -- data is required
453: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
454: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
455:
456: -- notify caller of an error
457: x_return_status := OKC_API.G_RET_STS_ERROR;
450: x_return_status := OKC_API.G_RET_STS_SUCCESS;
451:
452: -- data is required
453: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
454: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
455:
456: -- notify caller of an error
457: x_return_status := OKC_API.G_RET_STS_ERROR;
458:
453: if (p_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) OR (p_klev_rec.CLG_ID IS NULL) then
454: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CLG_ID');
455:
456: -- notify caller of an error
457: x_return_status := OKC_API.G_RET_STS_ERROR;
458:
459: -- halt further validation of this column
460: raise G_EXCEPTION_HALT_VALIDATION;
461: end if;
465: null;
466:
467: when OTHERS then
468: -- store SQL error message on message stack for caller
469: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
470: p_msg_name => G_UNEXPECTED_ERROR,
471: p_token1 => g_sqlcode_token,
472: p_token1_value => sqlcode,
473: p_token2 => g_sqlerrm_token,
472: p_token1_value => sqlcode,
473: p_token2 => g_sqlerrm_token,
474: p_token2_value => sqlerrm);
475: -- notify caller of an error
476: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
477: end validate_CLG_ID;
478: --Bug# 3143522 : 11.5.10 Subsidies
479: -------------------------------------------
480: --validate attributes for subsidy_id
527: ---------------------------------------------
528: FUNCTION Validate_Attributes (
529: p_klev_rec IN klev_rec_type
530: ) RETURN VARCHAR2 IS
531: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
532: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
533: BEGIN
534:
535:
528: FUNCTION Validate_Attributes (
529: p_klev_rec IN klev_rec_type
530: ) RETURN VARCHAR2 IS
531: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
532: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
533: BEGIN
534:
535:
536: -- call each column-level validation
540: validate_ID(x_return_status => l_return_status,
541: p_klev_rec => p_klev_rec);
542:
543: -- store the highest degree of error
544: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
545: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
546: x_return_status := l_return_status;
547: end if;
548: end if;
541: p_klev_rec => p_klev_rec);
542:
543: -- store the highest degree of error
544: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
545: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
546: x_return_status := l_return_status;
547: end if;
548: end if;
549: */
550: validate_OBJECT_VERSION_NUMBER(x_return_status => l_return_status,
551: p_klev_rec => p_klev_rec);
552:
553: -- store the highest degree of error
554: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
555: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
556: x_return_status := l_return_status;
557: end if;
558: end if;
551: p_klev_rec => p_klev_rec);
552:
553: -- store the highest degree of error
554: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
555: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
556: x_return_status := l_return_status;
557: end if;
558: end if;
559: /*
560: validate_CLG_ID(x_return_status => l_return_status,
561: p_klev_rec => p_klev_rec);
562:
563: -- store the highest degree of error
564: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
565: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
566: x_return_status := l_return_status;
567: end if;
568: end if;
561: p_klev_rec => p_klev_rec);
562:
563: -- store the highest degree of error
564: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
565: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
566: x_return_status := l_return_status;
567: end if;
568: end if;
569: */
571: validate_CREDIT_TENANT_YN(x_return_status => l_return_status,
572: p_klev_rec => p_klev_rec);
573:
574: -- store the highest degree of error
575: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
576: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
577: x_return_status := l_return_status;
578: end if;
579: end if;
572: p_klev_rec => p_klev_rec);
573:
574: -- store the highest degree of error
575: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
576: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
577: x_return_status := l_return_status;
578: end if;
579: end if;
580:
581: validate_PRESCRIBED_ASSET_YN(x_return_status => l_return_status,
582: p_klev_rec => p_klev_rec);
583:
584: -- store the highest degree of error
585: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
586: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
587: x_return_status := l_return_status;
588: end if;
589: end if;
582: p_klev_rec => p_klev_rec);
583:
584: -- store the highest degree of error
585: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
586: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
587: x_return_status := l_return_status;
588: end if;
589: end if;
590:
591: validate_SECURED_DEAL_YN(x_return_status => l_return_status,
592: p_klev_rec => p_klev_rec);
593:
594: -- store the highest degree of error
595: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
596: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
597: x_return_status := l_return_status;
598: end if;
599: end if;
592: p_klev_rec => p_klev_rec);
593:
594: -- store the highest degree of error
595: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
596: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
597: x_return_status := l_return_status;
598: end if;
599: end if;
600:
601: validate_RE_LEASE_YN(x_return_status => l_return_status,
602: p_klev_rec => p_klev_rec);
603:
604: -- store the highest degree of error
605: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
606: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
607: x_return_status := l_return_status;
608: end if;
609: end if;
602: p_klev_rec => p_klev_rec);
603:
604: -- store the highest degree of error
605: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
606: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
607: x_return_status := l_return_status;
608: end if;
609: end if;
610:
612: validate_FEE_TYPE(x_return_status => l_return_status,
613: p_klev_rec => p_klev_rec);
614:
615: -- store the highest degree of error
616: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
617: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
618: x_return_status := l_return_status;
619: end if;
620: end if;
613: p_klev_rec => p_klev_rec);
614:
615: -- store the highest degree of error
616: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
617: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
618: x_return_status := l_return_status;
619: end if;
620: end if;
621:
625: validate_SUBSIDY_ID(x_return_status => l_return_status,
626: p_klev_rec => p_klev_rec);
627:
628: -- store the highest degree of error
629: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
630: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
631: x_return_status := l_return_status;
632: end if;
633: end if;
626: p_klev_rec => p_klev_rec);
627:
628: -- store the highest degree of error
629: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
630: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
631: x_return_status := l_return_status;
632: end if;
633: end if;
634: -------------------------
641: validate_strm_subclass(x_return_status => l_return_status,
642: p_klev_rec => p_klev_rec);
643:
644: -- store the highest degree of error
645: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
646: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
647: x_return_status := l_return_status;
648: end if;
649: end if;
642: p_klev_rec => p_klev_rec);
643:
644: -- store the highest degree of error
645: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
646: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
647: x_return_status := l_return_status;
648: end if;
649: end if;
650: ------------------------
660: (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: end if;
672: return x_return_status;
673: exception
674: when OTHERS then
675: -- store SQL error message on message stack for caller
676: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
677: p_msg_name => G_UNEXPECTED_ERROR,
678: p_token1 => g_sqlcode_token,
679: p_token1_value => sqlcode,
680: p_token2 => g_sqlerrm_token,
679: p_token1_value => sqlcode,
680: p_token2 => g_sqlerrm_token,
681: p_token2_value => sqlerrm);
682: -- notify caller of an error
683: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
684: -- return status to caller
685: return x_return_status;
686: END Validate_Attributes;
687:
1673: ) RETURN klev_rec_type IS
1674: l_klev_rec klev_rec_type := p_klev_rec;
1675: BEGIN
1676:
1677: IF (l_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
1678: l_klev_rec.ID := NULL;
1679: END IF;
1680:
1681: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1677: IF (l_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
1678: l_klev_rec.ID := NULL;
1679: END IF;
1680:
1681: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1682: l_klev_rec.OBJECT_VERSION_NUMBER := NULL;
1683: END IF;
1684:
1685: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1681: IF (l_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
1682: l_klev_rec.OBJECT_VERSION_NUMBER := NULL;
1683: END IF;
1684:
1685: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1686: l_klev_rec.KLE_ID := NULL;
1687: END IF;
1688:
1689: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1685: IF (l_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
1686: l_klev_rec.KLE_ID := NULL;
1687: END IF;
1688:
1689: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1690: l_klev_rec.STY_ID := NULL;
1691: END IF;
1692:
1693: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1689: IF (l_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
1690: l_klev_rec.STY_ID := NULL;
1691: END IF;
1692:
1693: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1694: l_klev_rec.PRC_CODE := NULL;
1695: END IF;
1696:
1697: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1693: IF (l_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
1694: l_klev_rec.PRC_CODE := NULL;
1695: END IF;
1696:
1697: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1698: l_klev_rec.FCG_CODE := NULL;
1699: END IF;
1700:
1701: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1697: IF (l_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
1698: l_klev_rec.FCG_CODE := NULL;
1699: END IF;
1700:
1701: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1702: l_klev_rec.NTY_CODE := NULL;
1703: END IF;
1704:
1705: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1701: IF (l_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
1702: l_klev_rec.NTY_CODE := NULL;
1703: END IF;
1704:
1705: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1706: l_klev_rec.ESTIMATED_OEC := NULL;
1707: END IF;
1708:
1709: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1705: IF (l_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
1706: l_klev_rec.ESTIMATED_OEC := NULL;
1707: END IF;
1708:
1709: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1710: l_klev_rec.LAO_AMOUNT := NULL;
1711: END IF;
1712:
1713: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1709: IF (l_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
1710: l_klev_rec.LAO_AMOUNT := NULL;
1711: END IF;
1712:
1713: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1714: l_klev_rec.TITLE_DATE := NULL;
1715: END IF;
1716:
1717: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1713: IF (l_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
1714: l_klev_rec.TITLE_DATE := NULL;
1715: END IF;
1716:
1717: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1718: l_klev_rec.FEE_CHARGE := NULL;
1719: END IF;
1720:
1721: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1717: IF (l_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
1718: l_klev_rec.FEE_CHARGE := NULL;
1719: END IF;
1720:
1721: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1722: l_klev_rec.LRS_PERCENT := NULL;
1723: END IF;
1724:
1725: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1721: IF (l_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
1722: l_klev_rec.LRS_PERCENT := NULL;
1723: END IF;
1724:
1725: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1726: l_klev_rec.INITIAL_DIRECT_COST := NULL;
1727: END IF;
1728:
1729: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1725: IF (l_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
1726: l_klev_rec.INITIAL_DIRECT_COST := NULL;
1727: END IF;
1728:
1729: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1730: l_klev_rec.PERCENT_STAKE := NULL;
1731: END IF;
1732:
1733: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1729: IF (l_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
1730: l_klev_rec.PERCENT_STAKE := NULL;
1731: END IF;
1732:
1733: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1734: l_klev_rec.PERCENT := NULL;
1735: END IF;
1736:
1737: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1733: IF (l_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
1734: l_klev_rec.PERCENT := NULL;
1735: END IF;
1736:
1737: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1738: l_klev_rec.EVERGREEN_PERCENT := NULL;
1739: END IF;
1740:
1741: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1737: IF (l_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
1738: l_klev_rec.EVERGREEN_PERCENT := NULL;
1739: END IF;
1740:
1741: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1742: l_klev_rec.AMOUNT_STAKE := NULL;
1743: END IF;
1744:
1745: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1741: IF (l_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
1742: l_klev_rec.AMOUNT_STAKE := NULL;
1743: END IF;
1744:
1745: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1746: l_klev_rec.OCCUPANCY := NULL;
1747: END IF;
1748:
1749: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1745: IF (l_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
1746: l_klev_rec.OCCUPANCY := NULL;
1747: END IF;
1748:
1749: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1750: l_klev_rec.COVERAGE := NULL;
1751: END IF;
1752:
1753: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1749: IF (l_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
1750: l_klev_rec.COVERAGE := NULL;
1751: END IF;
1752:
1753: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1754: l_klev_rec.RESIDUAL_PERCENTAGE := NULL;
1755: END IF;
1756:
1757: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1753: IF (l_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
1754: l_klev_rec.RESIDUAL_PERCENTAGE := NULL;
1755: END IF;
1756:
1757: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1758: l_klev_rec.DATE_LAST_INSPECTION := NULL;
1759: END IF;
1760:
1761: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1757: IF (l_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
1758: l_klev_rec.DATE_LAST_INSPECTION := NULL;
1759: END IF;
1760:
1761: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1762: l_klev_rec.DATE_SOLD := NULL;
1763: END IF;
1764:
1765: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1761: IF (l_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
1762: l_klev_rec.DATE_SOLD := NULL;
1763: END IF;
1764:
1765: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1766: l_klev_rec.LRV_AMOUNT := NULL;
1767: END IF;
1768:
1769: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1765: IF (l_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
1766: l_klev_rec.LRV_AMOUNT := NULL;
1767: END IF;
1768:
1769: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1770: l_klev_rec.CAPITAL_REDUCTION := NULL;
1771: END IF;
1772:
1773: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1769: IF (l_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
1770: l_klev_rec.CAPITAL_REDUCTION := NULL;
1771: END IF;
1772:
1773: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1774: l_klev_rec.DATE_NEXT_INSPECTION_DUE := NULL;
1775: END IF;
1776:
1777: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1773: IF (l_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
1774: l_klev_rec.DATE_NEXT_INSPECTION_DUE := NULL;
1775: END IF;
1776:
1777: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1778: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW := NULL;
1779: END IF;
1780:
1781: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1777: IF (l_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
1778: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW := NULL;
1779: END IF;
1780:
1781: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1782: l_klev_rec.DATE_LAST_REAMORTISATION := NULL;
1783: END IF;
1784:
1785: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1781: IF (l_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
1782: l_klev_rec.DATE_LAST_REAMORTISATION := NULL;
1783: END IF;
1784:
1785: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1786: l_klev_rec.VENDOR_ADVANCE_PAID := NULL;
1787: END IF;
1788:
1789: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1785: IF (l_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
1786: l_klev_rec.VENDOR_ADVANCE_PAID := NULL;
1787: END IF;
1788:
1789: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1790: l_klev_rec.WEIGHTED_AVERAGE_LIFE := NULL;
1791: END IF;
1792:
1793: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1789: IF (l_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
1790: l_klev_rec.WEIGHTED_AVERAGE_LIFE := NULL;
1791: END IF;
1792:
1793: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1794: l_klev_rec.TRADEIN_AMOUNT := NULL;
1795: END IF;
1796:
1797: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1793: IF (l_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
1794: l_klev_rec.TRADEIN_AMOUNT := NULL;
1795: END IF;
1796:
1797: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1798: l_klev_rec.BOND_EQUIVALENT_YIELD := NULL;
1799: END IF;
1800:
1801: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1797: IF (l_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
1798: l_klev_rec.BOND_EQUIVALENT_YIELD := NULL;
1799: END IF;
1800:
1801: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1802: l_klev_rec.TERMINATION_PURCHASE_AMOUNT := NULL;
1803: END IF;
1804:
1805: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1801: IF (l_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1802: l_klev_rec.TERMINATION_PURCHASE_AMOUNT := NULL;
1803: END IF;
1804:
1805: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1806: l_klev_rec.REFINANCE_AMOUNT := NULL;
1807: END IF;
1808:
1809: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1805: IF (l_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
1806: l_klev_rec.REFINANCE_AMOUNT := NULL;
1807: END IF;
1808:
1809: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1810: l_klev_rec.YEAR_BUILT := NULL;
1811: END IF;
1812:
1813: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1809: IF (l_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
1810: l_klev_rec.YEAR_BUILT := NULL;
1811: END IF;
1812:
1813: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1814: l_klev_rec.DELIVERED_DATE := NULL;
1815: END IF;
1816:
1817: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1813: IF (l_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
1814: l_klev_rec.DELIVERED_DATE := NULL;
1815: END IF;
1816:
1817: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1818: l_klev_rec.CREDIT_TENANT_YN := NULL;
1819: END IF;
1820:
1821: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1817: IF (l_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
1818: l_klev_rec.CREDIT_TENANT_YN := NULL;
1819: END IF;
1820:
1821: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1822: l_klev_rec.DATE_LAST_CLEANUP := NULL;
1823: END IF;
1824:
1825: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1821: IF (l_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
1822: l_klev_rec.DATE_LAST_CLEANUP := NULL;
1823: END IF;
1824:
1825: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1826: l_klev_rec.YEAR_OF_MANUFACTURE := NULL;
1827: END IF;
1828:
1829: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1825: IF (l_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
1826: l_klev_rec.YEAR_OF_MANUFACTURE := NULL;
1827: END IF;
1828:
1829: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1830: l_klev_rec.COVERAGE_RATIO := NULL;
1831: END IF;
1832:
1833: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1829: IF (l_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
1830: l_klev_rec.COVERAGE_RATIO := NULL;
1831: END IF;
1832:
1833: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1834: l_klev_rec.REMARKETED_AMOUNT := NULL;
1835: END IF;
1836:
1837: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1833: IF (l_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1834: l_klev_rec.REMARKETED_AMOUNT := NULL;
1835: END IF;
1836:
1837: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1838: l_klev_rec.GROSS_SQUARE_FOOTAGE := NULL;
1839: END IF;
1840:
1841: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1837: IF (l_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
1838: l_klev_rec.GROSS_SQUARE_FOOTAGE := NULL;
1839: END IF;
1840:
1841: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1842: l_klev_rec.PRESCRIBED_ASSET_YN := NULL;
1843: END IF;
1844:
1845: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1841: IF (l_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
1842: l_klev_rec.PRESCRIBED_ASSET_YN := NULL;
1843: END IF;
1844:
1845: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1846: l_klev_rec.DATE_REMARKETED := NULL;
1847: END IF;
1848:
1849: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1845: IF (l_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
1846: l_klev_rec.DATE_REMARKETED := NULL;
1847: END IF;
1848:
1849: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1850: l_klev_rec.NET_RENTABLE := NULL;
1851: END IF;
1852:
1853: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1849: IF (l_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
1850: l_klev_rec.NET_RENTABLE := NULL;
1851: END IF;
1852:
1853: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1854: l_klev_rec.REMARKET_MARGIN := NULL;
1855: END IF;
1856:
1857: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1853: IF (l_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
1854: l_klev_rec.REMARKET_MARGIN := NULL;
1855: END IF;
1856:
1857: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1858: l_klev_rec.DATE_LETTER_ACCEPTANCE := NULL;
1859: END IF;
1860:
1861: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1857: IF (l_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
1858: l_klev_rec.DATE_LETTER_ACCEPTANCE := NULL;
1859: END IF;
1860:
1861: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1862: l_klev_rec.REPURCHASED_AMOUNT := NULL;
1863: END IF;
1864:
1865: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1861: IF (l_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
1862: l_klev_rec.REPURCHASED_AMOUNT := NULL;
1863: END IF;
1864:
1865: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1866: l_klev_rec.DATE_COMMITMENT_EXPIRATION := NULL;
1867: END IF;
1868:
1869: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1865: IF (l_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
1866: l_klev_rec.DATE_COMMITMENT_EXPIRATION := NULL;
1867: END IF;
1868:
1869: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1870: l_klev_rec.DATE_REPURCHASED := NULL;
1871: END IF;
1872:
1873: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1869: IF (l_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
1870: l_klev_rec.DATE_REPURCHASED := NULL;
1871: END IF;
1872:
1873: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1874: l_klev_rec.DATE_APPRAISAL := NULL;
1875: END IF;
1876:
1877: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1873: IF (l_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
1874: l_klev_rec.DATE_APPRAISAL := NULL;
1875: END IF;
1876:
1877: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1878: l_klev_rec.RESIDUAL_VALUE := NULL;
1879: END IF;
1880:
1881: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1877: IF (l_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
1878: l_klev_rec.RESIDUAL_VALUE := NULL;
1879: END IF;
1880:
1881: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1882: l_klev_rec.APPRAISAL_VALUE := NULL;
1883: END IF;
1884:
1885: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1881: IF (l_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
1882: l_klev_rec.APPRAISAL_VALUE := NULL;
1883: END IF;
1884:
1885: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1886: l_klev_rec.SECURED_DEAL_YN := NULL;
1887: END IF;
1888:
1889: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1885: IF (l_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
1886: l_klev_rec.SECURED_DEAL_YN := NULL;
1887: END IF;
1888:
1889: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1890: l_klev_rec.GAIN_LOSS := NULL;
1891: END IF;
1892:
1893: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1889: IF (l_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
1890: l_klev_rec.GAIN_LOSS := NULL;
1891: END IF;
1892:
1893: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1894: l_klev_rec.FLOOR_AMOUNT := NULL;
1895: END IF;
1896:
1897: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1893: IF (l_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
1894: l_klev_rec.FLOOR_AMOUNT := NULL;
1895: END IF;
1896:
1897: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1898: l_klev_rec.RE_LEASE_YN := NULL;
1899: END IF;
1900:
1901: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1897: IF (l_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
1898: l_klev_rec.RE_LEASE_YN := NULL;
1899: END IF;
1900:
1901: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1902: l_klev_rec.PREVIOUS_CONTRACT := NULL;
1903: END IF;
1904:
1905: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
1901: IF (l_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
1902: l_klev_rec.PREVIOUS_CONTRACT := NULL;
1903: END IF;
1904:
1905: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
1906: l_klev_rec.TRACKED_RESIDUAL := NULL;
1907: END IF;
1908:
1909: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
1905: IF (l_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
1906: l_klev_rec.TRACKED_RESIDUAL := NULL;
1907: END IF;
1908:
1909: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
1910: l_klev_rec.DATE_TITLE_RECEIVED := NULL;
1911: END IF;
1912:
1913: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
1909: IF (l_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
1910: l_klev_rec.DATE_TITLE_RECEIVED := NULL;
1911: END IF;
1912:
1913: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
1914: l_klev_rec.AMOUNT := NULL;
1915: END IF;
1916:
1917: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1913: IF (l_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
1914: l_klev_rec.AMOUNT := NULL;
1915: END IF;
1916:
1917: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1918: l_klev_rec.ATTRIBUTE_CATEGORY := NULL;
1919: END IF;
1920:
1921: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1917: IF (l_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
1918: l_klev_rec.ATTRIBUTE_CATEGORY := NULL;
1919: END IF;
1920:
1921: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1922: l_klev_rec.ATTRIBUTE1 := NULL;
1923: END IF;
1924:
1925: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1921: IF (l_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
1922: l_klev_rec.ATTRIBUTE1 := NULL;
1923: END IF;
1924:
1925: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1926: l_klev_rec.ATTRIBUTE2 := NULL;
1927: END IF;
1928:
1929: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1925: IF (l_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
1926: l_klev_rec.ATTRIBUTE2 := NULL;
1927: END IF;
1928:
1929: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1930: l_klev_rec.ATTRIBUTE3 := NULL;
1931: END IF;
1932:
1933: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1929: IF (l_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
1930: l_klev_rec.ATTRIBUTE3 := NULL;
1931: END IF;
1932:
1933: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1934: l_klev_rec.ATTRIBUTE4 := NULL;
1935: END IF;
1936:
1937: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1933: IF (l_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
1934: l_klev_rec.ATTRIBUTE4 := NULL;
1935: END IF;
1936:
1937: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1938: l_klev_rec.ATTRIBUTE5 := NULL;
1939: END IF;
1940:
1941: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1937: IF (l_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
1938: l_klev_rec.ATTRIBUTE5 := NULL;
1939: END IF;
1940:
1941: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1942: l_klev_rec.ATTRIBUTE6 := NULL;
1943: END IF;
1944:
1945: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1941: IF (l_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
1942: l_klev_rec.ATTRIBUTE6 := NULL;
1943: END IF;
1944:
1945: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1946: l_klev_rec.ATTRIBUTE7 := NULL;
1947: END IF;
1948:
1949: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1945: IF (l_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
1946: l_klev_rec.ATTRIBUTE7 := NULL;
1947: END IF;
1948:
1949: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1950: l_klev_rec.ATTRIBUTE8 := NULL;
1951: END IF;
1952:
1953: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1949: IF (l_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
1950: l_klev_rec.ATTRIBUTE8 := NULL;
1951: END IF;
1952:
1953: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1954: l_klev_rec.ATTRIBUTE9 := NULL;
1955: END IF;
1956:
1957: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1953: IF (l_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
1954: l_klev_rec.ATTRIBUTE9 := NULL;
1955: END IF;
1956:
1957: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1958: l_klev_rec.ATTRIBUTE10 := NULL;
1959: END IF;
1960:
1961: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1957: IF (l_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
1958: l_klev_rec.ATTRIBUTE10 := NULL;
1959: END IF;
1960:
1961: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1962: l_klev_rec.ATTRIBUTE11 := NULL;
1963: END IF;
1964:
1965: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1961: IF (l_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
1962: l_klev_rec.ATTRIBUTE11 := NULL;
1963: END IF;
1964:
1965: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1966: l_klev_rec.ATTRIBUTE12 := NULL;
1967: END IF;
1968:
1969: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1965: IF (l_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
1966: l_klev_rec.ATTRIBUTE12 := NULL;
1967: END IF;
1968:
1969: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1970: l_klev_rec.ATTRIBUTE13 := NULL;
1971: END IF;
1972:
1973: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
1969: IF (l_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
1970: l_klev_rec.ATTRIBUTE13 := NULL;
1971: END IF;
1972:
1973: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
1974: l_klev_rec.ATTRIBUTE14 := NULL;
1975: END IF;
1976:
1977: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
1973: IF (l_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
1974: l_klev_rec.ATTRIBUTE14 := NULL;
1975: END IF;
1976:
1977: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
1978: l_klev_rec.ATTRIBUTE15 := NULL;
1979: END IF;
1980:
1981: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
1977: IF (l_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
1978: l_klev_rec.ATTRIBUTE15 := NULL;
1979: END IF;
1980:
1981: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
1982: l_klev_rec.STY_ID_FOR := NULL;
1983: END IF;
1984:
1985: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
1981: IF (l_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
1982: l_klev_rec.STY_ID_FOR := NULL;
1983: END IF;
1984:
1985: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
1986: l_klev_rec.CLG_ID := NULL;
1987: END IF;
1988:
1989: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
1985: IF (l_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
1986: l_klev_rec.CLG_ID := NULL;
1987: END IF;
1988:
1989: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
1990: l_klev_rec.CREATED_BY := NULL;
1991: END IF;
1992:
1993: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
1989: IF (l_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
1990: l_klev_rec.CREATED_BY := NULL;
1991: END IF;
1992:
1993: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
1994: l_klev_rec.CREATION_DATE := NULL;
1995: END IF;
1996:
1997: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
1993: IF (l_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
1994: l_klev_rec.CREATION_DATE := NULL;
1995: END IF;
1996:
1997: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
1998: l_klev_rec.LAST_UPDATED_BY := NULL;
1999: END IF;
2000:
2001: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
1997: IF (l_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
1998: l_klev_rec.LAST_UPDATED_BY := NULL;
1999: END IF;
2000:
2001: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2002: l_klev_rec.LAST_UPDATE_DATE := NULL;
2003: END IF;
2004:
2005: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2001: IF (l_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
2002: l_klev_rec.LAST_UPDATE_DATE := NULL;
2003: END IF;
2004:
2005: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2006: l_klev_rec.LAST_UPDATE_LOGIN := NULL;
2007: END IF;
2008:
2009: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2005: IF (l_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
2006: l_klev_rec.LAST_UPDATE_LOGIN := NULL;
2007: END IF;
2008:
2009: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2010: l_klev_rec.DATE_FUNDING := NULL;
2011: END IF;
2012:
2013: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2009: IF (l_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
2010: l_klev_rec.DATE_FUNDING := NULL;
2011: END IF;
2012:
2013: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2014: l_klev_rec.DATE_FUNDING_REQUIRED := NULL;
2015: END IF;
2016:
2017: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2013: IF (l_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
2014: l_klev_rec.DATE_FUNDING_REQUIRED := NULL;
2015: END IF;
2016:
2017: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2018: l_klev_rec.DATE_ACCEPTED := NULL;
2019: END IF;
2020:
2021: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2017: IF (l_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
2018: l_klev_rec.DATE_ACCEPTED := NULL;
2019: END IF;
2020:
2021: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2022: l_klev_rec.DATE_DELIVERY_EXPECTED := NULL;
2023: END IF;
2024:
2025: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2021: IF (l_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
2022: l_klev_rec.DATE_DELIVERY_EXPECTED := NULL;
2023: END IF;
2024:
2025: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2026: l_klev_rec.OEC := NULL;
2027: END IF;
2028:
2029: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2025: IF (l_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
2026: l_klev_rec.OEC := NULL;
2027: END IF;
2028:
2029: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2030: l_klev_rec.CAPITAL_AMOUNT := NULL;
2031: END IF;
2032:
2033: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2029: IF (l_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
2030: l_klev_rec.CAPITAL_AMOUNT := NULL;
2031: END IF;
2032:
2033: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2034: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := NULL;
2035: END IF;
2036:
2037: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2033: IF (l_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
2034: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := NULL;
2035: END IF;
2036:
2037: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2038: l_klev_rec.RESIDUAL_CODE := NULL;
2039: END IF;
2040:
2041: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2037: IF (l_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
2038: l_klev_rec.RESIDUAL_CODE := NULL;
2039: END IF;
2040:
2041: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2042: l_klev_rec.RVI_PREMIUM := NULL;
2043: END IF;
2044:
2045: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2041: IF (l_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
2042: l_klev_rec.RVI_PREMIUM := NULL;
2043: END IF;
2044:
2045: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2046: l_klev_rec.CREDIT_NATURE := NULL;
2047: END IF;
2048:
2049: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2045: IF (l_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
2046: l_klev_rec.CREDIT_NATURE := NULL;
2047: END IF;
2048:
2049: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2050: l_klev_rec.CAPITALIZED_INTEREST := NULL;
2051: END IF;
2052:
2053: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2049: IF (l_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
2050: l_klev_rec.CAPITALIZED_INTEREST := NULL;
2051: END IF;
2052:
2053: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2054: l_klev_rec.CAPITAL_REDUCTION_PERCENT := NULL;
2055: END IF;
2056:
2057: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2053: IF (l_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
2054: l_klev_rec.CAPITAL_REDUCTION_PERCENT := NULL;
2055: END IF;
2056:
2057: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2058: l_klev_rec.DATE_PAY_INVESTOR_START := NULL;
2059: END IF;
2060:
2061: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2057: IF (l_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
2058: l_klev_rec.DATE_PAY_INVESTOR_START := NULL;
2059: END IF;
2060:
2061: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2062: l_klev_rec.PAY_INVESTOR_FREQUENCY := NULL;
2063: END IF;
2064:
2065: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2061: IF (l_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
2062: l_klev_rec.PAY_INVESTOR_FREQUENCY := NULL;
2063: END IF;
2064:
2065: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2066: l_klev_rec.PAY_INVESTOR_EVENT := NULL;
2067: END IF;
2068:
2069: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2065: IF (l_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
2066: l_klev_rec.PAY_INVESTOR_EVENT := NULL;
2067: END IF;
2068:
2069: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2070: l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := NULL;
2071: END IF;
2072:
2073: IF (l_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
2069: IF (l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
2070: l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := NULL;
2071: END IF;
2072:
2073: IF (l_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
2074: l_klev_rec.FEE_TYPE := NULL;
2075: END IF;
2076: --Bug# 3143522: 11.5.10
2077: --subsidy
2188: -----------------------------------------
2189: FUNCTION Validate_Record (
2190: p_klev_rec IN klev_rec_type
2191: ) RETURN VARCHAR2 IS
2192: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2193: BEGIN
2194: RETURN (l_return_status);
2195: END Validate_Record;
2196:
2951: p_klev_rec IN klev_rec_type) IS
2952:
2953: l_api_version CONSTANT NUMBER := 1;
2954: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
2955: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2956: l_klev_rec klev_rec_type := p_klev_rec;
2957: BEGIN
2958: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2959: G_PKG_NAME,
2954: l_api_name CONSTANT VARCHAR2(30) := 'rec_validate_row';
2955: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2956: l_klev_rec klev_rec_type := p_klev_rec;
2957: BEGIN
2958: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2959: G_PKG_NAME,
2960: p_init_msg_list,
2961: l_api_version,
2962: p_api_version,
2962: p_api_version,
2963: '_PVT',
2964: x_return_status);
2965:
2966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2969: RAISE OKC_API.G_EXCEPTION_ERROR;
2970: END IF;
2963: '_PVT',
2964: x_return_status);
2965:
2966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2969: RAISE OKC_API.G_EXCEPTION_ERROR;
2970: END IF;
2971:
2964: x_return_status);
2965:
2966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2969: RAISE OKC_API.G_EXCEPTION_ERROR;
2970: END IF;
2971:
2972:
2965:
2966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2969: RAISE OKC_API.G_EXCEPTION_ERROR;
2970: END IF;
2971:
2972:
2973: --- Validate all non-missing attributes (Item Level Validation)
2973: --- Validate all non-missing attributes (Item Level Validation)
2974: l_return_status := Validate_Attributes(l_klev_rec);
2975: --- If any errors happen abort API
2976:
2977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_ERROR;
2981: END IF;
2974: l_return_status := Validate_Attributes(l_klev_rec);
2975: --- If any errors happen abort API
2976:
2977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_ERROR;
2981: END IF;
2982:
2975: --- If any errors happen abort API
2976:
2977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_ERROR;
2981: END IF;
2982:
2983:
2976:
2977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_ERROR;
2981: END IF;
2982:
2983:
2984: l_return_status := Validate_Record(l_klev_rec);
2982:
2983:
2984: l_return_status := Validate_Record(l_klev_rec);
2985:
2986: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_ERROR;
2990: END IF;
2983:
2984: l_return_status := Validate_Record(l_klev_rec);
2985:
2986: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_ERROR;
2990: END IF;
2991:
2984: l_return_status := Validate_Record(l_klev_rec);
2985:
2986: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_ERROR;
2990: END IF;
2991:
2992:
2985:
2986: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_ERROR;
2990: END IF;
2991:
2992:
2993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2989: RAISE OKC_API.G_EXCEPTION_ERROR;
2990: END IF;
2991:
2992:
2993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2994:
2995: EXCEPTION
2996: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2992:
2993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2994:
2995: EXCEPTION
2996: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
2993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2994:
2995: EXCEPTION
2996: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
3001: 'OKC_API.G_RET_STS_ERROR',
2997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
3001: 'OKC_API.G_RET_STS_ERROR',
3002: x_msg_count,
3003: x_msg_data,
3004: '_PVT'
3005: );
3002: x_msg_count,
3003: x_msg_data,
3004: '_PVT'
3005: );
3006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3003: x_msg_data,
3004: '_PVT'
3005: );
3006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3011: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3011: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3012: x_msg_count,
3013: x_msg_data,
3014: '_PVT'
3015: );
3013: x_msg_data,
3014: '_PVT'
3015: );
3016: WHEN OTHERS THEN
3017: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3021: 'OTHERS',
3039: p_klev_tbl IN klev_tbl_type) IS
3040:
3041: l_api_version CONSTANT NUMBER := 1;
3042: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
3043: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3044: i NUMBER := 0;
3045: BEGIN
3046: OKC_API.init_msg_list(p_init_msg_list);
3047: -- Make sure PL/SQL table has records in it before passing
3042: l_api_name CONSTANT VARCHAR2(30) := 'tbl_validate_row';
3043: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3044: i NUMBER := 0;
3045: BEGIN
3046: OKC_API.init_msg_list(p_init_msg_list);
3047: -- Make sure PL/SQL table has records in it before passing
3048: IF (p_klev_tbl.COUNT > 0) THEN
3049: i := p_klev_tbl.FIRST;
3050: LOOP
3049: i := p_klev_tbl.FIRST;
3050: LOOP
3051: validate_row (
3052: p_api_version => p_api_version,
3053: p_init_msg_list => OKC_API.G_FALSE,
3054: x_return_status => x_return_status,
3055: x_msg_count => x_msg_count,
3056: x_msg_data => x_msg_data,
3057: p_klev_rec => p_klev_tbl(i));
3060: END LOOP;
3061: END IF;
3062:
3063: EXCEPTION
3064: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3066: (
3067: l_api_name,
3068: G_PKG_NAME,
3061: END IF;
3062:
3063: EXCEPTION
3064: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3066: (
3067: l_api_name,
3068: G_PKG_NAME,
3069: 'OKC_API.G_RET_STS_ERROR',
3065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3066: (
3067: l_api_name,
3068: G_PKG_NAME,
3069: 'OKC_API.G_RET_STS_ERROR',
3070: x_msg_count,
3071: x_msg_data,
3072: '_PVT'
3073: );
3070: x_msg_count,
3071: x_msg_data,
3072: '_PVT'
3073: );
3074: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3076: (
3077: l_api_name,
3078: G_PKG_NAME,
3071: x_msg_data,
3072: '_PVT'
3073: );
3074: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3076: (
3077: l_api_name,
3078: G_PKG_NAME,
3079: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3076: (
3077: l_api_name,
3078: G_PKG_NAME,
3079: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3080: x_msg_count,
3081: x_msg_data,
3082: '_PVT'
3083: );
3081: x_msg_data,
3082: '_PVT'
3083: );
3084: WHEN OTHERS THEN
3085: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3086: (
3087: l_api_name,
3088: G_PKG_NAME,
3089: 'OTHERS',
3115: x_okl_k_lines_h_rec OUT NOCOPY okl_k_lines_h_rec_type) IS
3116:
3117: l_api_version CONSTANT NUMBER := 1;
3118: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3120: l_okl_k_lines_h_rec okl_k_lines_h_rec_type := p_okl_k_lines_h_rec;
3121: l_def_okl_k_lines_h_rec okl_k_lines_h_rec_type;
3122: ----------------------------------------
3123: -- Set_Attributes for: OKL_K_LINES_H --
3125: FUNCTION Set_Attributes (
3126: p_okl_k_lines_h_rec IN okl_k_lines_h_rec_type,
3127: x_okl_k_lines_h_rec OUT NOCOPY okl_k_lines_h_rec_type
3128: ) RETURN VARCHAR2 IS
3129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3130: BEGIN
3131: x_okl_k_lines_h_rec := p_okl_k_lines_h_rec;
3132: RETURN(l_return_status);
3133: END Set_Attributes;
3132: RETURN(l_return_status);
3133: END Set_Attributes;
3134: BEGIN
3135:
3136: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3137: p_init_msg_list,
3138: '_PVT',
3139: x_return_status);
3140:
3137: p_init_msg_list,
3138: '_PVT',
3139: x_return_status);
3140:
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3138: '_PVT',
3139: x_return_status);
3140:
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3139: x_return_status);
3140:
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3147: --- Setting item attributes
3140:
3141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_ERROR;
3145: END IF;
3146:
3147: --- Setting item attributes
3148: l_return_status := Set_Attributes(
3149: p_okl_k_lines_h_rec, -- IN
3150: l_okl_k_lines_h_rec); -- OUT
3151: --- If any errors happen abort API
3152:
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3150: l_okl_k_lines_h_rec); -- OUT
3151: --- If any errors happen abort API
3152:
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158:
3151: --- If any errors happen abort API
3152:
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158:
3159: INSERT INTO OKL_K_LINES_H(
3152:
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158:
3159: INSERT INTO OKL_K_LINES_H(
3160: ID,
3443:
3444: );
3445: -- Set OUT values
3446: x_okl_k_lines_h_rec := l_okl_k_lines_h_rec;
3447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3448:
3449: EXCEPTION
3450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3446: x_okl_k_lines_h_rec := l_okl_k_lines_h_rec;
3447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3448:
3449: EXCEPTION
3450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3452: (
3453: l_api_name,
3454: G_PKG_NAME,
3447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3448:
3449: EXCEPTION
3450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3452: (
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OKC_API.G_RET_STS_ERROR',
3451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3452: (
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OKC_API.G_RET_STS_ERROR',
3456: x_msg_count,
3457: x_msg_data,
3458: '_PVT'
3459: );
3456: x_msg_count,
3457: x_msg_data,
3458: '_PVT'
3459: );
3460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3461: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3462: (
3463: l_api_name,
3464: G_PKG_NAME,
3457: x_msg_data,
3458: '_PVT'
3459: );
3460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3461: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3462: (
3463: l_api_name,
3464: G_PKG_NAME,
3465: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3461: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3462: (
3463: l_api_name,
3464: G_PKG_NAME,
3465: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3466: x_msg_count,
3467: x_msg_data,
3468: '_PVT'
3469: );
3467: x_msg_data,
3468: '_PVT'
3469: );
3470: WHEN OTHERS THEN
3471: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3472: (
3473: l_api_name,
3474: G_PKG_NAME,
3475: 'OTHERS',
3495: x_kle_rec OUT NOCOPY kle_rec_type) IS
3496:
3497: l_api_version CONSTANT NUMBER := 1;
3498: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3499: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3500: l_kle_rec kle_rec_type := p_kle_rec;
3501: l_def_kle_rec kle_rec_type;
3502: ----------------------------------------
3503: -- Set_Attributes for: OKL_K_LINES --
3505: FUNCTION Set_Attributes (
3506: p_kle_rec IN kle_rec_type,
3507: x_kle_rec OUT NOCOPY kle_rec_type
3508: ) RETURN VARCHAR2 IS
3509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3510: BEGIN
3511: x_kle_rec := p_kle_rec;
3512: RETURN(l_return_status);
3513: END Set_Attributes;
3512: RETURN(l_return_status);
3513: END Set_Attributes;
3514: BEGIN
3515:
3516: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3517: p_init_msg_list,
3518: '_PVT',
3519: x_return_status);
3520:
3517: p_init_msg_list,
3518: '_PVT',
3519: x_return_status);
3520:
3521: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3524: RAISE OKC_API.G_EXCEPTION_ERROR;
3525: END IF;
3518: '_PVT',
3519: x_return_status);
3520:
3521: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3524: RAISE OKC_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3519: x_return_status);
3520:
3521: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3524: RAISE OKC_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3527: --- Setting item attributes
3520:
3521: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3524: RAISE OKC_API.G_EXCEPTION_ERROR;
3525: END IF;
3526:
3527: --- Setting item attributes
3528: l_return_status := Set_Attributes(
3529: p_kle_rec, -- IN
3530: l_kle_rec); -- OUT
3531: --- If any errors happen abort API
3532:
3533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3536: RAISE OKC_API.G_EXCEPTION_ERROR;
3537: END IF;
3530: l_kle_rec); -- OUT
3531: --- If any errors happen abort API
3532:
3533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3536: RAISE OKC_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3531: --- If any errors happen abort API
3532:
3533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3536: RAISE OKC_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3539: INSERT INTO OKL_K_LINES(
3532:
3533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3536: RAISE OKC_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3539: INSERT INTO OKL_K_LINES(
3540: ID,
3819: l_kle_rec.EXPECTED_ASSET_COST
3820: );
3821: -- Set OUT values
3822: x_kle_rec := l_kle_rec;
3823: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3824:
3825: EXCEPTION
3826: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3827: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3822: x_kle_rec := l_kle_rec;
3823: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3824:
3825: EXCEPTION
3826: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3827: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3828: (
3829: l_api_name,
3830: G_PKG_NAME,
3823: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3824:
3825: EXCEPTION
3826: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3827: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3828: (
3829: l_api_name,
3830: G_PKG_NAME,
3831: 'OKC_API.G_RET_STS_ERROR',
3827: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3828: (
3829: l_api_name,
3830: G_PKG_NAME,
3831: 'OKC_API.G_RET_STS_ERROR',
3832: x_msg_count,
3833: x_msg_data,
3834: '_PVT'
3835: );
3832: x_msg_count,
3833: x_msg_data,
3834: '_PVT'
3835: );
3836: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3837: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3838: (
3839: l_api_name,
3840: G_PKG_NAME,
3833: x_msg_data,
3834: '_PVT'
3835: );
3836: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3837: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3838: (
3839: l_api_name,
3840: G_PKG_NAME,
3841: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3837: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3838: (
3839: l_api_name,
3840: G_PKG_NAME,
3841: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3842: x_msg_count,
3843: x_msg_data,
3844: '_PVT'
3845: );
3843: x_msg_data,
3844: '_PVT'
3845: );
3846: WHEN OTHERS THEN
3847: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3851: 'OTHERS',
3871: x_klev_rec OUT NOCOPY klev_rec_type) IS
3872:
3873: l_api_version CONSTANT NUMBER := 1;
3874: l_api_name CONSTANT VARCHAR2(30) := 'rec_insert_row';
3875: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3876: l_klev_rec klev_rec_type;
3877: l_def_klev_rec klev_rec_type;
3878: l_kle_rec kle_rec_type;
3879: lx_kle_rec kle_rec_type;
3898: FUNCTION Set_Attributes (
3899: p_klev_rec IN klev_rec_type,
3900: x_klev_rec OUT NOCOPY klev_rec_type
3901: ) RETURN VARCHAR2 IS
3902: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3903: BEGIN
3904: x_klev_rec := p_klev_rec;
3905: x_klev_rec.OBJECT_VERSION_NUMBER := 1;
3906: RETURN(l_return_status);
3905: x_klev_rec.OBJECT_VERSION_NUMBER := 1;
3906: RETURN(l_return_status);
3907: END Set_Attributes;
3908: BEGIN
3909: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3910: G_PKG_NAME,
3911: p_init_msg_list,
3912: l_api_version,
3913: p_api_version,
3913: p_api_version,
3914: '_PVT',
3915: x_return_status);
3916:
3917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3920: RAISE OKC_API.G_EXCEPTION_ERROR;
3921: END IF;
3914: '_PVT',
3915: x_return_status);
3916:
3917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3920: RAISE OKC_API.G_EXCEPTION_ERROR;
3921: END IF;
3922:
3915: x_return_status);
3916:
3917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3920: RAISE OKC_API.G_EXCEPTION_ERROR;
3921: END IF;
3922:
3923: l_klev_rec := null_out_defaults(p_klev_rec);
3916:
3917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3920: RAISE OKC_API.G_EXCEPTION_ERROR;
3921: END IF;
3922:
3923: l_klev_rec := null_out_defaults(p_klev_rec);
3924:
3933: l_klev_rec, -- IN
3934: l_def_klev_rec); -- OUT
3935: --- If any errors happen abort API
3936:
3937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3940: RAISE OKC_API.G_EXCEPTION_ERROR;
3941: END IF;
3934: l_def_klev_rec); -- OUT
3935: --- If any errors happen abort API
3936:
3937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3940: RAISE OKC_API.G_EXCEPTION_ERROR;
3941: END IF;
3942:
3935: --- If any errors happen abort API
3936:
3937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3940: RAISE OKC_API.G_EXCEPTION_ERROR;
3941: END IF;
3942:
3943: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
3936:
3937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3940: RAISE OKC_API.G_EXCEPTION_ERROR;
3941: END IF;
3942:
3943: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
3944: --- Validate all non-missing attributes (Item Level Validation)
3944: --- Validate all non-missing attributes (Item Level Validation)
3945: l_return_status := Validate_Attributes(l_def_klev_rec);
3946: --- If any errors happen abort API
3947:
3948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3945: l_return_status := Validate_Attributes(l_def_klev_rec);
3946: --- If any errors happen abort API
3947:
3948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953:
3946: --- If any errors happen abort API
3947:
3948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953:
3954: l_return_status := Validate_Record(l_def_klev_rec);
3947:
3948: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953:
3954: l_return_status := Validate_Record(l_def_klev_rec);
3955:
3952: END IF;
3953:
3954: l_return_status := Validate_Record(l_def_klev_rec);
3955:
3956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3959: RAISE OKC_API.G_EXCEPTION_ERROR;
3960: END IF;
3953:
3954: l_return_status := Validate_Record(l_def_klev_rec);
3955:
3956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3959: RAISE OKC_API.G_EXCEPTION_ERROR;
3960: END IF;
3961:
3954: l_return_status := Validate_Record(l_def_klev_rec);
3955:
3956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3959: RAISE OKC_API.G_EXCEPTION_ERROR;
3960: END IF;
3961:
3962: --------------------------------------
3955:
3956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3959: RAISE OKC_API.G_EXCEPTION_ERROR;
3960: END IF;
3961:
3962: --------------------------------------
3963: -- Move VIEW record to "Child" records
3975: l_kle_rec,
3976: lx_kle_rec
3977: );
3978:
3979: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_ERROR;
3983: END IF;
3976: lx_kle_rec
3977: );
3978:
3979: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3977: );
3978:
3979: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3985: migrate(lx_kle_rec, l_def_klev_rec);
3978:
3979: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3985: migrate(lx_kle_rec, l_def_klev_rec);
3986: -- Set OUT values
3984:
3985: migrate(lx_kle_rec, l_def_klev_rec);
3986: -- Set OUT values
3987: x_klev_rec := l_def_klev_rec;
3988: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989:
3990: EXCEPTION
3991: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3987: x_klev_rec := l_def_klev_rec;
3988: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989:
3990: EXCEPTION
3991: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3993: (
3994: l_api_name,
3995: G_PKG_NAME,
3988: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3989:
3990: EXCEPTION
3991: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3993: (
3994: l_api_name,
3995: G_PKG_NAME,
3996: 'OKC_API.G_RET_STS_ERROR',
3992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3993: (
3994: l_api_name,
3995: G_PKG_NAME,
3996: 'OKC_API.G_RET_STS_ERROR',
3997: x_msg_count,
3998: x_msg_data,
3999: '_PVT'
4000: );
3997: x_msg_count,
3998: x_msg_data,
3999: '_PVT'
4000: );
4001: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4004: l_api_name,
4005: G_PKG_NAME,
3998: x_msg_data,
3999: '_PVT'
4000: );
4001: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4004: l_api_name,
4005: G_PKG_NAME,
4006: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4004: l_api_name,
4005: G_PKG_NAME,
4006: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4007: x_msg_count,
4008: x_msg_data,
4009: '_PVT'
4010: );
4008: x_msg_data,
4009: '_PVT'
4010: );
4011: WHEN OTHERS THEN
4012: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4013: (
4014: l_api_name,
4015: G_PKG_NAME,
4016: 'OTHERS',
4036: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
4037:
4038: l_api_version CONSTANT NUMBER := 1;
4039: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
4040: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4041: i NUMBER := 0;
4042: BEGIN
4043: OKC_API.init_msg_list(p_init_msg_list);
4044: -- Make sure PL/SQL table has records in it before passing
4039: l_api_name CONSTANT VARCHAR2(30) := 'tbl_insert_row';
4040: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4041: i NUMBER := 0;
4042: BEGIN
4043: OKC_API.init_msg_list(p_init_msg_list);
4044: -- Make sure PL/SQL table has records in it before passing
4045: IF (p_klev_tbl.COUNT > 0) THEN
4046: i := p_klev_tbl.FIRST;
4047: LOOP
4046: i := p_klev_tbl.FIRST;
4047: LOOP
4048: insert_row (
4049: p_api_version => p_api_version,
4050: p_init_msg_list => OKC_API.G_FALSE,
4051: x_return_status => x_return_status,
4052: x_msg_count => x_msg_count,
4053: x_msg_data => x_msg_data,
4054: p_klev_rec => p_klev_tbl(i),
4058: END LOOP;
4059: END IF;
4060:
4061: EXCEPTION
4062: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4064: (
4065: l_api_name,
4066: G_PKG_NAME,
4059: END IF;
4060:
4061: EXCEPTION
4062: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4064: (
4065: l_api_name,
4066: G_PKG_NAME,
4067: 'OKC_API.G_RET_STS_ERROR',
4063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4064: (
4065: l_api_name,
4066: G_PKG_NAME,
4067: 'OKC_API.G_RET_STS_ERROR',
4068: x_msg_count,
4069: x_msg_data,
4070: '_PVT'
4071: );
4068: x_msg_count,
4069: x_msg_data,
4070: '_PVT'
4071: );
4072: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4069: x_msg_data,
4070: '_PVT'
4071: );
4072: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4078: x_msg_count,
4079: x_msg_data,
4080: '_PVT'
4081: );
4079: x_msg_data,
4080: '_PVT'
4081: );
4082: WHEN OTHERS THEN
4083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4084: (
4085: l_api_name,
4086: G_PKG_NAME,
4087: 'OTHERS',
4124: FROM OKL_K_LINES
4125: WHERE ID = p_kle_rec.id;
4126: l_api_version CONSTANT NUMBER := 1;
4127: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4128: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4129: l_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4130: lc_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4131: l_row_notfound BOOLEAN := FALSE;
4132: lc_row_notfound BOOLEAN := FALSE;
4130: lc_object_version_number OKL_K_LINES.OBJECT_VERSION_NUMBER%TYPE;
4131: l_row_notfound BOOLEAN := FALSE;
4132: lc_row_notfound BOOLEAN := FALSE;
4133: BEGIN
4134: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4135: p_init_msg_list,
4136: '_PVT',
4137: x_return_status);
4138:
4135: p_init_msg_list,
4136: '_PVT',
4137: x_return_status);
4138:
4139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4142: RAISE OKC_API.G_EXCEPTION_ERROR;
4143: END IF;
4136: '_PVT',
4137: x_return_status);
4138:
4139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4142: RAISE OKC_API.G_EXCEPTION_ERROR;
4143: END IF;
4144:
4137: x_return_status);
4138:
4139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4142: RAISE OKC_API.G_EXCEPTION_ERROR;
4143: END IF;
4144:
4145: BEGIN
4138:
4139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4142: RAISE OKC_API.G_EXCEPTION_ERROR;
4143: END IF;
4144:
4145: BEGIN
4146: OPEN lock_csr(p_kle_rec);
4151: WHEN E_Resource_Busy THEN
4152: IF (lock_csr%ISOPEN) THEN
4153: CLOSE lock_csr;
4154: END IF;
4155: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
4156: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
4157: END;
4158:
4159: IF ( l_row_notfound ) THEN
4162: lc_row_notfound := lchk_csr%NOTFOUND;
4163: CLOSE lchk_csr;
4164: END IF;
4165: IF (lc_row_notfound) THEN
4166: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4163: CLOSE lchk_csr;
4164: END IF;
4165: IF (lc_row_notfound) THEN
4166: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4165: IF (lc_row_notfound) THEN
4166: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4166: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4174: ELSIF lc_object_version_number = -1 THEN
4168: ELSIF lc_object_version_number > p_kle_rec.object_version_number THEN
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4174: ELSIF lc_object_version_number = -1 THEN
4175: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4176: RAISE OKC_API.G_EXCEPTION_ERROR;
4169: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4170: RAISE OKC_API.G_EXCEPTION_ERROR;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4174: ELSIF lc_object_version_number = -1 THEN
4175: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4176: RAISE OKC_API.G_EXCEPTION_ERROR;
4177: END IF;
4171: ELSIF lc_object_version_number <> p_kle_rec.object_version_number THEN
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4174: ELSIF lc_object_version_number = -1 THEN
4175: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4176: RAISE OKC_API.G_EXCEPTION_ERROR;
4177: END IF;
4178: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4179:
4172: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
4173: RAISE OKC_API.G_EXCEPTION_ERROR;
4174: ELSIF lc_object_version_number = -1 THEN
4175: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4176: RAISE OKC_API.G_EXCEPTION_ERROR;
4177: END IF;
4178: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4179:
4180: EXCEPTION
4174: ELSIF lc_object_version_number = -1 THEN
4175: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
4176: RAISE OKC_API.G_EXCEPTION_ERROR;
4177: END IF;
4178: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4179:
4180: EXCEPTION
4181: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4177: END IF;
4178: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4179:
4180: EXCEPTION
4181: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4178: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4179:
4180: EXCEPTION
4181: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKC_API.G_RET_STS_ERROR',
4182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKC_API.G_RET_STS_ERROR',
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT'
4190: );
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT'
4190: );
4191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4192: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4193: (
4194: l_api_name,
4195: G_PKG_NAME,
4188: x_msg_data,
4189: '_PVT'
4190: );
4191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4192: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4193: (
4194: l_api_name,
4195: G_PKG_NAME,
4196: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4192: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4193: (
4194: l_api_name,
4195: G_PKG_NAME,
4196: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4197: x_msg_count,
4198: x_msg_data,
4199: '_PVT'
4200: );
4198: x_msg_data,
4199: '_PVT'
4200: );
4201: WHEN OTHERS THEN
4202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4203: (
4204: l_api_name,
4205: G_PKG_NAME,
4206: 'OTHERS',
4225: p_klev_rec IN klev_rec_type) IS
4226:
4227: l_api_version CONSTANT NUMBER := 1;
4228: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4229: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4230: l_kle_rec kle_rec_type;
4231: BEGIN
4232: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4233: G_PKG_NAME,
4228: l_api_name CONSTANT VARCHAR2(30) := 'rec_lock_row';
4229: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4230: l_kle_rec kle_rec_type;
4231: BEGIN
4232: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4233: G_PKG_NAME,
4234: p_init_msg_list,
4235: l_api_version,
4236: p_api_version,
4236: p_api_version,
4237: '_PVT',
4238: x_return_status);
4239:
4240: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4243: RAISE OKC_API.G_EXCEPTION_ERROR;
4244: END IF;
4237: '_PVT',
4238: x_return_status);
4239:
4240: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4243: RAISE OKC_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4238: x_return_status);
4239:
4240: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4243: RAISE OKC_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4246: --------------------------------------
4239:
4240: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4243: RAISE OKC_API.G_EXCEPTION_ERROR;
4244: END IF;
4245:
4246: --------------------------------------
4247: -- Move VIEW record to "Child" records
4258: x_msg_data,
4259: l_kle_rec
4260: );
4261:
4262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4265: RAISE OKC_API.G_EXCEPTION_ERROR;
4266: END IF;
4259: l_kle_rec
4260: );
4261:
4262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4265: RAISE OKC_API.G_EXCEPTION_ERROR;
4266: END IF;
4267:
4260: );
4261:
4262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4265: RAISE OKC_API.G_EXCEPTION_ERROR;
4266: END IF;
4267:
4268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4261:
4262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4265: RAISE OKC_API.G_EXCEPTION_ERROR;
4266: END IF;
4267:
4268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4269:
4264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4265: RAISE OKC_API.G_EXCEPTION_ERROR;
4266: END IF;
4267:
4268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4269:
4270: EXCEPTION
4271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4267:
4268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4269:
4270: EXCEPTION
4271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4273: (
4274: l_api_name,
4275: G_PKG_NAME,
4268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4269:
4270: EXCEPTION
4271: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4273: (
4274: l_api_name,
4275: G_PKG_NAME,
4276: 'OKC_API.G_RET_STS_ERROR',
4272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4273: (
4274: l_api_name,
4275: G_PKG_NAME,
4276: 'OKC_API.G_RET_STS_ERROR',
4277: x_msg_count,
4278: x_msg_data,
4279: '_PVT'
4280: );
4277: x_msg_count,
4278: x_msg_data,
4279: '_PVT'
4280: );
4281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4283: (
4284: l_api_name,
4285: G_PKG_NAME,
4278: x_msg_data,
4279: '_PVT'
4280: );
4281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4283: (
4284: l_api_name,
4285: G_PKG_NAME,
4286: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4283: (
4284: l_api_name,
4285: G_PKG_NAME,
4286: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4287: x_msg_count,
4288: x_msg_data,
4289: '_PVT'
4290: );
4288: x_msg_data,
4289: '_PVT'
4290: );
4291: WHEN OTHERS THEN
4292: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4293: (
4294: l_api_name,
4295: G_PKG_NAME,
4296: 'OTHERS',
4314: p_klev_tbl IN klev_tbl_type) IS
4315:
4316: l_api_version CONSTANT NUMBER := 1;
4317: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
4318: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4319: i NUMBER := 0;
4320: BEGIN
4321: OKC_API.init_msg_list(p_init_msg_list);
4322: -- Make sure PL/SQL table has records in it before passing
4317: l_api_name CONSTANT VARCHAR2(30) := 'tbl_lock_row';
4318: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4319: i NUMBER := 0;
4320: BEGIN
4321: OKC_API.init_msg_list(p_init_msg_list);
4322: -- Make sure PL/SQL table has records in it before passing
4323: IF (p_klev_tbl.COUNT > 0) THEN
4324: i := p_klev_tbl.FIRST;
4325: LOOP
4324: i := p_klev_tbl.FIRST;
4325: LOOP
4326: lock_row (
4327: p_api_version => p_api_version,
4328: p_init_msg_list => OKC_API.G_FALSE,
4329: x_return_status => x_return_status,
4330: x_msg_count => x_msg_count,
4331: x_msg_data => x_msg_data,
4332: p_klev_rec => p_klev_tbl(i));
4335: END LOOP;
4336: END IF;
4337:
4338: EXCEPTION
4339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4336: END IF;
4337:
4338: EXCEPTION
4339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4344: 'OKC_API.G_RET_STS_ERROR',
4340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4344: 'OKC_API.G_RET_STS_ERROR',
4345: x_msg_count,
4346: x_msg_data,
4347: '_PVT'
4348: );
4345: x_msg_count,
4346: x_msg_data,
4347: '_PVT'
4348: );
4349: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4350: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4346: x_msg_data,
4347: '_PVT'
4348: );
4349: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4350: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4350: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4355: x_msg_count,
4356: x_msg_data,
4357: '_PVT'
4358: );
4356: x_msg_data,
4357: '_PVT'
4358: );
4359: WHEN OTHERS THEN
4360: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4361: (
4362: l_api_name,
4363: G_PKG_NAME,
4364: 'OTHERS',
4389: x_kle_rec OUT NOCOPY kle_rec_type) IS
4390:
4391: l_api_version CONSTANT NUMBER := 1;
4392: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
4393: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4394: l_kle_rec kle_rec_type := p_kle_rec;
4395: l_def_kle_rec kle_rec_type;
4396: l_row_notfound BOOLEAN := TRUE;
4397: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
4404: x_kle_rec OUT NOCOPY kle_rec_type
4405: ) RETURN VARCHAR2 IS
4406: l_kle_rec kle_rec_type;
4407: l_row_notfound BOOLEAN := TRUE;
4408: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4409: BEGIN
4410: x_kle_rec := p_kle_rec;
4411: -- Get current database values
4412: l_kle_rec := get_rec(p_kle_rec, l_row_notfound);
4410: x_kle_rec := p_kle_rec;
4411: -- Get current database values
4412: l_kle_rec := get_rec(p_kle_rec, l_row_notfound);
4413: IF (l_row_notfound) THEN
4414: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4415: END IF;
4416: -- Move the "old" record to the history record:
4417: -- (1) to get the "old" version
4418: -- (2) to avoid 2 hits to the database
4417: -- (1) to get the "old" version
4418: -- (2) to avoid 2 hits to the database
4419: migrate(l_kle_rec, l_okl_k_lines_h_rec);
4420:
4421: IF (x_kle_rec.ID = OKC_API.G_MISS_NUM) THEN
4422: x_kle_rec.ID := l_kle_rec.ID;
4423: END IF;
4424:
4425: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4421: IF (x_kle_rec.ID = OKC_API.G_MISS_NUM) THEN
4422: x_kle_rec.ID := l_kle_rec.ID;
4423: END IF;
4424:
4425: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4426: x_kle_rec.KLE_ID := l_kle_rec.KLE_ID;
4427: END IF;
4428:
4429: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4425: IF (x_kle_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
4426: x_kle_rec.KLE_ID := l_kle_rec.KLE_ID;
4427: END IF;
4428:
4429: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4430: x_kle_rec.STY_ID := l_kle_rec.STY_ID;
4431: END IF;
4432:
4433: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4429: IF (x_kle_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
4430: x_kle_rec.STY_ID := l_kle_rec.STY_ID;
4431: END IF;
4432:
4433: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4434: x_kle_rec.OBJECT_VERSION_NUMBER := l_kle_rec.OBJECT_VERSION_NUMBER;
4435: END IF;
4436:
4437: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4433: IF (x_kle_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
4434: x_kle_rec.OBJECT_VERSION_NUMBER := l_kle_rec.OBJECT_VERSION_NUMBER;
4435: END IF;
4436:
4437: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4438: x_kle_rec.LAO_AMOUNT := l_kle_rec.LAO_AMOUNT;
4439: END IF;
4440:
4441: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4437: IF (x_kle_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
4438: x_kle_rec.LAO_AMOUNT := l_kle_rec.LAO_AMOUNT;
4439: END IF;
4440:
4441: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4442: x_kle_rec.FEE_CHARGE := l_kle_rec.FEE_CHARGE;
4443: END IF;
4444:
4445: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4441: IF (x_kle_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
4442: x_kle_rec.FEE_CHARGE := l_kle_rec.FEE_CHARGE;
4443: END IF;
4444:
4445: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4446: x_kle_rec.TITLE_DATE := l_kle_rec.TITLE_DATE;
4447: END IF;
4448:
4449: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4445: IF (x_kle_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
4446: x_kle_rec.TITLE_DATE := l_kle_rec.TITLE_DATE;
4447: END IF;
4448:
4449: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4450: x_kle_rec.DATE_RESIDUAL_LAST_REVIEW := l_kle_rec.DATE_RESIDUAL_LAST_REVIEW;
4451: END IF;
4452:
4453: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4449: IF (x_kle_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
4450: x_kle_rec.DATE_RESIDUAL_LAST_REVIEW := l_kle_rec.DATE_RESIDUAL_LAST_REVIEW;
4451: END IF;
4452:
4453: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4454: x_kle_rec.DATE_LAST_REAMORTISATION := l_kle_rec.DATE_LAST_REAMORTISATION;
4455: END IF;
4456:
4457: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4453: IF (x_kle_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
4454: x_kle_rec.DATE_LAST_REAMORTISATION := l_kle_rec.DATE_LAST_REAMORTISATION;
4455: END IF;
4456:
4457: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4458: x_kle_rec.TERMINATION_PURCHASE_AMOUNT := l_kle_rec.TERMINATION_PURCHASE_AMOUNT;
4459: END IF;
4460:
4461: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4457: IF (x_kle_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4458: x_kle_rec.TERMINATION_PURCHASE_AMOUNT := l_kle_rec.TERMINATION_PURCHASE_AMOUNT;
4459: END IF;
4460:
4461: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4462: x_kle_rec.DATE_LAST_CLEANUP := l_kle_rec.DATE_LAST_CLEANUP;
4463: END IF;
4464:
4465: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4461: IF (x_kle_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
4462: x_kle_rec.DATE_LAST_CLEANUP := l_kle_rec.DATE_LAST_CLEANUP;
4463: END IF;
4464:
4465: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4466: x_kle_rec.REMARKETED_AMOUNT := l_kle_rec.REMARKETED_AMOUNT;
4467: END IF;
4468:
4469: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4465: IF (x_kle_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4466: x_kle_rec.REMARKETED_AMOUNT := l_kle_rec.REMARKETED_AMOUNT;
4467: END IF;
4468:
4469: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4470: x_kle_rec.DATE_REMARKETED := l_kle_rec.DATE_REMARKETED;
4471: END IF;
4472:
4473: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4469: IF (x_kle_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
4470: x_kle_rec.DATE_REMARKETED := l_kle_rec.DATE_REMARKETED;
4471: END IF;
4472:
4473: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4474: x_kle_rec.REMARKET_MARGIN := l_kle_rec.REMARKET_MARGIN;
4475: END IF;
4476:
4477: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4473: IF (x_kle_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
4474: x_kle_rec.REMARKET_MARGIN := l_kle_rec.REMARKET_MARGIN;
4475: END IF;
4476:
4477: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4478: x_kle_rec.REPURCHASED_AMOUNT := l_kle_rec.REPURCHASED_AMOUNT;
4479: END IF;
4480:
4481: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4477: IF (x_kle_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
4478: x_kle_rec.REPURCHASED_AMOUNT := l_kle_rec.REPURCHASED_AMOUNT;
4479: END IF;
4480:
4481: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4482: x_kle_rec.DATE_REPURCHASED := l_kle_rec.DATE_REPURCHASED;
4483: END IF;
4484:
4485: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4481: IF (x_kle_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
4482: x_kle_rec.DATE_REPURCHASED := l_kle_rec.DATE_REPURCHASED;
4483: END IF;
4484:
4485: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4486: x_kle_rec.GAIN_LOSS := l_kle_rec.GAIN_LOSS;
4487: END IF;
4488:
4489: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4485: IF (x_kle_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
4486: x_kle_rec.GAIN_LOSS := l_kle_rec.GAIN_LOSS;
4487: END IF;
4488:
4489: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4490: x_kle_rec.FLOOR_AMOUNT := l_kle_rec.FLOOR_AMOUNT;
4491: END IF;
4492:
4493: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4489: IF (x_kle_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4490: x_kle_rec.FLOOR_AMOUNT := l_kle_rec.FLOOR_AMOUNT;
4491: END IF;
4492:
4493: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4494: x_kle_rec.PREVIOUS_CONTRACT := l_kle_rec.PREVIOUS_CONTRACT;
4495: END IF;
4496:
4497: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4493: IF (x_kle_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
4494: x_kle_rec.PREVIOUS_CONTRACT := l_kle_rec.PREVIOUS_CONTRACT;
4495: END IF;
4496:
4497: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4498: x_kle_rec.TRACKED_RESIDUAL := l_kle_rec.TRACKED_RESIDUAL;
4499: END IF;
4500:
4501: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4497: IF (x_kle_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
4498: x_kle_rec.TRACKED_RESIDUAL := l_kle_rec.TRACKED_RESIDUAL;
4499: END IF;
4500:
4501: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4502: x_kle_rec.DATE_TITLE_RECEIVED := l_kle_rec.DATE_TITLE_RECEIVED;
4503: END IF;
4504:
4505: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4501: IF (x_kle_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
4502: x_kle_rec.DATE_TITLE_RECEIVED := l_kle_rec.DATE_TITLE_RECEIVED;
4503: END IF;
4504:
4505: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4506: x_kle_rec.ESTIMATED_OEC := l_kle_rec.ESTIMATED_OEC;
4507: END IF;
4508:
4509: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4505: IF (x_kle_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
4506: x_kle_rec.ESTIMATED_OEC := l_kle_rec.ESTIMATED_OEC;
4507: END IF;
4508:
4509: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4510: x_kle_rec.RESIDUAL_PERCENTAGE := l_kle_rec.RESIDUAL_PERCENTAGE;
4511: END IF;
4512:
4513: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4509: IF (x_kle_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
4510: x_kle_rec.RESIDUAL_PERCENTAGE := l_kle_rec.RESIDUAL_PERCENTAGE;
4511: END IF;
4512:
4513: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4514: x_kle_rec.CAPITAL_REDUCTION := l_kle_rec.CAPITAL_REDUCTION;
4515: END IF;
4516:
4517: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4513: IF (x_kle_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
4514: x_kle_rec.CAPITAL_REDUCTION := l_kle_rec.CAPITAL_REDUCTION;
4515: END IF;
4516:
4517: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4518: x_kle_rec.VENDOR_ADVANCE_PAID := l_kle_rec.VENDOR_ADVANCE_PAID;
4519: END IF;
4520:
4521: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4517: IF (x_kle_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
4518: x_kle_rec.VENDOR_ADVANCE_PAID := l_kle_rec.VENDOR_ADVANCE_PAID;
4519: END IF;
4520:
4521: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4522: x_kle_rec.TRADEIN_AMOUNT := l_kle_rec.TRADEIN_AMOUNT;
4523: END IF;
4524:
4525: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4521: IF (x_kle_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
4522: x_kle_rec.TRADEIN_AMOUNT := l_kle_rec.TRADEIN_AMOUNT;
4523: END IF;
4524:
4525: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4526: x_kle_rec.DELIVERED_DATE := l_kle_rec.DELIVERED_DATE;
4527: END IF;
4528:
4529: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4525: IF (x_kle_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
4526: x_kle_rec.DELIVERED_DATE := l_kle_rec.DELIVERED_DATE;
4527: END IF;
4528:
4529: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4530: x_kle_rec.YEAR_OF_MANUFACTURE := l_kle_rec.YEAR_OF_MANUFACTURE;
4531: END IF;
4532:
4533: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4529: IF (x_kle_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
4530: x_kle_rec.YEAR_OF_MANUFACTURE := l_kle_rec.YEAR_OF_MANUFACTURE;
4531: END IF;
4532:
4533: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4534: x_kle_rec.INITIAL_DIRECT_COST := l_kle_rec.INITIAL_DIRECT_COST;
4535: END IF;
4536:
4537: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4533: IF (x_kle_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
4534: x_kle_rec.INITIAL_DIRECT_COST := l_kle_rec.INITIAL_DIRECT_COST;
4535: END IF;
4536:
4537: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4538: x_kle_rec.OCCUPANCY := l_kle_rec.OCCUPANCY;
4539: END IF;
4540:
4541: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4537: IF (x_kle_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
4538: x_kle_rec.OCCUPANCY := l_kle_rec.OCCUPANCY;
4539: END IF;
4540:
4541: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4542: x_kle_rec.DATE_LAST_INSPECTION := l_kle_rec.DATE_LAST_INSPECTION;
4543: END IF;
4544:
4545: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4541: IF (x_kle_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
4542: x_kle_rec.DATE_LAST_INSPECTION := l_kle_rec.DATE_LAST_INSPECTION;
4543: END IF;
4544:
4545: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4546: x_kle_rec.DATE_NEXT_INSPECTION_DUE := l_kle_rec.DATE_NEXT_INSPECTION_DUE;
4547: END IF;
4548:
4549: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4545: IF (x_kle_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
4546: x_kle_rec.DATE_NEXT_INSPECTION_DUE := l_kle_rec.DATE_NEXT_INSPECTION_DUE;
4547: END IF;
4548:
4549: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4550: x_kle_rec.WEIGHTED_AVERAGE_LIFE := l_kle_rec.WEIGHTED_AVERAGE_LIFE;
4551: END IF;
4552:
4553: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4549: IF (x_kle_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
4550: x_kle_rec.WEIGHTED_AVERAGE_LIFE := l_kle_rec.WEIGHTED_AVERAGE_LIFE;
4551: END IF;
4552:
4553: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4554: x_kle_rec.BOND_EQUIVALENT_YIELD := l_kle_rec.BOND_EQUIVALENT_YIELD;
4555: END IF;
4556:
4557: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4553: IF (x_kle_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
4554: x_kle_rec.BOND_EQUIVALENT_YIELD := l_kle_rec.BOND_EQUIVALENT_YIELD;
4555: END IF;
4556:
4557: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4558: x_kle_rec.REFINANCE_AMOUNT := l_kle_rec.REFINANCE_AMOUNT;
4559: END IF;
4560:
4561: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4557: IF (x_kle_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
4558: x_kle_rec.REFINANCE_AMOUNT := l_kle_rec.REFINANCE_AMOUNT;
4559: END IF;
4560:
4561: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4562: x_kle_rec.YEAR_BUILT := l_kle_rec.YEAR_BUILT;
4563: END IF;
4564:
4565: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4561: IF (x_kle_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
4562: x_kle_rec.YEAR_BUILT := l_kle_rec.YEAR_BUILT;
4563: END IF;
4564:
4565: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4566: x_kle_rec.COVERAGE_RATIO := l_kle_rec.COVERAGE_RATIO;
4567: END IF;
4568:
4569: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4565: IF (x_kle_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
4566: x_kle_rec.COVERAGE_RATIO := l_kle_rec.COVERAGE_RATIO;
4567: END IF;
4568:
4569: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4570: x_kle_rec.GROSS_SQUARE_FOOTAGE := l_kle_rec.GROSS_SQUARE_FOOTAGE;
4571: END IF;
4572:
4573: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4569: IF (x_kle_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
4570: x_kle_rec.GROSS_SQUARE_FOOTAGE := l_kle_rec.GROSS_SQUARE_FOOTAGE;
4571: END IF;
4572:
4573: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4574: x_kle_rec.NET_RENTABLE := l_kle_rec.NET_RENTABLE;
4575: END IF;
4576:
4577: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4573: IF (x_kle_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
4574: x_kle_rec.NET_RENTABLE := l_kle_rec.NET_RENTABLE;
4575: END IF;
4576:
4577: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4578: x_kle_rec.DATE_LETTER_ACCEPTANCE := l_kle_rec.DATE_LETTER_ACCEPTANCE;
4579: END IF;
4580:
4581: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4577: IF (x_kle_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
4578: x_kle_rec.DATE_LETTER_ACCEPTANCE := l_kle_rec.DATE_LETTER_ACCEPTANCE;
4579: END IF;
4580:
4581: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4582: x_kle_rec.DATE_COMMITMENT_EXPIRATION := l_kle_rec.DATE_COMMITMENT_EXPIRATION;
4583: END IF;
4584:
4585: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4581: IF (x_kle_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
4582: x_kle_rec.DATE_COMMITMENT_EXPIRATION := l_kle_rec.DATE_COMMITMENT_EXPIRATION;
4583: END IF;
4584:
4585: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4586: x_kle_rec.DATE_APPRAISAL := l_kle_rec.DATE_APPRAISAL;
4587: END IF;
4588:
4589: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4585: IF (x_kle_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
4586: x_kle_rec.DATE_APPRAISAL := l_kle_rec.DATE_APPRAISAL;
4587: END IF;
4588:
4589: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4590: x_kle_rec.APPRAISAL_VALUE := l_kle_rec.APPRAISAL_VALUE;
4591: END IF;
4592:
4593: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4589: IF (x_kle_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
4590: x_kle_rec.APPRAISAL_VALUE := l_kle_rec.APPRAISAL_VALUE;
4591: END IF;
4592:
4593: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4594: x_kle_rec.RESIDUAL_VALUE := l_kle_rec.RESIDUAL_VALUE;
4595: END IF;
4596:
4597: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4593: IF (x_kle_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
4594: x_kle_rec.RESIDUAL_VALUE := l_kle_rec.RESIDUAL_VALUE;
4595: END IF;
4596:
4597: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4598: x_kle_rec.PERCENT := l_kle_rec.PERCENT;
4599: END IF;
4600:
4601: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4597: IF (x_kle_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
4598: x_kle_rec.PERCENT := l_kle_rec.PERCENT;
4599: END IF;
4600:
4601: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4602: x_kle_rec.COVERAGE := l_kle_rec.COVERAGE;
4603: END IF;
4604:
4605: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4601: IF (x_kle_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
4602: x_kle_rec.COVERAGE := l_kle_rec.COVERAGE;
4603: END IF;
4604:
4605: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4606: x_kle_rec.LRV_AMOUNT := l_kle_rec.LRV_AMOUNT;
4607: END IF;
4608:
4609: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4605: IF (x_kle_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
4606: x_kle_rec.LRV_AMOUNT := l_kle_rec.LRV_AMOUNT;
4607: END IF;
4608:
4609: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4610: x_kle_rec.AMOUNT := l_kle_rec.AMOUNT;
4611: END IF;
4612:
4613: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4609: IF (x_kle_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
4610: x_kle_rec.AMOUNT := l_kle_rec.AMOUNT;
4611: END IF;
4612:
4613: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4614: x_kle_rec.LRS_PERCENT := l_kle_rec.LRS_PERCENT;
4615: END IF;
4616:
4617: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4613: IF (x_kle_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
4614: x_kle_rec.LRS_PERCENT := l_kle_rec.LRS_PERCENT;
4615: END IF;
4616:
4617: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4618: x_kle_rec.EVERGREEN_PERCENT := l_kle_rec.EVERGREEN_PERCENT;
4619: END IF;
4620:
4621: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4617: IF (x_kle_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
4618: x_kle_rec.EVERGREEN_PERCENT := l_kle_rec.EVERGREEN_PERCENT;
4619: END IF;
4620:
4621: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4622: x_kle_rec.PERCENT_STAKE := l_kle_rec.PERCENT_STAKE;
4623: END IF;
4624:
4625: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4621: IF (x_kle_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
4622: x_kle_rec.PERCENT_STAKE := l_kle_rec.PERCENT_STAKE;
4623: END IF;
4624:
4625: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4626: x_kle_rec.AMOUNT_STAKE := l_kle_rec.AMOUNT_STAKE;
4627: END IF;
4628:
4629: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4625: IF (x_kle_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
4626: x_kle_rec.AMOUNT_STAKE := l_kle_rec.AMOUNT_STAKE;
4627: END IF;
4628:
4629: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4630: x_kle_rec.DATE_SOLD := l_kle_rec.DATE_SOLD;
4631: END IF;
4632:
4633: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4629: IF (x_kle_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
4630: x_kle_rec.DATE_SOLD := l_kle_rec.DATE_SOLD;
4631: END IF;
4632:
4633: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4634: x_kle_rec.STY_ID_FOR := l_kle_rec.STY_ID_FOR;
4635: END IF;
4636:
4637: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4633: IF (x_kle_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
4634: x_kle_rec.STY_ID_FOR := l_kle_rec.STY_ID_FOR;
4635: END IF;
4636:
4637: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4638: x_kle_rec.ATTRIBUTE_CATEGORY := l_kle_rec.ATTRIBUTE_CATEGORY;
4639: END IF;
4640:
4641: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4637: IF (x_kle_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
4638: x_kle_rec.ATTRIBUTE_CATEGORY := l_kle_rec.ATTRIBUTE_CATEGORY;
4639: END IF;
4640:
4641: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4642: x_kle_rec.ATTRIBUTE1 := l_kle_rec.ATTRIBUTE1;
4643: END IF;
4644:
4645: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4641: IF (x_kle_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
4642: x_kle_rec.ATTRIBUTE1 := l_kle_rec.ATTRIBUTE1;
4643: END IF;
4644:
4645: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4646: x_kle_rec.ATTRIBUTE2 := l_kle_rec.ATTRIBUTE2;
4647: END IF;
4648:
4649: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4645: IF (x_kle_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
4646: x_kle_rec.ATTRIBUTE2 := l_kle_rec.ATTRIBUTE2;
4647: END IF;
4648:
4649: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4650: x_kle_rec.ATTRIBUTE3 := l_kle_rec.ATTRIBUTE3;
4651: END IF;
4652:
4653: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4649: IF (x_kle_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
4650: x_kle_rec.ATTRIBUTE3 := l_kle_rec.ATTRIBUTE3;
4651: END IF;
4652:
4653: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4654: x_kle_rec.ATTRIBUTE4 := l_kle_rec.ATTRIBUTE4;
4655: END IF;
4656:
4657: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4653: IF (x_kle_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
4654: x_kle_rec.ATTRIBUTE4 := l_kle_rec.ATTRIBUTE4;
4655: END IF;
4656:
4657: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4658: x_kle_rec.ATTRIBUTE5 := l_kle_rec.ATTRIBUTE5;
4659: END IF;
4660:
4661: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4657: IF (x_kle_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
4658: x_kle_rec.ATTRIBUTE5 := l_kle_rec.ATTRIBUTE5;
4659: END IF;
4660:
4661: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4662: x_kle_rec.ATTRIBUTE6 := l_kle_rec.ATTRIBUTE6;
4663: END IF;
4664:
4665: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4661: IF (x_kle_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
4662: x_kle_rec.ATTRIBUTE6 := l_kle_rec.ATTRIBUTE6;
4663: END IF;
4664:
4665: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4666: x_kle_rec.ATTRIBUTE7 := l_kle_rec.ATTRIBUTE7;
4667: END IF;
4668:
4669: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4665: IF (x_kle_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
4666: x_kle_rec.ATTRIBUTE7 := l_kle_rec.ATTRIBUTE7;
4667: END IF;
4668:
4669: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4670: x_kle_rec.ATTRIBUTE8 := l_kle_rec.ATTRIBUTE8;
4671: END IF;
4672:
4673: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4669: IF (x_kle_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
4670: x_kle_rec.ATTRIBUTE8 := l_kle_rec.ATTRIBUTE8;
4671: END IF;
4672:
4673: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4674: x_kle_rec.ATTRIBUTE9 := l_kle_rec.ATTRIBUTE9;
4675: END IF;
4676:
4677: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4673: IF (x_kle_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
4674: x_kle_rec.ATTRIBUTE9 := l_kle_rec.ATTRIBUTE9;
4675: END IF;
4676:
4677: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4678: x_kle_rec.ATTRIBUTE10 := l_kle_rec.ATTRIBUTE10;
4679: END IF;
4680:
4681: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4677: IF (x_kle_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
4678: x_kle_rec.ATTRIBUTE10 := l_kle_rec.ATTRIBUTE10;
4679: END IF;
4680:
4681: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4682: x_kle_rec.ATTRIBUTE11 := l_kle_rec.ATTRIBUTE11;
4683: END IF;
4684:
4685: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4681: IF (x_kle_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
4682: x_kle_rec.ATTRIBUTE11 := l_kle_rec.ATTRIBUTE11;
4683: END IF;
4684:
4685: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4686: x_kle_rec.ATTRIBUTE12 := l_kle_rec.ATTRIBUTE12;
4687: END IF;
4688:
4689: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4685: IF (x_kle_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
4686: x_kle_rec.ATTRIBUTE12 := l_kle_rec.ATTRIBUTE12;
4687: END IF;
4688:
4689: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4690: x_kle_rec.ATTRIBUTE13 := l_kle_rec.ATTRIBUTE13;
4691: END IF;
4692:
4693: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4689: IF (x_kle_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
4690: x_kle_rec.ATTRIBUTE13 := l_kle_rec.ATTRIBUTE13;
4691: END IF;
4692:
4693: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4694: x_kle_rec.ATTRIBUTE14 := l_kle_rec.ATTRIBUTE14;
4695: END IF;
4696:
4697: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4693: IF (x_kle_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
4694: x_kle_rec.ATTRIBUTE14 := l_kle_rec.ATTRIBUTE14;
4695: END IF;
4696:
4697: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4698: x_kle_rec.ATTRIBUTE15 := l_kle_rec.ATTRIBUTE15;
4699: END IF;
4700:
4701: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4697: IF (x_kle_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
4698: x_kle_rec.ATTRIBUTE15 := l_kle_rec.ATTRIBUTE15;
4699: END IF;
4700:
4701: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4702: x_kle_rec.CREATED_BY := l_kle_rec.CREATED_BY;
4703: END IF;
4704:
4705: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4701: IF (x_kle_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
4702: x_kle_rec.CREATED_BY := l_kle_rec.CREATED_BY;
4703: END IF;
4704:
4705: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4706: x_kle_rec.CREATION_DATE := l_kle_rec.CREATION_DATE;
4707: END IF;
4708:
4709: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4705: IF (x_kle_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
4706: x_kle_rec.CREATION_DATE := l_kle_rec.CREATION_DATE;
4707: END IF;
4708:
4709: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4710: x_kle_rec.LAST_UPDATED_BY := l_kle_rec.LAST_UPDATED_BY;
4711: END IF;
4712:
4713: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4709: IF (x_kle_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
4710: x_kle_rec.LAST_UPDATED_BY := l_kle_rec.LAST_UPDATED_BY;
4711: END IF;
4712:
4713: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4714: x_kle_rec.LAST_UPDATE_DATE := l_kle_rec.LAST_UPDATE_DATE;
4715: END IF;
4716:
4717: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4713: IF (x_kle_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
4714: x_kle_rec.LAST_UPDATE_DATE := l_kle_rec.LAST_UPDATE_DATE;
4715: END IF;
4716:
4717: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4718: x_kle_rec.LAST_UPDATE_LOGIN := l_kle_rec.LAST_UPDATE_LOGIN;
4719: END IF;
4720:
4721: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4717: IF (x_kle_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
4718: x_kle_rec.LAST_UPDATE_LOGIN := l_kle_rec.LAST_UPDATE_LOGIN;
4719: END IF;
4720:
4721: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4722: x_kle_rec.NTY_CODE := l_kle_rec.NTY_CODE;
4723: END IF;
4724:
4725: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4721: IF (x_kle_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
4722: x_kle_rec.NTY_CODE := l_kle_rec.NTY_CODE;
4723: END IF;
4724:
4725: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4726: x_kle_rec.FCG_CODE := l_kle_rec.FCG_CODE;
4727: END IF;
4728:
4729: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4725: IF (x_kle_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
4726: x_kle_rec.FCG_CODE := l_kle_rec.FCG_CODE;
4727: END IF;
4728:
4729: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4730: x_kle_rec.PRC_CODE := l_kle_rec.PRC_CODE;
4731: END IF;
4732:
4733: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4729: IF (x_kle_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
4730: x_kle_rec.PRC_CODE := l_kle_rec.PRC_CODE;
4731: END IF;
4732:
4733: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4734: x_kle_rec.RE_LEASE_YN := l_kle_rec.RE_LEASE_YN;
4735: END IF;
4736:
4737: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4733: IF (x_kle_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
4734: x_kle_rec.RE_LEASE_YN := l_kle_rec.RE_LEASE_YN;
4735: END IF;
4736:
4737: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4738: x_kle_rec.PRESCRIBED_ASSET_YN := l_kle_rec.PRESCRIBED_ASSET_YN;
4739: END IF;
4740:
4741: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4737: IF (x_kle_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
4738: x_kle_rec.PRESCRIBED_ASSET_YN := l_kle_rec.PRESCRIBED_ASSET_YN;
4739: END IF;
4740:
4741: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4742: x_kle_rec.CREDIT_TENANT_YN := l_kle_rec.CREDIT_TENANT_YN;
4743: END IF;
4744:
4745: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4741: IF (x_kle_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
4742: x_kle_rec.CREDIT_TENANT_YN := l_kle_rec.CREDIT_TENANT_YN;
4743: END IF;
4744:
4745: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4746: x_kle_rec.SECURED_DEAL_YN := l_kle_rec.SECURED_DEAL_YN;
4747: END IF;
4748:
4749: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4745: IF (x_kle_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
4746: x_kle_rec.SECURED_DEAL_YN := l_kle_rec.SECURED_DEAL_YN;
4747: END IF;
4748:
4749: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4750: x_kle_rec.CLG_ID := l_kle_rec.CLG_ID;
4751: END IF;
4752:
4753: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4749: IF (x_kle_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
4750: x_kle_rec.CLG_ID := l_kle_rec.CLG_ID;
4751: END IF;
4752:
4753: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4754: x_kle_rec.DATE_FUNDING := l_kle_rec.DATE_FUNDING;
4755: END IF;
4756:
4757: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4753: IF (x_kle_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
4754: x_kle_rec.DATE_FUNDING := l_kle_rec.DATE_FUNDING;
4755: END IF;
4756:
4757: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4758: x_kle_rec.DATE_FUNDING_REQUIRED := l_kle_rec.DATE_FUNDING_REQUIRED;
4759: END IF;
4760:
4761: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4757: IF (x_kle_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
4758: x_kle_rec.DATE_FUNDING_REQUIRED := l_kle_rec.DATE_FUNDING_REQUIRED;
4759: END IF;
4760:
4761: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4762: x_kle_rec.DATE_ACCEPTED := l_kle_rec.DATE_ACCEPTED;
4763: END IF;
4764:
4765: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4761: IF (x_kle_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
4762: x_kle_rec.DATE_ACCEPTED := l_kle_rec.DATE_ACCEPTED;
4763: END IF;
4764:
4765: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4766: x_kle_rec.DATE_DELIVERY_EXPECTED := l_kle_rec.DATE_DELIVERY_EXPECTED;
4767: END IF;
4768:
4769: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4765: IF (x_kle_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
4766: x_kle_rec.DATE_DELIVERY_EXPECTED := l_kle_rec.DATE_DELIVERY_EXPECTED;
4767: END IF;
4768:
4769: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4770: x_kle_rec.OEC := l_kle_rec.OEC;
4771: END IF;
4772:
4773: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4769: IF (x_kle_rec.OEC = OKC_API.G_MISS_NUM) THEN
4770: x_kle_rec.OEC := l_kle_rec.OEC;
4771: END IF;
4772:
4773: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4774: x_kle_rec.CAPITAL_AMOUNT := l_kle_rec.CAPITAL_AMOUNT;
4775: END IF;
4776:
4777: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4773: IF (x_kle_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
4774: x_kle_rec.CAPITAL_AMOUNT := l_kle_rec.CAPITAL_AMOUNT;
4775: END IF;
4776:
4777: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4778: x_kle_rec.RESIDUAL_GRNTY_AMOUNT := l_kle_rec.RESIDUAL_GRNTY_AMOUNT;
4779: END IF;
4780:
4781: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4777: IF (x_kle_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
4778: x_kle_rec.RESIDUAL_GRNTY_AMOUNT := l_kle_rec.RESIDUAL_GRNTY_AMOUNT;
4779: END IF;
4780:
4781: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4782: x_kle_rec.RESIDUAL_CODE := l_kle_rec.RESIDUAL_CODE;
4783: END IF;
4784:
4785: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4781: IF (x_kle_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
4782: x_kle_rec.RESIDUAL_CODE := l_kle_rec.RESIDUAL_CODE;
4783: END IF;
4784:
4785: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4786: x_kle_rec.RVI_PREMIUM := l_kle_rec.RVI_PREMIUM;
4787: END IF;
4788:
4789: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4785: IF (x_kle_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
4786: x_kle_rec.RVI_PREMIUM := l_kle_rec.RVI_PREMIUM;
4787: END IF;
4788:
4789: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4790: x_kle_rec.CREDIT_NATURE := l_kle_rec.CREDIT_NATURE;
4791: END IF;
4792:
4793: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4789: IF (x_kle_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
4790: x_kle_rec.CREDIT_NATURE := l_kle_rec.CREDIT_NATURE;
4791: END IF;
4792:
4793: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4794: x_kle_rec.CAPITALIZED_INTEREST := l_kle_rec.CAPITALIZED_INTEREST;
4795: END IF;
4796:
4797: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4793: IF (x_kle_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
4794: x_kle_rec.CAPITALIZED_INTEREST := l_kle_rec.CAPITALIZED_INTEREST;
4795: END IF;
4796:
4797: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4798: x_kle_rec.CAPITAL_REDUCTION_PERCENT := l_kle_rec.CAPITAL_REDUCTION_PERCENT;
4799: END IF;
4800:
4801: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4797: IF (x_kle_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
4798: x_kle_rec.CAPITAL_REDUCTION_PERCENT := l_kle_rec.CAPITAL_REDUCTION_PERCENT;
4799: END IF;
4800:
4801: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4802: x_kle_rec.DATE_PAY_INVESTOR_START := l_kle_rec.DATE_PAY_INVESTOR_START;
4803: END IF;
4804:
4805: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4801: IF (x_kle_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
4802: x_kle_rec.DATE_PAY_INVESTOR_START := l_kle_rec.DATE_PAY_INVESTOR_START;
4803: END IF;
4804:
4805: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4806: x_kle_rec.PAY_INVESTOR_FREQUENCY := l_kle_rec.PAY_INVESTOR_FREQUENCY;
4807: END IF;
4808:
4809: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4805: IF (x_kle_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
4806: x_kle_rec.PAY_INVESTOR_FREQUENCY := l_kle_rec.PAY_INVESTOR_FREQUENCY;
4807: END IF;
4808:
4809: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4810: x_kle_rec.PAY_INVESTOR_EVENT := l_kle_rec.PAY_INVESTOR_EVENT;
4811: END IF;
4812:
4813: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4809: IF (x_kle_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
4810: x_kle_rec.PAY_INVESTOR_EVENT := l_kle_rec.PAY_INVESTOR_EVENT;
4811: END IF;
4812:
4813: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4814: x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS;
4815: END IF;
4816:
4817: IF (x_kle_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
4813: IF (x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
4814: x_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_kle_rec.PAY_INVESTOR_REMITTANCE_DAYS;
4815: END IF;
4816:
4817: IF (x_kle_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
4818: x_kle_rec.FEE_TYPE := l_kle_rec.FEE_TYPE;
4819: END IF;
4820:
4821: --Bug# 3143522: 11.5.10
4927: FUNCTION Set_Attributes (
4928: p_kle_rec IN kle_rec_type,
4929: x_kle_rec OUT NOCOPY kle_rec_type
4930: ) RETURN VARCHAR2 IS
4931: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4932: BEGIN
4933: x_kle_rec := p_kle_rec;
4934: RETURN(l_return_status);
4935: END Set_Attributes;
4933: x_kle_rec := p_kle_rec;
4934: RETURN(l_return_status);
4935: END Set_Attributes;
4936: BEGIN
4937: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4938: p_init_msg_list,
4939: '_PVT',
4940: x_return_status);
4941:
4938: p_init_msg_list,
4939: '_PVT',
4940: x_return_status);
4941:
4942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_ERROR;
4946: END IF;
4939: '_PVT',
4940: x_return_status);
4941:
4942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_ERROR;
4946: END IF;
4947:
4940: x_return_status);
4941:
4942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_ERROR;
4946: END IF;
4947:
4948: --- Setting item attributes
4941:
4942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_ERROR;
4946: END IF;
4947:
4948: --- Setting item attributes
4949: l_return_status := Set_Attributes(
4950: p_kle_rec, -- IN
4951: l_kle_rec); -- OUT
4952: --- If any errors happen abort API
4953:
4954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4957: RAISE OKC_API.G_EXCEPTION_ERROR;
4958: END IF;
4951: l_kle_rec); -- OUT
4952: --- If any errors happen abort API
4953:
4954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4957: RAISE OKC_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4952: --- If any errors happen abort API
4953:
4954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4957: RAISE OKC_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4960: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
4953:
4954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4957: RAISE OKC_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4960: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
4961:
4958: END IF;
4959:
4960: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
4961:
4962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4959:
4960: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
4961:
4962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4960: l_return_status := populate_new_record(l_kle_rec, l_def_kle_rec);
4961:
4962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4968: UPDATE OKL_K_LINES
4961:
4962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4968: UPDATE OKL_K_LINES
4969: SET
5119: l_okl_k_lines_h_rec,
5120: lx_okl_k_lines_h_rec
5121: );
5122:
5123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_ERROR;
5127: END IF;
5120: lx_okl_k_lines_h_rec
5121: );
5122:
5123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_ERROR;
5127: END IF;
5128:
5121: );
5122:
5123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_ERROR;
5127: END IF;
5128:
5129: */
5122:
5123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5126: RAISE OKC_API.G_EXCEPTION_ERROR;
5127: END IF;
5128:
5129: */
5130: x_kle_rec := l_def_kle_rec;
5127: END IF;
5128:
5129: */
5130: x_kle_rec := l_def_kle_rec;
5131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5132:
5133: EXCEPTION
5134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5130: x_kle_rec := l_def_kle_rec;
5131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5132:
5133: EXCEPTION
5134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5136: (
5137: l_api_name,
5138: G_PKG_NAME,
5131: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5132:
5133: EXCEPTION
5134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5136: (
5137: l_api_name,
5138: G_PKG_NAME,
5139: 'OKC_API.G_RET_STS_ERROR',
5135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5136: (
5137: l_api_name,
5138: G_PKG_NAME,
5139: 'OKC_API.G_RET_STS_ERROR',
5140: x_msg_count,
5141: x_msg_data,
5142: '_PVT'
5143: );
5140: x_msg_count,
5141: x_msg_data,
5142: '_PVT'
5143: );
5144: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5145: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5146: (
5147: l_api_name,
5148: G_PKG_NAME,
5141: x_msg_data,
5142: '_PVT'
5143: );
5144: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5145: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5146: (
5147: l_api_name,
5148: G_PKG_NAME,
5149: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5145: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5146: (
5147: l_api_name,
5148: G_PKG_NAME,
5149: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5150: x_msg_count,
5151: x_msg_data,
5152: '_PVT'
5153: );
5151: x_msg_data,
5152: '_PVT'
5153: );
5154: WHEN OTHERS THEN
5155: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5156: (
5157: l_api_name,
5158: G_PKG_NAME,
5159: 'OTHERS',
5179: x_klev_rec OUT NOCOPY klev_rec_type) IS
5180:
5181: l_api_version CONSTANT NUMBER := 1;
5182: l_api_name CONSTANT VARCHAR2(30) := 'rec_update_row';
5183: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5184: l_klev_rec klev_rec_type := p_klev_rec;
5185: l_def_klev_rec klev_rec_type;
5186: l_kle_rec kle_rec_type;
5187: lx_kle_rec kle_rec_type;
5206: x_klev_rec OUT NOCOPY klev_rec_type
5207: ) RETURN VARCHAR2 IS
5208: l_klev_rec klev_rec_type;
5209: l_row_notfound BOOLEAN := TRUE;
5210: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5211: BEGIN
5212: x_klev_rec := p_klev_rec;
5213: -- Get current database values
5214: l_klev_rec := get_rec(p_klev_rec, l_row_notfound);
5212: x_klev_rec := p_klev_rec;
5213: -- Get current database values
5214: l_klev_rec := get_rec(p_klev_rec, l_row_notfound);
5215: IF (l_row_notfound) THEN
5216: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5217: END IF;
5218:
5219:
5220: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5216: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5217: END IF;
5218:
5219:
5220: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5221: x_klev_rec.ID := l_klev_rec.ID;
5222: END IF;
5223:
5224: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5220: IF (x_klev_rec.ID = OKC_API.G_MISS_NUM) THEN
5221: x_klev_rec.ID := l_klev_rec.ID;
5222: END IF;
5223:
5224: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5225: x_klev_rec.OBJECT_VERSION_NUMBER := l_klev_rec.OBJECT_VERSION_NUMBER;
5226: END IF;
5227:
5228: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5224: IF (x_klev_rec.OBJECT_VERSION_NUMBER = OKC_API.G_MISS_NUM) THEN
5225: x_klev_rec.OBJECT_VERSION_NUMBER := l_klev_rec.OBJECT_VERSION_NUMBER;
5226: END IF;
5227:
5228: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5229: x_klev_rec.KLE_ID := l_klev_rec.KLE_ID;
5230: END IF;
5231:
5232: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5228: IF (x_klev_rec.KLE_ID = OKC_API.G_MISS_NUM) THEN
5229: x_klev_rec.KLE_ID := l_klev_rec.KLE_ID;
5230: END IF;
5231:
5232: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5233: x_klev_rec.STY_ID := l_klev_rec.STY_ID;
5234: END IF;
5235:
5236: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5232: IF (x_klev_rec.STY_ID = OKC_API.G_MISS_NUM) THEN
5233: x_klev_rec.STY_ID := l_klev_rec.STY_ID;
5234: END IF;
5235:
5236: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5237: x_klev_rec.PRC_CODE := l_klev_rec.PRC_CODE;
5238: END IF;
5239:
5240: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5236: IF (x_klev_rec.PRC_CODE = OKC_API.G_MISS_CHAR) THEN
5237: x_klev_rec.PRC_CODE := l_klev_rec.PRC_CODE;
5238: END IF;
5239:
5240: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5241: x_klev_rec.FCG_CODE := l_klev_rec.FCG_CODE;
5242: END IF;
5243:
5244: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5240: IF (x_klev_rec.FCG_CODE = OKC_API.G_MISS_CHAR) THEN
5241: x_klev_rec.FCG_CODE := l_klev_rec.FCG_CODE;
5242: END IF;
5243:
5244: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5245: x_klev_rec.NTY_CODE := l_klev_rec.NTY_CODE;
5246: END IF;
5247:
5248: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5244: IF (x_klev_rec.NTY_CODE = OKC_API.G_MISS_CHAR) THEN
5245: x_klev_rec.NTY_CODE := l_klev_rec.NTY_CODE;
5246: END IF;
5247:
5248: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5249: x_klev_rec.ESTIMATED_OEC := l_klev_rec.ESTIMATED_OEC;
5250: END IF;
5251:
5252: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5248: IF (x_klev_rec.ESTIMATED_OEC = OKC_API.G_MISS_NUM) THEN
5249: x_klev_rec.ESTIMATED_OEC := l_klev_rec.ESTIMATED_OEC;
5250: END IF;
5251:
5252: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5253: x_klev_rec.LAO_AMOUNT := l_klev_rec.LAO_AMOUNT;
5254: END IF;
5255:
5256: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5252: IF (x_klev_rec.LAO_AMOUNT = OKC_API.G_MISS_NUM) THEN
5253: x_klev_rec.LAO_AMOUNT := l_klev_rec.LAO_AMOUNT;
5254: END IF;
5255:
5256: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5257: x_klev_rec.TITLE_DATE := l_klev_rec.TITLE_DATE;
5258: END IF;
5259:
5260: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5256: IF (x_klev_rec.TITLE_DATE = OKC_API.G_MISS_DATE) THEN
5257: x_klev_rec.TITLE_DATE := l_klev_rec.TITLE_DATE;
5258: END IF;
5259:
5260: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5261: x_klev_rec.FEE_CHARGE := l_klev_rec.FEE_CHARGE;
5262: END IF;
5263:
5264: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5260: IF (x_klev_rec.FEE_CHARGE = OKC_API.G_MISS_NUM) THEN
5261: x_klev_rec.FEE_CHARGE := l_klev_rec.FEE_CHARGE;
5262: END IF;
5263:
5264: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5265: x_klev_rec.LRS_PERCENT := l_klev_rec.LRS_PERCENT;
5266: END IF;
5267:
5268: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5264: IF (x_klev_rec.LRS_PERCENT = OKC_API.G_MISS_NUM) THEN
5265: x_klev_rec.LRS_PERCENT := l_klev_rec.LRS_PERCENT;
5266: END IF;
5267:
5268: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5269: x_klev_rec.INITIAL_DIRECT_COST := l_klev_rec.INITIAL_DIRECT_COST;
5270: END IF;
5271:
5272: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5268: IF (x_klev_rec.INITIAL_DIRECT_COST = OKC_API.G_MISS_NUM) THEN
5269: x_klev_rec.INITIAL_DIRECT_COST := l_klev_rec.INITIAL_DIRECT_COST;
5270: END IF;
5271:
5272: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5273: x_klev_rec.PERCENT_STAKE := l_klev_rec.PERCENT_STAKE;
5274: END IF;
5275:
5276: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5272: IF (x_klev_rec.PERCENT_STAKE = OKC_API.G_MISS_NUM) THEN
5273: x_klev_rec.PERCENT_STAKE := l_klev_rec.PERCENT_STAKE;
5274: END IF;
5275:
5276: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5277: x_klev_rec.PERCENT := l_klev_rec.PERCENT;
5278: END IF;
5279:
5280: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5276: IF (x_klev_rec.PERCENT = OKC_API.G_MISS_NUM) THEN
5277: x_klev_rec.PERCENT := l_klev_rec.PERCENT;
5278: END IF;
5279:
5280: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5281: x_klev_rec.EVERGREEN_PERCENT := l_klev_rec.EVERGREEN_PERCENT;
5282: END IF;
5283:
5284: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5280: IF (x_klev_rec.EVERGREEN_PERCENT = OKC_API.G_MISS_NUM) THEN
5281: x_klev_rec.EVERGREEN_PERCENT := l_klev_rec.EVERGREEN_PERCENT;
5282: END IF;
5283:
5284: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5285: x_klev_rec.AMOUNT_STAKE := l_klev_rec.AMOUNT_STAKE;
5286: END IF;
5287:
5288: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5284: IF (x_klev_rec.AMOUNT_STAKE = OKC_API.G_MISS_NUM) THEN
5285: x_klev_rec.AMOUNT_STAKE := l_klev_rec.AMOUNT_STAKE;
5286: END IF;
5287:
5288: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5289: x_klev_rec.OCCUPANCY := l_klev_rec.OCCUPANCY;
5290: END IF;
5291:
5292: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5288: IF (x_klev_rec.OCCUPANCY = OKC_API.G_MISS_NUM) THEN
5289: x_klev_rec.OCCUPANCY := l_klev_rec.OCCUPANCY;
5290: END IF;
5291:
5292: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5293: x_klev_rec.COVERAGE := l_klev_rec.COVERAGE;
5294: END IF;
5295:
5296: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5292: IF (x_klev_rec.COVERAGE = OKC_API.G_MISS_NUM) THEN
5293: x_klev_rec.COVERAGE := l_klev_rec.COVERAGE;
5294: END IF;
5295:
5296: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5297: x_klev_rec.RESIDUAL_PERCENTAGE := l_klev_rec.RESIDUAL_PERCENTAGE;
5298: END IF;
5299:
5300: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5296: IF (x_klev_rec.RESIDUAL_PERCENTAGE = OKC_API.G_MISS_NUM) THEN
5297: x_klev_rec.RESIDUAL_PERCENTAGE := l_klev_rec.RESIDUAL_PERCENTAGE;
5298: END IF;
5299:
5300: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5301: x_klev_rec.DATE_LAST_INSPECTION := l_klev_rec.DATE_LAST_INSPECTION;
5302: END IF;
5303:
5304: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5300: IF (x_klev_rec.DATE_LAST_INSPECTION = OKC_API.G_MISS_DATE) THEN
5301: x_klev_rec.DATE_LAST_INSPECTION := l_klev_rec.DATE_LAST_INSPECTION;
5302: END IF;
5303:
5304: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5305: x_klev_rec.DATE_SOLD := l_klev_rec.DATE_SOLD;
5306: END IF;
5307:
5308: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5304: IF (x_klev_rec.DATE_SOLD = OKC_API.G_MISS_DATE) THEN
5305: x_klev_rec.DATE_SOLD := l_klev_rec.DATE_SOLD;
5306: END IF;
5307:
5308: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5309: x_klev_rec.LRV_AMOUNT := l_klev_rec.LRV_AMOUNT;
5310: END IF;
5311:
5312: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5308: IF (x_klev_rec.LRV_AMOUNT = OKC_API.G_MISS_NUM) THEN
5309: x_klev_rec.LRV_AMOUNT := l_klev_rec.LRV_AMOUNT;
5310: END IF;
5311:
5312: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5313: x_klev_rec.CAPITAL_REDUCTION := l_klev_rec.CAPITAL_REDUCTION;
5314: END IF;
5315:
5316: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5312: IF (x_klev_rec.CAPITAL_REDUCTION = OKC_API.G_MISS_NUM) THEN
5313: x_klev_rec.CAPITAL_REDUCTION := l_klev_rec.CAPITAL_REDUCTION;
5314: END IF;
5315:
5316: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5317: x_klev_rec.DATE_NEXT_INSPECTION_DUE := l_klev_rec.DATE_NEXT_INSPECTION_DUE;
5318: END IF;
5319:
5320: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5316: IF (x_klev_rec.DATE_NEXT_INSPECTION_DUE = OKC_API.G_MISS_DATE) THEN
5317: x_klev_rec.DATE_NEXT_INSPECTION_DUE := l_klev_rec.DATE_NEXT_INSPECTION_DUE;
5318: END IF;
5319:
5320: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5321: x_klev_rec.DATE_RESIDUAL_LAST_REVIEW := l_klev_rec.DATE_RESIDUAL_LAST_REVIEW;
5322: END IF;
5323:
5324: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5320: IF (x_klev_rec.DATE_RESIDUAL_LAST_REVIEW = OKC_API.G_MISS_DATE) THEN
5321: x_klev_rec.DATE_RESIDUAL_LAST_REVIEW := l_klev_rec.DATE_RESIDUAL_LAST_REVIEW;
5322: END IF;
5323:
5324: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5325: x_klev_rec.DATE_LAST_REAMORTISATION := l_klev_rec.DATE_LAST_REAMORTISATION;
5326: END IF;
5327:
5328: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5324: IF (x_klev_rec.DATE_LAST_REAMORTISATION = OKC_API.G_MISS_DATE) THEN
5325: x_klev_rec.DATE_LAST_REAMORTISATION := l_klev_rec.DATE_LAST_REAMORTISATION;
5326: END IF;
5327:
5328: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5329: x_klev_rec.VENDOR_ADVANCE_PAID := l_klev_rec.VENDOR_ADVANCE_PAID;
5330: END IF;
5331:
5332: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5328: IF (x_klev_rec.VENDOR_ADVANCE_PAID = OKC_API.G_MISS_NUM) THEN
5329: x_klev_rec.VENDOR_ADVANCE_PAID := l_klev_rec.VENDOR_ADVANCE_PAID;
5330: END IF;
5331:
5332: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5333: x_klev_rec.WEIGHTED_AVERAGE_LIFE := l_klev_rec.WEIGHTED_AVERAGE_LIFE;
5334: END IF;
5335:
5336: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5332: IF (x_klev_rec.WEIGHTED_AVERAGE_LIFE = OKC_API.G_MISS_NUM) THEN
5333: x_klev_rec.WEIGHTED_AVERAGE_LIFE := l_klev_rec.WEIGHTED_AVERAGE_LIFE;
5334: END IF;
5335:
5336: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5337: x_klev_rec.TRADEIN_AMOUNT := l_klev_rec.TRADEIN_AMOUNT;
5338: END IF;
5339:
5340: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5336: IF (x_klev_rec.TRADEIN_AMOUNT = OKC_API.G_MISS_NUM) THEN
5337: x_klev_rec.TRADEIN_AMOUNT := l_klev_rec.TRADEIN_AMOUNT;
5338: END IF;
5339:
5340: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5341: x_klev_rec.BOND_EQUIVALENT_YIELD := l_klev_rec.BOND_EQUIVALENT_YIELD;
5342: END IF;
5343:
5344: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5340: IF (x_klev_rec.BOND_EQUIVALENT_YIELD = OKC_API.G_MISS_NUM) THEN
5341: x_klev_rec.BOND_EQUIVALENT_YIELD := l_klev_rec.BOND_EQUIVALENT_YIELD;
5342: END IF;
5343:
5344: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5345: x_klev_rec.TERMINATION_PURCHASE_AMOUNT := l_klev_rec.TERMINATION_PURCHASE_AMOUNT;
5346: END IF;
5347:
5348: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5344: IF (x_klev_rec.TERMINATION_PURCHASE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5345: x_klev_rec.TERMINATION_PURCHASE_AMOUNT := l_klev_rec.TERMINATION_PURCHASE_AMOUNT;
5346: END IF;
5347:
5348: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5349: x_klev_rec.REFINANCE_AMOUNT := l_klev_rec.REFINANCE_AMOUNT;
5350: END IF;
5351:
5352: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5348: IF (x_klev_rec.REFINANCE_AMOUNT = OKC_API.G_MISS_NUM) THEN
5349: x_klev_rec.REFINANCE_AMOUNT := l_klev_rec.REFINANCE_AMOUNT;
5350: END IF;
5351:
5352: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5353: x_klev_rec.YEAR_BUILT := l_klev_rec.YEAR_BUILT;
5354: END IF;
5355:
5356: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5352: IF (x_klev_rec.YEAR_BUILT = OKC_API.G_MISS_NUM) THEN
5353: x_klev_rec.YEAR_BUILT := l_klev_rec.YEAR_BUILT;
5354: END IF;
5355:
5356: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5357: x_klev_rec.DELIVERED_DATE := l_klev_rec.DELIVERED_DATE;
5358: END IF;
5359:
5360: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5356: IF (x_klev_rec.DELIVERED_DATE = OKC_API.G_MISS_DATE) THEN
5357: x_klev_rec.DELIVERED_DATE := l_klev_rec.DELIVERED_DATE;
5358: END IF;
5359:
5360: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5361: x_klev_rec.CREDIT_TENANT_YN := l_klev_rec.CREDIT_TENANT_YN;
5362: END IF;
5363:
5364: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5360: IF (x_klev_rec.CREDIT_TENANT_YN = OKC_API.G_MISS_CHAR) THEN
5361: x_klev_rec.CREDIT_TENANT_YN := l_klev_rec.CREDIT_TENANT_YN;
5362: END IF;
5363:
5364: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5365: x_klev_rec.DATE_LAST_CLEANUP := l_klev_rec.DATE_LAST_CLEANUP;
5366: END IF;
5367:
5368: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5364: IF (x_klev_rec.DATE_LAST_CLEANUP = OKC_API.G_MISS_DATE) THEN
5365: x_klev_rec.DATE_LAST_CLEANUP := l_klev_rec.DATE_LAST_CLEANUP;
5366: END IF;
5367:
5368: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5369: x_klev_rec.YEAR_OF_MANUFACTURE := l_klev_rec.YEAR_OF_MANUFACTURE;
5370: END IF;
5371:
5372: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5368: IF (x_klev_rec.YEAR_OF_MANUFACTURE = OKC_API.G_MISS_CHAR) THEN
5369: x_klev_rec.YEAR_OF_MANUFACTURE := l_klev_rec.YEAR_OF_MANUFACTURE;
5370: END IF;
5371:
5372: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5373: x_klev_rec.COVERAGE_RATIO := l_klev_rec.COVERAGE_RATIO;
5374: END IF;
5375:
5376: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5372: IF (x_klev_rec.COVERAGE_RATIO = OKC_API.G_MISS_NUM) THEN
5373: x_klev_rec.COVERAGE_RATIO := l_klev_rec.COVERAGE_RATIO;
5374: END IF;
5375:
5376: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5377: x_klev_rec.REMARKETED_AMOUNT := l_klev_rec.REMARKETED_AMOUNT;
5378: END IF;
5379:
5380: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5376: IF (x_klev_rec.REMARKETED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5377: x_klev_rec.REMARKETED_AMOUNT := l_klev_rec.REMARKETED_AMOUNT;
5378: END IF;
5379:
5380: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5381: x_klev_rec.GROSS_SQUARE_FOOTAGE := l_klev_rec.GROSS_SQUARE_FOOTAGE;
5382: END IF;
5383:
5384: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5380: IF (x_klev_rec.GROSS_SQUARE_FOOTAGE = OKC_API.G_MISS_NUM) THEN
5381: x_klev_rec.GROSS_SQUARE_FOOTAGE := l_klev_rec.GROSS_SQUARE_FOOTAGE;
5382: END IF;
5383:
5384: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5385: x_klev_rec.PRESCRIBED_ASSET_YN := l_klev_rec.PRESCRIBED_ASSET_YN;
5386: END IF;
5387:
5388: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5384: IF (x_klev_rec.PRESCRIBED_ASSET_YN = OKC_API.G_MISS_CHAR) THEN
5385: x_klev_rec.PRESCRIBED_ASSET_YN := l_klev_rec.PRESCRIBED_ASSET_YN;
5386: END IF;
5387:
5388: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5389: x_klev_rec.DATE_REMARKETED := l_klev_rec.DATE_REMARKETED;
5390: END IF;
5391:
5392: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5388: IF (x_klev_rec.DATE_REMARKETED = OKC_API.G_MISS_DATE) THEN
5389: x_klev_rec.DATE_REMARKETED := l_klev_rec.DATE_REMARKETED;
5390: END IF;
5391:
5392: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5393: x_klev_rec.NET_RENTABLE := l_klev_rec.NET_RENTABLE;
5394: END IF;
5395:
5396: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5392: IF (x_klev_rec.NET_RENTABLE = OKC_API.G_MISS_NUM) THEN
5393: x_klev_rec.NET_RENTABLE := l_klev_rec.NET_RENTABLE;
5394: END IF;
5395:
5396: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5397: x_klev_rec.REMARKET_MARGIN := l_klev_rec.REMARKET_MARGIN;
5398: END IF;
5399:
5400: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5396: IF (x_klev_rec.REMARKET_MARGIN = OKC_API.G_MISS_NUM) THEN
5397: x_klev_rec.REMARKET_MARGIN := l_klev_rec.REMARKET_MARGIN;
5398: END IF;
5399:
5400: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5401: x_klev_rec.DATE_LETTER_ACCEPTANCE := l_klev_rec.DATE_LETTER_ACCEPTANCE;
5402: END IF;
5403:
5404: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5400: IF (x_klev_rec.DATE_LETTER_ACCEPTANCE = OKC_API.G_MISS_DATE) THEN
5401: x_klev_rec.DATE_LETTER_ACCEPTANCE := l_klev_rec.DATE_LETTER_ACCEPTANCE;
5402: END IF;
5403:
5404: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5405: x_klev_rec.REPURCHASED_AMOUNT := l_klev_rec.REPURCHASED_AMOUNT;
5406: END IF;
5407:
5408: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5404: IF (x_klev_rec.REPURCHASED_AMOUNT = OKC_API.G_MISS_NUM) THEN
5405: x_klev_rec.REPURCHASED_AMOUNT := l_klev_rec.REPURCHASED_AMOUNT;
5406: END IF;
5407:
5408: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5409: x_klev_rec.DATE_COMMITMENT_EXPIRATION := l_klev_rec.DATE_COMMITMENT_EXPIRATION;
5410: END IF;
5411:
5412: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5408: IF (x_klev_rec.DATE_COMMITMENT_EXPIRATION = OKC_API.G_MISS_DATE) THEN
5409: x_klev_rec.DATE_COMMITMENT_EXPIRATION := l_klev_rec.DATE_COMMITMENT_EXPIRATION;
5410: END IF;
5411:
5412: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5413: x_klev_rec.DATE_REPURCHASED := l_klev_rec.DATE_REPURCHASED;
5414: END IF;
5415:
5416: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5412: IF (x_klev_rec.DATE_REPURCHASED = OKC_API.G_MISS_DATE) THEN
5413: x_klev_rec.DATE_REPURCHASED := l_klev_rec.DATE_REPURCHASED;
5414: END IF;
5415:
5416: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5417: x_klev_rec.DATE_APPRAISAL := l_klev_rec.DATE_APPRAISAL;
5418: END IF;
5419:
5420: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5416: IF (x_klev_rec.DATE_APPRAISAL = OKC_API.G_MISS_DATE) THEN
5417: x_klev_rec.DATE_APPRAISAL := l_klev_rec.DATE_APPRAISAL;
5418: END IF;
5419:
5420: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5421: x_klev_rec.RESIDUAL_VALUE := l_klev_rec.RESIDUAL_VALUE;
5422: END IF;
5423:
5424: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5420: IF (x_klev_rec.RESIDUAL_VALUE = OKC_API.G_MISS_NUM) THEN
5421: x_klev_rec.RESIDUAL_VALUE := l_klev_rec.RESIDUAL_VALUE;
5422: END IF;
5423:
5424: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5425: x_klev_rec.APPRAISAL_VALUE := l_klev_rec.APPRAISAL_VALUE;
5426: END IF;
5427:
5428: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5424: IF (x_klev_rec.APPRAISAL_VALUE = OKC_API.G_MISS_NUM) THEN
5425: x_klev_rec.APPRAISAL_VALUE := l_klev_rec.APPRAISAL_VALUE;
5426: END IF;
5427:
5428: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5429: x_klev_rec.SECURED_DEAL_YN := l_klev_rec.SECURED_DEAL_YN;
5430: END IF;
5431:
5432: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5428: IF (x_klev_rec.SECURED_DEAL_YN = OKC_API.G_MISS_CHAR) THEN
5429: x_klev_rec.SECURED_DEAL_YN := l_klev_rec.SECURED_DEAL_YN;
5430: END IF;
5431:
5432: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5433: x_klev_rec.GAIN_LOSS := l_klev_rec.GAIN_LOSS;
5434: END IF;
5435:
5436: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5432: IF (x_klev_rec.GAIN_LOSS = OKC_API.G_MISS_NUM) THEN
5433: x_klev_rec.GAIN_LOSS := l_klev_rec.GAIN_LOSS;
5434: END IF;
5435:
5436: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5437: x_klev_rec.FLOOR_AMOUNT := l_klev_rec.FLOOR_AMOUNT;
5438: END IF;
5439:
5440: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5436: IF (x_klev_rec.FLOOR_AMOUNT = OKC_API.G_MISS_NUM) THEN
5437: x_klev_rec.FLOOR_AMOUNT := l_klev_rec.FLOOR_AMOUNT;
5438: END IF;
5439:
5440: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5441: x_klev_rec.RE_LEASE_YN := l_klev_rec.RE_LEASE_YN;
5442: END IF;
5443:
5444: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5440: IF (x_klev_rec.RE_LEASE_YN = OKC_API.G_MISS_CHAR) THEN
5441: x_klev_rec.RE_LEASE_YN := l_klev_rec.RE_LEASE_YN;
5442: END IF;
5443:
5444: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5445: x_klev_rec.PREVIOUS_CONTRACT := l_klev_rec.PREVIOUS_CONTRACT;
5446: END IF;
5447:
5448: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5444: IF (x_klev_rec.PREVIOUS_CONTRACT = OKC_API.G_MISS_CHAR) THEN
5445: x_klev_rec.PREVIOUS_CONTRACT := l_klev_rec.PREVIOUS_CONTRACT;
5446: END IF;
5447:
5448: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5449: x_klev_rec.TRACKED_RESIDUAL := l_klev_rec.TRACKED_RESIDUAL;
5450: END IF;
5451:
5452: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5448: IF (x_klev_rec.TRACKED_RESIDUAL = OKC_API.G_MISS_NUM) THEN
5449: x_klev_rec.TRACKED_RESIDUAL := l_klev_rec.TRACKED_RESIDUAL;
5450: END IF;
5451:
5452: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5453: x_klev_rec.DATE_TITLE_RECEIVED := l_klev_rec.DATE_TITLE_RECEIVED;
5454: END IF;
5455:
5456: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5452: IF (x_klev_rec.DATE_TITLE_RECEIVED = OKC_API.G_MISS_DATE) THEN
5453: x_klev_rec.DATE_TITLE_RECEIVED := l_klev_rec.DATE_TITLE_RECEIVED;
5454: END IF;
5455:
5456: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5457: x_klev_rec.AMOUNT := l_klev_rec.AMOUNT;
5458: END IF;
5459:
5460: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5456: IF (x_klev_rec.AMOUNT = OKC_API.G_MISS_NUM) THEN
5457: x_klev_rec.AMOUNT := l_klev_rec.AMOUNT;
5458: END IF;
5459:
5460: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5461: x_klev_rec.ATTRIBUTE_CATEGORY := l_klev_rec.ATTRIBUTE_CATEGORY;
5462: END IF;
5463:
5464: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5460: IF (x_klev_rec.ATTRIBUTE_CATEGORY = OKC_API.G_MISS_CHAR) THEN
5461: x_klev_rec.ATTRIBUTE_CATEGORY := l_klev_rec.ATTRIBUTE_CATEGORY;
5462: END IF;
5463:
5464: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5465: x_klev_rec.ATTRIBUTE1 := l_klev_rec.ATTRIBUTE1;
5466: END IF;
5467:
5468: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5464: IF (x_klev_rec.ATTRIBUTE1 = OKC_API.G_MISS_CHAR) THEN
5465: x_klev_rec.ATTRIBUTE1 := l_klev_rec.ATTRIBUTE1;
5466: END IF;
5467:
5468: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5469: x_klev_rec.ATTRIBUTE2 := l_klev_rec.ATTRIBUTE2;
5470: END IF;
5471:
5472: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5468: IF (x_klev_rec.ATTRIBUTE2 = OKC_API.G_MISS_CHAR) THEN
5469: x_klev_rec.ATTRIBUTE2 := l_klev_rec.ATTRIBUTE2;
5470: END IF;
5471:
5472: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5473: x_klev_rec.ATTRIBUTE3 := l_klev_rec.ATTRIBUTE3;
5474: END IF;
5475:
5476: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5472: IF (x_klev_rec.ATTRIBUTE3 = OKC_API.G_MISS_CHAR) THEN
5473: x_klev_rec.ATTRIBUTE3 := l_klev_rec.ATTRIBUTE3;
5474: END IF;
5475:
5476: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5477: x_klev_rec.ATTRIBUTE4 := l_klev_rec.ATTRIBUTE4;
5478: END IF;
5479:
5480: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5476: IF (x_klev_rec.ATTRIBUTE4 = OKC_API.G_MISS_CHAR) THEN
5477: x_klev_rec.ATTRIBUTE4 := l_klev_rec.ATTRIBUTE4;
5478: END IF;
5479:
5480: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5481: x_klev_rec.ATTRIBUTE5 := l_klev_rec.ATTRIBUTE5;
5482: END IF;
5483:
5484: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5480: IF (x_klev_rec.ATTRIBUTE5 = OKC_API.G_MISS_CHAR) THEN
5481: x_klev_rec.ATTRIBUTE5 := l_klev_rec.ATTRIBUTE5;
5482: END IF;
5483:
5484: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5485: x_klev_rec.ATTRIBUTE6 := l_klev_rec.ATTRIBUTE6;
5486: END IF;
5487:
5488: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5484: IF (x_klev_rec.ATTRIBUTE6 = OKC_API.G_MISS_CHAR) THEN
5485: x_klev_rec.ATTRIBUTE6 := l_klev_rec.ATTRIBUTE6;
5486: END IF;
5487:
5488: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5489: x_klev_rec.ATTRIBUTE7 := l_klev_rec.ATTRIBUTE7;
5490: END IF;
5491:
5492: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5488: IF (x_klev_rec.ATTRIBUTE7 = OKC_API.G_MISS_CHAR) THEN
5489: x_klev_rec.ATTRIBUTE7 := l_klev_rec.ATTRIBUTE7;
5490: END IF;
5491:
5492: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5493: x_klev_rec.ATTRIBUTE8 := l_klev_rec.ATTRIBUTE8;
5494: END IF;
5495:
5496: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5492: IF (x_klev_rec.ATTRIBUTE8 = OKC_API.G_MISS_CHAR) THEN
5493: x_klev_rec.ATTRIBUTE8 := l_klev_rec.ATTRIBUTE8;
5494: END IF;
5495:
5496: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5497: x_klev_rec.ATTRIBUTE9 := l_klev_rec.ATTRIBUTE9;
5498: END IF;
5499:
5500: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5496: IF (x_klev_rec.ATTRIBUTE9 = OKC_API.G_MISS_CHAR) THEN
5497: x_klev_rec.ATTRIBUTE9 := l_klev_rec.ATTRIBUTE9;
5498: END IF;
5499:
5500: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5501: x_klev_rec.ATTRIBUTE10 := l_klev_rec.ATTRIBUTE10;
5502: END IF;
5503:
5504: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5500: IF (x_klev_rec.ATTRIBUTE10 = OKC_API.G_MISS_CHAR) THEN
5501: x_klev_rec.ATTRIBUTE10 := l_klev_rec.ATTRIBUTE10;
5502: END IF;
5503:
5504: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5505: x_klev_rec.ATTRIBUTE11 := l_klev_rec.ATTRIBUTE11;
5506: END IF;
5507:
5508: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5504: IF (x_klev_rec.ATTRIBUTE11 = OKC_API.G_MISS_CHAR) THEN
5505: x_klev_rec.ATTRIBUTE11 := l_klev_rec.ATTRIBUTE11;
5506: END IF;
5507:
5508: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5509: x_klev_rec.ATTRIBUTE12 := l_klev_rec.ATTRIBUTE12;
5510: END IF;
5511:
5512: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5508: IF (x_klev_rec.ATTRIBUTE12 = OKC_API.G_MISS_CHAR) THEN
5509: x_klev_rec.ATTRIBUTE12 := l_klev_rec.ATTRIBUTE12;
5510: END IF;
5511:
5512: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5513: x_klev_rec.ATTRIBUTE13 := l_klev_rec.ATTRIBUTE13;
5514: END IF;
5515:
5516: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5512: IF (x_klev_rec.ATTRIBUTE13 = OKC_API.G_MISS_CHAR) THEN
5513: x_klev_rec.ATTRIBUTE13 := l_klev_rec.ATTRIBUTE13;
5514: END IF;
5515:
5516: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5517: x_klev_rec.ATTRIBUTE14 := l_klev_rec.ATTRIBUTE14;
5518: END IF;
5519:
5520: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5516: IF (x_klev_rec.ATTRIBUTE14 = OKC_API.G_MISS_CHAR) THEN
5517: x_klev_rec.ATTRIBUTE14 := l_klev_rec.ATTRIBUTE14;
5518: END IF;
5519:
5520: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5521: x_klev_rec.ATTRIBUTE15 := l_klev_rec.ATTRIBUTE15;
5522: END IF;
5523:
5524: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5520: IF (x_klev_rec.ATTRIBUTE15 = OKC_API.G_MISS_CHAR) THEN
5521: x_klev_rec.ATTRIBUTE15 := l_klev_rec.ATTRIBUTE15;
5522: END IF;
5523:
5524: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5525: x_klev_rec.STY_ID_FOR := l_klev_rec.STY_ID_FOR;
5526: END IF;
5527:
5528: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5524: IF (x_klev_rec.STY_ID_FOR = OKC_API.G_MISS_NUM) THEN
5525: x_klev_rec.STY_ID_FOR := l_klev_rec.STY_ID_FOR;
5526: END IF;
5527:
5528: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5529: x_klev_rec.CLG_ID := l_klev_rec.CLG_ID;
5530: END IF;
5531:
5532: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5528: IF (x_klev_rec.CLG_ID = OKC_API.G_MISS_NUM) THEN
5529: x_klev_rec.CLG_ID := l_klev_rec.CLG_ID;
5530: END IF;
5531:
5532: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5533: x_klev_rec.CREATED_BY := l_klev_rec.CREATED_BY;
5534: END IF;
5535:
5536: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5532: IF (x_klev_rec.CREATED_BY = OKC_API.G_MISS_NUM) THEN
5533: x_klev_rec.CREATED_BY := l_klev_rec.CREATED_BY;
5534: END IF;
5535:
5536: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5537: x_klev_rec.CREATION_DATE := l_klev_rec.CREATION_DATE;
5538: END IF;
5539:
5540: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5536: IF (x_klev_rec.CREATION_DATE = OKC_API.G_MISS_DATE) THEN
5537: x_klev_rec.CREATION_DATE := l_klev_rec.CREATION_DATE;
5538: END IF;
5539:
5540: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5541: x_klev_rec.LAST_UPDATED_BY := l_klev_rec.LAST_UPDATED_BY;
5542: END IF;
5543:
5544: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5540: IF (x_klev_rec.LAST_UPDATED_BY = OKC_API.G_MISS_NUM) THEN
5541: x_klev_rec.LAST_UPDATED_BY := l_klev_rec.LAST_UPDATED_BY;
5542: END IF;
5543:
5544: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5545: x_klev_rec.LAST_UPDATE_DATE := l_klev_rec.LAST_UPDATE_DATE;
5546: END IF;
5547:
5548: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5544: IF (x_klev_rec.LAST_UPDATE_DATE = OKC_API.G_MISS_DATE) THEN
5545: x_klev_rec.LAST_UPDATE_DATE := l_klev_rec.LAST_UPDATE_DATE;
5546: END IF;
5547:
5548: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5549: x_klev_rec.LAST_UPDATE_LOGIN := l_klev_rec.LAST_UPDATE_LOGIN;
5550: END IF;
5551:
5552: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5548: IF (x_klev_rec.LAST_UPDATE_LOGIN = OKC_API.G_MISS_NUM) THEN
5549: x_klev_rec.LAST_UPDATE_LOGIN := l_klev_rec.LAST_UPDATE_LOGIN;
5550: END IF;
5551:
5552: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5553: x_klev_rec.DATE_FUNDING := l_klev_rec.DATE_FUNDING;
5554: END IF;
5555:
5556: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5552: IF (x_klev_rec.DATE_FUNDING = OKC_API.G_MISS_DATE) THEN
5553: x_klev_rec.DATE_FUNDING := l_klev_rec.DATE_FUNDING;
5554: END IF;
5555:
5556: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5557: x_klev_rec.DATE_FUNDING_REQUIRED := l_klev_rec.DATE_FUNDING_REQUIRED;
5558: END IF;
5559:
5560: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5556: IF (x_klev_rec.DATE_FUNDING_REQUIRED = OKC_API.G_MISS_DATE) THEN
5557: x_klev_rec.DATE_FUNDING_REQUIRED := l_klev_rec.DATE_FUNDING_REQUIRED;
5558: END IF;
5559:
5560: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5561: x_klev_rec.DATE_ACCEPTED := l_klev_rec.DATE_ACCEPTED;
5562: END IF;
5563:
5564: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5560: IF (x_klev_rec.DATE_ACCEPTED = OKC_API.G_MISS_DATE) THEN
5561: x_klev_rec.DATE_ACCEPTED := l_klev_rec.DATE_ACCEPTED;
5562: END IF;
5563:
5564: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5565: x_klev_rec.DATE_DELIVERY_EXPECTED := l_klev_rec.DATE_DELIVERY_EXPECTED;
5566: END IF;
5567:
5568: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5564: IF (x_klev_rec.DATE_DELIVERY_EXPECTED = OKC_API.G_MISS_DATE) THEN
5565: x_klev_rec.DATE_DELIVERY_EXPECTED := l_klev_rec.DATE_DELIVERY_EXPECTED;
5566: END IF;
5567:
5568: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5569: x_klev_rec.OEC := l_klev_rec.OEC;
5570: END IF;
5571:
5572: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5568: IF (x_klev_rec.OEC = OKC_API.G_MISS_NUM) THEN
5569: x_klev_rec.OEC := l_klev_rec.OEC;
5570: END IF;
5571:
5572: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5573: x_klev_rec.CAPITAL_AMOUNT := l_klev_rec.CAPITAL_AMOUNT;
5574: END IF;
5575:
5576: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5572: IF (x_klev_rec.CAPITAL_AMOUNT = OKC_API.G_MISS_NUM) THEN
5573: x_klev_rec.CAPITAL_AMOUNT := l_klev_rec.CAPITAL_AMOUNT;
5574: END IF;
5575:
5576: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5577: x_klev_rec.RESIDUAL_GRNTY_AMOUNT := l_klev_rec.RESIDUAL_GRNTY_AMOUNT;
5578: END IF;
5579:
5580: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5576: IF (x_klev_rec.RESIDUAL_GRNTY_AMOUNT = OKC_API.G_MISS_NUM) THEN
5577: x_klev_rec.RESIDUAL_GRNTY_AMOUNT := l_klev_rec.RESIDUAL_GRNTY_AMOUNT;
5578: END IF;
5579:
5580: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5581: x_klev_rec.RESIDUAL_CODE := l_klev_rec.RESIDUAL_CODE;
5582: END IF;
5583:
5584: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5580: IF (x_klev_rec.RESIDUAL_CODE = OKC_API.G_MISS_CHAR) THEN
5581: x_klev_rec.RESIDUAL_CODE := l_klev_rec.RESIDUAL_CODE;
5582: END IF;
5583:
5584: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5585: x_klev_rec.RVI_PREMIUM := l_klev_rec.RVI_PREMIUM;
5586: END IF;
5587:
5588: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5584: IF (x_klev_rec.RVI_PREMIUM = OKC_API.G_MISS_NUM) THEN
5585: x_klev_rec.RVI_PREMIUM := l_klev_rec.RVI_PREMIUM;
5586: END IF;
5587:
5588: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5589: x_klev_rec.CREDIT_NATURE := l_klev_rec.CREDIT_NATURE;
5590: END IF;
5591:
5592: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5588: IF (x_klev_rec.CREDIT_NATURE = OKC_API.G_MISS_CHAR) THEN
5589: x_klev_rec.CREDIT_NATURE := l_klev_rec.CREDIT_NATURE;
5590: END IF;
5591:
5592: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5593: x_klev_rec.CAPITALIZED_INTEREST := l_klev_rec.CAPITALIZED_INTEREST;
5594: END IF;
5595:
5596: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5592: IF (x_klev_rec.CAPITALIZED_INTEREST = OKC_API.G_MISS_NUM) THEN
5593: x_klev_rec.CAPITALIZED_INTEREST := l_klev_rec.CAPITALIZED_INTEREST;
5594: END IF;
5595:
5596: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5597: x_klev_rec.CAPITAL_REDUCTION_PERCENT := l_klev_rec.CAPITAL_REDUCTION_PERCENT;
5598: END IF;
5599:
5600: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5596: IF (x_klev_rec.CAPITAL_REDUCTION_PERCENT = OKC_API.G_MISS_NUM) THEN
5597: x_klev_rec.CAPITAL_REDUCTION_PERCENT := l_klev_rec.CAPITAL_REDUCTION_PERCENT;
5598: END IF;
5599:
5600: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5601: x_klev_rec.DATE_PAY_INVESTOR_START := l_klev_rec.DATE_PAY_INVESTOR_START;
5602: END IF;
5603:
5604: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5600: IF (x_klev_rec.DATE_PAY_INVESTOR_START = OKC_API.G_MISS_DATE) THEN
5601: x_klev_rec.DATE_PAY_INVESTOR_START := l_klev_rec.DATE_PAY_INVESTOR_START;
5602: END IF;
5603:
5604: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5605: x_klev_rec.PAY_INVESTOR_FREQUENCY := l_klev_rec.PAY_INVESTOR_FREQUENCY;
5606: END IF;
5607:
5608: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5604: IF (x_klev_rec.PAY_INVESTOR_FREQUENCY = OKC_API.G_MISS_CHAR) THEN
5605: x_klev_rec.PAY_INVESTOR_FREQUENCY := l_klev_rec.PAY_INVESTOR_FREQUENCY;
5606: END IF;
5607:
5608: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5609: x_klev_rec.PAY_INVESTOR_EVENT := l_klev_rec.PAY_INVESTOR_EVENT;
5610: END IF;
5611:
5612: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5608: IF (x_klev_rec.PAY_INVESTOR_EVENT = OKC_API.G_MISS_CHAR) THEN
5609: x_klev_rec.PAY_INVESTOR_EVENT := l_klev_rec.PAY_INVESTOR_EVENT;
5610: END IF;
5611:
5612: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5613: x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS;
5614: END IF;
5615: IF (x_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
5616: x_klev_rec.FEE_TYPE := l_klev_rec.FEE_TYPE;
5611:
5612: IF (x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS = OKC_API.G_MISS_NUM) THEN
5613: x_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS := l_klev_rec.PAY_INVESTOR_REMITTANCE_DAYS;
5614: END IF;
5615: IF (x_klev_rec.FEE_TYPE = OKC_API.G_MISS_CHAR) THEN
5616: x_klev_rec.FEE_TYPE := l_klev_rec.FEE_TYPE;
5617: END IF;
5618: --Bug# 3143522: 11.5.10
5619: --subsidy
5724: FUNCTION Set_Attributes (
5725: p_klev_rec IN klev_rec_type,
5726: x_klev_rec OUT NOCOPY klev_rec_type
5727: ) RETURN VARCHAR2 IS
5728: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5729: BEGIN
5730: x_klev_rec := p_klev_rec;
5731: x_klev_rec.OBJECT_VERSION_NUMBER := NVL(x_klev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5732: RETURN(l_return_status);
5731: x_klev_rec.OBJECT_VERSION_NUMBER := NVL(x_klev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5732: RETURN(l_return_status);
5733: END Set_Attributes;
5734: BEGIN
5735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5736: G_PKG_NAME,
5737: p_init_msg_list,
5738: l_api_version,
5739: p_api_version,
5739: p_api_version,
5740: '_PVT',
5741: x_return_status);
5742:
5743: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5745: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5746: RAISE OKC_API.G_EXCEPTION_ERROR;
5747: END IF;
5740: '_PVT',
5741: x_return_status);
5742:
5743: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5745: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5746: RAISE OKC_API.G_EXCEPTION_ERROR;
5747: END IF;
5748:
5741: x_return_status);
5742:
5743: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5745: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5746: RAISE OKC_API.G_EXCEPTION_ERROR;
5747: END IF;
5748:
5749: --- Setting item attributes
5742:
5743: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5745: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5746: RAISE OKC_API.G_EXCEPTION_ERROR;
5747: END IF;
5748:
5749: --- Setting item attributes
5750: l_return_status := Set_Attributes(
5751: p_klev_rec, -- IN
5752: l_klev_rec); -- OUT
5753: --- If any errors happen abort API
5754:
5755: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5757: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5758: RAISE OKC_API.G_EXCEPTION_ERROR;
5759: END IF;
5752: l_klev_rec); -- OUT
5753: --- If any errors happen abort API
5754:
5755: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5757: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5758: RAISE OKC_API.G_EXCEPTION_ERROR;
5759: END IF;
5760:
5753: --- If any errors happen abort API
5754:
5755: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5757: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5758: RAISE OKC_API.G_EXCEPTION_ERROR;
5759: END IF;
5760:
5761: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5754:
5755: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5757: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5758: RAISE OKC_API.G_EXCEPTION_ERROR;
5759: END IF;
5760:
5761: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5762:
5759: END IF;
5760:
5761: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5762:
5763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5766: RAISE OKC_API.G_EXCEPTION_ERROR;
5767: END IF;
5760:
5761: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5762:
5763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5766: RAISE OKC_API.G_EXCEPTION_ERROR;
5767: END IF;
5768:
5761: l_return_status := populate_new_record(l_klev_rec, l_def_klev_rec);
5762:
5763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5766: RAISE OKC_API.G_EXCEPTION_ERROR;
5767: END IF;
5768:
5769: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
5762:
5763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5766: RAISE OKC_API.G_EXCEPTION_ERROR;
5767: END IF;
5768:
5769: l_def_klev_rec := fill_who_columns(l_def_klev_rec);
5770: --- Validate all non-missing attributes (Item Level Validation)
5770: --- Validate all non-missing attributes (Item Level Validation)
5771: l_return_status := Validate_Attributes(l_def_klev_rec);
5772: --- If any errors happen abort API
5773:
5774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5777: RAISE OKC_API.G_EXCEPTION_ERROR;
5778: END IF;
5771: l_return_status := Validate_Attributes(l_def_klev_rec);
5772: --- If any errors happen abort API
5773:
5774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5777: RAISE OKC_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5772: --- If any errors happen abort API
5773:
5774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5777: RAISE OKC_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5780: l_return_status := Validate_Record(l_def_klev_rec);
5773:
5774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5777: RAISE OKC_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5780: l_return_status := Validate_Record(l_def_klev_rec);
5781:
5778: END IF;
5779:
5780: l_return_status := Validate_Record(l_def_klev_rec);
5781:
5782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5785: RAISE OKC_API.G_EXCEPTION_ERROR;
5786: END IF;
5779:
5780: l_return_status := Validate_Record(l_def_klev_rec);
5781:
5782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5785: RAISE OKC_API.G_EXCEPTION_ERROR;
5786: END IF;
5787:
5780: l_return_status := Validate_Record(l_def_klev_rec);
5781:
5782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5785: RAISE OKC_API.G_EXCEPTION_ERROR;
5786: END IF;
5787:
5788:
5781:
5782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5785: RAISE OKC_API.G_EXCEPTION_ERROR;
5786: END IF;
5787:
5788:
5789: --------------------------------------
5802: l_kle_rec,
5803: lx_kle_rec
5804: );
5805:
5806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5809: RAISE OKC_API.G_EXCEPTION_ERROR;
5810: END IF;
5803: lx_kle_rec
5804: );
5805:
5806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5809: RAISE OKC_API.G_EXCEPTION_ERROR;
5810: END IF;
5811:
5804: );
5805:
5806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5809: RAISE OKC_API.G_EXCEPTION_ERROR;
5810: END IF;
5811:
5812: migrate(lx_kle_rec, l_def_klev_rec);
5805:
5806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5809: RAISE OKC_API.G_EXCEPTION_ERROR;
5810: END IF;
5811:
5812: migrate(lx_kle_rec, l_def_klev_rec);
5813: x_klev_rec := l_def_klev_rec;
5810: END IF;
5811:
5812: migrate(lx_kle_rec, l_def_klev_rec);
5813: x_klev_rec := l_def_klev_rec;
5814: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5815:
5816: EXCEPTION
5817: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5813: x_klev_rec := l_def_klev_rec;
5814: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5815:
5816: EXCEPTION
5817: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5819: (
5820: l_api_name,
5821: G_PKG_NAME,
5814: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5815:
5816: EXCEPTION
5817: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5819: (
5820: l_api_name,
5821: G_PKG_NAME,
5822: 'OKC_API.G_RET_STS_ERROR',
5818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5819: (
5820: l_api_name,
5821: G_PKG_NAME,
5822: 'OKC_API.G_RET_STS_ERROR',
5823: x_msg_count,
5824: x_msg_data,
5825: '_PVT'
5826: );
5823: x_msg_count,
5824: x_msg_data,
5825: '_PVT'
5826: );
5827: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5829: (
5830: l_api_name,
5831: G_PKG_NAME,
5824: x_msg_data,
5825: '_PVT'
5826: );
5827: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5829: (
5830: l_api_name,
5831: G_PKG_NAME,
5832: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5828: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5829: (
5830: l_api_name,
5831: G_PKG_NAME,
5832: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5833: x_msg_count,
5834: x_msg_data,
5835: '_PVT'
5836: );
5834: x_msg_data,
5835: '_PVT'
5836: );
5837: WHEN OTHERS THEN
5838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5839: (
5840: l_api_name,
5841: G_PKG_NAME,
5842: 'OTHERS',
5861: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
5862:
5863: l_api_version CONSTANT NUMBER := 1;
5864: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
5865: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5866: i NUMBER := 0;
5867: BEGIN
5868: OKC_API.init_msg_list(p_init_msg_list);
5869: -- Make sure PL/SQL table has records in it before passing
5864: l_api_name CONSTANT VARCHAR2(30) := 'tbl_update_row';
5865: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5866: i NUMBER := 0;
5867: BEGIN
5868: OKC_API.init_msg_list(p_init_msg_list);
5869: -- Make sure PL/SQL table has records in it before passing
5870: IF (p_klev_tbl.COUNT > 0) THEN
5871: i := p_klev_tbl.FIRST;
5872: LOOP
5871: i := p_klev_tbl.FIRST;
5872: LOOP
5873: update_row (
5874: p_api_version => p_api_version,
5875: p_init_msg_list => OKC_API.G_FALSE,
5876: x_return_status => x_return_status,
5877: x_msg_count => x_msg_count,
5878: x_msg_data => x_msg_data,
5879: p_klev_rec => p_klev_tbl(i),
5883: END LOOP;
5884: END IF;
5885:
5886: EXCEPTION
5887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5889: (
5890: l_api_name,
5891: G_PKG_NAME,
5884: END IF;
5885:
5886: EXCEPTION
5887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5889: (
5890: l_api_name,
5891: G_PKG_NAME,
5892: 'OKC_API.G_RET_STS_ERROR',
5888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5889: (
5890: l_api_name,
5891: G_PKG_NAME,
5892: 'OKC_API.G_RET_STS_ERROR',
5893: x_msg_count,
5894: x_msg_data,
5895: '_PVT'
5896: );
5893: x_msg_count,
5894: x_msg_data,
5895: '_PVT'
5896: );
5897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5899: (
5900: l_api_name,
5901: G_PKG_NAME,
5894: x_msg_data,
5895: '_PVT'
5896: );
5897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5899: (
5900: l_api_name,
5901: G_PKG_NAME,
5902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5899: (
5900: l_api_name,
5901: G_PKG_NAME,
5902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5903: x_msg_count,
5904: x_msg_data,
5905: '_PVT'
5906: );
5904: x_msg_data,
5905: '_PVT'
5906: );
5907: WHEN OTHERS THEN
5908: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5909: (
5910: l_api_name,
5911: G_PKG_NAME,
5912: 'OTHERS',
5937: p_kle_rec IN kle_rec_type) IS
5938:
5939: l_api_version CONSTANT NUMBER := 1;
5940: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
5941: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5942: l_kle_rec kle_rec_type:= p_kle_rec;
5943: l_row_notfound BOOLEAN := TRUE;
5944: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
5945: lx_okl_k_lines_h_rec okl_k_lines_h_rec_type;
5943: l_row_notfound BOOLEAN := TRUE;
5944: l_okl_k_lines_h_rec okl_k_lines_h_rec_type;
5945: lx_okl_k_lines_h_rec okl_k_lines_h_rec_type;
5946: BEGIN
5947: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5948: p_init_msg_list,
5949: '_PVT',
5950: x_return_status);
5951:
5948: p_init_msg_list,
5949: '_PVT',
5950: x_return_status);
5951:
5952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5955: RAISE OKC_API.G_EXCEPTION_ERROR;
5956: END IF;
5949: '_PVT',
5950: x_return_status);
5951:
5952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5955: RAISE OKC_API.G_EXCEPTION_ERROR;
5956: END IF;
5957:
5950: x_return_status);
5951:
5952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5955: RAISE OKC_API.G_EXCEPTION_ERROR;
5956: END IF;
5957:
5958: /*
5951:
5952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5955: RAISE OKC_API.G_EXCEPTION_ERROR;
5956: END IF;
5957:
5958: /*
5959: -- Insert into History table
5958: /*
5959: -- Insert into History table
5960: l_kle_rec := get_rec(l_kle_rec, l_row_notfound);
5961: IF (l_row_notfound) THEN
5962: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5963: END IF;
5964: migrate(l_kle_rec, l_okl_k_lines_h_rec);
5965: insert_row(
5966: l_api_version,
5971: l_okl_k_lines_h_rec,
5972: lx_okl_k_lines_h_rec
5973: );
5974:
5975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5978: RAISE OKC_API.G_EXCEPTION_ERROR;
5979: END IF;
5972: lx_okl_k_lines_h_rec
5973: );
5974:
5975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5978: RAISE OKC_API.G_EXCEPTION_ERROR;
5979: END IF;
5980: */
5973: );
5974:
5975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5978: RAISE OKC_API.G_EXCEPTION_ERROR;
5979: END IF;
5980: */
5981: DELETE FROM OKL_K_LINES
5974:
5975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5978: RAISE OKC_API.G_EXCEPTION_ERROR;
5979: END IF;
5980: */
5981: DELETE FROM OKL_K_LINES
5982: WHERE ID = l_kle_rec.id;
5980: */
5981: DELETE FROM OKL_K_LINES
5982: WHERE ID = l_kle_rec.id;
5983:
5984: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5985:
5986: EXCEPTION
5987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5988: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5983:
5984: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5985:
5986: EXCEPTION
5987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5988: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5989: (
5990: l_api_name,
5991: G_PKG_NAME,
5984: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5985:
5986: EXCEPTION
5987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5988: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5989: (
5990: l_api_name,
5991: G_PKG_NAME,
5992: 'OKC_API.G_RET_STS_ERROR',
5988: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5989: (
5990: l_api_name,
5991: G_PKG_NAME,
5992: 'OKC_API.G_RET_STS_ERROR',
5993: x_msg_count,
5994: x_msg_data,
5995: '_PVT'
5996: );
5993: x_msg_count,
5994: x_msg_data,
5995: '_PVT'
5996: );
5997: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5998: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5999: (
6000: l_api_name,
6001: G_PKG_NAME,
5994: x_msg_data,
5995: '_PVT'
5996: );
5997: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5998: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5999: (
6000: l_api_name,
6001: G_PKG_NAME,
6002: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5998: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5999: (
6000: l_api_name,
6001: G_PKG_NAME,
6002: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6003: x_msg_count,
6004: x_msg_data,
6005: '_PVT'
6006: );
6004: x_msg_data,
6005: '_PVT'
6006: );
6007: WHEN OTHERS THEN
6008: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6009: (
6010: l_api_name,
6011: G_PKG_NAME,
6012: 'OTHERS',
6027: p_klev_rec IN klev_rec_type) IS
6028:
6029: l_api_version CONSTANT NUMBER := 1;
6030: l_api_name CONSTANT VARCHAR2(30) := 'rec_delete_row';
6031: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6032: l_klev_rec klev_rec_type := p_klev_rec;
6033: l_kle_rec kle_rec_type;
6034: BEGIN
6035: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6031: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6032: l_klev_rec klev_rec_type := p_klev_rec;
6033: l_kle_rec kle_rec_type;
6034: BEGIN
6035: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6036: G_PKG_NAME,
6037: p_init_msg_list,
6038: l_api_version,
6039: p_api_version,
6039: p_api_version,
6040: '_PVT',
6041: x_return_status);
6042:
6043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6046: RAISE OKC_API.G_EXCEPTION_ERROR;
6047: END IF;
6040: '_PVT',
6041: x_return_status);
6042:
6043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6046: RAISE OKC_API.G_EXCEPTION_ERROR;
6047: END IF;
6048:
6041: x_return_status);
6042:
6043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6046: RAISE OKC_API.G_EXCEPTION_ERROR;
6047: END IF;
6048:
6049: --------------------------------------
6042:
6043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6046: RAISE OKC_API.G_EXCEPTION_ERROR;
6047: END IF;
6048:
6049: --------------------------------------
6050: -- Move VIEW record to "Child" records
6061: x_msg_data,
6062: l_kle_rec
6063: );
6064:
6065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6068: RAISE OKC_API.G_EXCEPTION_ERROR;
6069: END IF;
6062: l_kle_rec
6063: );
6064:
6065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6068: RAISE OKC_API.G_EXCEPTION_ERROR;
6069: END IF;
6070:
6063: );
6064:
6065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6068: RAISE OKC_API.G_EXCEPTION_ERROR;
6069: END IF;
6070:
6071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6064:
6065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6068: RAISE OKC_API.G_EXCEPTION_ERROR;
6069: END IF;
6070:
6071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6068: RAISE OKC_API.G_EXCEPTION_ERROR;
6069: END IF;
6070:
6071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6073: EXCEPTION
6074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6070:
6071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6073: EXCEPTION
6074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6076: (
6077: l_api_name,
6078: G_PKG_NAME,
6071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6072:
6073: EXCEPTION
6074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6076: (
6077: l_api_name,
6078: G_PKG_NAME,
6079: 'OKC_API.G_RET_STS_ERROR',
6075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6076: (
6077: l_api_name,
6078: G_PKG_NAME,
6079: 'OKC_API.G_RET_STS_ERROR',
6080: x_msg_count,
6081: x_msg_data,
6082: '_PVT'
6083: );
6080: x_msg_count,
6081: x_msg_data,
6082: '_PVT'
6083: );
6084: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6085: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6086: (
6087: l_api_name,
6088: G_PKG_NAME,
6081: x_msg_data,
6082: '_PVT'
6083: );
6084: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6085: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6086: (
6087: l_api_name,
6088: G_PKG_NAME,
6089: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6085: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6086: (
6087: l_api_name,
6088: G_PKG_NAME,
6089: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6090: x_msg_count,
6091: x_msg_data,
6092: '_PVT'
6093: );
6091: x_msg_data,
6092: '_PVT'
6093: );
6094: WHEN OTHERS THEN
6095: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6096: (
6097: l_api_name,
6098: G_PKG_NAME,
6099: 'OTHERS',
6117: p_klev_tbl IN klev_tbl_type) IS
6118:
6119: l_api_version CONSTANT NUMBER := 1;
6120: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
6121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6122: i NUMBER := 0;
6123: BEGIN
6124: OKC_API.init_msg_list(p_init_msg_list);
6125: -- Make sure PL/SQL table has records in it before passing
6120: l_api_name CONSTANT VARCHAR2(30) := 'tbl_delete_row';
6121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6122: i NUMBER := 0;
6123: BEGIN
6124: OKC_API.init_msg_list(p_init_msg_list);
6125: -- Make sure PL/SQL table has records in it before passing
6126: IF (p_klev_tbl.COUNT > 0) THEN
6127: i := p_klev_tbl.FIRST;
6128: LOOP
6127: i := p_klev_tbl.FIRST;
6128: LOOP
6129: delete_row (
6130: p_api_version => p_api_version,
6131: p_init_msg_list => OKC_API.G_FALSE,
6132: x_return_status => x_return_status,
6133: x_msg_count => x_msg_count,
6134: x_msg_data => x_msg_data,
6135: p_klev_rec => p_klev_tbl(i));
6138: END LOOP;
6139: END IF;
6140:
6141: EXCEPTION
6142: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6144: (
6145: l_api_name,
6146: G_PKG_NAME,
6139: END IF;
6140:
6141: EXCEPTION
6142: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6144: (
6145: l_api_name,
6146: G_PKG_NAME,
6147: 'OKC_API.G_RET_STS_ERROR',
6143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6144: (
6145: l_api_name,
6146: G_PKG_NAME,
6147: 'OKC_API.G_RET_STS_ERROR',
6148: x_msg_count,
6149: x_msg_data,
6150: '_PVT'
6151: );
6148: x_msg_count,
6149: x_msg_data,
6150: '_PVT'
6151: );
6152: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6153: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6154: (
6155: l_api_name,
6156: G_PKG_NAME,
6149: x_msg_data,
6150: '_PVT'
6151: );
6152: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6153: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6154: (
6155: l_api_name,
6156: G_PKG_NAME,
6157: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6153: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6154: (
6155: l_api_name,
6156: G_PKG_NAME,
6157: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6158: x_msg_count,
6159: x_msg_data,
6160: '_PVT'
6161: );
6159: x_msg_data,
6160: '_PVT'
6161: );
6162: WHEN OTHERS THEN
6163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6164: (
6165: l_api_name,
6166: G_PKG_NAME,
6167: 'OTHERS',
6180: FUNCTION create_version(
6181: p_chr_id IN NUMBER,
6182: p_major_version IN NUMBER) RETURN VARCHAR2 IS
6183:
6184: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6185:
6186: BEGIN
6187: INSERT INTO OKL_K_LINES_H
6188: (
6476: EXCEPTION
6477: -- other appropriate handlers
6478: WHEN OTHERS THEN
6479: -- store SQL error message on message stack
6480: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
6481: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
6482: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
6483: p_token1_value => sqlcode,
6484: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6484: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6485: p_token2_value => sqlerrm);
6486:
6487: -- notify UNEXPECTED error
6488: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6489: return l_return_status;
6490: END create_version;
6491:
6492: FUNCTION restore_version(
6492: FUNCTION restore_version(
6493: p_chr_id IN NUMBER,
6494: p_major_version IN NUMBER) RETURN VARCHAR2 IS
6495:
6496: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6497:
6498: BEGIN
6499: INSERT INTO OKL_K_LINES
6500: (
6788: EXCEPTION
6789: -- other appropriate handlers
6790: WHEN OTHERS THEN
6791: -- store SQL error message on message stack
6792: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
6793: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
6794: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
6795: p_token1_value => sqlcode,
6796: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6796: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
6797: p_token2_value => sqlerrm);
6798:
6799: -- notify UNEXPECTED error
6800: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6801: return l_return_status;
6802: END restore_version;
6803:
6804: