[Home] [Help]
26: p_acdv_rec in acdv_rec_type) is
27:
28: begin
29: -- initialize return status
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
31:
32: -- data is required
33: if (p_acdv_rec.id is null) or (p_acdv_rec.id = OKC_API.G_MISS_NUM) then
34: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
29: -- initialize return status
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
31:
32: -- data is required
33: if (p_acdv_rec.id is null) or (p_acdv_rec.id = OKC_API.G_MISS_NUM) then
34: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
35: p_msg_name => g_required_value,
36: p_token1 => g_col_name_token,
37: p_token1_value => 'id');
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
31:
32: -- data is required
33: if (p_acdv_rec.id is null) or (p_acdv_rec.id = OKC_API.G_MISS_NUM) then
34: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
35: p_msg_name => g_required_value,
36: p_token1 => g_col_name_token,
37: p_token1_value => 'id');
38:
36: p_token1 => g_col_name_token,
37: p_token1_value => 'id');
38:
39: -- notify caller of an error
40: x_return_status := OKC_API.G_RET_STS_ERROR;
41:
42: -- halt further validation of this column
43: raise G_EXCEPTION_HALT_VALIDATION;
44: end if;
50: null;
51:
52: when OTHERS then
53: -- store SQL error message on message stack for caller
54: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
55: p_msg_name => g_unexpected_error,
56: p_token1 => g_sqlcode_token,
57: p_token1_value => sqlcode,
58: p_token2 => g_sqlerrm_token,
58: p_token2 => g_sqlerrm_token,
59: p_token2_value => sqlerrm);
60:
61: -- notify caller of an UNEXPECTED error
62: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
63:
64: end validate_id;
65:
66: -- Start of comments
76: p_acdv_rec in acdv_rec_type) is
77:
78: begin
79: -- initialize return status
80: x_return_status := OKC_API.G_RET_STS_SUCCESS;
81:
82: -- data is required
83: if (p_acdv_rec.object_version_number is null) or (p_acdv_rec.object_version_number = OKC_API.G_MISS_NUM) then
84: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
79: -- initialize return status
80: x_return_status := OKC_API.G_RET_STS_SUCCESS;
81:
82: -- data is required
83: if (p_acdv_rec.object_version_number is null) or (p_acdv_rec.object_version_number = OKC_API.G_MISS_NUM) then
84: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
85: p_msg_name => g_required_value,
86: p_token1 => g_col_name_token,
87: p_token1_value => 'object_version_number');
80: x_return_status := OKC_API.G_RET_STS_SUCCESS;
81:
82: -- data is required
83: if (p_acdv_rec.object_version_number is null) or (p_acdv_rec.object_version_number = OKC_API.G_MISS_NUM) then
84: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
85: p_msg_name => g_required_value,
86: p_token1 => g_col_name_token,
87: p_token1_value => 'object_version_number');
88:
86: p_token1 => g_col_name_token,
87: p_token1_value => 'object_version_number');
88:
89: -- notify caller of an error
90: x_return_status := OKC_API.G_RET_STS_ERROR;
91:
92: -- halt further validation of this column
93: raise G_EXCEPTION_HALT_VALIDATION;
94: end if;
100: null;
101:
102: when OTHERS then
103: -- store SQL error message on message stack for caller
104: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
105: p_msg_name => g_unexpected_error,
106: p_token1 => g_sqlcode_token,
107: p_token1_value => sqlcode,
108: p_token2 => g_sqlerrm_token,
108: p_token2 => g_sqlerrm_token,
109: p_token2_value => sqlerrm);
110:
111: -- notify caller of an UNEXPECTED error
112: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
113:
114: end validate_object_version_number;
115:
116: -- Start of comments
123: -- End of comments
124: procedure validate_cdn_code(
125: x_return_status out nocopy VARCHAR2,
126: p_acdv_rec in acdv_rec_type) is
127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
128:
129: begin
130: -- initialize return status
131: x_return_status := OKC_API.G_RET_STS_SUCCESS;
127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
128:
129: begin
130: -- initialize return status
131: x_return_status := OKC_API.G_RET_STS_SUCCESS;
132:
133: -- data is required
134: if (p_acdv_rec.cdn_code is null) or (p_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) then
135: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
130: -- initialize return status
131: x_return_status := OKC_API.G_RET_STS_SUCCESS;
132:
133: -- data is required
134: if (p_acdv_rec.cdn_code is null) or (p_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) then
135: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
136: p_msg_name => g_required_value,
137: p_token1 => g_col_name_token,
138: p_token1_value => 'cdn_code');
131: x_return_status := OKC_API.G_RET_STS_SUCCESS;
132:
133: -- data is required
134: if (p_acdv_rec.cdn_code is null) or (p_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) then
135: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
136: p_msg_name => g_required_value,
137: p_token1 => g_col_name_token,
138: p_token1_value => 'cdn_code');
139:
138: p_token1_value => 'cdn_code');
139:
140:
141: -- notify caller of an error
142: x_return_status := OKC_API.G_RET_STS_ERROR;
143:
144: -- halt further validation of this column
145: raise G_EXCEPTION_HALT_VALIDATION;
146: end if;
148: l_return_status := OKL_UTIL.check_lookup_code(
149: p_lookup_type => 'OKL_ASSET_CONDITION'
150: ,p_lookup_code => p_acdv_rec.cdn_code);
151:
152: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
154: p_msg_name => g_invalid_value,
155: p_token1 => g_col_name_token,
156: p_token1_value => 'cdn_code');
149: p_lookup_type => 'OKL_ASSET_CONDITION'
150: ,p_lookup_code => p_acdv_rec.cdn_code);
151:
152: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
154: p_msg_name => g_invalid_value,
155: p_token1 => g_col_name_token,
156: p_token1_value => 'cdn_code');
157:
155: p_token1 => g_col_name_token,
156: p_token1_value => 'cdn_code');
157:
158: -- notify caller of an error
159: x_return_status := OKC_API.G_RET_STS_ERROR;
160: raise G_EXCEPTION_HALT_VALIDATION;
161:
162: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
163:
158: -- notify caller of an error
159: x_return_status := OKC_API.G_RET_STS_ERROR;
160: raise G_EXCEPTION_HALT_VALIDATION;
161:
162: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
163:
164: -- notify caller of an error
165: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
166: raise G_EXCEPTION_HALT_VALIDATION;
161:
162: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
163:
164: -- notify caller of an error
165: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
166: raise G_EXCEPTION_HALT_VALIDATION;
167:
168: end if;
169:
174: null;
175:
176: when OTHERS then
177: -- store SQL error message on message stack for caller
178: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
179: p_msg_name => g_unexpected_error,
180: p_token1 => g_sqlcode_token,
181: p_token1_value => sqlcode,
182: p_token2 => g_sqlerrm_token,
182: p_token2 => g_sqlerrm_token,
183: p_token2_value => sqlerrm);
184:
185: -- notify caller of an UNEXPECTED error
186: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
187:
188: end validate_cdn_code;
189:
190: -- Start of comments
206: where ID = p_acdv_rec.iln_id; */
207:
208: begin
209: -- initialize return status
210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
211:
212: -- data is required
213: if (p_acdv_rec.iln_id is null) or (p_acdv_rec.iln_id = OKC_API.G_MISS_NUM) then
214: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
209: -- initialize return status
210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
211:
212: -- data is required
213: if (p_acdv_rec.iln_id is null) or (p_acdv_rec.iln_id = OKC_API.G_MISS_NUM) then
214: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
215: p_msg_name => g_required_value,
216: p_token1 => g_col_name_token,
217: p_token1_value => 'iln_id');
210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
211:
212: -- data is required
213: if (p_acdv_rec.iln_id is null) or (p_acdv_rec.iln_id = OKC_API.G_MISS_NUM) then
214: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
215: p_msg_name => g_required_value,
216: p_token1 => g_col_name_token,
217: p_token1_value => 'iln_id');
218:
217: p_token1_value => 'iln_id');
218:
219:
220: -- notify caller of an error
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222:
223: -- halt further validation of this column
224: raise G_EXCEPTION_HALT_VALIDATION;
225: end if;
230: CLOSE l_ilnv_csr;
231:
232: -- if l_dummy_var is still set to default, data was not found
233: IF (l_dummy_var = '?') THEN
234: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
235: p_msg_name => G_NO_PARENT_RECORD,
236: p_token1 => G_COL_NAME_TOKEN,
237: p_token1_value => 'iln_id',
238: p_token2 => G_CHILD_TABLE_TOKEN,
240: p_token3 => G_PARENT_TABLE_TOKEN,
241: p_token3_value => 'OKX_LOCATION_V');
242:
243: -- notify caller of an error
244: x_return_status := OKC_API.G_RET_STS_ERROR;
245: END IF; */
246:
247: exception
248: when G_EXCEPTION_HALT_VALIDATION then
251: null;
252:
253: when OTHERS then
254: -- store SQL error message on message stack for caller
255: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
256: p_msg_name => g_unexpected_error,
257: p_token1 => g_sqlcode_token,
258: p_token1_value => sqlcode,
259: p_token2 => g_sqlerrm_token,
259: p_token2 => g_sqlerrm_token,
260: p_token2_value => sqlerrm);
261:
262: -- notify caller of an UNEXPECTED error
263: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
264:
265: -- verify that cursor was closed
266: /* IF l_ilnv_csr%ISOPEN THEN
267: CLOSE l_ilnv_csr;
288: where ID = p_acdv_rec.isp_id; */
289:
290: begin
291: -- initialize return status
292: x_return_status := OKC_API.G_RET_STS_SUCCESS;
293:
294: -- data is required
295: if (p_acdv_rec.isp_id is null) or (p_acdv_rec.isp_id = OKC_API.G_MISS_NUM) then
296:
291: -- initialize return status
292: x_return_status := OKC_API.G_RET_STS_SUCCESS;
293:
294: -- data is required
295: if (p_acdv_rec.isp_id is null) or (p_acdv_rec.isp_id = OKC_API.G_MISS_NUM) then
296:
297: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
298: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
299: p_token1 => 'PROMPT',
299: p_token1 => 'PROMPT',
300: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_INSPECTOR'));
301:
302: /*
303: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
304: p_msg_name => g_required_value,
305: p_token1 => g_col_name_token,
306: p_token1_value => 'isp_id');
307: */
306: p_token1_value => 'isp_id');
307: */
308:
309: -- notify caller of an error
310: x_return_status := OKC_API.G_RET_STS_ERROR;
311:
312: -- halt further validation of this column
313: raise G_EXCEPTION_HALT_VALIDATION;
314: end if;
319: CLOSE l_ispv_csr;
320:
321: -- if l_dummy_var is still set to default, data was not found
322: IF (l_dummy_var = '?') THEN
323: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
324: p_msg_name => G_NO_PARENT_RECORD,
325: p_token1 => G_COL_NAME_TOKEN,
326: p_token1_value => 'isp_id',
327: p_token2 => G_CHILD_TABLE_TOKEN,
329: p_token3 => G_PARENT_TABLE_TOKEN,
330: p_token3_value => 'OKX_INSPECTORS_V');
331:
332: -- notify caller of an error
333: x_return_status := OKC_API.G_RET_STS_ERROR;
334: END IF; */
335:
336: exception
337: when G_EXCEPTION_HALT_VALIDATION then
340: null;
341:
342: when OTHERS then
343: -- store SQL error message on message stack for caller
344: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
345: p_msg_name => g_unexpected_error,
346: p_token1 => g_sqlcode_token,
347: p_token1_value => sqlcode,
348: p_token2 => g_sqlerrm_token,
348: p_token2 => g_sqlerrm_token,
349: p_token2_value => sqlerrm);
350:
351: -- notify caller of an UNEXPECTED error
352: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
353:
354: /*-- verify that cursor was closed
355: IF l_ispv_csr%ISOPEN THEN
356: CLOSE l_ispv_csr;
360:
361: PROCEDURE validate_org_id(
362: x_return_status OUT NOCOPY VARCHAR2,
363: p_acdv_rec IN acdv_rec_type) IS
364: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
365: BEGIN
366: -- initialize return status
367: x_return_status := OKC_API.G_RET_STS_SUCCESS;
368:
363: p_acdv_rec IN acdv_rec_type) IS
364: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
365: BEGIN
366: -- initialize return status
367: x_return_status := OKC_API.G_RET_STS_SUCCESS;
368:
369: IF ((p_acdv_rec.org_id IS NULL) OR (p_acdv_rec.org_id = OKC_API.G_MISS_NUM)) THEN
370: RAISE G_EXCEPTION_HALT_VALIDATION;
371: END IF;
365: BEGIN
366: -- initialize return status
367: x_return_status := OKC_API.G_RET_STS_SUCCESS;
368:
369: IF ((p_acdv_rec.org_id IS NULL) OR (p_acdv_rec.org_id = OKC_API.G_MISS_NUM)) THEN
370: RAISE G_EXCEPTION_HALT_VALIDATION;
371: END IF;
372:
373: -- check org id validity using the generic function okl_util.check_org_id()
372:
373: -- check org id validity using the generic function okl_util.check_org_id()
374: l_return_status := OKL_UTIL.check_org_id (p_acdv_rec.org_id);
375:
376: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
378: p_msg_name => g_invalid_value,
379: p_token1 => g_col_name_token,
380: p_token1_value => 'org_id');
373: -- check org id validity using the generic function okl_util.check_org_id()
374: l_return_status := OKL_UTIL.check_org_id (p_acdv_rec.org_id);
375:
376: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
378: p_msg_name => g_invalid_value,
379: p_token1 => g_col_name_token,
380: p_token1_value => 'org_id');
381:
379: p_token1 => g_col_name_token,
380: p_token1_value => 'org_id');
381:
382: -- notify caller of an error
383: x_return_status := OKC_API.G_RET_STS_ERROR;
384: raise G_EXCEPTION_HALT_VALIDATION;
385:
386: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387:
382: -- notify caller of an error
383: x_return_status := OKC_API.G_RET_STS_ERROR;
384: raise G_EXCEPTION_HALT_VALIDATION;
385:
386: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387:
388: -- notify caller of an error
389: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
390: raise G_EXCEPTION_HALT_VALIDATION;
385:
386: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387:
388: -- notify caller of an error
389: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
390: raise G_EXCEPTION_HALT_VALIDATION;
391:
392: END IF;
393:
397: null;
398:
399: WHEN OTHERS THEN
400: -- store SQL error message on message stack for caller
401: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
402: p_msg_name => g_unexpected_error,
403: p_token1 => g_sqlcode_token,
404: p_token1_value => sqlcode,
405: p_token2 => g_sqlerrm_token,
405: p_token2 => g_sqlerrm_token,
406: p_token2_value => sqlerrm);
407:
408: -- notify caller of an UNEXPECTED error
409: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
410:
411: END validate_org_id;
412:
413: -- Foreign Key Validation
431: l_dummy_var VARCHAR2(1) := '?';
432:
433: begin
434: -- initialize return status
435: x_return_status := OKC_API.G_RET_STS_SUCCESS;
436:
437: -- enforce foreign key
438: IF ((p_acdv_rec.clm_id IS NOT NULL) AND (p_acdv_rec.clm_id <> OKC_API.G_MISS_NUM)) THEN
439: OPEN l_clm_csr;
434: -- initialize return status
435: x_return_status := OKC_API.G_RET_STS_SUCCESS;
436:
437: -- enforce foreign key
438: IF ((p_acdv_rec.clm_id IS NOT NULL) AND (p_acdv_rec.clm_id <> OKC_API.G_MISS_NUM)) THEN
439: OPEN l_clm_csr;
440: FETCH l_clm_csr INTO l_dummy_var;
441: CLOSE l_clm_csr;
442:
441: CLOSE l_clm_csr;
442:
443: -- if l_dummy_var is still set to default, data was not found
444: IF (l_dummy_var = '?') THEN
445: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
446: p_msg_name => G_NO_PARENT_RECORD,
447: p_token1 => G_COL_NAME_TOKEN,
448: p_token1_value => 'clm_id',
449: p_token2 => G_CHILD_TABLE_TOKEN,
451: p_token3 => G_PARENT_TABLE_TOKEN,
452: p_token3_value => 'OKL_INS_CLAIMS_B');
453:
454: -- notify caller of an error
455: x_return_status := OKC_API.G_RET_STS_ERROR;
456: END IF;
457: END IF;
458:
459: EXCEPTION
462: null;
463:
464: WHEN OTHERS THEN
465: -- store SQL error message on message stack for caller
466: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
467: p_msg_name => g_unexpected_error,
468: p_token1 => g_sqlcode_token,
469: p_token1_value => sqlcode,
470: p_token2 => g_sqlerrm_token,
470: p_token2 => g_sqlerrm_token,
471: p_token2_value => sqlerrm);
472:
473: -- notify caller of an UNEXPECTED error
474: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
475:
476: -- verify that cursor was closed
477: IF l_clm_csr%ISOPEN THEN
478: CLOSE l_clm_csr;
500: l_dummy_var VARCHAR2(1) := '?';
501:
502: begin
503: -- initialize return status
504: x_return_status := OKC_API.G_RET_STS_SUCCESS;
505:
506: -- enforce foreign key
507: IF ((p_acdv_rec.kle_id IS NOT NULL) AND (p_acdv_rec.kle_id <> OKC_API.G_MISS_NUM)) THEN
508: OPEN l_kle_csr;
503: -- initialize return status
504: x_return_status := OKC_API.G_RET_STS_SUCCESS;
505:
506: -- enforce foreign key
507: IF ((p_acdv_rec.kle_id IS NOT NULL) AND (p_acdv_rec.kle_id <> OKC_API.G_MISS_NUM)) THEN
508: OPEN l_kle_csr;
509: FETCH l_kle_csr INTO l_dummy_var;
510: CLOSE l_kle_csr;
511:
510: CLOSE l_kle_csr;
511:
512: -- if l_dummy_var is still set to default, data was not found
513: IF (l_dummy_var = '?') THEN
514: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
515: p_msg_name => G_NO_PARENT_RECORD,
516: p_token1 => G_COL_NAME_TOKEN,
517: p_token1_value => 'kle_id',
518: p_token2 => G_CHILD_TABLE_TOKEN,
520: p_token3 => G_PARENT_TABLE_TOKEN,
521: p_token3_value => 'OKL_K_LINES_V');
522:
523: -- notify caller of an error
524: x_return_status := OKC_API.G_RET_STS_ERROR;
525: END IF;
526: END IF;
527:
528: EXCEPTION
531: null;
532:
533: WHEN OTHERS THEN
534: -- store SQL error message on message stack for caller
535: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
536: p_msg_name => g_unexpected_error,
537: p_token1 => g_sqlcode_token,
538: p_token1_value => sqlcode,
539: p_token2 => g_sqlerrm_token,
539: p_token2 => g_sqlerrm_token,
540: p_token2_value => sqlerrm);
541:
542: -- notify caller of an UNEXPECTED error
543: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
544:
545: -- verify that cursor was closed
546: IF l_kle_csr%ISOPEN THEN
547: CLOSE l_kle_csr;
582:
583: l_id NUMBER;
584: BEGIN
585: -- initialize return status
586: x_return_status := OKC_API.G_RET_STS_SUCCESS;
587: -- Check if value passed for id
588: IF (p_acdv_rec.kle_id IS NOT NULL) AND (p_acdv_rec.kle_id <> OKC_API.G_MISS_NUM) THEN
589: OPEN okl_acdv_csr(p_acdv_rec.id, p_acdv_rec.kle_id);
590: FETCH okl_acdv_csr INTO l_id;
584: BEGIN
585: -- initialize return status
586: x_return_status := OKC_API.G_RET_STS_SUCCESS;
587: -- Check if value passed for id
588: IF (p_acdv_rec.kle_id IS NOT NULL) AND (p_acdv_rec.kle_id <> OKC_API.G_MISS_NUM) THEN
589: OPEN okl_acdv_csr(p_acdv_rec.id, p_acdv_rec.kle_id);
590: FETCH okl_acdv_csr INTO l_id;
591: -- If id already exists then update mode
592: IF okl_acdv_csr%FOUND THEN
593: -- Asset Return already exists for this asset with status STATUS so cannot create a new asset return now.
594: OKL_API.SET_MESSAGE( p_app_name => 'OKL'
595: ,p_msg_name => 'OKL_AM_ASSET_CNDTN_EXISTS');
596: -- notify caller of an error
597: x_return_status := OKC_API.G_RET_STS_ERROR;
598: END IF;
599: CLOSE okl_acdv_csr;
600: END IF;
601:
604: IF okl_acdv_csr%ISOPEN THEN
605: CLOSE okl_acdv_csr;
606: END IF;
607: -- store SQL error message on message stack for caller
608: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
609: p_msg_name => g_unexpected_error,
610: p_token1 => g_sqlcode_token,
611: p_token1_value => sqlcode,
612: p_token2 => g_sqlerrm_token,
612: p_token2 => g_sqlerrm_token,
613: p_token2_value => sqlerrm);
614:
615: -- notify caller of an UNEXPECTED error
616: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
617:
618: END is_unique;
619:
620: ---------------------------------------------------------------------------
853: p_acdv_rec IN acdv_rec_type
854: ) RETURN acdv_rec_type IS
855: l_acdv_rec acdv_rec_type := p_acdv_rec;
856: BEGIN
857: IF (l_acdv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
858: l_acdv_rec.object_version_number := NULL;
859: END IF;
860: IF (l_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) THEN
861: l_acdv_rec.cdn_code := NULL;
856: BEGIN
857: IF (l_acdv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
858: l_acdv_rec.object_version_number := NULL;
859: END IF;
860: IF (l_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) THEN
861: l_acdv_rec.cdn_code := NULL;
862: END IF;
863: IF (l_acdv_rec.iln_id = OKC_API.G_MISS_NUM) THEN
864: l_acdv_rec.iln_id := NULL;
859: END IF;
860: IF (l_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR) THEN
861: l_acdv_rec.cdn_code := NULL;
862: END IF;
863: IF (l_acdv_rec.iln_id = OKC_API.G_MISS_NUM) THEN
864: l_acdv_rec.iln_id := NULL;
865: END IF;
866: IF (l_acdv_rec.isp_id = OKC_API.G_MISS_NUM) THEN
867: l_acdv_rec.isp_id := NULL;
862: END IF;
863: IF (l_acdv_rec.iln_id = OKC_API.G_MISS_NUM) THEN
864: l_acdv_rec.iln_id := NULL;
865: END IF;
866: IF (l_acdv_rec.isp_id = OKC_API.G_MISS_NUM) THEN
867: l_acdv_rec.isp_id := NULL;
868: END IF;
869: IF (l_acdv_rec.clm_id = OKC_API.G_MISS_NUM) THEN
870: l_acdv_rec.clm_id := NULL;
865: END IF;
866: IF (l_acdv_rec.isp_id = OKC_API.G_MISS_NUM) THEN
867: l_acdv_rec.isp_id := NULL;
868: END IF;
869: IF (l_acdv_rec.clm_id = OKC_API.G_MISS_NUM) THEN
870: l_acdv_rec.clm_id := NULL;
871: END IF;
872: IF (l_acdv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
873: l_acdv_rec.kle_id := NULL;
868: END IF;
869: IF (l_acdv_rec.clm_id = OKC_API.G_MISS_NUM) THEN
870: l_acdv_rec.clm_id := NULL;
871: END IF;
872: IF (l_acdv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
873: l_acdv_rec.kle_id := NULL;
874: END IF;
875: IF (l_acdv_rec.date_report = OKC_API.G_MISS_DATE) THEN
876: l_acdv_rec.date_report := NULL;
871: END IF;
872: IF (l_acdv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
873: l_acdv_rec.kle_id := NULL;
874: END IF;
875: IF (l_acdv_rec.date_report = OKC_API.G_MISS_DATE) THEN
876: l_acdv_rec.date_report := NULL;
877: END IF;
878: IF (l_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
879: l_acdv_rec.attribute_category := NULL;
874: END IF;
875: IF (l_acdv_rec.date_report = OKC_API.G_MISS_DATE) THEN
876: l_acdv_rec.date_report := NULL;
877: END IF;
878: IF (l_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
879: l_acdv_rec.attribute_category := NULL;
880: END IF;
881: IF (l_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
882: l_acdv_rec.attribute1 := NULL;
877: END IF;
878: IF (l_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
879: l_acdv_rec.attribute_category := NULL;
880: END IF;
881: IF (l_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
882: l_acdv_rec.attribute1 := NULL;
883: END IF;
884: IF (l_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
885: l_acdv_rec.attribute2 := NULL;
880: END IF;
881: IF (l_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
882: l_acdv_rec.attribute1 := NULL;
883: END IF;
884: IF (l_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
885: l_acdv_rec.attribute2 := NULL;
886: END IF;
887: IF (l_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
888: l_acdv_rec.attribute3 := NULL;
883: END IF;
884: IF (l_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
885: l_acdv_rec.attribute2 := NULL;
886: END IF;
887: IF (l_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
888: l_acdv_rec.attribute3 := NULL;
889: END IF;
890: IF (l_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
891: l_acdv_rec.attribute4 := NULL;
886: END IF;
887: IF (l_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
888: l_acdv_rec.attribute3 := NULL;
889: END IF;
890: IF (l_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
891: l_acdv_rec.attribute4 := NULL;
892: END IF;
893: IF (l_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
894: l_acdv_rec.attribute5 := NULL;
889: END IF;
890: IF (l_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
891: l_acdv_rec.attribute4 := NULL;
892: END IF;
893: IF (l_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
894: l_acdv_rec.attribute5 := NULL;
895: END IF;
896: IF (l_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
897: l_acdv_rec.attribute6 := NULL;
892: END IF;
893: IF (l_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
894: l_acdv_rec.attribute5 := NULL;
895: END IF;
896: IF (l_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
897: l_acdv_rec.attribute6 := NULL;
898: END IF;
899: IF (l_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
900: l_acdv_rec.attribute7 := NULL;
895: END IF;
896: IF (l_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
897: l_acdv_rec.attribute6 := NULL;
898: END IF;
899: IF (l_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
900: l_acdv_rec.attribute7 := NULL;
901: END IF;
902: IF (l_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
903: l_acdv_rec.attribute8 := NULL;
898: END IF;
899: IF (l_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
900: l_acdv_rec.attribute7 := NULL;
901: END IF;
902: IF (l_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
903: l_acdv_rec.attribute8 := NULL;
904: END IF;
905: IF (l_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
906: l_acdv_rec.attribute9 := NULL;
901: END IF;
902: IF (l_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
903: l_acdv_rec.attribute8 := NULL;
904: END IF;
905: IF (l_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
906: l_acdv_rec.attribute9 := NULL;
907: END IF;
908: IF (l_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
909: l_acdv_rec.attribute10 := NULL;
904: END IF;
905: IF (l_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
906: l_acdv_rec.attribute9 := NULL;
907: END IF;
908: IF (l_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
909: l_acdv_rec.attribute10 := NULL;
910: END IF;
911: IF (l_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
912: l_acdv_rec.attribute11 := NULL;
907: END IF;
908: IF (l_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
909: l_acdv_rec.attribute10 := NULL;
910: END IF;
911: IF (l_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
912: l_acdv_rec.attribute11 := NULL;
913: END IF;
914: IF (l_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
915: l_acdv_rec.attribute12 := NULL;
910: END IF;
911: IF (l_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
912: l_acdv_rec.attribute11 := NULL;
913: END IF;
914: IF (l_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
915: l_acdv_rec.attribute12 := NULL;
916: END IF;
917: IF (l_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
918: l_acdv_rec.attribute13 := NULL;
913: END IF;
914: IF (l_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
915: l_acdv_rec.attribute12 := NULL;
916: END IF;
917: IF (l_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
918: l_acdv_rec.attribute13 := NULL;
919: END IF;
920: IF (l_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
921: l_acdv_rec.attribute14 := NULL;
916: END IF;
917: IF (l_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
918: l_acdv_rec.attribute13 := NULL;
919: END IF;
920: IF (l_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
921: l_acdv_rec.attribute14 := NULL;
922: END IF;
923: IF (l_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
924: l_acdv_rec.attribute15 := NULL;
919: END IF;
920: IF (l_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
921: l_acdv_rec.attribute14 := NULL;
922: END IF;
923: IF (l_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
924: l_acdv_rec.attribute15 := NULL;
925: END IF;
926: IF (l_acdv_rec.org_id = OKC_API.G_MISS_NUM) THEN
927: l_acdv_rec.org_id := NULL;
922: END IF;
923: IF (l_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
924: l_acdv_rec.attribute15 := NULL;
925: END IF;
926: IF (l_acdv_rec.org_id = OKC_API.G_MISS_NUM) THEN
927: l_acdv_rec.org_id := NULL;
928: END IF;
929: -- Begin Post-Generation Change
930: /*
927: l_acdv_rec.org_id := NULL;
928: END IF;
929: -- Begin Post-Generation Change
930: /*
931: IF (l_acdv_rec.request_id = OKC_API.G_MISS_NUM) THEN
932: l_acdv_rec.request_id := NULL;
933: END IF;
934: IF (l_acdv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
935: l_acdv_rec.program_application_id := NULL;
930: /*
931: IF (l_acdv_rec.request_id = OKC_API.G_MISS_NUM) THEN
932: l_acdv_rec.request_id := NULL;
933: END IF;
934: IF (l_acdv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
935: l_acdv_rec.program_application_id := NULL;
936: END IF;
937: IF (l_acdv_rec.program_id = OKC_API.G_MISS_NUM) THEN
938: l_acdv_rec.program_id := NULL;
933: END IF;
934: IF (l_acdv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
935: l_acdv_rec.program_application_id := NULL;
936: END IF;
937: IF (l_acdv_rec.program_id = OKC_API.G_MISS_NUM) THEN
938: l_acdv_rec.program_id := NULL;
939: END IF;
940: IF (l_acdv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
941: l_acdv_rec.program_update_date := NULL;
936: END IF;
937: IF (l_acdv_rec.program_id = OKC_API.G_MISS_NUM) THEN
938: l_acdv_rec.program_id := NULL;
939: END IF;
940: IF (l_acdv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
941: l_acdv_rec.program_update_date := NULL;
942: END IF;
943: */
944: -- End Post-Generation Change
941: l_acdv_rec.program_update_date := NULL;
942: END IF;
943: */
944: -- End Post-Generation Change
945: IF (l_acdv_rec.created_by = OKC_API.G_MISS_NUM) THEN
946: l_acdv_rec.created_by := NULL;
947: END IF;
948: IF (l_acdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
949: l_acdv_rec.creation_date := NULL;
944: -- End Post-Generation Change
945: IF (l_acdv_rec.created_by = OKC_API.G_MISS_NUM) THEN
946: l_acdv_rec.created_by := NULL;
947: END IF;
948: IF (l_acdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
949: l_acdv_rec.creation_date := NULL;
950: END IF;
951: IF (l_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
952: l_acdv_rec.last_updated_by := NULL;
947: END IF;
948: IF (l_acdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
949: l_acdv_rec.creation_date := NULL;
950: END IF;
951: IF (l_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
952: l_acdv_rec.last_updated_by := NULL;
953: END IF;
954: IF (l_acdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
955: l_acdv_rec.last_update_date := NULL;
950: END IF;
951: IF (l_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
952: l_acdv_rec.last_updated_by := NULL;
953: END IF;
954: IF (l_acdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
955: l_acdv_rec.last_update_date := NULL;
956: END IF;
957: IF (l_acdv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
958: l_acdv_rec.last_update_login := NULL;
953: END IF;
954: IF (l_acdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
955: l_acdv_rec.last_update_date := NULL;
956: END IF;
957: IF (l_acdv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
958: l_acdv_rec.last_update_login := NULL;
959: END IF;
960: RETURN(l_acdv_rec);
961: END null_out_defaults;
978:
979: FUNCTION Validate_Attributes (
980: p_acdv_rec IN acdv_rec_type
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
984:
985: begin
986: -- call each column-level validation
979: FUNCTION Validate_Attributes (
980: p_acdv_rec IN acdv_rec_type
981: ) RETURN VARCHAR2 IS
982: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
983: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
984:
985: begin
986: -- call each column-level validation
987: validate_id(x_return_status => l_return_status,
987: validate_id(x_return_status => l_return_status,
988: p_acdv_rec => p_acdv_rec);
989:
990: -- store the highest degree of error
991: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
992: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
993: x_return_status := l_return_status;
994: end if;
995: end if;
988: p_acdv_rec => p_acdv_rec);
989:
990: -- store the highest degree of error
991: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
992: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
993: x_return_status := l_return_status;
994: end if;
995: end if;
996:
997: validate_object_version_number(x_return_status => l_return_status,
998: p_acdv_rec => p_acdv_rec);
999:
1000: -- store the highest degree of error
1001: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1002: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1003: x_return_status := l_return_status;
1004: end if;
1005: end if;
998: p_acdv_rec => p_acdv_rec);
999:
1000: -- store the highest degree of error
1001: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1002: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1003: x_return_status := l_return_status;
1004: end if;
1005: end if;
1006:
1007: validate_cdn_code(x_return_status => l_return_status,
1008: p_acdv_rec => p_acdv_rec);
1009:
1010: -- store the highest degree of error
1011: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1012: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1013: x_return_status := l_return_status;
1014: end if;
1015: end if;
1008: p_acdv_rec => p_acdv_rec);
1009:
1010: -- store the highest degree of error
1011: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1012: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1013: x_return_status := l_return_status;
1014: end if;
1015: end if;
1016:
1018: validate_iln_id(x_return_status => l_return_status,
1019: p_acdv_rec => p_acdv_rec);
1020:
1021: -- store the highest degree of error
1022: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1023: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: x_return_status := l_return_status;
1025: end if;
1026: end if;
1019: p_acdv_rec => p_acdv_rec);
1020:
1021: -- store the highest degree of error
1022: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1023: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: x_return_status := l_return_status;
1025: end if;
1026: end if;
1027:
1028: validate_isp_id(x_return_status => l_return_status,
1029: p_acdv_rec => p_acdv_rec);
1030:
1031: -- store the highest degree of error
1032: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1033: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1034: x_return_status := l_return_status;
1035: end if;
1036: end if;
1029: p_acdv_rec => p_acdv_rec);
1030:
1031: -- store the highest degree of error
1032: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1033: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1034: x_return_status := l_return_status;
1035: end if;
1036: end if;
1037:
1038: validate_org_id(x_return_status => l_return_status,
1039: p_acdv_rec => p_acdv_rec);
1040:
1041: -- store the highest degree of error
1042: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1043: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1044: x_return_status := l_return_status;
1045: end if;
1046: end if;
1039: p_acdv_rec => p_acdv_rec);
1040:
1041: -- store the highest degree of error
1042: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1043: if (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) then
1044: x_return_status := l_return_status;
1045: end if;
1046: end if;
1047:
1049: validate_clm_id(x_return_status => l_return_status,
1050: p_acdv_rec => p_acdv_rec);
1051:
1052: -- store the highest degree of error
1053: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1054: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: x_return_status := l_return_status;
1056: END IF;
1057: END IF;
1050: p_acdv_rec => p_acdv_rec);
1051:
1052: -- store the highest degree of error
1053: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1054: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: x_return_status := l_return_status;
1056: END IF;
1057: END IF;
1058:
1060: validate_kle_id(x_return_status => l_return_status,
1061: p_acdv_rec => p_acdv_rec);
1062:
1063: -- store the highest degree of error
1064: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1065: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1066: x_return_status := l_return_status;
1067: END IF;
1068: END IF;
1061: p_acdv_rec => p_acdv_rec);
1062:
1063: -- store the highest degree of error
1064: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1065: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1066: x_return_status := l_return_status;
1067: END IF;
1068: END IF;
1069:
1078: --------------------------------------------
1079: FUNCTION Validate_Record (
1080: p_acdv_rec IN acdv_rec_type
1081: ) RETURN VARCHAR2 IS
1082: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1083: BEGIN
1084:
1085: -- check uniqueness
1086: is_unique(p_acdv_rec,l_return_status);
1179: -- validate_row for:OKL_ASSET_CNDTNS_V --
1180: -----------------------------------------
1181: PROCEDURE validate_row(
1182: p_api_version IN NUMBER,
1183: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1184: x_return_status OUT NOCOPY VARCHAR2,
1185: x_msg_count OUT NOCOPY NUMBER,
1186: x_msg_data OUT NOCOPY VARCHAR2,
1187: p_acdv_rec IN acdv_rec_type) IS
1187: p_acdv_rec IN acdv_rec_type) IS
1188:
1189: l_api_version CONSTANT NUMBER := 1;
1190: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1191: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1192: l_acdv_rec acdv_rec_type := p_acdv_rec;
1193: l_acd_rec acd_rec_type;
1194: BEGIN
1195: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1191: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1192: l_acdv_rec acdv_rec_type := p_acdv_rec;
1193: l_acd_rec acd_rec_type;
1194: BEGIN
1195: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1196: G_PKG_NAME,
1197: p_init_msg_list,
1198: l_api_version,
1199: p_api_version,
1198: l_api_version,
1199: p_api_version,
1200: '_PVT',
1201: x_return_status);
1202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1199: p_api_version,
1200: '_PVT',
1201: x_return_status);
1202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: --- Validate all non-missing attributes (Item Level Validation)
1200: '_PVT',
1201: x_return_status);
1202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: --- Validate all non-missing attributes (Item Level Validation)
1208: l_return_status := Validate_Attributes(l_acdv_rec);
1201: x_return_status);
1202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: --- Validate all non-missing attributes (Item Level Validation)
1208: l_return_status := Validate_Attributes(l_acdv_rec);
1209: --- If any errors happen abort API
1206: END IF;
1207: --- Validate all non-missing attributes (Item Level Validation)
1208: l_return_status := Validate_Attributes(l_acdv_rec);
1209: --- If any errors happen abort API
1210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1207: --- Validate all non-missing attributes (Item Level Validation)
1208: l_return_status := Validate_Attributes(l_acdv_rec);
1209: --- If any errors happen abort API
1210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1208: l_return_status := Validate_Attributes(l_acdv_rec);
1209: --- If any errors happen abort API
1210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1209: --- If any errors happen abort API
1210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_ERROR;
1220: END IF;
1213: RAISE OKC_API.G_EXCEPTION_ERROR;
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1214: END IF;
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1222: EXCEPTION
1215: l_return_status := Validate_Record(l_acdv_rec);
1216: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1222: EXCEPTION
1223: WHEN G_EXCEPTION_HALT_VALIDATION then
1217: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1222: EXCEPTION
1223: WHEN G_EXCEPTION_HALT_VALIDATION then
1224: -- No action necessary. Validation can continue to next attribute/column
1225: null;
1223: WHEN G_EXCEPTION_HALT_VALIDATION then
1224: -- No action necessary. Validation can continue to next attribute/column
1225: null;
1226:
1227: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1228: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1229: (
1230: l_api_name,
1231: G_PKG_NAME,
1224: -- No action necessary. Validation can continue to next attribute/column
1225: null;
1226:
1227: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1228: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1229: (
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OKC_API.G_RET_STS_ERROR',
1228: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1229: (
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OKC_API.G_RET_STS_ERROR',
1233: x_msg_count,
1234: x_msg_data,
1235: '_PVT'
1236: );
1233: x_msg_count,
1234: x_msg_data,
1235: '_PVT'
1236: );
1237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1238: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1239: (
1240: l_api_name,
1241: G_PKG_NAME,
1234: x_msg_data,
1235: '_PVT'
1236: );
1237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1238: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1239: (
1240: l_api_name,
1241: G_PKG_NAME,
1242: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1238: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1239: (
1240: l_api_name,
1241: G_PKG_NAME,
1242: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1243: x_msg_count,
1244: x_msg_data,
1245: '_PVT'
1246: );
1244: x_msg_data,
1245: '_PVT'
1246: );
1247: WHEN OTHERS THEN
1248: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1249: (
1250: l_api_name,
1251: G_PKG_NAME,
1252: 'OTHERS',
1259: -- PL/SQL TBL validate_row for:ACDV_TBL --
1260: ------------------------------------------
1261: PROCEDURE validate_row(
1262: p_api_version IN NUMBER,
1263: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1264: x_return_status OUT NOCOPY VARCHAR2,
1265: x_msg_count OUT NOCOPY NUMBER,
1266: x_msg_data OUT NOCOPY VARCHAR2,
1267: p_acdv_tbl IN acdv_tbl_type) IS
1267: p_acdv_tbl IN acdv_tbl_type) IS
1268:
1269: l_api_version CONSTANT NUMBER := 1;
1270: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1271: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1272: i NUMBER := 0;
1273: -- Begin Post-Generation Change
1274: -- overall error status
1275: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1271: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1272: i NUMBER := 0;
1273: -- Begin Post-Generation Change
1274: -- overall error status
1275: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1276: -- End Post-Generation Change
1277:
1278: BEGIN
1279: OKC_API.init_msg_list(p_init_msg_list);
1275: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1276: -- End Post-Generation Change
1277:
1278: BEGIN
1279: OKC_API.init_msg_list(p_init_msg_list);
1280: -- Make sure PL/SQL table has records in it before passing
1281: IF (p_acdv_tbl.COUNT > 0) THEN
1282: i := p_acdv_tbl.FIRST;
1283: LOOP
1282: i := p_acdv_tbl.FIRST;
1283: LOOP
1284: validate_row (
1285: p_api_version => p_api_version,
1286: p_init_msg_list => OKC_API.G_FALSE,
1287: x_return_status => x_return_status,
1288: x_msg_count => x_msg_count,
1289: x_msg_data => x_msg_data,
1290: p_acdv_rec => p_acdv_tbl(i));
1289: x_msg_data => x_msg_data,
1290: p_acdv_rec => p_acdv_tbl(i));
1291: -- Begin Post-Generation Change
1292: -- store the highest degree of error
1293: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1294: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1295: l_overall_status := x_return_status;
1296: END IF;
1297: END IF;
1290: p_acdv_rec => p_acdv_tbl(i));
1291: -- Begin Post-Generation Change
1292: -- store the highest degree of error
1293: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1294: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1295: l_overall_status := x_return_status;
1296: END IF;
1297: END IF;
1298: -- End Post-Generation Change
1308: WHEN G_EXCEPTION_HALT_VALIDATION then
1309: -- No action necessary. Validation can continue to next attribute/column
1310: null;
1311:
1312: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1313: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1314: (
1315: l_api_name,
1316: G_PKG_NAME,
1309: -- No action necessary. Validation can continue to next attribute/column
1310: null;
1311:
1312: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1313: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1314: (
1315: l_api_name,
1316: G_PKG_NAME,
1317: 'OKC_API.G_RET_STS_ERROR',
1313: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1314: (
1315: l_api_name,
1316: G_PKG_NAME,
1317: 'OKC_API.G_RET_STS_ERROR',
1318: x_msg_count,
1319: x_msg_data,
1320: '_PVT'
1321: );
1318: x_msg_count,
1319: x_msg_data,
1320: '_PVT'
1321: );
1322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1324: (
1325: l_api_name,
1326: G_PKG_NAME,
1319: x_msg_data,
1320: '_PVT'
1321: );
1322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1324: (
1325: l_api_name,
1326: G_PKG_NAME,
1327: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1324: (
1325: l_api_name,
1326: G_PKG_NAME,
1327: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1328: x_msg_count,
1329: x_msg_data,
1330: '_PVT'
1331: );
1329: x_msg_data,
1330: '_PVT'
1331: );
1332: WHEN OTHERS THEN
1333: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1334: (
1335: l_api_name,
1336: G_PKG_NAME,
1337: 'OTHERS',
1347: -------------------------------------
1348: -- insert_row for:OKL_ASSET_CNDTNS --
1349: -------------------------------------
1350: PROCEDURE insert_row(
1351: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1352: x_return_status OUT NOCOPY VARCHAR2,
1353: x_msg_count OUT NOCOPY NUMBER,
1354: x_msg_data OUT NOCOPY VARCHAR2,
1355: p_acd_rec IN acd_rec_type,
1356: x_acd_rec OUT NOCOPY acd_rec_type) IS
1357:
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'CNDTNS_insert_row';
1360: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1361: l_acd_rec acd_rec_type := p_acd_rec;
1362: l_def_acd_rec acd_rec_type;
1363: -----------------------------------------
1364: -- Set_Attributes for:OKL_ASSET_CNDTNS --
1366: FUNCTION Set_Attributes (
1367: p_acd_rec IN acd_rec_type,
1368: x_acd_rec OUT NOCOPY acd_rec_type
1369: ) RETURN VARCHAR2 IS
1370: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1371: BEGIN
1372: x_acd_rec := p_acd_rec;
1373: RETURN(l_return_status);
1374: END Set_Attributes;
1372: x_acd_rec := p_acd_rec;
1373: RETURN(l_return_status);
1374: END Set_Attributes;
1375: BEGIN
1376: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1377: p_init_msg_list,
1378: '_PVT',
1379: x_return_status);
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1376: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1377: p_init_msg_list,
1378: '_PVT',
1379: x_return_status);
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1377: p_init_msg_list,
1378: '_PVT',
1379: x_return_status);
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: --- Setting item attributes
1378: '_PVT',
1379: x_return_status);
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: --- Setting item attributes
1386: l_return_status := Set_Attributes(
1379: x_return_status);
1380: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: --- Setting item attributes
1386: l_return_status := Set_Attributes(
1387: p_acd_rec, -- IN
1386: l_return_status := Set_Attributes(
1387: p_acd_rec, -- IN
1388: l_acd_rec); -- OUT
1389: --- If any errors happen abort API
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1387: p_acd_rec, -- IN
1388: l_acd_rec); -- OUT
1389: --- If any errors happen abort API
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: INSERT INTO OKL_ASSET_CNDTNS(
1388: l_acd_rec); -- OUT
1389: --- If any errors happen abort API
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: INSERT INTO OKL_ASSET_CNDTNS(
1396: id,
1389: --- If any errors happen abort API
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: INSERT INTO OKL_ASSET_CNDTNS(
1396: id,
1397: date_report,
1467: l_acd_rec.last_update_date,
1468: l_acd_rec.last_update_login);
1469: -- Set OUT values
1470: x_acd_rec := l_acd_rec;
1471: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1472: EXCEPTION
1473: WHEN G_EXCEPTION_HALT_VALIDATION then
1474: -- No action necessary. Validation can continue to next attribute/column
1475: null;
1473: WHEN G_EXCEPTION_HALT_VALIDATION then
1474: -- No action necessary. Validation can continue to next attribute/column
1475: null;
1476:
1477: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1474: -- No action necessary. Validation can continue to next attribute/column
1475: null;
1476:
1477: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_ERROR',
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_ERROR',
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1488: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1493: x_msg_count,
1494: x_msg_data,
1495: '_PVT'
1496: );
1494: x_msg_data,
1495: '_PVT'
1496: );
1497: WHEN OTHERS THEN
1498: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OTHERS',
1509: -- insert_row for:OKL_ASSET_CNDTNS_V --
1510: ---------------------------------------
1511: PROCEDURE insert_row(
1512: p_api_version IN NUMBER,
1513: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1514: x_return_status OUT NOCOPY VARCHAR2,
1515: x_msg_count OUT NOCOPY NUMBER,
1516: x_msg_data OUT NOCOPY VARCHAR2,
1517: p_acdv_rec IN acdv_rec_type,
1518: x_acdv_rec OUT NOCOPY acdv_rec_type) IS
1519:
1520: l_api_version CONSTANT NUMBER := 1;
1521: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1523: l_acdv_rec acdv_rec_type;
1524: l_def_acdv_rec acdv_rec_type;
1525: l_acd_rec acd_rec_type;
1526: lx_acd_rec acd_rec_type;
1545: FUNCTION Set_Attributes (
1546: p_acdv_rec IN acdv_rec_type,
1547: x_acdv_rec OUT NOCOPY acdv_rec_type
1548: ) RETURN VARCHAR2 IS
1549: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1550: BEGIN
1551: x_acdv_rec := p_acdv_rec;
1552: x_acdv_rec.OBJECT_VERSION_NUMBER := 1;
1553: -- Default the ORG ID if a value is not passed
1551: x_acdv_rec := p_acdv_rec;
1552: x_acdv_rec.OBJECT_VERSION_NUMBER := 1;
1553: -- Default the ORG ID if a value is not passed
1554: IF p_acdv_rec.org_id IS NULL
1555: OR p_acdv_rec.org_id = OKC_API.G_MISS_NUM THEN
1556: x_acdv_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
1557: END IF;
1558: RETURN(l_return_status);
1559: END Set_Attributes;
1557: END IF;
1558: RETURN(l_return_status);
1559: END Set_Attributes;
1560: BEGIN
1561: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1562: G_PKG_NAME,
1563: p_init_msg_list,
1564: l_api_version,
1565: p_api_version,
1564: l_api_version,
1565: p_api_version,
1566: '_PVT',
1567: x_return_status);
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1565: p_api_version,
1566: '_PVT',
1567: x_return_status);
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_acdv_rec := null_out_defaults(p_acdv_rec);
1566: '_PVT',
1567: x_return_status);
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_acdv_rec := null_out_defaults(p_acdv_rec);
1574: -- Set primary key value
1567: x_return_status);
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_acdv_rec := null_out_defaults(p_acdv_rec);
1574: -- Set primary key value
1575: l_acdv_rec.ID := get_seq_id;
1577: l_return_status := Set_Attributes(
1578: l_acdv_rec, -- IN
1579: l_def_acdv_rec); -- OUT
1580: --- If any errors happen abort API
1581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_ERROR;
1585: END IF;
1578: l_acdv_rec, -- IN
1579: l_def_acdv_rec); -- OUT
1580: --- If any errors happen abort API
1581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
1579: l_def_acdv_rec); -- OUT
1580: --- If any errors happen abort API
1581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
1587: --- Validate all non-missing attributes (Item Level Validation)
1580: --- If any errors happen abort API
1581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_def_acdv_rec);
1586: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_def_acdv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1587: --- Validate all non-missing attributes (Item Level Validation)
1588: l_return_status := Validate_Attributes(l_def_acdv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1588: l_return_status := Validate_Attributes(l_def_acdv_rec);
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1589: --- If any errors happen abort API
1590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1593: RAISE OKC_API.G_EXCEPTION_ERROR;
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: --------------------------------------
1594: END IF;
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: --------------------------------------
1602: -- Move VIEW record to "Child" records
1595: l_return_status := Validate_Record(l_def_acdv_rec);
1596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: --------------------------------------
1602: -- Move VIEW record to "Child" records
1603: --------------------------------------
1612: x_msg_data,
1613: l_acd_rec,
1614: lx_acd_rec
1615: );
1616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_ERROR;
1620: END IF;
1613: l_acd_rec,
1614: lx_acd_rec
1615: );
1616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: migrate(lx_acd_rec, l_def_acdv_rec);
1614: lx_acd_rec
1615: );
1616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: migrate(lx_acd_rec, l_def_acdv_rec);
1622: -- Set OUT values
1615: );
1616: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: migrate(lx_acd_rec, l_def_acdv_rec);
1622: -- Set OUT values
1623: x_acdv_rec := l_def_acdv_rec;
1620: END IF;
1621: migrate(lx_acd_rec, l_def_acdv_rec);
1622: -- Set OUT values
1623: x_acdv_rec := l_def_acdv_rec;
1624: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1625: EXCEPTION
1626: WHEN G_EXCEPTION_HALT_VALIDATION then
1627: -- No action necessary. Validation can continue to next attribute/column
1628: null;
1626: WHEN G_EXCEPTION_HALT_VALIDATION then
1627: -- No action necessary. Validation can continue to next attribute/column
1628: null;
1629:
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1627: -- No action necessary. Validation can continue to next attribute/column
1628: null;
1629:
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1646: x_msg_count,
1647: x_msg_data,
1648: '_PVT'
1649: );
1647: x_msg_data,
1648: '_PVT'
1649: );
1650: WHEN OTHERS THEN
1651: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1652: (
1653: l_api_name,
1654: G_PKG_NAME,
1655: 'OTHERS',
1662: -- PL/SQL TBL insert_row for:ACDV_TBL --
1663: ----------------------------------------
1664: PROCEDURE insert_row(
1665: p_api_version IN NUMBER,
1666: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1667: x_return_status OUT NOCOPY VARCHAR2,
1668: x_msg_count OUT NOCOPY NUMBER,
1669: x_msg_data OUT NOCOPY VARCHAR2,
1670: p_acdv_tbl IN acdv_tbl_type,
1671: x_acdv_tbl OUT NOCOPY acdv_tbl_type) IS
1672:
1673: l_api_version CONSTANT NUMBER := 1;
1674: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1676: i NUMBER := 0;
1677: -- Begin Post-Generation Change
1678: -- overall error status
1679: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1676: i NUMBER := 0;
1677: -- Begin Post-Generation Change
1678: -- overall error status
1679: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1680: -- End Post-Generation Change
1681: BEGIN
1682: OKC_API.init_msg_list(p_init_msg_list);
1683: -- Make sure PL/SQL table has records in it before passing
1678: -- overall error status
1679: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1680: -- End Post-Generation Change
1681: BEGIN
1682: OKC_API.init_msg_list(p_init_msg_list);
1683: -- Make sure PL/SQL table has records in it before passing
1684: IF (p_acdv_tbl.COUNT > 0) THEN
1685: i := p_acdv_tbl.FIRST;
1686: LOOP
1685: i := p_acdv_tbl.FIRST;
1686: LOOP
1687: insert_row (
1688: p_api_version => p_api_version,
1689: p_init_msg_list => OKC_API.G_FALSE,
1690: x_return_status => x_return_status,
1691: x_msg_count => x_msg_count,
1692: x_msg_data => x_msg_data,
1693: p_acdv_rec => p_acdv_tbl(i),
1693: p_acdv_rec => p_acdv_tbl(i),
1694: x_acdv_rec => x_acdv_tbl(i));
1695: -- Begin Post-Generation Change
1696: -- store the highest degree of error
1697: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1698: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1699: l_overall_status := x_return_status;
1700: END IF;
1701: END IF;
1694: x_acdv_rec => x_acdv_tbl(i));
1695: -- Begin Post-Generation Change
1696: -- store the highest degree of error
1697: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1698: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1699: l_overall_status := x_return_status;
1700: END IF;
1701: END IF;
1702: -- End Post-Generation Change
1712: WHEN G_EXCEPTION_HALT_VALIDATION then
1713: -- No action necessary. Validation can continue to next attribute/column
1714: null;
1715:
1716: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1717: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1718: (
1719: l_api_name,
1720: G_PKG_NAME,
1713: -- No action necessary. Validation can continue to next attribute/column
1714: null;
1715:
1716: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1717: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1718: (
1719: l_api_name,
1720: G_PKG_NAME,
1721: 'OKC_API.G_RET_STS_ERROR',
1717: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1718: (
1719: l_api_name,
1720: G_PKG_NAME,
1721: 'OKC_API.G_RET_STS_ERROR',
1722: x_msg_count,
1723: x_msg_data,
1724: '_PVT'
1725: );
1722: x_msg_count,
1723: x_msg_data,
1724: '_PVT'
1725: );
1726: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1727: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1728: (
1729: l_api_name,
1730: G_PKG_NAME,
1723: x_msg_data,
1724: '_PVT'
1725: );
1726: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1727: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1728: (
1729: l_api_name,
1730: G_PKG_NAME,
1731: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1727: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1728: (
1729: l_api_name,
1730: G_PKG_NAME,
1731: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1732: x_msg_count,
1733: x_msg_data,
1734: '_PVT'
1735: );
1733: x_msg_data,
1734: '_PVT'
1735: );
1736: WHEN OTHERS THEN
1737: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1738: (
1739: l_api_name,
1740: G_PKG_NAME,
1741: 'OTHERS',
1751: -----------------------------------
1752: -- lock_row for:OKL_ASSET_CNDTNS --
1753: -----------------------------------
1754: PROCEDURE lock_row(
1755: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1756: x_return_status OUT NOCOPY VARCHAR2,
1757: x_msg_count OUT NOCOPY NUMBER,
1758: x_msg_data OUT NOCOPY VARCHAR2,
1759: p_acd_rec IN acd_rec_type) IS
1772: FROM OKL_ASSET_CNDTNS
1773: WHERE ID = p_acd_rec.id;
1774: l_api_version CONSTANT NUMBER := 1;
1775: l_api_name CONSTANT VARCHAR2(30) := 'CNDTNS_lock_row';
1776: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1777: l_object_version_number OKL_ASSET_CNDTNS.OBJECT_VERSION_NUMBER%TYPE;
1778: lc_object_version_number OKL_ASSET_CNDTNS.OBJECT_VERSION_NUMBER%TYPE;
1779: l_row_notfound BOOLEAN := FALSE;
1780: lc_row_notfound BOOLEAN := FALSE;
1778: lc_object_version_number OKL_ASSET_CNDTNS.OBJECT_VERSION_NUMBER%TYPE;
1779: l_row_notfound BOOLEAN := FALSE;
1780: lc_row_notfound BOOLEAN := FALSE;
1781: BEGIN
1782: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1783: p_init_msg_list,
1784: '_PVT',
1785: x_return_status);
1786: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1782: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1783: p_init_msg_list,
1784: '_PVT',
1785: x_return_status);
1786: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1788: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1783: p_init_msg_list,
1784: '_PVT',
1785: x_return_status);
1786: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1788: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: BEGIN
1784: '_PVT',
1785: x_return_status);
1786: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1788: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: BEGIN
1792: OPEN lock_csr(p_acd_rec);
1785: x_return_status);
1786: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1788: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: BEGIN
1792: OPEN lock_csr(p_acd_rec);
1793: FETCH lock_csr INTO l_object_version_number;
1801: WHEN E_Resource_Busy THEN
1802: IF (lock_csr%ISOPEN) THEN
1803: CLOSE lock_csr;
1804: END IF;
1805: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1806: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1807: END;
1808:
1809: IF ( l_row_notfound ) THEN
1812: lc_row_notfound := lchk_csr%NOTFOUND;
1813: CLOSE lchk_csr;
1814: END IF;
1815: IF (lc_row_notfound) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: ELSIF lc_object_version_number > p_acd_rec.object_version_number THEN
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1813: CLOSE lchk_csr;
1814: END IF;
1815: IF (lc_row_notfound) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: ELSIF lc_object_version_number > p_acd_rec.object_version_number THEN
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1815: IF (lc_row_notfound) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: ELSIF lc_object_version_number > p_acd_rec.object_version_number THEN
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: ELSIF lc_object_version_number > p_acd_rec.object_version_number THEN
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: ELSIF lc_object_version_number = -1 THEN
1818: ELSIF lc_object_version_number > p_acd_rec.object_version_number THEN
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: ELSIF lc_object_version_number = -1 THEN
1825: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1826: RAISE OKC_API.G_EXCEPTION_ERROR;
1819: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: ELSIF lc_object_version_number = -1 THEN
1825: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1826: RAISE OKC_API.G_EXCEPTION_ERROR;
1827: END IF;
1821: ELSIF lc_object_version_number <> p_acd_rec.object_version_number THEN
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: ELSIF lc_object_version_number = -1 THEN
1825: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1826: RAISE OKC_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1829: EXCEPTION
1822: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: ELSIF lc_object_version_number = -1 THEN
1825: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1826: RAISE OKC_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1829: EXCEPTION
1830: WHEN G_EXCEPTION_HALT_VALIDATION then
1824: ELSIF lc_object_version_number = -1 THEN
1825: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1826: RAISE OKC_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1829: EXCEPTION
1830: WHEN G_EXCEPTION_HALT_VALIDATION then
1831: -- No action necessary. Validation can continue to next attribute/column
1832: null;
1830: WHEN G_EXCEPTION_HALT_VALIDATION then
1831: -- No action necessary. Validation can continue to next attribute/column
1832: null;
1833:
1834: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1835: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1831: -- No action necessary. Validation can continue to next attribute/column
1832: null;
1833:
1834: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1835: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKC_API.G_RET_STS_ERROR',
1835: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKC_API.G_RET_STS_ERROR',
1840: x_msg_count,
1841: x_msg_data,
1842: '_PVT'
1843: );
1840: x_msg_count,
1841: x_msg_data,
1842: '_PVT'
1843: );
1844: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1841: x_msg_data,
1842: '_PVT'
1843: );
1844: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1850: x_msg_count,
1851: x_msg_data,
1852: '_PVT'
1853: );
1851: x_msg_data,
1852: '_PVT'
1853: );
1854: WHEN OTHERS THEN
1855: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1856: (
1857: l_api_name,
1858: G_PKG_NAME,
1859: 'OTHERS',
1866: -- lock_row for:OKL_ASSET_CNDTNS_V --
1867: -------------------------------------
1868: PROCEDURE lock_row(
1869: p_api_version IN NUMBER,
1870: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1871: x_return_status OUT NOCOPY VARCHAR2,
1872: x_msg_count OUT NOCOPY NUMBER,
1873: x_msg_data OUT NOCOPY VARCHAR2,
1874: p_acdv_rec IN acdv_rec_type) IS
1874: p_acdv_rec IN acdv_rec_type) IS
1875:
1876: l_api_version CONSTANT NUMBER := 1;
1877: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1879: l_acd_rec acd_rec_type;
1880: BEGIN
1881: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1882: G_PKG_NAME,
1877: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1879: l_acd_rec acd_rec_type;
1880: BEGIN
1881: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1882: G_PKG_NAME,
1883: p_init_msg_list,
1884: l_api_version,
1885: p_api_version,
1884: l_api_version,
1885: p_api_version,
1886: '_PVT',
1887: x_return_status);
1888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_ERROR;
1892: END IF;
1885: p_api_version,
1886: '_PVT',
1887: x_return_status);
1888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_ERROR;
1892: END IF;
1893: --------------------------------------
1886: '_PVT',
1887: x_return_status);
1888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_ERROR;
1892: END IF;
1893: --------------------------------------
1894: -- Move VIEW record to "Child" records
1887: x_return_status);
1888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_ERROR;
1892: END IF;
1893: --------------------------------------
1894: -- Move VIEW record to "Child" records
1895: --------------------------------------
1903: x_msg_count,
1904: x_msg_data,
1905: l_acd_rec
1906: );
1907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1910: RAISE OKC_API.G_EXCEPTION_ERROR;
1911: END IF;
1904: x_msg_data,
1905: l_acd_rec
1906: );
1907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1910: RAISE OKC_API.G_EXCEPTION_ERROR;
1911: END IF;
1912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1905: l_acd_rec
1906: );
1907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1910: RAISE OKC_API.G_EXCEPTION_ERROR;
1911: END IF;
1912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1913: EXCEPTION
1906: );
1907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1910: RAISE OKC_API.G_EXCEPTION_ERROR;
1911: END IF;
1912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1913: EXCEPTION
1914: WHEN G_EXCEPTION_HALT_VALIDATION then
1908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1910: RAISE OKC_API.G_EXCEPTION_ERROR;
1911: END IF;
1912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1913: EXCEPTION
1914: WHEN G_EXCEPTION_HALT_VALIDATION then
1915: -- No action necessary. Validation can continue to next attribute/column
1916: null;
1914: WHEN G_EXCEPTION_HALT_VALIDATION then
1915: -- No action necessary. Validation can continue to next attribute/column
1916: null;
1917:
1918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1915: -- No action necessary. Validation can continue to next attribute/column
1916: null;
1917:
1918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_ERROR',
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_ERROR',
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT'
1927: );
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT'
1927: );
1928: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1930: (
1931: l_api_name,
1932: G_PKG_NAME,
1925: x_msg_data,
1926: '_PVT'
1927: );
1928: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1930: (
1931: l_api_name,
1932: G_PKG_NAME,
1933: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1930: (
1931: l_api_name,
1932: G_PKG_NAME,
1933: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1934: x_msg_count,
1935: x_msg_data,
1936: '_PVT'
1937: );
1935: x_msg_data,
1936: '_PVT'
1937: );
1938: WHEN OTHERS THEN
1939: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1940: (
1941: l_api_name,
1942: G_PKG_NAME,
1943: 'OTHERS',
1950: -- PL/SQL TBL lock_row for:ACDV_TBL --
1951: --------------------------------------
1952: PROCEDURE lock_row(
1953: p_api_version IN NUMBER,
1954: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1955: x_return_status OUT NOCOPY VARCHAR2,
1956: x_msg_count OUT NOCOPY NUMBER,
1957: x_msg_data OUT NOCOPY VARCHAR2,
1958: p_acdv_tbl IN acdv_tbl_type) IS
1958: p_acdv_tbl IN acdv_tbl_type) IS
1959:
1960: l_api_version CONSTANT NUMBER := 1;
1961: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1962: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1963: i NUMBER := 0;
1964: -- Begin Post-Generation Change
1965: -- overall error status
1966: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1962: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1963: i NUMBER := 0;
1964: -- Begin Post-Generation Change
1965: -- overall error status
1966: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1967: -- End Post-Generation Change
1968: BEGIN
1969: OKC_API.init_msg_list(p_init_msg_list);
1970: -- Make sure PL/SQL table has records in it before passing
1965: -- overall error status
1966: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1967: -- End Post-Generation Change
1968: BEGIN
1969: OKC_API.init_msg_list(p_init_msg_list);
1970: -- Make sure PL/SQL table has records in it before passing
1971: IF (p_acdv_tbl.COUNT > 0) THEN
1972: i := p_acdv_tbl.FIRST;
1973: LOOP
1972: i := p_acdv_tbl.FIRST;
1973: LOOP
1974: lock_row (
1975: p_api_version => p_api_version,
1976: p_init_msg_list => OKC_API.G_FALSE,
1977: x_return_status => x_return_status,
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_acdv_rec => p_acdv_tbl(i));
1979: x_msg_data => x_msg_data,
1980: p_acdv_rec => p_acdv_tbl(i));
1981: -- Begin Post-Generation Change
1982: -- store the highest degree of error
1983: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1984: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1985: l_overall_status := x_return_status;
1986: END IF;
1987: END IF;
1980: p_acdv_rec => p_acdv_tbl(i));
1981: -- Begin Post-Generation Change
1982: -- store the highest degree of error
1983: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1984: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
1985: l_overall_status := x_return_status;
1986: END IF;
1987: END IF;
1988: -- End Post-Generation Change
1998: WHEN G_EXCEPTION_HALT_VALIDATION then
1999: -- No action necessary. Validation can continue to next attribute/column
2000: null;
2001:
2002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2003: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2004: (
2005: l_api_name,
2006: G_PKG_NAME,
1999: -- No action necessary. Validation can continue to next attribute/column
2000: null;
2001:
2002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2003: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2004: (
2005: l_api_name,
2006: G_PKG_NAME,
2007: 'OKC_API.G_RET_STS_ERROR',
2003: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2004: (
2005: l_api_name,
2006: G_PKG_NAME,
2007: 'OKC_API.G_RET_STS_ERROR',
2008: x_msg_count,
2009: x_msg_data,
2010: '_PVT'
2011: );
2008: x_msg_count,
2009: x_msg_data,
2010: '_PVT'
2011: );
2012: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2013: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2009: x_msg_data,
2010: '_PVT'
2011: );
2012: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2013: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2017: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2013: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2017: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2018: x_msg_count,
2019: x_msg_data,
2020: '_PVT'
2021: );
2019: x_msg_data,
2020: '_PVT'
2021: );
2022: WHEN OTHERS THEN
2023: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2024: (
2025: l_api_name,
2026: G_PKG_NAME,
2027: 'OTHERS',
2037: -------------------------------------
2038: -- update_row for:OKL_ASSET_CNDTNS --
2039: -------------------------------------
2040: PROCEDURE update_row(
2041: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2042: x_return_status OUT NOCOPY VARCHAR2,
2043: x_msg_count OUT NOCOPY NUMBER,
2044: x_msg_data OUT NOCOPY VARCHAR2,
2045: p_acd_rec IN acd_rec_type,
2046: x_acd_rec OUT NOCOPY acd_rec_type) IS
2047:
2048: l_api_version CONSTANT NUMBER := 1;
2049: l_api_name CONSTANT VARCHAR2(30) := 'CNDTNS_update_row';
2050: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2051: l_acd_rec acd_rec_type := p_acd_rec;
2052: l_def_acd_rec acd_rec_type;
2053: l_row_notfound BOOLEAN := TRUE;
2054: ----------------------------------
2059: x_acd_rec OUT NOCOPY acd_rec_type
2060: ) RETURN VARCHAR2 IS
2061: l_acd_rec acd_rec_type;
2062: l_row_notfound BOOLEAN := TRUE;
2063: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2064: BEGIN
2065: x_acd_rec := p_acd_rec;
2066: -- Get current database values
2067: l_acd_rec := get_rec(p_acd_rec, l_row_notfound);
2065: x_acd_rec := p_acd_rec;
2066: -- Get current database values
2067: l_acd_rec := get_rec(p_acd_rec, l_row_notfound);
2068: IF (l_row_notfound) THEN
2069: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2070: END IF;
2071: IF (x_acd_rec.id = OKC_API.G_MISS_NUM)
2072: THEN
2073: x_acd_rec.id := l_acd_rec.id;
2067: l_acd_rec := get_rec(p_acd_rec, l_row_notfound);
2068: IF (l_row_notfound) THEN
2069: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2070: END IF;
2071: IF (x_acd_rec.id = OKC_API.G_MISS_NUM)
2072: THEN
2073: x_acd_rec.id := l_acd_rec.id;
2074: END IF;
2075: IF (x_acd_rec.date_report = OKC_API.G_MISS_DATE)
2071: IF (x_acd_rec.id = OKC_API.G_MISS_NUM)
2072: THEN
2073: x_acd_rec.id := l_acd_rec.id;
2074: END IF;
2075: IF (x_acd_rec.date_report = OKC_API.G_MISS_DATE)
2076: THEN
2077: x_acd_rec.date_report := l_acd_rec.date_report;
2078: END IF;
2079: IF (x_acd_rec.cdn_code = OKC_API.G_MISS_CHAR)
2075: IF (x_acd_rec.date_report = OKC_API.G_MISS_DATE)
2076: THEN
2077: x_acd_rec.date_report := l_acd_rec.date_report;
2078: END IF;
2079: IF (x_acd_rec.cdn_code = OKC_API.G_MISS_CHAR)
2080: THEN
2081: x_acd_rec.cdn_code := l_acd_rec.cdn_code;
2082: END IF;
2083: IF (x_acd_rec.clm_id = OKC_API.G_MISS_NUM)
2079: IF (x_acd_rec.cdn_code = OKC_API.G_MISS_CHAR)
2080: THEN
2081: x_acd_rec.cdn_code := l_acd_rec.cdn_code;
2082: END IF;
2083: IF (x_acd_rec.clm_id = OKC_API.G_MISS_NUM)
2084: THEN
2085: x_acd_rec.clm_id := l_acd_rec.clm_id;
2086: END IF;
2087: IF (x_acd_rec.isp_id = OKC_API.G_MISS_NUM)
2083: IF (x_acd_rec.clm_id = OKC_API.G_MISS_NUM)
2084: THEN
2085: x_acd_rec.clm_id := l_acd_rec.clm_id;
2086: END IF;
2087: IF (x_acd_rec.isp_id = OKC_API.G_MISS_NUM)
2088: THEN
2089: x_acd_rec.isp_id := l_acd_rec.isp_id;
2090: END IF;
2091: IF (x_acd_rec.iln_id = OKC_API.G_MISS_NUM)
2087: IF (x_acd_rec.isp_id = OKC_API.G_MISS_NUM)
2088: THEN
2089: x_acd_rec.isp_id := l_acd_rec.isp_id;
2090: END IF;
2091: IF (x_acd_rec.iln_id = OKC_API.G_MISS_NUM)
2092: THEN
2093: x_acd_rec.iln_id := l_acd_rec.iln_id;
2094: END IF;
2095: IF (x_acd_rec.kle_id = OKC_API.G_MISS_NUM)
2091: IF (x_acd_rec.iln_id = OKC_API.G_MISS_NUM)
2092: THEN
2093: x_acd_rec.iln_id := l_acd_rec.iln_id;
2094: END IF;
2095: IF (x_acd_rec.kle_id = OKC_API.G_MISS_NUM)
2096: THEN
2097: x_acd_rec.kle_id := l_acd_rec.kle_id;
2098: END IF;
2099: IF (x_acd_rec.object_version_number = OKC_API.G_MISS_NUM)
2095: IF (x_acd_rec.kle_id = OKC_API.G_MISS_NUM)
2096: THEN
2097: x_acd_rec.kle_id := l_acd_rec.kle_id;
2098: END IF;
2099: IF (x_acd_rec.object_version_number = OKC_API.G_MISS_NUM)
2100: THEN
2101: x_acd_rec.object_version_number := l_acd_rec.object_version_number;
2102: END IF;
2103: IF (x_acd_rec.org_id = OKC_API.G_MISS_NUM)
2099: IF (x_acd_rec.object_version_number = OKC_API.G_MISS_NUM)
2100: THEN
2101: x_acd_rec.object_version_number := l_acd_rec.object_version_number;
2102: END IF;
2103: IF (x_acd_rec.org_id = OKC_API.G_MISS_NUM)
2104: THEN
2105: x_acd_rec.org_id := l_acd_rec.org_id;
2106: END IF;
2107: IF (x_acd_rec.request_id = OKC_API.G_MISS_NUM)
2103: IF (x_acd_rec.org_id = OKC_API.G_MISS_NUM)
2104: THEN
2105: x_acd_rec.org_id := l_acd_rec.org_id;
2106: END IF;
2107: IF (x_acd_rec.request_id = OKC_API.G_MISS_NUM)
2108: THEN
2109: x_acd_rec.request_id := l_acd_rec.request_id;
2110: END IF;
2111: IF (x_acd_rec.program_application_id = OKC_API.G_MISS_NUM)
2107: IF (x_acd_rec.request_id = OKC_API.G_MISS_NUM)
2108: THEN
2109: x_acd_rec.request_id := l_acd_rec.request_id;
2110: END IF;
2111: IF (x_acd_rec.program_application_id = OKC_API.G_MISS_NUM)
2112: THEN
2113: x_acd_rec.program_application_id := l_acd_rec.program_application_id;
2114: END IF;
2115: IF (x_acd_rec.program_id = OKC_API.G_MISS_NUM)
2111: IF (x_acd_rec.program_application_id = OKC_API.G_MISS_NUM)
2112: THEN
2113: x_acd_rec.program_application_id := l_acd_rec.program_application_id;
2114: END IF;
2115: IF (x_acd_rec.program_id = OKC_API.G_MISS_NUM)
2116: THEN
2117: x_acd_rec.program_id := l_acd_rec.program_id;
2118: END IF;
2119: IF (x_acd_rec.program_update_date = OKC_API.G_MISS_DATE)
2115: IF (x_acd_rec.program_id = OKC_API.G_MISS_NUM)
2116: THEN
2117: x_acd_rec.program_id := l_acd_rec.program_id;
2118: END IF;
2119: IF (x_acd_rec.program_update_date = OKC_API.G_MISS_DATE)
2120: THEN
2121: x_acd_rec.program_update_date := l_acd_rec.program_update_date;
2122: END IF;
2123: IF (x_acd_rec.attribute_category = OKC_API.G_MISS_CHAR)
2119: IF (x_acd_rec.program_update_date = OKC_API.G_MISS_DATE)
2120: THEN
2121: x_acd_rec.program_update_date := l_acd_rec.program_update_date;
2122: END IF;
2123: IF (x_acd_rec.attribute_category = OKC_API.G_MISS_CHAR)
2124: THEN
2125: x_acd_rec.attribute_category := l_acd_rec.attribute_category;
2126: END IF;
2127: IF (x_acd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2123: IF (x_acd_rec.attribute_category = OKC_API.G_MISS_CHAR)
2124: THEN
2125: x_acd_rec.attribute_category := l_acd_rec.attribute_category;
2126: END IF;
2127: IF (x_acd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2128: THEN
2129: x_acd_rec.attribute1 := l_acd_rec.attribute1;
2130: END IF;
2131: IF (x_acd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2127: IF (x_acd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2128: THEN
2129: x_acd_rec.attribute1 := l_acd_rec.attribute1;
2130: END IF;
2131: IF (x_acd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2132: THEN
2133: x_acd_rec.attribute2 := l_acd_rec.attribute2;
2134: END IF;
2135: IF (x_acd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2131: IF (x_acd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2132: THEN
2133: x_acd_rec.attribute2 := l_acd_rec.attribute2;
2134: END IF;
2135: IF (x_acd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2136: THEN
2137: x_acd_rec.attribute3 := l_acd_rec.attribute3;
2138: END IF;
2139: IF (x_acd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2135: IF (x_acd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2136: THEN
2137: x_acd_rec.attribute3 := l_acd_rec.attribute3;
2138: END IF;
2139: IF (x_acd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2140: THEN
2141: x_acd_rec.attribute4 := l_acd_rec.attribute4;
2142: END IF;
2143: IF (x_acd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2139: IF (x_acd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2140: THEN
2141: x_acd_rec.attribute4 := l_acd_rec.attribute4;
2142: END IF;
2143: IF (x_acd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2144: THEN
2145: x_acd_rec.attribute5 := l_acd_rec.attribute5;
2146: END IF;
2147: IF (x_acd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2143: IF (x_acd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2144: THEN
2145: x_acd_rec.attribute5 := l_acd_rec.attribute5;
2146: END IF;
2147: IF (x_acd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2148: THEN
2149: x_acd_rec.attribute6 := l_acd_rec.attribute6;
2150: END IF;
2151: IF (x_acd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2147: IF (x_acd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2148: THEN
2149: x_acd_rec.attribute6 := l_acd_rec.attribute6;
2150: END IF;
2151: IF (x_acd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2152: THEN
2153: x_acd_rec.attribute7 := l_acd_rec.attribute7;
2154: END IF;
2155: IF (x_acd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2151: IF (x_acd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2152: THEN
2153: x_acd_rec.attribute7 := l_acd_rec.attribute7;
2154: END IF;
2155: IF (x_acd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2156: THEN
2157: x_acd_rec.attribute8 := l_acd_rec.attribute8;
2158: END IF;
2159: IF (x_acd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2155: IF (x_acd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2156: THEN
2157: x_acd_rec.attribute8 := l_acd_rec.attribute8;
2158: END IF;
2159: IF (x_acd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2160: THEN
2161: x_acd_rec.attribute9 := l_acd_rec.attribute9;
2162: END IF;
2163: IF (x_acd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2159: IF (x_acd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2160: THEN
2161: x_acd_rec.attribute9 := l_acd_rec.attribute9;
2162: END IF;
2163: IF (x_acd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2164: THEN
2165: x_acd_rec.attribute10 := l_acd_rec.attribute10;
2166: END IF;
2167: IF (x_acd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2163: IF (x_acd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2164: THEN
2165: x_acd_rec.attribute10 := l_acd_rec.attribute10;
2166: END IF;
2167: IF (x_acd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2168: THEN
2169: x_acd_rec.attribute11 := l_acd_rec.attribute11;
2170: END IF;
2171: IF (x_acd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2167: IF (x_acd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2168: THEN
2169: x_acd_rec.attribute11 := l_acd_rec.attribute11;
2170: END IF;
2171: IF (x_acd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2172: THEN
2173: x_acd_rec.attribute12 := l_acd_rec.attribute12;
2174: END IF;
2175: IF (x_acd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2171: IF (x_acd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2172: THEN
2173: x_acd_rec.attribute12 := l_acd_rec.attribute12;
2174: END IF;
2175: IF (x_acd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2176: THEN
2177: x_acd_rec.attribute13 := l_acd_rec.attribute13;
2178: END IF;
2179: IF (x_acd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2175: IF (x_acd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2176: THEN
2177: x_acd_rec.attribute13 := l_acd_rec.attribute13;
2178: END IF;
2179: IF (x_acd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2180: THEN
2181: x_acd_rec.attribute14 := l_acd_rec.attribute14;
2182: END IF;
2183: IF (x_acd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2179: IF (x_acd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2180: THEN
2181: x_acd_rec.attribute14 := l_acd_rec.attribute14;
2182: END IF;
2183: IF (x_acd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2184: THEN
2185: x_acd_rec.attribute15 := l_acd_rec.attribute15;
2186: END IF;
2187: IF (x_acd_rec.created_by = OKC_API.G_MISS_NUM)
2183: IF (x_acd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2184: THEN
2185: x_acd_rec.attribute15 := l_acd_rec.attribute15;
2186: END IF;
2187: IF (x_acd_rec.created_by = OKC_API.G_MISS_NUM)
2188: THEN
2189: x_acd_rec.created_by := l_acd_rec.created_by;
2190: END IF;
2191: IF (x_acd_rec.creation_date = OKC_API.G_MISS_DATE)
2187: IF (x_acd_rec.created_by = OKC_API.G_MISS_NUM)
2188: THEN
2189: x_acd_rec.created_by := l_acd_rec.created_by;
2190: END IF;
2191: IF (x_acd_rec.creation_date = OKC_API.G_MISS_DATE)
2192: THEN
2193: x_acd_rec.creation_date := l_acd_rec.creation_date;
2194: END IF;
2195: IF (x_acd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2191: IF (x_acd_rec.creation_date = OKC_API.G_MISS_DATE)
2192: THEN
2193: x_acd_rec.creation_date := l_acd_rec.creation_date;
2194: END IF;
2195: IF (x_acd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2196: THEN
2197: x_acd_rec.last_updated_by := l_acd_rec.last_updated_by;
2198: END IF;
2199: IF (x_acd_rec.last_update_date = OKC_API.G_MISS_DATE)
2195: IF (x_acd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2196: THEN
2197: x_acd_rec.last_updated_by := l_acd_rec.last_updated_by;
2198: END IF;
2199: IF (x_acd_rec.last_update_date = OKC_API.G_MISS_DATE)
2200: THEN
2201: x_acd_rec.last_update_date := l_acd_rec.last_update_date;
2202: END IF;
2203: IF (x_acd_rec.last_update_login = OKC_API.G_MISS_NUM)
2199: IF (x_acd_rec.last_update_date = OKC_API.G_MISS_DATE)
2200: THEN
2201: x_acd_rec.last_update_date := l_acd_rec.last_update_date;
2202: END IF;
2203: IF (x_acd_rec.last_update_login = OKC_API.G_MISS_NUM)
2204: THEN
2205: x_acd_rec.last_update_login := l_acd_rec.last_update_login;
2206: END IF;
2207: RETURN(l_return_status);
2212: FUNCTION Set_Attributes (
2213: p_acd_rec IN acd_rec_type,
2214: x_acd_rec OUT NOCOPY acd_rec_type
2215: ) RETURN VARCHAR2 IS
2216: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2217: BEGIN
2218: x_acd_rec := p_acd_rec;
2219: RETURN(l_return_status);
2220: END Set_Attributes;
2218: x_acd_rec := p_acd_rec;
2219: RETURN(l_return_status);
2220: END Set_Attributes;
2221: BEGIN
2222: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2223: p_init_msg_list,
2224: '_PVT',
2225: x_return_status);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2222: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2223: p_init_msg_list,
2224: '_PVT',
2225: x_return_status);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2223: p_init_msg_list,
2224: '_PVT',
2225: x_return_status);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: --- Setting item attributes
2224: '_PVT',
2225: x_return_status);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: --- Setting item attributes
2232: l_return_status := Set_Attributes(
2225: x_return_status);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: --- Setting item attributes
2232: l_return_status := Set_Attributes(
2233: p_acd_rec, -- IN
2232: l_return_status := Set_Attributes(
2233: p_acd_rec, -- IN
2234: l_acd_rec); -- OUT
2235: --- If any errors happen abort API
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2233: p_acd_rec, -- IN
2234: l_acd_rec); -- OUT
2235: --- If any errors happen abort API
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2234: l_acd_rec); -- OUT
2235: --- If any errors happen abort API
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2235: --- If any errors happen abort API
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2245: RAISE OKC_API.G_EXCEPTION_ERROR;
2246: END IF;
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2245: RAISE OKC_API.G_EXCEPTION_ERROR;
2246: END IF;
2247: UPDATE OKL_ASSET_CNDTNS
2240: END IF;
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2245: RAISE OKC_API.G_EXCEPTION_ERROR;
2246: END IF;
2247: UPDATE OKL_ASSET_CNDTNS
2248: SET DATE_REPORT = l_def_acd_rec.date_report,
2241: l_return_status := populate_new_record(l_acd_rec, l_def_acd_rec);
2242: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2245: RAISE OKC_API.G_EXCEPTION_ERROR;
2246: END IF;
2247: UPDATE OKL_ASSET_CNDTNS
2248: SET DATE_REPORT = l_def_acd_rec.date_report,
2249: CDN_CODE = l_def_acd_rec.cdn_code,
2284: LAST_UPDATE_LOGIN = l_def_acd_rec.last_update_login
2285: WHERE ID = l_def_acd_rec.id;
2286:
2287: x_acd_rec := l_def_acd_rec;
2288: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2289: EXCEPTION
2290: WHEN G_EXCEPTION_HALT_VALIDATION then
2291: -- No action necessary. Validation can continue to next attribute/column
2292: null;
2290: WHEN G_EXCEPTION_HALT_VALIDATION then
2291: -- No action necessary. Validation can continue to next attribute/column
2292: null;
2293:
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (
2297: l_api_name,
2298: G_PKG_NAME,
2291: -- No action necessary. Validation can continue to next attribute/column
2292: null;
2293:
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (
2297: l_api_name,
2298: G_PKG_NAME,
2299: 'OKC_API.G_RET_STS_ERROR',
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (
2297: l_api_name,
2298: G_PKG_NAME,
2299: 'OKC_API.G_RET_STS_ERROR',
2300: x_msg_count,
2301: x_msg_data,
2302: '_PVT'
2303: );
2300: x_msg_count,
2301: x_msg_data,
2302: '_PVT'
2303: );
2304: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2306: (
2307: l_api_name,
2308: G_PKG_NAME,
2301: x_msg_data,
2302: '_PVT'
2303: );
2304: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2306: (
2307: l_api_name,
2308: G_PKG_NAME,
2309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2306: (
2307: l_api_name,
2308: G_PKG_NAME,
2309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2310: x_msg_count,
2311: x_msg_data,
2312: '_PVT'
2313: );
2311: x_msg_data,
2312: '_PVT'
2313: );
2314: WHEN OTHERS THEN
2315: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2316: (
2317: l_api_name,
2318: G_PKG_NAME,
2319: 'OTHERS',
2326: -- update_row for:OKL_ASSET_CNDTNS_V --
2327: ---------------------------------------
2328: PROCEDURE update_row(
2329: p_api_version IN NUMBER,
2330: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2331: x_return_status OUT NOCOPY VARCHAR2,
2332: x_msg_count OUT NOCOPY NUMBER,
2333: x_msg_data OUT NOCOPY VARCHAR2,
2334: p_acdv_rec IN acdv_rec_type,
2335: x_acdv_rec OUT NOCOPY acdv_rec_type) IS
2336:
2337: l_api_version CONSTANT NUMBER := 1;
2338: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2339: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2340: l_acdv_rec acdv_rec_type := p_acdv_rec;
2341: l_def_acdv_rec acdv_rec_type;
2342: l_acd_rec acd_rec_type;
2343: lx_acd_rec acd_rec_type;
2362: x_acdv_rec OUT NOCOPY acdv_rec_type
2363: ) RETURN VARCHAR2 IS
2364: l_acdv_rec acdv_rec_type;
2365: l_row_notfound BOOLEAN := TRUE;
2366: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2367: BEGIN
2368: x_acdv_rec := p_acdv_rec;
2369: -- Get current database values
2370: l_acdv_rec := get_rec(p_acdv_rec, l_row_notfound);
2368: x_acdv_rec := p_acdv_rec;
2369: -- Get current database values
2370: l_acdv_rec := get_rec(p_acdv_rec, l_row_notfound);
2371: IF (l_row_notfound) THEN
2372: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2373: END IF;
2374: IF (x_acdv_rec.id = OKC_API.G_MISS_NUM)
2375: THEN
2376: x_acdv_rec.id := l_acdv_rec.id;
2370: l_acdv_rec := get_rec(p_acdv_rec, l_row_notfound);
2371: IF (l_row_notfound) THEN
2372: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2373: END IF;
2374: IF (x_acdv_rec.id = OKC_API.G_MISS_NUM)
2375: THEN
2376: x_acdv_rec.id := l_acdv_rec.id;
2377: END IF;
2378: IF (x_acdv_rec.object_version_number = OKC_API.G_MISS_NUM)
2374: IF (x_acdv_rec.id = OKC_API.G_MISS_NUM)
2375: THEN
2376: x_acdv_rec.id := l_acdv_rec.id;
2377: END IF;
2378: IF (x_acdv_rec.object_version_number = OKC_API.G_MISS_NUM)
2379: THEN
2380: x_acdv_rec.object_version_number := l_acdv_rec.object_version_number;
2381: END IF;
2382: IF (x_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR)
2378: IF (x_acdv_rec.object_version_number = OKC_API.G_MISS_NUM)
2379: THEN
2380: x_acdv_rec.object_version_number := l_acdv_rec.object_version_number;
2381: END IF;
2382: IF (x_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR)
2383: THEN
2384: x_acdv_rec.cdn_code := l_acdv_rec.cdn_code;
2385: END IF;
2386: IF (x_acdv_rec.iln_id = OKC_API.G_MISS_NUM)
2382: IF (x_acdv_rec.cdn_code = OKC_API.G_MISS_CHAR)
2383: THEN
2384: x_acdv_rec.cdn_code := l_acdv_rec.cdn_code;
2385: END IF;
2386: IF (x_acdv_rec.iln_id = OKC_API.G_MISS_NUM)
2387: THEN
2388: x_acdv_rec.iln_id := l_acdv_rec.iln_id;
2389: END IF;
2390: IF (x_acdv_rec.isp_id = OKC_API.G_MISS_NUM)
2386: IF (x_acdv_rec.iln_id = OKC_API.G_MISS_NUM)
2387: THEN
2388: x_acdv_rec.iln_id := l_acdv_rec.iln_id;
2389: END IF;
2390: IF (x_acdv_rec.isp_id = OKC_API.G_MISS_NUM)
2391: THEN
2392: x_acdv_rec.isp_id := l_acdv_rec.isp_id;
2393: END IF;
2394: IF (x_acdv_rec.clm_id = OKC_API.G_MISS_NUM)
2390: IF (x_acdv_rec.isp_id = OKC_API.G_MISS_NUM)
2391: THEN
2392: x_acdv_rec.isp_id := l_acdv_rec.isp_id;
2393: END IF;
2394: IF (x_acdv_rec.clm_id = OKC_API.G_MISS_NUM)
2395: THEN
2396: x_acdv_rec.clm_id := l_acdv_rec.clm_id;
2397: END IF;
2398: IF (x_acdv_rec.kle_id = OKC_API.G_MISS_NUM)
2394: IF (x_acdv_rec.clm_id = OKC_API.G_MISS_NUM)
2395: THEN
2396: x_acdv_rec.clm_id := l_acdv_rec.clm_id;
2397: END IF;
2398: IF (x_acdv_rec.kle_id = OKC_API.G_MISS_NUM)
2399: THEN
2400: x_acdv_rec.kle_id := l_acdv_rec.kle_id;
2401: END IF;
2402: IF (x_acdv_rec.date_report = OKC_API.G_MISS_DATE)
2398: IF (x_acdv_rec.kle_id = OKC_API.G_MISS_NUM)
2399: THEN
2400: x_acdv_rec.kle_id := l_acdv_rec.kle_id;
2401: END IF;
2402: IF (x_acdv_rec.date_report = OKC_API.G_MISS_DATE)
2403: THEN
2404: x_acdv_rec.date_report := l_acdv_rec.date_report;
2405: END IF;
2406: IF (x_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2402: IF (x_acdv_rec.date_report = OKC_API.G_MISS_DATE)
2403: THEN
2404: x_acdv_rec.date_report := l_acdv_rec.date_report;
2405: END IF;
2406: IF (x_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2407: THEN
2408: x_acdv_rec.attribute_category := l_acdv_rec.attribute_category;
2409: END IF;
2410: IF (x_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2406: IF (x_acdv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2407: THEN
2408: x_acdv_rec.attribute_category := l_acdv_rec.attribute_category;
2409: END IF;
2410: IF (x_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2411: THEN
2412: x_acdv_rec.attribute1 := l_acdv_rec.attribute1;
2413: END IF;
2414: IF (x_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2410: IF (x_acdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2411: THEN
2412: x_acdv_rec.attribute1 := l_acdv_rec.attribute1;
2413: END IF;
2414: IF (x_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2415: THEN
2416: x_acdv_rec.attribute2 := l_acdv_rec.attribute2;
2417: END IF;
2418: IF (x_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2414: IF (x_acdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2415: THEN
2416: x_acdv_rec.attribute2 := l_acdv_rec.attribute2;
2417: END IF;
2418: IF (x_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2419: THEN
2420: x_acdv_rec.attribute3 := l_acdv_rec.attribute3;
2421: END IF;
2422: IF (x_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2418: IF (x_acdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2419: THEN
2420: x_acdv_rec.attribute3 := l_acdv_rec.attribute3;
2421: END IF;
2422: IF (x_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2423: THEN
2424: x_acdv_rec.attribute4 := l_acdv_rec.attribute4;
2425: END IF;
2426: IF (x_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2422: IF (x_acdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2423: THEN
2424: x_acdv_rec.attribute4 := l_acdv_rec.attribute4;
2425: END IF;
2426: IF (x_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2427: THEN
2428: x_acdv_rec.attribute5 := l_acdv_rec.attribute5;
2429: END IF;
2430: IF (x_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2426: IF (x_acdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2427: THEN
2428: x_acdv_rec.attribute5 := l_acdv_rec.attribute5;
2429: END IF;
2430: IF (x_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2431: THEN
2432: x_acdv_rec.attribute6 := l_acdv_rec.attribute6;
2433: END IF;
2434: IF (x_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2430: IF (x_acdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2431: THEN
2432: x_acdv_rec.attribute6 := l_acdv_rec.attribute6;
2433: END IF;
2434: IF (x_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2435: THEN
2436: x_acdv_rec.attribute7 := l_acdv_rec.attribute7;
2437: END IF;
2438: IF (x_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2434: IF (x_acdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2435: THEN
2436: x_acdv_rec.attribute7 := l_acdv_rec.attribute7;
2437: END IF;
2438: IF (x_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2439: THEN
2440: x_acdv_rec.attribute8 := l_acdv_rec.attribute8;
2441: END IF;
2442: IF (x_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2438: IF (x_acdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2439: THEN
2440: x_acdv_rec.attribute8 := l_acdv_rec.attribute8;
2441: END IF;
2442: IF (x_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2443: THEN
2444: x_acdv_rec.attribute9 := l_acdv_rec.attribute9;
2445: END IF;
2446: IF (x_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2442: IF (x_acdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2443: THEN
2444: x_acdv_rec.attribute9 := l_acdv_rec.attribute9;
2445: END IF;
2446: IF (x_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2447: THEN
2448: x_acdv_rec.attribute10 := l_acdv_rec.attribute10;
2449: END IF;
2450: IF (x_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2446: IF (x_acdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2447: THEN
2448: x_acdv_rec.attribute10 := l_acdv_rec.attribute10;
2449: END IF;
2450: IF (x_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2451: THEN
2452: x_acdv_rec.attribute11 := l_acdv_rec.attribute11;
2453: END IF;
2454: IF (x_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2450: IF (x_acdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2451: THEN
2452: x_acdv_rec.attribute11 := l_acdv_rec.attribute11;
2453: END IF;
2454: IF (x_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2455: THEN
2456: x_acdv_rec.attribute12 := l_acdv_rec.attribute12;
2457: END IF;
2458: IF (x_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2454: IF (x_acdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2455: THEN
2456: x_acdv_rec.attribute12 := l_acdv_rec.attribute12;
2457: END IF;
2458: IF (x_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2459: THEN
2460: x_acdv_rec.attribute13 := l_acdv_rec.attribute13;
2461: END IF;
2462: IF (x_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2458: IF (x_acdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2459: THEN
2460: x_acdv_rec.attribute13 := l_acdv_rec.attribute13;
2461: END IF;
2462: IF (x_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2463: THEN
2464: x_acdv_rec.attribute14 := l_acdv_rec.attribute14;
2465: END IF;
2466: IF (x_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2462: IF (x_acdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2463: THEN
2464: x_acdv_rec.attribute14 := l_acdv_rec.attribute14;
2465: END IF;
2466: IF (x_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2467: THEN
2468: x_acdv_rec.attribute15 := l_acdv_rec.attribute15;
2469: END IF;
2470: IF (x_acdv_rec.org_id = OKC_API.G_MISS_NUM)
2466: IF (x_acdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2467: THEN
2468: x_acdv_rec.attribute15 := l_acdv_rec.attribute15;
2469: END IF;
2470: IF (x_acdv_rec.org_id = OKC_API.G_MISS_NUM)
2471: THEN
2472: x_acdv_rec.org_id := l_acdv_rec.org_id;
2473: END IF;
2474: IF (x_acdv_rec.request_id = OKC_API.G_MISS_NUM)
2470: IF (x_acdv_rec.org_id = OKC_API.G_MISS_NUM)
2471: THEN
2472: x_acdv_rec.org_id := l_acdv_rec.org_id;
2473: END IF;
2474: IF (x_acdv_rec.request_id = OKC_API.G_MISS_NUM)
2475: THEN
2476: x_acdv_rec.request_id := l_acdv_rec.request_id;
2477: END IF;
2478: IF (x_acdv_rec.program_application_id = OKC_API.G_MISS_NUM)
2474: IF (x_acdv_rec.request_id = OKC_API.G_MISS_NUM)
2475: THEN
2476: x_acdv_rec.request_id := l_acdv_rec.request_id;
2477: END IF;
2478: IF (x_acdv_rec.program_application_id = OKC_API.G_MISS_NUM)
2479: THEN
2480: x_acdv_rec.program_application_id := l_acdv_rec.program_application_id;
2481: END IF;
2482: IF (x_acdv_rec.program_id = OKC_API.G_MISS_NUM)
2478: IF (x_acdv_rec.program_application_id = OKC_API.G_MISS_NUM)
2479: THEN
2480: x_acdv_rec.program_application_id := l_acdv_rec.program_application_id;
2481: END IF;
2482: IF (x_acdv_rec.program_id = OKC_API.G_MISS_NUM)
2483: THEN
2484: x_acdv_rec.program_id := l_acdv_rec.program_id;
2485: END IF;
2486: IF (x_acdv_rec.program_update_date = OKC_API.G_MISS_DATE)
2482: IF (x_acdv_rec.program_id = OKC_API.G_MISS_NUM)
2483: THEN
2484: x_acdv_rec.program_id := l_acdv_rec.program_id;
2485: END IF;
2486: IF (x_acdv_rec.program_update_date = OKC_API.G_MISS_DATE)
2487: THEN
2488: x_acdv_rec.program_update_date := l_acdv_rec.program_update_date;
2489: END IF;
2490: IF (x_acdv_rec.created_by = OKC_API.G_MISS_NUM)
2486: IF (x_acdv_rec.program_update_date = OKC_API.G_MISS_DATE)
2487: THEN
2488: x_acdv_rec.program_update_date := l_acdv_rec.program_update_date;
2489: END IF;
2490: IF (x_acdv_rec.created_by = OKC_API.G_MISS_NUM)
2491: THEN
2492: x_acdv_rec.created_by := l_acdv_rec.created_by;
2493: END IF;
2494: IF (x_acdv_rec.creation_date = OKC_API.G_MISS_DATE)
2490: IF (x_acdv_rec.created_by = OKC_API.G_MISS_NUM)
2491: THEN
2492: x_acdv_rec.created_by := l_acdv_rec.created_by;
2493: END IF;
2494: IF (x_acdv_rec.creation_date = OKC_API.G_MISS_DATE)
2495: THEN
2496: x_acdv_rec.creation_date := l_acdv_rec.creation_date;
2497: END IF;
2498: IF (x_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2494: IF (x_acdv_rec.creation_date = OKC_API.G_MISS_DATE)
2495: THEN
2496: x_acdv_rec.creation_date := l_acdv_rec.creation_date;
2497: END IF;
2498: IF (x_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2499: THEN
2500: x_acdv_rec.last_updated_by := l_acdv_rec.last_updated_by;
2501: END IF;
2502: IF (x_acdv_rec.last_update_date = OKC_API.G_MISS_DATE)
2498: IF (x_acdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2499: THEN
2500: x_acdv_rec.last_updated_by := l_acdv_rec.last_updated_by;
2501: END IF;
2502: IF (x_acdv_rec.last_update_date = OKC_API.G_MISS_DATE)
2503: THEN
2504: x_acdv_rec.last_update_date := l_acdv_rec.last_update_date;
2505: END IF;
2506: IF (x_acdv_rec.last_update_login = OKC_API.G_MISS_NUM)
2502: IF (x_acdv_rec.last_update_date = OKC_API.G_MISS_DATE)
2503: THEN
2504: x_acdv_rec.last_update_date := l_acdv_rec.last_update_date;
2505: END IF;
2506: IF (x_acdv_rec.last_update_login = OKC_API.G_MISS_NUM)
2507: THEN
2508: x_acdv_rec.last_update_login := l_acdv_rec.last_update_login;
2509: END IF;
2510: RETURN(l_return_status);
2515: FUNCTION Set_Attributes (
2516: p_acdv_rec IN acdv_rec_type,
2517: x_acdv_rec OUT NOCOPY acdv_rec_type
2518: ) RETURN VARCHAR2 IS
2519: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2520: BEGIN
2521: x_acdv_rec := p_acdv_rec;
2522: x_acdv_rec.OBJECT_VERSION_NUMBER := NVL(x_acdv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2523: RETURN(l_return_status);
2522: x_acdv_rec.OBJECT_VERSION_NUMBER := NVL(x_acdv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2523: RETURN(l_return_status);
2524: END Set_Attributes;
2525: BEGIN
2526: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2527: G_PKG_NAME,
2528: p_init_msg_list,
2529: l_api_version,
2530: p_api_version,
2529: l_api_version,
2530: p_api_version,
2531: '_PVT',
2532: x_return_status);
2533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2530: p_api_version,
2531: '_PVT',
2532: x_return_status);
2533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: --- Setting item attributes
2531: '_PVT',
2532: x_return_status);
2533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: --- Setting item attributes
2539: l_return_status := Set_Attributes(
2532: x_return_status);
2533: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: --- Setting item attributes
2539: l_return_status := Set_Attributes(
2540: p_acdv_rec, -- IN
2539: l_return_status := Set_Attributes(
2540: p_acdv_rec, -- IN
2541: l_acdv_rec); -- OUT
2542: --- If any errors happen abort API
2543: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2540: p_acdv_rec, -- IN
2541: l_acdv_rec); -- OUT
2542: --- If any errors happen abort API
2543: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2541: l_acdv_rec); -- OUT
2542: --- If any errors happen abort API
2543: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2542: --- If any errors happen abort API
2543: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
2547: END IF;
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
2555: --- Validate all non-missing attributes (Item Level Validation)
2548: l_return_status := populate_new_record(l_acdv_rec, l_def_acdv_rec);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
2555: --- Validate all non-missing attributes (Item Level Validation)
2556: l_return_status := Validate_Attributes(l_def_acdv_rec);
2554: l_def_acdv_rec := fill_who_columns(l_def_acdv_rec);
2555: --- Validate all non-missing attributes (Item Level Validation)
2556: l_return_status := Validate_Attributes(l_def_acdv_rec);
2557: --- If any errors happen abort API
2558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2555: --- Validate all non-missing attributes (Item Level Validation)
2556: l_return_status := Validate_Attributes(l_def_acdv_rec);
2557: --- If any errors happen abort API
2558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2556: l_return_status := Validate_Attributes(l_def_acdv_rec);
2557: --- If any errors happen abort API
2558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2557: --- If any errors happen abort API
2558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2561: RAISE OKC_API.G_EXCEPTION_ERROR;
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569:
2562: END IF;
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569:
2570: --------------------------------------
2563: l_return_status := Validate_Record(l_def_acdv_rec);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569:
2570: --------------------------------------
2571: -- Move VIEW record to "Child" records
2581: x_msg_data,
2582: l_acd_rec,
2583: lx_acd_rec
2584: );
2585: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2588: RAISE OKC_API.G_EXCEPTION_ERROR;
2589: END IF;
2582: l_acd_rec,
2583: lx_acd_rec
2584: );
2585: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2588: RAISE OKC_API.G_EXCEPTION_ERROR;
2589: END IF;
2590: migrate(lx_acd_rec, l_def_acdv_rec);
2583: lx_acd_rec
2584: );
2585: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2588: RAISE OKC_API.G_EXCEPTION_ERROR;
2589: END IF;
2590: migrate(lx_acd_rec, l_def_acdv_rec);
2591: x_acdv_rec := l_def_acdv_rec;
2584: );
2585: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2588: RAISE OKC_API.G_EXCEPTION_ERROR;
2589: END IF;
2590: migrate(lx_acd_rec, l_def_acdv_rec);
2591: x_acdv_rec := l_def_acdv_rec;
2592: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2588: RAISE OKC_API.G_EXCEPTION_ERROR;
2589: END IF;
2590: migrate(lx_acd_rec, l_def_acdv_rec);
2591: x_acdv_rec := l_def_acdv_rec;
2592: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2593: EXCEPTION
2594: WHEN G_EXCEPTION_HALT_VALIDATION then
2595: -- No action necessary. Validation can continue to next attribute/column
2596: null;
2594: WHEN G_EXCEPTION_HALT_VALIDATION then
2595: -- No action necessary. Validation can continue to next attribute/column
2596: null;
2597:
2598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2600: (
2601: l_api_name,
2602: G_PKG_NAME,
2595: -- No action necessary. Validation can continue to next attribute/column
2596: null;
2597:
2598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2600: (
2601: l_api_name,
2602: G_PKG_NAME,
2603: 'OKC_API.G_RET_STS_ERROR',
2599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2600: (
2601: l_api_name,
2602: G_PKG_NAME,
2603: 'OKC_API.G_RET_STS_ERROR',
2604: x_msg_count,
2605: x_msg_data,
2606: '_PVT'
2607: );
2604: x_msg_count,
2605: x_msg_data,
2606: '_PVT'
2607: );
2608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2610: (
2611: l_api_name,
2612: G_PKG_NAME,
2605: x_msg_data,
2606: '_PVT'
2607: );
2608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2610: (
2611: l_api_name,
2612: G_PKG_NAME,
2613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2610: (
2611: l_api_name,
2612: G_PKG_NAME,
2613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2614: x_msg_count,
2615: x_msg_data,
2616: '_PVT'
2617: );
2615: x_msg_data,
2616: '_PVT'
2617: );
2618: WHEN OTHERS THEN
2619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2620: (
2621: l_api_name,
2622: G_PKG_NAME,
2623: 'OTHERS',
2630: -- PL/SQL TBL update_row for:ACDV_TBL --
2631: ----------------------------------------
2632: PROCEDURE update_row(
2633: p_api_version IN NUMBER,
2634: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2635: x_return_status OUT NOCOPY VARCHAR2,
2636: x_msg_count OUT NOCOPY NUMBER,
2637: x_msg_data OUT NOCOPY VARCHAR2,
2638: p_acdv_tbl IN acdv_tbl_type,
2639: x_acdv_tbl OUT NOCOPY acdv_tbl_type) IS
2640:
2641: l_api_version CONSTANT NUMBER := 1;
2642: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2643: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2644: i NUMBER := 0;
2645: -- Begin Post-Generation Change
2646: -- overall error status
2647: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2643: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2644: i NUMBER := 0;
2645: -- Begin Post-Generation Change
2646: -- overall error status
2647: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2648: -- End Post-Generation Change
2649: BEGIN
2650: OKC_API.init_msg_list(p_init_msg_list);
2651: -- Make sure PL/SQL table has records in it before passing
2646: -- overall error status
2647: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2648: -- End Post-Generation Change
2649: BEGIN
2650: OKC_API.init_msg_list(p_init_msg_list);
2651: -- Make sure PL/SQL table has records in it before passing
2652: IF (p_acdv_tbl.COUNT > 0) THEN
2653: i := p_acdv_tbl.FIRST;
2654: LOOP
2653: i := p_acdv_tbl.FIRST;
2654: LOOP
2655: update_row (
2656: p_api_version => p_api_version,
2657: p_init_msg_list => OKC_API.G_FALSE,
2658: x_return_status => x_return_status,
2659: x_msg_count => x_msg_count,
2660: x_msg_data => x_msg_data,
2661: p_acdv_rec => p_acdv_tbl(i),
2661: p_acdv_rec => p_acdv_tbl(i),
2662: x_acdv_rec => x_acdv_tbl(i));
2663: -- Begin Post-Generation Change
2664: -- store the highest degree of error
2665: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2666: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
2667: l_overall_status := x_return_status;
2668: END IF;
2669: END IF;
2662: x_acdv_rec => x_acdv_tbl(i));
2663: -- Begin Post-Generation Change
2664: -- store the highest degree of error
2665: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2666: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
2667: l_overall_status := x_return_status;
2668: END IF;
2669: END IF;
2670: -- End Post-Generation Change
2680: WHEN G_EXCEPTION_HALT_VALIDATION then
2681: -- No action necessary. Validation can continue to next attribute/column
2682: null;
2683:
2684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2686: (
2687: l_api_name,
2688: G_PKG_NAME,
2681: -- No action necessary. Validation can continue to next attribute/column
2682: null;
2683:
2684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2686: (
2687: l_api_name,
2688: G_PKG_NAME,
2689: 'OKC_API.G_RET_STS_ERROR',
2685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2686: (
2687: l_api_name,
2688: G_PKG_NAME,
2689: 'OKC_API.G_RET_STS_ERROR',
2690: x_msg_count,
2691: x_msg_data,
2692: '_PVT'
2693: );
2690: x_msg_count,
2691: x_msg_data,
2692: '_PVT'
2693: );
2694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2696: (
2697: l_api_name,
2698: G_PKG_NAME,
2691: x_msg_data,
2692: '_PVT'
2693: );
2694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2696: (
2697: l_api_name,
2698: G_PKG_NAME,
2699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2696: (
2697: l_api_name,
2698: G_PKG_NAME,
2699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2700: x_msg_count,
2701: x_msg_data,
2702: '_PVT'
2703: );
2701: x_msg_data,
2702: '_PVT'
2703: );
2704: WHEN OTHERS THEN
2705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2706: (
2707: l_api_name,
2708: G_PKG_NAME,
2709: 'OTHERS',
2719: -------------------------------------
2720: -- delete_row for:OKL_ASSET_CNDTNS --
2721: -------------------------------------
2722: PROCEDURE delete_row(
2723: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2724: x_return_status OUT NOCOPY VARCHAR2,
2725: x_msg_count OUT NOCOPY NUMBER,
2726: x_msg_data OUT NOCOPY VARCHAR2,
2727: p_acd_rec IN acd_rec_type) IS
2727: p_acd_rec IN acd_rec_type) IS
2728:
2729: l_api_version CONSTANT NUMBER := 1;
2730: l_api_name CONSTANT VARCHAR2(30) := 'CNDTNS_delete_row';
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2732: l_acd_rec acd_rec_type:= p_acd_rec;
2733: l_row_notfound BOOLEAN := TRUE;
2734: BEGIN
2735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2732: l_acd_rec acd_rec_type:= p_acd_rec;
2733: l_row_notfound BOOLEAN := TRUE;
2734: BEGIN
2735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2736: p_init_msg_list,
2737: '_PVT',
2738: x_return_status);
2739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2736: p_init_msg_list,
2737: '_PVT',
2738: x_return_status);
2739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2736: p_init_msg_list,
2737: '_PVT',
2738: x_return_status);
2739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744: DELETE FROM OKL_ASSET_CNDTNS
2737: '_PVT',
2738: x_return_status);
2739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744: DELETE FROM OKL_ASSET_CNDTNS
2745: WHERE ID = l_acd_rec.id;
2738: x_return_status);
2739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744: DELETE FROM OKL_ASSET_CNDTNS
2745: WHERE ID = l_acd_rec.id;
2746:
2743: END IF;
2744: DELETE FROM OKL_ASSET_CNDTNS
2745: WHERE ID = l_acd_rec.id;
2746:
2747: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2748: EXCEPTION
2749: WHEN G_EXCEPTION_HALT_VALIDATION then
2750: -- No action necessary. Validation can continue to next attribute/column
2751: null;
2749: WHEN G_EXCEPTION_HALT_VALIDATION then
2750: -- No action necessary. Validation can continue to next attribute/column
2751: null;
2752:
2753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2750: -- No action necessary. Validation can continue to next attribute/column
2751: null;
2752:
2753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKC_API.G_RET_STS_ERROR',
2754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKC_API.G_RET_STS_ERROR',
2759: x_msg_count,
2760: x_msg_data,
2761: '_PVT'
2762: );
2759: x_msg_count,
2760: x_msg_data,
2761: '_PVT'
2762: );
2763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2765: (
2766: l_api_name,
2767: G_PKG_NAME,
2760: x_msg_data,
2761: '_PVT'
2762: );
2763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2765: (
2766: l_api_name,
2767: G_PKG_NAME,
2768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2765: (
2766: l_api_name,
2767: G_PKG_NAME,
2768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2769: x_msg_count,
2770: x_msg_data,
2771: '_PVT'
2772: );
2770: x_msg_data,
2771: '_PVT'
2772: );
2773: WHEN OTHERS THEN
2774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OTHERS',
2785: -- delete_row for:OKL_ASSET_CNDTNS_V --
2786: ---------------------------------------
2787: PROCEDURE delete_row(
2788: p_api_version IN NUMBER,
2789: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2790: x_return_status OUT NOCOPY VARCHAR2,
2791: x_msg_count OUT NOCOPY NUMBER,
2792: x_msg_data OUT NOCOPY VARCHAR2,
2793: p_acdv_rec IN acdv_rec_type) IS
2793: p_acdv_rec IN acdv_rec_type) IS
2794:
2795: l_api_version CONSTANT NUMBER := 1;
2796: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2797: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2798: l_acdv_rec acdv_rec_type := p_acdv_rec;
2799: l_acd_rec acd_rec_type;
2800: BEGIN
2801: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2797: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2798: l_acdv_rec acdv_rec_type := p_acdv_rec;
2799: l_acd_rec acd_rec_type;
2800: BEGIN
2801: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2802: G_PKG_NAME,
2803: p_init_msg_list,
2804: l_api_version,
2805: p_api_version,
2804: l_api_version,
2805: p_api_version,
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2811: RAISE OKC_API.G_EXCEPTION_ERROR;
2812: END IF;
2805: p_api_version,
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2811: RAISE OKC_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --------------------------------------
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2811: RAISE OKC_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --------------------------------------
2814: -- Move VIEW record to "Child" records
2807: x_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2811: RAISE OKC_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --------------------------------------
2814: -- Move VIEW record to "Child" records
2815: --------------------------------------
2823: x_msg_count,
2824: x_msg_data,
2825: l_acd_rec
2826: );
2827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_ERROR;
2831: END IF;
2824: x_msg_data,
2825: l_acd_rec
2826: );
2827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2825: l_acd_rec
2826: );
2827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2833: EXCEPTION
2826: );
2827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2833: EXCEPTION
2834: WHEN G_EXCEPTION_HALT_VALIDATION then
2828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2833: EXCEPTION
2834: WHEN G_EXCEPTION_HALT_VALIDATION then
2835: -- No action necessary. Validation can continue to next attribute/column
2836: null;
2834: WHEN G_EXCEPTION_HALT_VALIDATION then
2835: -- No action necessary. Validation can continue to next attribute/column
2836: null;
2837:
2838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2840: (
2841: l_api_name,
2842: G_PKG_NAME,
2835: -- No action necessary. Validation can continue to next attribute/column
2836: null;
2837:
2838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2840: (
2841: l_api_name,
2842: G_PKG_NAME,
2843: 'OKC_API.G_RET_STS_ERROR',
2839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2840: (
2841: l_api_name,
2842: G_PKG_NAME,
2843: 'OKC_API.G_RET_STS_ERROR',
2844: x_msg_count,
2845: x_msg_data,
2846: '_PVT'
2847: );
2844: x_msg_count,
2845: x_msg_data,
2846: '_PVT'
2847: );
2848: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2850: (
2851: l_api_name,
2852: G_PKG_NAME,
2845: x_msg_data,
2846: '_PVT'
2847: );
2848: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2850: (
2851: l_api_name,
2852: G_PKG_NAME,
2853: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2850: (
2851: l_api_name,
2852: G_PKG_NAME,
2853: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2854: x_msg_count,
2855: x_msg_data,
2856: '_PVT'
2857: );
2855: x_msg_data,
2856: '_PVT'
2857: );
2858: WHEN OTHERS THEN
2859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2860: (
2861: l_api_name,
2862: G_PKG_NAME,
2863: 'OTHERS',
2870: -- PL/SQL TBL delete_row for:ACDV_TBL --
2871: ----------------------------------------
2872: PROCEDURE delete_row(
2873: p_api_version IN NUMBER,
2874: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2875: x_return_status OUT NOCOPY VARCHAR2,
2876: x_msg_count OUT NOCOPY NUMBER,
2877: x_msg_data OUT NOCOPY VARCHAR2,
2878: p_acdv_tbl IN acdv_tbl_type) IS
2878: p_acdv_tbl IN acdv_tbl_type) IS
2879:
2880: l_api_version CONSTANT NUMBER := 1;
2881: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2883: i NUMBER := 0;
2884: -- Begin Post-Generation Change
2885: -- overall error status
2886: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2883: i NUMBER := 0;
2884: -- Begin Post-Generation Change
2885: -- overall error status
2886: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2887: -- End Post-Generation Change
2888: BEGIN
2889: OKC_API.init_msg_list(p_init_msg_list);
2890: -- Make sure PL/SQL table has records in it before passing
2885: -- overall error status
2886: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2887: -- End Post-Generation Change
2888: BEGIN
2889: OKC_API.init_msg_list(p_init_msg_list);
2890: -- Make sure PL/SQL table has records in it before passing
2891: IF (p_acdv_tbl.COUNT > 0) THEN
2892: i := p_acdv_tbl.FIRST;
2893: LOOP
2892: i := p_acdv_tbl.FIRST;
2893: LOOP
2894: delete_row (
2895: p_api_version => p_api_version,
2896: p_init_msg_list => OKC_API.G_FALSE,
2897: x_return_status => x_return_status,
2898: x_msg_count => x_msg_count,
2899: x_msg_data => x_msg_data,
2900: p_acdv_rec => p_acdv_tbl(i));
2899: x_msg_data => x_msg_data,
2900: p_acdv_rec => p_acdv_tbl(i));
2901: -- Begin Post-Generation Change
2902: -- store the highest degree of error
2903: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2904: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
2905: l_overall_status := x_return_status;
2906: END IF;
2907: END IF;
2900: p_acdv_rec => p_acdv_tbl(i));
2901: -- Begin Post-Generation Change
2902: -- store the highest degree of error
2903: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2904: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
2905: l_overall_status := x_return_status;
2906: END IF;
2907: END IF;
2908: -- End Post-Generation Change
2918: WHEN G_EXCEPTION_HALT_VALIDATION then
2919: -- No action necessary. Validation can continue to next attribute/column
2920: null;
2921:
2922: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2919: -- No action necessary. Validation can continue to next attribute/column
2920: null;
2921:
2922: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2927: 'OKC_API.G_RET_STS_ERROR',
2923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2927: 'OKC_API.G_RET_STS_ERROR',
2928: x_msg_count,
2929: x_msg_data,
2930: '_PVT'
2931: );
2928: x_msg_count,
2929: x_msg_data,
2930: '_PVT'
2931: );
2932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2929: x_msg_data,
2930: '_PVT'
2931: );
2932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2933: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2938: x_msg_count,
2939: x_msg_data,
2940: '_PVT'
2941: );
2939: x_msg_data,
2940: '_PVT'
2941: );
2942: WHEN OTHERS THEN
2943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2947: 'OTHERS',