[Home] [Help]
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
13: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_REACT_INTERVALS_V';
14: G_EXCEPTION_HALT_VALIDATION exception;
15: g_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
16:
17: -- Start of comments
18: --
19: -- Procedure Name : validate_tve_id
33: FROM OKC_TIMEVALUES tvev
34: WHERE tvev.ID = p_rilv_rec.TVE_ID;
35: BEGIN
36: -- initialize return status
37: x_return_status := OKC_API.G_RET_STS_SUCCESS;
38:
39: -- data required
40: IF (p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
41: p_rilv_rec.tve_id IS NULL) THEN
36: -- initialize return status
37: x_return_status := OKC_API.G_RET_STS_SUCCESS;
38:
39: -- data required
40: IF (p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
41: p_rilv_rec.tve_id IS NULL) THEN
42:
43: OKC_API.set_message(
44: p_app_name => G_APP_NAME,
39: -- data required
40: IF (p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
41: p_rilv_rec.tve_id IS NULL) THEN
42:
43: OKC_API.set_message(
44: p_app_name => G_APP_NAME,
45: p_msg_name => G_REQUIRED_VALUE,
46: p_token1 => G_COL_NAME_TOKEN,
47: p_token1_value => 'tve_id');
46: p_token1 => G_COL_NAME_TOKEN,
47: p_token1_value => 'tve_id');
48:
49: -- notify caller of an error
50: x_return_status := OKC_API.G_RET_STS_ERROR;
51:
52: -- halt validation
53: RAISE G_EXCEPTION_HALT_VALIDATION;
54: END IF;
59: CLOSE l_tvev_csr;
60:
61: -- if l_dummy_var still set to default, data was not found
62: IF (l_dummy_var = '?') THEN
63: OKC_API.set_message(
64: p_app_name => G_APP_NAME,
65: p_msg_name => G_NO_PARENT_RECORD,
66: p_token1 => G_COL_NAME_TOKEN,
67: p_token1_value => 'tve_id',
69: p_token2_value => G_VIEW,
70: p_token3 => G_PARENT_TABLE_TOKEN,
71: p_token3_value => 'OKC_TIMEVALUES_V');
72: -- notify caller of an error
73: x_return_status := OKC_API.G_RET_STS_ERROR;
74: END IF;
75: EXCEPTION
76: WHEN G_EXCEPTION_HALT_VALIDATION THEN
77: -- no processing necessary; validation can continue with next column
77: -- no processing necessary; validation can continue with next column
78: NULL;
79: WHEN OTHERS THEN
80: -- store SQL error message on message stack
81: OKC_API.SET_MESSAGE(
82: p_app_name => g_app_name,
83: p_msg_name => g_unexpected_error,
84: p_token1 => g_sqlcode_token,
85: p_token1_value => sqlcode,
85: p_token1_value => sqlcode,
86: p_token2 => g_sqlerrm_token,
87: p_token2_value => sqlerrm);
88: -- notify caller of an error as UNEXPETED error
89: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
90: -- verify that cursor was closed
91: IF l_tvev_csr%ISOPEN THEN
92: CLOSE l_tvev_csr;
93: END IF;
112: FROM OKC_RULES_B rulv
113: WHERE rulv.ID = p_rilv_rec.RUL_ID;
114: BEGIN
115: -- initialize return status
116: x_return_status := OKC_API.G_RET_STS_SUCCESS;
117:
118: -- data required
119: IF (p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
120: p_rilv_rec.rul_id IS NULL) THEN
115: -- initialize return status
116: x_return_status := OKC_API.G_RET_STS_SUCCESS;
117:
118: -- data required
119: IF (p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
120: p_rilv_rec.rul_id IS NULL) THEN
121:
122: OKC_API.set_message(
123: p_app_name => G_APP_NAME,
118: -- data required
119: IF (p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
120: p_rilv_rec.rul_id IS NULL) THEN
121:
122: OKC_API.set_message(
123: p_app_name => G_APP_NAME,
124: p_msg_name => G_REQUIRED_VALUE,
125: p_token1 => G_COL_NAME_TOKEN,
126: p_token1_value => 'rul_id');
125: p_token1 => G_COL_NAME_TOKEN,
126: p_token1_value => 'rul_id');
127:
128: -- notify caller of an error
129: x_return_status := OKC_API.G_RET_STS_ERROR;
130:
131: -- halt validation
132: RAISE G_EXCEPTION_HALT_VALIDATION;
133: END IF;
138: CLOSE l_rulv_csr;
139:
140: -- if l_dummy_var still set to default, data was not found
141: IF (l_dummy_var = '?') THEN
142: OKC_API.set_message(
143: p_app_name => G_APP_NAME,
144: p_msg_name => G_NO_PARENT_RECORD,
145: p_token1 => G_COL_NAME_TOKEN,
146: p_token1_value => 'rul_id',
148: p_token2_value => G_VIEW,
149: p_token3 => G_PARENT_TABLE_TOKEN,
150: p_token3_value => 'OKC_RULES_V');
151: -- notify caller of an error
152: x_return_status := OKC_API.G_RET_STS_ERROR;
153: END IF;
154: EXCEPTION
155: WHEN G_EXCEPTION_HALT_VALIDATION THEN
156: -- no processing necessary; validation can continue with next column
156: -- no processing necessary; validation can continue with next column
157: NULL;
158: WHEN OTHERS THEN
159: -- store SQL error message on message stack
160: OKC_API.SET_MESSAGE(
161: p_app_name => g_app_name,
162: p_msg_name => g_unexpected_error,
163: p_token1 => g_sqlcode_token,
164: p_token1_value => sqlcode,
164: p_token1_value => sqlcode,
165: p_token2 => g_sqlerrm_token,
166: p_token2_value => sqlerrm);
167: -- notify caller of an error as UNEXPETED error
168: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
169: -- verify that cursor was closed
170: IF l_rulv_csr%ISOPEN THEN
171: CLOSE l_rulv_csr;
172: END IF;
191: FROM OKX_UNITS_OF_MEASURE_V uomv
192: WHERE uomv.UOM_CODE = p_rilv_rec.uom_code;
193: BEGIN
194: -- initialize return status
195: x_return_status := OKC_API.G_RET_STS_SUCCESS;
196:
197: -- data required
198: IF (p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
199: p_rilv_rec.uom_code IS NULL) THEN
194: -- initialize return status
195: x_return_status := OKC_API.G_RET_STS_SUCCESS;
196:
197: -- data required
198: IF (p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
199: p_rilv_rec.uom_code IS NULL) THEN
200:
201: OKC_API.set_message(
202: p_app_name => G_APP_NAME,
197: -- data required
198: IF (p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
199: p_rilv_rec.uom_code IS NULL) THEN
200:
201: OKC_API.set_message(
202: p_app_name => G_APP_NAME,
203: p_msg_name => G_REQUIRED_VALUE,
204: p_token1 => G_COL_NAME_TOKEN,
205: p_token1_value => 'uom_code');
204: p_token1 => G_COL_NAME_TOKEN,
205: p_token1_value => 'uom_code');
206:
207: -- notify caller of an error
208: x_return_status := OKC_API.G_RET_STS_ERROR;
209:
210: -- halt validation
211: RAISE G_EXCEPTION_HALT_VALIDATION;
212: END IF;
217: CLOSE l_uomv_csr;
218:
219: -- if l_dummy_var still set to default, data was not found
220: IF (l_dummy_var = '?') THEN
221: OKC_API.set_message(
222: p_app_name => G_APP_NAME,
223: p_msg_name => G_NO_PARENT_RECORD,
224: p_token1 => G_COL_NAME_TOKEN,
225: p_token1_value => 'uom_code',
227: p_token2_value => G_VIEW,
228: p_token3 => G_PARENT_TABLE_TOKEN,
229: p_token3_value => 'MTL_UNITS_OF_MEASURE_VL');
230: -- notify caller of an error
231: x_return_status := OKC_API.G_RET_STS_ERROR;
232: END IF;
233: EXCEPTION
234: WHEN G_EXCEPTION_HALT_VALIDATION THEN
235: -- no processing necessary; validation can continue with next column
235: -- no processing necessary; validation can continue with next column
236: NULL;
237: WHEN OTHERS THEN
238: -- store SQL error message on message stack
239: OKC_API.SET_MESSAGE(
240: p_app_name => g_app_name,
241: p_msg_name => g_unexpected_error,
242: p_token1 => g_sqlcode_token,
243: p_token1_value => sqlcode,
243: p_token1_value => sqlcode,
244: p_token2 => g_sqlerrm_token,
245: p_token2_value => sqlerrm);
246: -- notify caller of an error as UNEXPETED error
247: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
248: -- verify that cursor was closed
249: IF l_uomv_csr%ISOPEN THEN
250: CLOSE l_uomv_csr;
251: END IF;
263: PROCEDURE validate_duration(
264: x_return_status OUT NOCOPY VARCHAR2,
265: p_rilv_rec IN rilv_rec_type
266: ) IS
267: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
268: BEGIN
269: -- initialize return status
270: x_return_status := OKC_API.G_RET_STS_SUCCESS;
271:
266: ) IS
267: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
268: BEGIN
269: -- initialize return status
270: x_return_status := OKC_API.G_RET_STS_SUCCESS;
271:
272: -- data required
273: IF (p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
274: p_rilv_rec.duration IS NULL) THEN
269: -- initialize return status
270: x_return_status := OKC_API.G_RET_STS_SUCCESS;
271:
272: -- data required
273: IF (p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
274: p_rilv_rec.duration IS NULL) THEN
275:
276: OKC_API.set_message(
277: p_app_name => G_APP_NAME,
272: -- data required
273: IF (p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
274: p_rilv_rec.duration IS NULL) THEN
275:
276: OKC_API.set_message(
277: p_app_name => G_APP_NAME,
278: p_msg_name => G_REQUIRED_VALUE,
279: p_token1 => G_COL_NAME_TOKEN,
280: p_token1_value => 'duration');
279: p_token1 => G_COL_NAME_TOKEN,
280: p_token1_value => 'duration');
281:
282: -- notify caller of an error
283: x_return_status := OKC_API.G_RET_STS_ERROR;
284:
285: -- halt validation
286: RAISE G_EXCEPTION_HALT_VALIDATION;
287: END IF;
291: -- no processing necessary; validation can continue with next column
292: NULL;
293: WHEN OTHERS THEN
294: -- store SQL error message on message stack
295: OKC_API.SET_MESSAGE(
296: p_app_name => g_app_name,
297: p_msg_name => g_unexpected_error,
298: p_token1 => g_sqlcode_token,
299: p_token1_value => sqlcode,
299: p_token1_value => sqlcode,
300: p_token2 => g_sqlerrm_token,
301: p_token2_value => sqlerrm);
302: -- notify caller of an error as UNEXPETED error
303: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
304: END validate_duration;
305: --
306: -- Start of comments
307: --
322: FROM OKC_K_HEADERS_B chrv
323: WHERE chrv.ID = p_rilv_rec.DNZ_CHR_ID;
324: BEGIN
325: -- initialize return status
326: x_return_status := OKC_API.G_RET_STS_SUCCESS;
327:
328: -- data required
329: IF (p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
330: p_rilv_rec.dnz_chr_id IS NULL) THEN
325: -- initialize return status
326: x_return_status := OKC_API.G_RET_STS_SUCCESS;
327:
328: -- data required
329: IF (p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
330: p_rilv_rec.dnz_chr_id IS NULL) THEN
331:
332: OKC_API.set_message(
333: p_app_name => G_APP_NAME,
328: -- data required
329: IF (p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
330: p_rilv_rec.dnz_chr_id IS NULL) THEN
331:
332: OKC_API.set_message(
333: p_app_name => G_APP_NAME,
334: p_msg_name => G_REQUIRED_VALUE,
335: p_token1 => G_COL_NAME_TOKEN,
336: p_token1_value => 'dnz_chr_id');
335: p_token1 => G_COL_NAME_TOKEN,
336: p_token1_value => 'dnz_chr_id');
337:
338: -- notify caller of an error
339: x_return_status := OKC_API.G_RET_STS_ERROR;
340:
341: -- halt validation
342: RAISE G_EXCEPTION_HALT_VALIDATION;
343: END IF;
348: CLOSE l_chrv_csr;
349:
350: -- if l_dummy_var still set to default, data was not found
351: IF (l_dummy_var = '?') THEN
352: OKC_API.set_message(
353: p_app_name => G_APP_NAME,
354: p_msg_name => G_NO_PARENT_RECORD,
355: p_token1 => G_COL_NAME_TOKEN,
356: p_token1_value => 'dnz_chr_id',
359: p_token3 => G_PARENT_TABLE_TOKEN,
360: p_token3_value => 'OKC_K_HEADERS_V');
361:
362: -- notify caller of an error
363: x_return_status := OKC_API.G_RET_STS_ERROR;
364: END IF;
365: EXCEPTION
366: WHEN G_EXCEPTION_HALT_VALIDATION THEN
367: -- no processing necessary; validation can continue with next column
367: -- no processing necessary; validation can continue with next column
368: NULL;
369: WHEN OTHERS THEN
370: -- store SQL error message on message stack
371: OKC_API.SET_MESSAGE(
372: p_app_name => g_app_name,
373: p_msg_name => g_unexpected_error,
374: p_token1 => g_sqlcode_token,
375: p_token1_value => sqlcode,
375: p_token1_value => sqlcode,
376: p_token2 => g_sqlerrm_token,
377: p_token2_value => sqlerrm);
378: -- notify caller of an error as UNEXPETED error
379: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
380: -- verify that cursor was closed
381: IF l_chrv_csr%ISOPEN THEN
382: CLOSE l_chrv_csr;
383: END IF;
394:
395: FUNCTION Validate_Attributes (
396: p_rilv_rec IN rilv_rec_type
397: ) RETURN VARCHAR2 IS
398: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
399: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
400: BEGIN
401: -- call each column-level validation
402: validate_rul_id(
395: FUNCTION Validate_Attributes (
396: p_rilv_rec IN rilv_rec_type
397: ) RETURN VARCHAR2 IS
398: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
399: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
400: BEGIN
401: -- call each column-level validation
402: validate_rul_id(
403: x_return_status => l_return_status,
403: x_return_status => l_return_status,
404: p_rilv_rec => p_rilv_rec);
405:
406: -- store the highest degree of error
407: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
408: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
409: x_return_status := l_return_status;
410: END IF;
411: END IF;
404: p_rilv_rec => p_rilv_rec);
405:
406: -- store the highest degree of error
407: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
408: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
409: x_return_status := l_return_status;
410: END IF;
411: END IF;
412: --
414: x_return_status => l_return_status,
415: p_rilv_rec => p_rilv_rec);
416:
417: -- store the highest degree of error
418: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
419: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
420: x_return_status := l_return_status;
421: END IF;
422: END IF;
415: p_rilv_rec => p_rilv_rec);
416:
417: -- store the highest degree of error
418: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
419: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
420: x_return_status := l_return_status;
421: END IF;
422: END IF;
423: --
425: x_return_status => l_return_status,
426: p_rilv_rec => p_rilv_rec);
427:
428: -- store the highest degree of error
429: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
430: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: x_return_status := l_return_status;
432: END IF;
433: END IF;
426: p_rilv_rec => p_rilv_rec);
427:
428: -- store the highest degree of error
429: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
430: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: x_return_status := l_return_status;
432: END IF;
433: END IF;
434: --
436: -- x_return_status => l_return_status,
437: -- p_rilv_rec => p_rilv_rec);
438:
439: -- store the highest degree of error
440: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
441: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
442: x_return_status := l_return_status;
443: END IF;
444: END IF;
437: -- p_rilv_rec => p_rilv_rec);
438:
439: -- store the highest degree of error
440: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
441: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
442: x_return_status := l_return_status;
443: END IF;
444: END IF;
445: --
447: x_return_status => l_return_status,
448: p_rilv_rec => p_rilv_rec);
449:
450: -- store the highest degree of error
451: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
452: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: x_return_status := l_return_status;
454: END IF;
455: END IF;
448: p_rilv_rec => p_rilv_rec);
449:
450: -- store the highest degree of error
451: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
452: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: x_return_status := l_return_status;
454: END IF;
455: END IF;
456: --
459:
460: EXCEPTION
461: WHEN OTHERS THEN
462: -- store SQL error message on message stack for caller
463: OKC_API.SET_MESSAGE
464: (p_app_name => G_APP_NAME,
465: p_msg_name => G_UNEXPECTED_ERROR,
466: p_token1 => G_SQLCODE_TOKEN,
467: p_token1_value => SQLCODE,
468: p_token2 => G_SQLERRM_TOKEN,
469: p_token2_value => SQLERRM);
470:
471: -- notify caller of an UNEXPECTED error
472: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
473:
474: -- return status to caller
475: RETURN x_return_status;
476:
628: p_rilv_rec IN rilv_rec_type
629: ) RETURN rilv_rec_type IS
630: l_rilv_rec rilv_rec_type := p_rilv_rec;
631: BEGIN
632: IF (l_rilv_rec.tve_id = OKC_API.G_MISS_NUM) THEN
633: l_rilv_rec.tve_id := NULL;
634: END IF;
635: IF (l_rilv_rec.rul_id = OKC_API.G_MISS_NUM) THEN
636: l_rilv_rec.rul_id := NULL;
631: BEGIN
632: IF (l_rilv_rec.tve_id = OKC_API.G_MISS_NUM) THEN
633: l_rilv_rec.tve_id := NULL;
634: END IF;
635: IF (l_rilv_rec.rul_id = OKC_API.G_MISS_NUM) THEN
636: l_rilv_rec.rul_id := NULL;
637: END IF;
638: IF (l_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
639: l_rilv_rec.dnz_chr_id := NULL;
634: END IF;
635: IF (l_rilv_rec.rul_id = OKC_API.G_MISS_NUM) THEN
636: l_rilv_rec.rul_id := NULL;
637: END IF;
638: IF (l_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
639: l_rilv_rec.dnz_chr_id := NULL;
640: END IF;
641: IF (l_rilv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
642: l_rilv_rec.object_version_number := NULL;
637: END IF;
638: IF (l_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
639: l_rilv_rec.dnz_chr_id := NULL;
640: END IF;
641: IF (l_rilv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
642: l_rilv_rec.object_version_number := NULL;
643: END IF;
644: IF (l_rilv_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
645: l_rilv_rec.uom_code := NULL;
640: END IF;
641: IF (l_rilv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
642: l_rilv_rec.object_version_number := NULL;
643: END IF;
644: IF (l_rilv_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
645: l_rilv_rec.uom_code := NULL;
646: END IF;
647: IF (l_rilv_rec.duration = OKC_API.G_MISS_NUM) THEN
648: l_rilv_rec.duration := NULL;
643: END IF;
644: IF (l_rilv_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
645: l_rilv_rec.uom_code := NULL;
646: END IF;
647: IF (l_rilv_rec.duration = OKC_API.G_MISS_NUM) THEN
648: l_rilv_rec.duration := NULL;
649: END IF;
650: IF (l_rilv_rec.created_by = OKC_API.G_MISS_NUM) THEN
651: l_rilv_rec.created_by := NULL;
646: END IF;
647: IF (l_rilv_rec.duration = OKC_API.G_MISS_NUM) THEN
648: l_rilv_rec.duration := NULL;
649: END IF;
650: IF (l_rilv_rec.created_by = OKC_API.G_MISS_NUM) THEN
651: l_rilv_rec.created_by := NULL;
652: END IF;
653: IF (l_rilv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
654: l_rilv_rec.creation_date := NULL;
649: END IF;
650: IF (l_rilv_rec.created_by = OKC_API.G_MISS_NUM) THEN
651: l_rilv_rec.created_by := NULL;
652: END IF;
653: IF (l_rilv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
654: l_rilv_rec.creation_date := NULL;
655: END IF;
656: IF (l_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
657: l_rilv_rec.last_updated_by := NULL;
652: END IF;
653: IF (l_rilv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
654: l_rilv_rec.creation_date := NULL;
655: END IF;
656: IF (l_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
657: l_rilv_rec.last_updated_by := NULL;
658: END IF;
659: IF (l_rilv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
660: l_rilv_rec.last_update_date := NULL;
655: END IF;
656: IF (l_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
657: l_rilv_rec.last_updated_by := NULL;
658: END IF;
659: IF (l_rilv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
660: l_rilv_rec.last_update_date := NULL;
661: END IF;
662: IF (l_rilv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
663: l_rilv_rec.last_update_login := NULL;
658: END IF;
659: IF (l_rilv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
660: l_rilv_rec.last_update_date := NULL;
661: END IF;
662: IF (l_rilv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
663: l_rilv_rec.last_update_login := NULL;
664: END IF;
665: RETURN(l_rilv_rec);
666: END null_out_defaults;
673: /* commenting out nocopy generated code in favor of hand-coded procedure
674: FUNCTION Validate_Attributes (
675: p_rilv_rec IN rilv_rec_type
676: ) RETURN VARCHAR2 IS
677: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
678: BEGIN
679: IF p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
680: p_rilv_rec.tve_id IS NULL
681: THEN
675: p_rilv_rec IN rilv_rec_type
676: ) RETURN VARCHAR2 IS
677: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
678: BEGIN
679: IF p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
680: p_rilv_rec.tve_id IS NULL
681: THEN
682: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tve_id');
683: l_return_status := OKC_API.G_RET_STS_ERROR;
678: BEGIN
679: IF p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
680: p_rilv_rec.tve_id IS NULL
681: THEN
682: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tve_id');
683: l_return_status := OKC_API.G_RET_STS_ERROR;
684: ELSIF p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
685: p_rilv_rec.rul_id IS NULL
686: THEN
679: IF p_rilv_rec.tve_id = OKC_API.G_MISS_NUM OR
680: p_rilv_rec.tve_id IS NULL
681: THEN
682: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tve_id');
683: l_return_status := OKC_API.G_RET_STS_ERROR;
684: ELSIF p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
685: p_rilv_rec.rul_id IS NULL
686: THEN
687: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rul_id');
680: p_rilv_rec.tve_id IS NULL
681: THEN
682: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tve_id');
683: l_return_status := OKC_API.G_RET_STS_ERROR;
684: ELSIF p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
685: p_rilv_rec.rul_id IS NULL
686: THEN
687: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rul_id');
688: l_return_status := OKC_API.G_RET_STS_ERROR;
683: l_return_status := OKC_API.G_RET_STS_ERROR;
684: ELSIF p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
685: p_rilv_rec.rul_id IS NULL
686: THEN
687: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rul_id');
688: l_return_status := OKC_API.G_RET_STS_ERROR;
689: ELSIF p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
684: ELSIF p_rilv_rec.rul_id = OKC_API.G_MISS_NUM OR
685: p_rilv_rec.rul_id IS NULL
686: THEN
687: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rul_id');
688: l_return_status := OKC_API.G_RET_STS_ERROR;
689: ELSIF p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
692: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
685: p_rilv_rec.rul_id IS NULL
686: THEN
687: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rul_id');
688: l_return_status := OKC_API.G_RET_STS_ERROR;
689: ELSIF p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
692: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
693: l_return_status := OKC_API.G_RET_STS_ERROR;
688: l_return_status := OKC_API.G_RET_STS_ERROR;
689: ELSIF p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
692: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
693: l_return_status := OKC_API.G_RET_STS_ERROR;
694: ELSIF p_rilv_rec.object_version_number = OKC_API.G_MISS_NUM OR
695: p_rilv_rec.object_version_number IS NULL
696: THEN
689: ELSIF p_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
692: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
693: l_return_status := OKC_API.G_RET_STS_ERROR;
694: ELSIF p_rilv_rec.object_version_number = OKC_API.G_MISS_NUM OR
695: p_rilv_rec.object_version_number IS NULL
696: THEN
697: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
690: p_rilv_rec.dnz_chr_id IS NULL
691: THEN
692: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
693: l_return_status := OKC_API.G_RET_STS_ERROR;
694: ELSIF p_rilv_rec.object_version_number = OKC_API.G_MISS_NUM OR
695: p_rilv_rec.object_version_number IS NULL
696: THEN
697: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
698: l_return_status := OKC_API.G_RET_STS_ERROR;
693: l_return_status := OKC_API.G_RET_STS_ERROR;
694: ELSIF p_rilv_rec.object_version_number = OKC_API.G_MISS_NUM OR
695: p_rilv_rec.object_version_number IS NULL
696: THEN
697: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
698: l_return_status := OKC_API.G_RET_STS_ERROR;
699: ELSIF p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
700: p_rilv_rec.uom_code IS NULL
701: THEN
694: ELSIF p_rilv_rec.object_version_number = OKC_API.G_MISS_NUM OR
695: p_rilv_rec.object_version_number IS NULL
696: THEN
697: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
698: l_return_status := OKC_API.G_RET_STS_ERROR;
699: ELSIF p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
700: p_rilv_rec.uom_code IS NULL
701: THEN
702: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
695: p_rilv_rec.object_version_number IS NULL
696: THEN
697: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
698: l_return_status := OKC_API.G_RET_STS_ERROR;
699: ELSIF p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
700: p_rilv_rec.uom_code IS NULL
701: THEN
702: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
703: l_return_status := OKC_API.G_RET_STS_ERROR;
698: l_return_status := OKC_API.G_RET_STS_ERROR;
699: ELSIF p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
700: p_rilv_rec.uom_code IS NULL
701: THEN
702: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
703: l_return_status := OKC_API.G_RET_STS_ERROR;
704: ELSIF p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
705: p_rilv_rec.duration IS NULL
706: THEN
699: ELSIF p_rilv_rec.uom_code = OKC_API.G_MISS_CHAR OR
700: p_rilv_rec.uom_code IS NULL
701: THEN
702: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
703: l_return_status := OKC_API.G_RET_STS_ERROR;
704: ELSIF p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
705: p_rilv_rec.duration IS NULL
706: THEN
707: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
700: p_rilv_rec.uom_code IS NULL
701: THEN
702: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
703: l_return_status := OKC_API.G_RET_STS_ERROR;
704: ELSIF p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
705: p_rilv_rec.duration IS NULL
706: THEN
707: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
708: l_return_status := OKC_API.G_RET_STS_ERROR;
703: l_return_status := OKC_API.G_RET_STS_ERROR;
704: ELSIF p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
705: p_rilv_rec.duration IS NULL
706: THEN
707: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
708: l_return_status := OKC_API.G_RET_STS_ERROR;
709: END IF;
710: RETURN(l_return_status);
711: END Validate_Attributes;
704: ELSIF p_rilv_rec.duration = OKC_API.G_MISS_NUM OR
705: p_rilv_rec.duration IS NULL
706: THEN
707: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
708: l_return_status := OKC_API.G_RET_STS_ERROR;
709: END IF;
710: RETURN(l_return_status);
711: END Validate_Attributes;
712: */
718: -----------------------------------------------
719: FUNCTION Validate_Record (
720: p_rilv_rec IN rilv_rec_type
721: ) RETURN VARCHAR2 IS
722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
723: BEGIN
724: RETURN (l_return_status);
725: END Validate_Record;
726:
777: p_rilv_rec IN rilv_rec_type) IS
778:
779: l_api_version CONSTANT NUMBER := 1;
780: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
782: l_rilv_rec rilv_rec_type := p_rilv_rec;
783: l_ril_rec ril_rec_type;
784: BEGIN
785: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
782: l_rilv_rec rilv_rec_type := p_rilv_rec;
783: l_ril_rec ril_rec_type;
784: BEGIN
785: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
786: G_PKG_NAME,
787: p_init_msg_list,
788: l_api_version,
789: p_api_version,
788: l_api_version,
789: p_api_version,
790: '_PVT',
791: x_return_status);
792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
795: RAISE OKC_API.G_EXCEPTION_ERROR;
796: END IF;
789: p_api_version,
790: '_PVT',
791: x_return_status);
792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
795: RAISE OKC_API.G_EXCEPTION_ERROR;
796: END IF;
797: --- Validate all non-missing attributes (Item Level Validation)
790: '_PVT',
791: x_return_status);
792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
795: RAISE OKC_API.G_EXCEPTION_ERROR;
796: END IF;
797: --- Validate all non-missing attributes (Item Level Validation)
798: l_return_status := Validate_Attributes(l_rilv_rec);
791: x_return_status);
792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
795: RAISE OKC_API.G_EXCEPTION_ERROR;
796: END IF;
797: --- Validate all non-missing attributes (Item Level Validation)
798: l_return_status := Validate_Attributes(l_rilv_rec);
799: --- If any errors happen abort API
796: END IF;
797: --- Validate all non-missing attributes (Item Level Validation)
798: l_return_status := Validate_Attributes(l_rilv_rec);
799: --- If any errors happen abort API
800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
797: --- Validate all non-missing attributes (Item Level Validation)
798: l_return_status := Validate_Attributes(l_rilv_rec);
799: --- If any errors happen abort API
800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
798: l_return_status := Validate_Attributes(l_rilv_rec);
799: --- If any errors happen abort API
800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
799: --- If any errors happen abort API
800: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
803: RAISE OKC_API.G_EXCEPTION_ERROR;
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
804: END IF;
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
812: EXCEPTION
805: l_return_status := Validate_Record(l_rilv_rec);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
812: EXCEPTION
813: WHEN OKC_API.G_EXCEPTION_ERROR THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
812: EXCEPTION
813: WHEN OKC_API.G_EXCEPTION_ERROR THEN
814: x_return_status := OKC_API.HANDLE_EXCEPTIONS
815: (
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
812: EXCEPTION
813: WHEN OKC_API.G_EXCEPTION_ERROR THEN
814: x_return_status := OKC_API.HANDLE_EXCEPTIONS
815: (
816: l_api_name,
817: G_PKG_NAME,
810: END IF;
811: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
812: EXCEPTION
813: WHEN OKC_API.G_EXCEPTION_ERROR THEN
814: x_return_status := OKC_API.HANDLE_EXCEPTIONS
815: (
816: l_api_name,
817: G_PKG_NAME,
818: 'OKC_API.G_RET_STS_ERROR',
814: x_return_status := OKC_API.HANDLE_EXCEPTIONS
815: (
816: l_api_name,
817: G_PKG_NAME,
818: 'OKC_API.G_RET_STS_ERROR',
819: x_msg_count,
820: x_msg_data,
821: '_PVT'
822: );
819: x_msg_count,
820: x_msg_data,
821: '_PVT'
822: );
823: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
825: (
826: l_api_name,
827: G_PKG_NAME,
820: x_msg_data,
821: '_PVT'
822: );
823: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
824: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
825: (
826: l_api_name,
827: G_PKG_NAME,
828: 'OKC_API.G_RET_STS_UNEXP_ERROR',
824: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
825: (
826: l_api_name,
827: G_PKG_NAME,
828: 'OKC_API.G_RET_STS_UNEXP_ERROR',
829: x_msg_count,
830: x_msg_data,
831: '_PVT'
832: );
830: x_msg_data,
831: '_PVT'
832: );
833: WHEN OTHERS THEN
834: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
835: (
836: l_api_name,
837: G_PKG_NAME,
838: 'OTHERS',
853: p_rilv_tbl IN rilv_tbl_type) IS
854:
855: l_api_version CONSTANT NUMBER := 1;
856: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
858: i NUMBER := 0;
859: BEGIN
860: OKC_API.init_msg_list(p_init_msg_list);
861: -- Make sure PL/SQL table has records in it before passing
856: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
858: i NUMBER := 0;
859: BEGIN
860: OKC_API.init_msg_list(p_init_msg_list);
861: -- Make sure PL/SQL table has records in it before passing
862: IF (p_rilv_tbl.COUNT > 0) THEN
863: i := p_rilv_tbl.FIRST;
864: LOOP
863: i := p_rilv_tbl.FIRST;
864: LOOP
865: validate_row (
866: p_api_version => p_api_version,
867: p_init_msg_list => OKC_API.G_FALSE,
868: x_return_status => x_return_status,
869: x_msg_count => x_msg_count,
870: x_msg_data => x_msg_data,
871: p_rilv_rec => p_rilv_tbl(i));
873: i := p_rilv_tbl.NEXT(i);
874: END LOOP;
875: END IF;
876: EXCEPTION
877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
874: END LOOP;
875: END IF;
876: EXCEPTION
877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
882: 'OKC_API.G_RET_STS_ERROR',
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
882: 'OKC_API.G_RET_STS_ERROR',
883: x_msg_count,
884: x_msg_data,
885: '_PVT'
886: );
883: x_msg_count,
884: x_msg_data,
885: '_PVT'
886: );
887: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
889: (
890: l_api_name,
891: G_PKG_NAME,
884: x_msg_data,
885: '_PVT'
886: );
887: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
889: (
890: l_api_name,
891: G_PKG_NAME,
892: 'OKC_API.G_RET_STS_UNEXP_ERROR',
888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
889: (
890: l_api_name,
891: G_PKG_NAME,
892: 'OKC_API.G_RET_STS_UNEXP_ERROR',
893: x_msg_count,
894: x_msg_data,
895: '_PVT'
896: );
894: x_msg_data,
895: '_PVT'
896: );
897: WHEN OTHERS THEN
898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
899: (
900: l_api_name,
901: G_PKG_NAME,
902: 'OTHERS',
921: x_ril_rec OUT NOCOPY ril_rec_type) IS
922:
923: l_api_version CONSTANT NUMBER := 1;
924: l_api_name CONSTANT VARCHAR2(30) := 'INTERVALS_insert_row';
925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
926: l_ril_rec ril_rec_type := p_ril_rec;
927: l_def_ril_rec ril_rec_type;
928: --------------------------------------------
929: -- Set_Attributes for:OKC_REACT_INTERVALS --
931: FUNCTION Set_Attributes (
932: p_ril_rec IN ril_rec_type,
933: x_ril_rec OUT NOCOPY ril_rec_type
934: ) RETURN VARCHAR2 IS
935: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
936: BEGIN
937: x_ril_rec := p_ril_rec;
938: RETURN(l_return_status);
939: END Set_Attributes;
937: x_ril_rec := p_ril_rec;
938: RETURN(l_return_status);
939: END Set_Attributes;
940: BEGIN
941: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
942: p_init_msg_list,
943: '_PVT',
944: x_return_status);
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
941: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
942: p_init_msg_list,
943: '_PVT',
944: x_return_status);
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
942: p_init_msg_list,
943: '_PVT',
944: x_return_status);
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: --- Setting item attributes
943: '_PVT',
944: x_return_status);
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: --- Setting item attributes
951: l_return_status := Set_Attributes(
944: x_return_status);
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: --- Setting item attributes
951: l_return_status := Set_Attributes(
952: p_ril_rec, -- IN
951: l_return_status := Set_Attributes(
952: p_ril_rec, -- IN
953: l_ril_rec); -- OUT
954: --- If any errors happen abort API
955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
958: RAISE OKC_API.G_EXCEPTION_ERROR;
959: END IF;
952: p_ril_rec, -- IN
953: l_ril_rec); -- OUT
954: --- If any errors happen abort API
955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
958: RAISE OKC_API.G_EXCEPTION_ERROR;
959: END IF;
960: INSERT INTO OKC_REACT_INTERVALS(
953: l_ril_rec); -- OUT
954: --- If any errors happen abort API
955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
958: RAISE OKC_API.G_EXCEPTION_ERROR;
959: END IF;
960: INSERT INTO OKC_REACT_INTERVALS(
961: tve_id,
954: --- If any errors happen abort API
955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
958: RAISE OKC_API.G_EXCEPTION_ERROR;
959: END IF;
960: INSERT INTO OKC_REACT_INTERVALS(
961: tve_id,
962: rul_id,
982: l_ril_rec.last_update_date,
983: l_ril_rec.last_update_login);
984: -- Set OUT values
985: x_ril_rec := l_ril_rec;
986: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
984: -- Set OUT values
985: x_ril_rec := l_ril_rec;
986: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
985: x_ril_rec := l_ril_rec;
986: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
993: 'OKC_API.G_RET_STS_ERROR',
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
993: 'OKC_API.G_RET_STS_ERROR',
994: x_msg_count,
995: x_msg_data,
996: '_PVT'
997: );
994: x_msg_count,
995: x_msg_data,
996: '_PVT'
997: );
998: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
999: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name,
1002: G_PKG_NAME,
995: x_msg_data,
996: '_PVT'
997: );
998: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
999: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OKC_API.G_RET_STS_UNEXP_ERROR',
999: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1004: x_msg_count,
1005: x_msg_data,
1006: '_PVT'
1007: );
1005: x_msg_data,
1006: '_PVT'
1007: );
1008: WHEN OTHERS THEN
1009: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1010: (
1011: l_api_name,
1012: G_PKG_NAME,
1013: 'OTHERS',
1029: x_rilv_rec OUT NOCOPY rilv_rec_type) IS
1030:
1031: l_api_version CONSTANT NUMBER := 1;
1032: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1033: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1034: l_rilv_rec rilv_rec_type;
1035: l_def_rilv_rec rilv_rec_type;
1036: l_ril_rec ril_rec_type;
1037: lx_ril_rec ril_rec_type;
1056: FUNCTION Set_Attributes (
1057: p_rilv_rec IN rilv_rec_type,
1058: x_rilv_rec OUT NOCOPY rilv_rec_type
1059: ) RETURN VARCHAR2 IS
1060: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1061: BEGIN
1062: x_rilv_rec := p_rilv_rec;
1063: x_rilv_rec.OBJECT_VERSION_NUMBER := 1;
1064: RETURN(l_return_status);
1063: x_rilv_rec.OBJECT_VERSION_NUMBER := 1;
1064: RETURN(l_return_status);
1065: END Set_Attributes;
1066: BEGIN
1067: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1068: G_PKG_NAME,
1069: p_init_msg_list,
1070: l_api_version,
1071: p_api_version,
1070: l_api_version,
1071: p_api_version,
1072: '_PVT',
1073: x_return_status);
1074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_ERROR;
1078: END IF;
1071: p_api_version,
1072: '_PVT',
1073: x_return_status);
1074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_ERROR;
1078: END IF;
1079: l_rilv_rec := null_out_defaults(p_rilv_rec);
1072: '_PVT',
1073: x_return_status);
1074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_ERROR;
1078: END IF;
1079: l_rilv_rec := null_out_defaults(p_rilv_rec);
1080: --- Setting item attributes
1073: x_return_status);
1074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1075: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_ERROR;
1078: END IF;
1079: l_rilv_rec := null_out_defaults(p_rilv_rec);
1080: --- Setting item attributes
1081: l_return_status := Set_Attributes(
1081: l_return_status := Set_Attributes(
1082: l_rilv_rec, -- IN
1083: l_def_rilv_rec); -- OUT
1084: --- If any errors happen abort API
1085: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1086: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1088: RAISE OKC_API.G_EXCEPTION_ERROR;
1089: END IF;
1082: l_rilv_rec, -- IN
1083: l_def_rilv_rec); -- OUT
1084: --- If any errors happen abort API
1085: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1086: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1088: RAISE OKC_API.G_EXCEPTION_ERROR;
1089: END IF;
1090: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1083: l_def_rilv_rec); -- OUT
1084: --- If any errors happen abort API
1085: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1086: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1088: RAISE OKC_API.G_EXCEPTION_ERROR;
1089: END IF;
1090: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1091: --- Validate all non-missing attributes (Item Level Validation)
1084: --- If any errors happen abort API
1085: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1086: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1088: RAISE OKC_API.G_EXCEPTION_ERROR;
1089: END IF;
1090: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1091: --- Validate all non-missing attributes (Item Level Validation)
1092: l_return_status := Validate_Attributes(l_def_rilv_rec);
1090: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1091: --- Validate all non-missing attributes (Item Level Validation)
1092: l_return_status := Validate_Attributes(l_def_rilv_rec);
1093: --- If any errors happen abort API
1094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1091: --- Validate all non-missing attributes (Item Level Validation)
1092: l_return_status := Validate_Attributes(l_def_rilv_rec);
1093: --- If any errors happen abort API
1094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1092: l_return_status := Validate_Attributes(l_def_rilv_rec);
1093: --- If any errors happen abort API
1094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: --- If any errors happen abort API
1094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1097: RAISE OKC_API.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: --------------------------------------
1098: END IF;
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: --------------------------------------
1106: -- Move VIEW record to "Child" records
1099: l_return_status := Validate_Record(l_def_rilv_rec);
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: --------------------------------------
1106: -- Move VIEW record to "Child" records
1107: --------------------------------------
1116: x_msg_data,
1117: l_ril_rec,
1118: lx_ril_rec
1119: );
1120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1117: l_ril_rec,
1118: lx_ril_rec
1119: );
1120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125: migrate(lx_ril_rec, l_def_rilv_rec);
1118: lx_ril_rec
1119: );
1120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125: migrate(lx_ril_rec, l_def_rilv_rec);
1126: -- Set OUT values
1119: );
1120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125: migrate(lx_ril_rec, l_def_rilv_rec);
1126: -- Set OUT values
1127: x_rilv_rec := l_def_rilv_rec;
1124: END IF;
1125: migrate(lx_ril_rec, l_def_rilv_rec);
1126: -- Set OUT values
1127: x_rilv_rec := l_def_rilv_rec;
1128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1129: EXCEPTION
1130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1132: (
1126: -- Set OUT values
1127: x_rilv_rec := l_def_rilv_rec;
1128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1129: EXCEPTION
1130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1132: (
1133: l_api_name,
1134: G_PKG_NAME,
1127: x_rilv_rec := l_def_rilv_rec;
1128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1129: EXCEPTION
1130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1132: (
1133: l_api_name,
1134: G_PKG_NAME,
1135: 'OKC_API.G_RET_STS_ERROR',
1131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1132: (
1133: l_api_name,
1134: G_PKG_NAME,
1135: 'OKC_API.G_RET_STS_ERROR',
1136: x_msg_count,
1137: x_msg_data,
1138: '_PVT'
1139: );
1136: x_msg_count,
1137: x_msg_data,
1138: '_PVT'
1139: );
1140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1142: (
1143: l_api_name,
1144: G_PKG_NAME,
1137: x_msg_data,
1138: '_PVT'
1139: );
1140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1142: (
1143: l_api_name,
1144: G_PKG_NAME,
1145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1142: (
1143: l_api_name,
1144: G_PKG_NAME,
1145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1146: x_msg_count,
1147: x_msg_data,
1148: '_PVT'
1149: );
1147: x_msg_data,
1148: '_PVT'
1149: );
1150: WHEN OTHERS THEN
1151: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1152: (
1153: l_api_name,
1154: G_PKG_NAME,
1155: 'OTHERS',
1171: x_rilv_tbl OUT NOCOPY rilv_tbl_type) IS
1172:
1173: l_api_version CONSTANT NUMBER := 1;
1174: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1176: i NUMBER := 0;
1177: BEGIN
1178: OKC_API.init_msg_list(p_init_msg_list);
1179: -- Make sure PL/SQL table has records in it before passing
1174: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1176: i NUMBER := 0;
1177: BEGIN
1178: OKC_API.init_msg_list(p_init_msg_list);
1179: -- Make sure PL/SQL table has records in it before passing
1180: IF (p_rilv_tbl.COUNT > 0) THEN
1181: i := p_rilv_tbl.FIRST;
1182: LOOP
1181: i := p_rilv_tbl.FIRST;
1182: LOOP
1183: insert_row (
1184: p_api_version => p_api_version,
1185: p_init_msg_list => OKC_API.G_FALSE,
1186: x_return_status => x_return_status,
1187: x_msg_count => x_msg_count,
1188: x_msg_data => x_msg_data,
1189: p_rilv_rec => p_rilv_tbl(i),
1192: i := p_rilv_tbl.NEXT(i);
1193: END LOOP;
1194: END IF;
1195: EXCEPTION
1196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1193: END LOOP;
1194: END IF;
1195: EXCEPTION
1196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1201: 'OKC_API.G_RET_STS_ERROR',
1197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1201: 'OKC_API.G_RET_STS_ERROR',
1202: x_msg_count,
1203: x_msg_data,
1204: '_PVT'
1205: );
1202: x_msg_count,
1203: x_msg_data,
1204: '_PVT'
1205: );
1206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1203: x_msg_data,
1204: '_PVT'
1205: );
1206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1212: x_msg_count,
1213: x_msg_data,
1214: '_PVT'
1215: );
1213: x_msg_data,
1214: '_PVT'
1215: );
1216: WHEN OTHERS THEN
1217: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1218: (
1219: l_api_name,
1220: G_PKG_NAME,
1221: 'OTHERS',
1254: WHERE TVE_ID = p_ril_rec.tve_id
1255: AND RUL_ID = p_ril_rec.rul_id;
1256: l_api_version CONSTANT NUMBER := 1;
1257: l_api_name CONSTANT VARCHAR2(30) := 'INTERVALS_lock_row';
1258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1259: l_object_version_number OKC_REACT_INTERVALS.OBJECT_VERSION_NUMBER%TYPE;
1260: lc_object_version_number OKC_REACT_INTERVALS.OBJECT_VERSION_NUMBER%TYPE;
1261: l_row_notfound BOOLEAN := FALSE;
1262: lc_row_notfound BOOLEAN := FALSE;
1260: lc_object_version_number OKC_REACT_INTERVALS.OBJECT_VERSION_NUMBER%TYPE;
1261: l_row_notfound BOOLEAN := FALSE;
1262: lc_row_notfound BOOLEAN := FALSE;
1263: BEGIN
1264: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1265: p_init_msg_list,
1266: '_PVT',
1267: x_return_status);
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1264: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1265: p_init_msg_list,
1266: '_PVT',
1267: x_return_status);
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1265: p_init_msg_list,
1266: '_PVT',
1267: x_return_status);
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: BEGIN
1266: '_PVT',
1267: x_return_status);
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: BEGIN
1274: OPEN lock_csr(p_ril_rec);
1267: x_return_status);
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: BEGIN
1274: OPEN lock_csr(p_ril_rec);
1275: FETCH lock_csr INTO l_object_version_number;
1279: WHEN E_Resource_Busy THEN
1280: IF (lock_csr%ISOPEN) THEN
1281: CLOSE lock_csr;
1282: END IF;
1283: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1284: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1285: END;
1286:
1287: IF ( l_row_notfound ) THEN
1290: lc_row_notfound := lchk_csr%NOTFOUND;
1291: CLOSE lchk_csr;
1292: END IF;
1293: IF (lc_row_notfound) THEN
1294: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1295: RAISE OKC_API.G_EXCEPTION_ERROR;
1296: ELSIF lc_object_version_number > p_ril_rec.object_version_number THEN
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1291: CLOSE lchk_csr;
1292: END IF;
1293: IF (lc_row_notfound) THEN
1294: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1295: RAISE OKC_API.G_EXCEPTION_ERROR;
1296: ELSIF lc_object_version_number > p_ril_rec.object_version_number THEN
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1293: IF (lc_row_notfound) THEN
1294: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1295: RAISE OKC_API.G_EXCEPTION_ERROR;
1296: ELSIF lc_object_version_number > p_ril_rec.object_version_number THEN
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1294: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1295: RAISE OKC_API.G_EXCEPTION_ERROR;
1296: ELSIF lc_object_version_number > p_ril_rec.object_version_number THEN
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1302: ELSIF lc_object_version_number = -1 THEN
1296: ELSIF lc_object_version_number > p_ril_rec.object_version_number THEN
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1302: ELSIF lc_object_version_number = -1 THEN
1303: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1297: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE OKC_API.G_EXCEPTION_ERROR;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1302: ELSIF lc_object_version_number = -1 THEN
1303: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: END IF;
1299: ELSIF lc_object_version_number <> p_ril_rec.object_version_number THEN
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1302: ELSIF lc_object_version_number = -1 THEN
1303: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: END IF;
1306: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1307: EXCEPTION
1300: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1301: RAISE OKC_API.G_EXCEPTION_ERROR;
1302: ELSIF lc_object_version_number = -1 THEN
1303: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: END IF;
1306: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1302: ELSIF lc_object_version_number = -1 THEN
1303: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: END IF;
1306: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1309: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1310: (
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: END IF;
1306: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1309: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1310: (
1311: l_api_name,
1312: G_PKG_NAME,
1305: END IF;
1306: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1309: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1310: (
1311: l_api_name,
1312: G_PKG_NAME,
1313: 'OKC_API.G_RET_STS_ERROR',
1309: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1310: (
1311: l_api_name,
1312: G_PKG_NAME,
1313: 'OKC_API.G_RET_STS_ERROR',
1314: x_msg_count,
1315: x_msg_data,
1316: '_PVT'
1317: );
1314: x_msg_count,
1315: x_msg_data,
1316: '_PVT'
1317: );
1318: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1319: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1320: (
1321: l_api_name,
1322: G_PKG_NAME,
1315: x_msg_data,
1316: '_PVT'
1317: );
1318: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1319: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1320: (
1321: l_api_name,
1322: G_PKG_NAME,
1323: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1319: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1320: (
1321: l_api_name,
1322: G_PKG_NAME,
1323: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1324: x_msg_count,
1325: x_msg_data,
1326: '_PVT'
1327: );
1325: x_msg_data,
1326: '_PVT'
1327: );
1328: WHEN OTHERS THEN
1329: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1330: (
1331: l_api_name,
1332: G_PKG_NAME,
1333: 'OTHERS',
1348: p_rilv_rec IN rilv_rec_type) IS
1349:
1350: l_api_version CONSTANT NUMBER := 1;
1351: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1352: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1353: l_ril_rec ril_rec_type;
1354: BEGIN
1355: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1356: G_PKG_NAME,
1351: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1352: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1353: l_ril_rec ril_rec_type;
1354: BEGIN
1355: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1356: G_PKG_NAME,
1357: p_init_msg_list,
1358: l_api_version,
1359: p_api_version,
1358: l_api_version,
1359: p_api_version,
1360: '_PVT',
1361: x_return_status);
1362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: END IF;
1359: p_api_version,
1360: '_PVT',
1361: x_return_status);
1362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: END IF;
1367: --------------------------------------
1360: '_PVT',
1361: x_return_status);
1362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: END IF;
1367: --------------------------------------
1368: -- Move VIEW record to "Child" records
1361: x_return_status);
1362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: END IF;
1367: --------------------------------------
1368: -- Move VIEW record to "Child" records
1369: --------------------------------------
1377: x_msg_count,
1378: x_msg_data,
1379: l_ril_rec
1380: );
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1378: x_msg_data,
1379: l_ril_rec
1380: );
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1379: l_ril_rec
1380: );
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1380: );
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1382: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (
1384: RAISE OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_ERROR',
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_ERROR',
1394: x_msg_count,
1395: x_msg_data,
1396: '_PVT'
1397: );
1394: x_msg_count,
1395: x_msg_data,
1396: '_PVT'
1397: );
1398: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1399: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1395: x_msg_data,
1396: '_PVT'
1397: );
1398: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1399: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1399: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT'
1407: );
1405: x_msg_data,
1406: '_PVT'
1407: );
1408: WHEN OTHERS THEN
1409: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1413: 'OTHERS',
1428: p_rilv_tbl IN rilv_tbl_type) IS
1429:
1430: l_api_version CONSTANT NUMBER := 1;
1431: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1433: i NUMBER := 0;
1434: BEGIN
1435: OKC_API.init_msg_list(p_init_msg_list);
1436: -- Make sure PL/SQL table has records in it before passing
1431: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1433: i NUMBER := 0;
1434: BEGIN
1435: OKC_API.init_msg_list(p_init_msg_list);
1436: -- Make sure PL/SQL table has records in it before passing
1437: IF (p_rilv_tbl.COUNT > 0) THEN
1438: i := p_rilv_tbl.FIRST;
1439: LOOP
1438: i := p_rilv_tbl.FIRST;
1439: LOOP
1440: lock_row (
1441: p_api_version => p_api_version,
1442: p_init_msg_list => OKC_API.G_FALSE,
1443: x_return_status => x_return_status,
1444: x_msg_count => x_msg_count,
1445: x_msg_data => x_msg_data,
1446: p_rilv_rec => p_rilv_tbl(i));
1448: i := p_rilv_tbl.NEXT(i);
1449: END LOOP;
1450: END IF;
1451: EXCEPTION
1452: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1453: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1454: (
1455: l_api_name,
1456: G_PKG_NAME,
1449: END LOOP;
1450: END IF;
1451: EXCEPTION
1452: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1453: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1454: (
1455: l_api_name,
1456: G_PKG_NAME,
1457: 'OKC_API.G_RET_STS_ERROR',
1453: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1454: (
1455: l_api_name,
1456: G_PKG_NAME,
1457: 'OKC_API.G_RET_STS_ERROR',
1458: x_msg_count,
1459: x_msg_data,
1460: '_PVT'
1461: );
1458: x_msg_count,
1459: x_msg_data,
1460: '_PVT'
1461: );
1462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1463: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1464: (
1465: l_api_name,
1466: G_PKG_NAME,
1459: x_msg_data,
1460: '_PVT'
1461: );
1462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1463: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1464: (
1465: l_api_name,
1466: G_PKG_NAME,
1467: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1463: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1464: (
1465: l_api_name,
1466: G_PKG_NAME,
1467: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1468: x_msg_count,
1469: x_msg_data,
1470: '_PVT'
1471: );
1469: x_msg_data,
1470: '_PVT'
1471: );
1472: WHEN OTHERS THEN
1473: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1477: 'OTHERS',
1496: x_ril_rec OUT NOCOPY ril_rec_type) IS
1497:
1498: l_api_version CONSTANT NUMBER := 1;
1499: l_api_name CONSTANT VARCHAR2(30) := 'INTERVALS_update_row';
1500: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1501: l_ril_rec ril_rec_type := p_ril_rec;
1502: l_def_ril_rec ril_rec_type;
1503: l_row_notfound BOOLEAN := TRUE;
1504: ----------------------------------
1509: x_ril_rec OUT NOCOPY ril_rec_type
1510: ) RETURN VARCHAR2 IS
1511: l_ril_rec ril_rec_type;
1512: l_row_notfound BOOLEAN := TRUE;
1513: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1514: BEGIN
1515: x_ril_rec := p_ril_rec;
1516: -- Get current database values
1517: l_ril_rec := get_rec(p_ril_rec, l_row_notfound);
1515: x_ril_rec := p_ril_rec;
1516: -- Get current database values
1517: l_ril_rec := get_rec(p_ril_rec, l_row_notfound);
1518: IF (l_row_notfound) THEN
1519: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1520: END IF;
1521: IF (x_ril_rec.tve_id = OKC_API.G_MISS_NUM)
1522: THEN
1523: x_ril_rec.tve_id := l_ril_rec.tve_id;
1517: l_ril_rec := get_rec(p_ril_rec, l_row_notfound);
1518: IF (l_row_notfound) THEN
1519: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1520: END IF;
1521: IF (x_ril_rec.tve_id = OKC_API.G_MISS_NUM)
1522: THEN
1523: x_ril_rec.tve_id := l_ril_rec.tve_id;
1524: END IF;
1525: IF (x_ril_rec.rul_id = OKC_API.G_MISS_NUM)
1521: IF (x_ril_rec.tve_id = OKC_API.G_MISS_NUM)
1522: THEN
1523: x_ril_rec.tve_id := l_ril_rec.tve_id;
1524: END IF;
1525: IF (x_ril_rec.rul_id = OKC_API.G_MISS_NUM)
1526: THEN
1527: x_ril_rec.rul_id := l_ril_rec.rul_id;
1528: END IF;
1529: IF (x_ril_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1525: IF (x_ril_rec.rul_id = OKC_API.G_MISS_NUM)
1526: THEN
1527: x_ril_rec.rul_id := l_ril_rec.rul_id;
1528: END IF;
1529: IF (x_ril_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1530: THEN
1531: x_ril_rec.dnz_chr_id := l_ril_rec.dnz_chr_id;
1532: END IF;
1533: IF (x_ril_rec.uom_code = OKC_API.G_MISS_CHAR)
1529: IF (x_ril_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1530: THEN
1531: x_ril_rec.dnz_chr_id := l_ril_rec.dnz_chr_id;
1532: END IF;
1533: IF (x_ril_rec.uom_code = OKC_API.G_MISS_CHAR)
1534: THEN
1535: x_ril_rec.uom_code := l_ril_rec.uom_code;
1536: END IF;
1537: IF (x_ril_rec.duration = OKC_API.G_MISS_NUM)
1533: IF (x_ril_rec.uom_code = OKC_API.G_MISS_CHAR)
1534: THEN
1535: x_ril_rec.uom_code := l_ril_rec.uom_code;
1536: END IF;
1537: IF (x_ril_rec.duration = OKC_API.G_MISS_NUM)
1538: THEN
1539: x_ril_rec.duration := l_ril_rec.duration;
1540: END IF;
1541: IF (x_ril_rec.object_version_number = OKC_API.G_MISS_NUM)
1537: IF (x_ril_rec.duration = OKC_API.G_MISS_NUM)
1538: THEN
1539: x_ril_rec.duration := l_ril_rec.duration;
1540: END IF;
1541: IF (x_ril_rec.object_version_number = OKC_API.G_MISS_NUM)
1542: THEN
1543: x_ril_rec.object_version_number := l_ril_rec.object_version_number;
1544: END IF;
1545: IF (x_ril_rec.created_by = OKC_API.G_MISS_NUM)
1541: IF (x_ril_rec.object_version_number = OKC_API.G_MISS_NUM)
1542: THEN
1543: x_ril_rec.object_version_number := l_ril_rec.object_version_number;
1544: END IF;
1545: IF (x_ril_rec.created_by = OKC_API.G_MISS_NUM)
1546: THEN
1547: x_ril_rec.created_by := l_ril_rec.created_by;
1548: END IF;
1549: IF (x_ril_rec.creation_date = OKC_API.G_MISS_DATE)
1545: IF (x_ril_rec.created_by = OKC_API.G_MISS_NUM)
1546: THEN
1547: x_ril_rec.created_by := l_ril_rec.created_by;
1548: END IF;
1549: IF (x_ril_rec.creation_date = OKC_API.G_MISS_DATE)
1550: THEN
1551: x_ril_rec.creation_date := l_ril_rec.creation_date;
1552: END IF;
1553: IF (x_ril_rec.last_updated_by = OKC_API.G_MISS_NUM)
1549: IF (x_ril_rec.creation_date = OKC_API.G_MISS_DATE)
1550: THEN
1551: x_ril_rec.creation_date := l_ril_rec.creation_date;
1552: END IF;
1553: IF (x_ril_rec.last_updated_by = OKC_API.G_MISS_NUM)
1554: THEN
1555: x_ril_rec.last_updated_by := l_ril_rec.last_updated_by;
1556: END IF;
1557: IF (x_ril_rec.last_update_date = OKC_API.G_MISS_DATE)
1553: IF (x_ril_rec.last_updated_by = OKC_API.G_MISS_NUM)
1554: THEN
1555: x_ril_rec.last_updated_by := l_ril_rec.last_updated_by;
1556: END IF;
1557: IF (x_ril_rec.last_update_date = OKC_API.G_MISS_DATE)
1558: THEN
1559: x_ril_rec.last_update_date := l_ril_rec.last_update_date;
1560: END IF;
1561: IF (x_ril_rec.last_update_login = OKC_API.G_MISS_NUM)
1557: IF (x_ril_rec.last_update_date = OKC_API.G_MISS_DATE)
1558: THEN
1559: x_ril_rec.last_update_date := l_ril_rec.last_update_date;
1560: END IF;
1561: IF (x_ril_rec.last_update_login = OKC_API.G_MISS_NUM)
1562: THEN
1563: x_ril_rec.last_update_login := l_ril_rec.last_update_login;
1564: END IF;
1565: RETURN(l_return_status);
1570: FUNCTION Set_Attributes (
1571: p_ril_rec IN ril_rec_type,
1572: x_ril_rec OUT NOCOPY ril_rec_type
1573: ) RETURN VARCHAR2 IS
1574: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1575: BEGIN
1576: x_ril_rec := p_ril_rec;
1577: RETURN(l_return_status);
1578: END Set_Attributes;
1576: x_ril_rec := p_ril_rec;
1577: RETURN(l_return_status);
1578: END Set_Attributes;
1579: BEGIN
1580: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1581: p_init_msg_list,
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1580: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1581: p_init_msg_list,
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1581: p_init_msg_list,
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Setting item attributes
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Setting item attributes
1590: l_return_status := Set_Attributes(
1583: x_return_status);
1584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Setting item attributes
1590: l_return_status := Set_Attributes(
1591: p_ril_rec, -- IN
1590: l_return_status := Set_Attributes(
1591: p_ril_rec, -- IN
1592: l_ril_rec); -- OUT
1593: --- If any errors happen abort API
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1591: p_ril_rec, -- IN
1592: l_ril_rec); -- OUT
1593: --- If any errors happen abort API
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1592: l_ril_rec); -- OUT
1593: --- If any errors happen abort API
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1593: --- If any errors happen abort API
1594: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1596: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1603: RAISE OKC_API.G_EXCEPTION_ERROR;
1604: END IF;
1597: RAISE OKC_API.G_EXCEPTION_ERROR;
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1603: RAISE OKC_API.G_EXCEPTION_ERROR;
1604: END IF;
1605: UPDATE OKC_REACT_INTERVALS
1598: END IF;
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1603: RAISE OKC_API.G_EXCEPTION_ERROR;
1604: END IF;
1605: UPDATE OKC_REACT_INTERVALS
1606: SET DNZ_CHR_ID = l_def_ril_rec.dnz_chr_id,
1599: l_return_status := populate_new_record(l_ril_rec, l_def_ril_rec);
1600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1603: RAISE OKC_API.G_EXCEPTION_ERROR;
1604: END IF;
1605: UPDATE OKC_REACT_INTERVALS
1606: SET DNZ_CHR_ID = l_def_ril_rec.dnz_chr_id,
1607: uom_code = l_def_ril_rec.uom_code,
1615: WHERE TVE_ID = l_def_ril_rec.tve_id
1616: AND RUL_ID = l_def_ril_rec.rul_id;
1617:
1618: x_ril_rec := l_def_ril_rec;
1619: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1620: EXCEPTION
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1623: (
1617:
1618: x_ril_rec := l_def_ril_rec;
1619: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1620: EXCEPTION
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1623: (
1624: l_api_name,
1625: G_PKG_NAME,
1618: x_ril_rec := l_def_ril_rec;
1619: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1620: EXCEPTION
1621: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1623: (
1624: l_api_name,
1625: G_PKG_NAME,
1626: 'OKC_API.G_RET_STS_ERROR',
1622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1623: (
1624: l_api_name,
1625: G_PKG_NAME,
1626: 'OKC_API.G_RET_STS_ERROR',
1627: x_msg_count,
1628: x_msg_data,
1629: '_PVT'
1630: );
1627: x_msg_count,
1628: x_msg_data,
1629: '_PVT'
1630: );
1631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1632: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1633: (
1634: l_api_name,
1635: G_PKG_NAME,
1628: x_msg_data,
1629: '_PVT'
1630: );
1631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1632: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1633: (
1634: l_api_name,
1635: G_PKG_NAME,
1636: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1632: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1633: (
1634: l_api_name,
1635: G_PKG_NAME,
1636: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1637: x_msg_count,
1638: x_msg_data,
1639: '_PVT'
1640: );
1638: x_msg_data,
1639: '_PVT'
1640: );
1641: WHEN OTHERS THEN
1642: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1643: (
1644: l_api_name,
1645: G_PKG_NAME,
1646: 'OTHERS',
1662: x_rilv_rec OUT NOCOPY rilv_rec_type) IS
1663:
1664: l_api_version CONSTANT NUMBER := 1;
1665: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1666: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1667: l_rilv_rec rilv_rec_type := p_rilv_rec;
1668: l_def_rilv_rec rilv_rec_type;
1669: l_ril_rec ril_rec_type;
1670: lx_ril_rec ril_rec_type;
1689: x_rilv_rec OUT NOCOPY rilv_rec_type
1690: ) RETURN VARCHAR2 IS
1691: l_rilv_rec rilv_rec_type;
1692: l_row_notfound BOOLEAN := TRUE;
1693: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1694: BEGIN
1695: x_rilv_rec := p_rilv_rec;
1696: -- Get current database values
1697: l_rilv_rec := get_rec(p_rilv_rec, l_row_notfound);
1695: x_rilv_rec := p_rilv_rec;
1696: -- Get current database values
1697: l_rilv_rec := get_rec(p_rilv_rec, l_row_notfound);
1698: IF (l_row_notfound) THEN
1699: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1700: END IF;
1701: IF (x_rilv_rec.tve_id = OKC_API.G_MISS_NUM)
1702: THEN
1703: x_rilv_rec.tve_id := l_rilv_rec.tve_id;
1697: l_rilv_rec := get_rec(p_rilv_rec, l_row_notfound);
1698: IF (l_row_notfound) THEN
1699: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1700: END IF;
1701: IF (x_rilv_rec.tve_id = OKC_API.G_MISS_NUM)
1702: THEN
1703: x_rilv_rec.tve_id := l_rilv_rec.tve_id;
1704: END IF;
1705: IF (x_rilv_rec.rul_id = OKC_API.G_MISS_NUM)
1701: IF (x_rilv_rec.tve_id = OKC_API.G_MISS_NUM)
1702: THEN
1703: x_rilv_rec.tve_id := l_rilv_rec.tve_id;
1704: END IF;
1705: IF (x_rilv_rec.rul_id = OKC_API.G_MISS_NUM)
1706: THEN
1707: x_rilv_rec.rul_id := l_rilv_rec.rul_id;
1708: END IF;
1709: IF (x_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1705: IF (x_rilv_rec.rul_id = OKC_API.G_MISS_NUM)
1706: THEN
1707: x_rilv_rec.rul_id := l_rilv_rec.rul_id;
1708: END IF;
1709: IF (x_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1710: THEN
1711: x_rilv_rec.dnz_chr_id := l_rilv_rec.dnz_chr_id;
1712: END IF;
1713: IF (x_rilv_rec.object_version_number = OKC_API.G_MISS_NUM)
1709: IF (x_rilv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1710: THEN
1711: x_rilv_rec.dnz_chr_id := l_rilv_rec.dnz_chr_id;
1712: END IF;
1713: IF (x_rilv_rec.object_version_number = OKC_API.G_MISS_NUM)
1714: THEN
1715: x_rilv_rec.object_version_number := l_rilv_rec.object_version_number;
1716: END IF;
1717: IF (x_rilv_rec.uom_code = OKC_API.G_MISS_CHAR)
1713: IF (x_rilv_rec.object_version_number = OKC_API.G_MISS_NUM)
1714: THEN
1715: x_rilv_rec.object_version_number := l_rilv_rec.object_version_number;
1716: END IF;
1717: IF (x_rilv_rec.uom_code = OKC_API.G_MISS_CHAR)
1718: THEN
1719: x_rilv_rec.uom_code := l_rilv_rec.uom_code;
1720: END IF;
1721: IF (x_rilv_rec.duration = OKC_API.G_MISS_NUM)
1717: IF (x_rilv_rec.uom_code = OKC_API.G_MISS_CHAR)
1718: THEN
1719: x_rilv_rec.uom_code := l_rilv_rec.uom_code;
1720: END IF;
1721: IF (x_rilv_rec.duration = OKC_API.G_MISS_NUM)
1722: THEN
1723: x_rilv_rec.duration := l_rilv_rec.duration;
1724: END IF;
1725: IF (x_rilv_rec.created_by = OKC_API.G_MISS_NUM)
1721: IF (x_rilv_rec.duration = OKC_API.G_MISS_NUM)
1722: THEN
1723: x_rilv_rec.duration := l_rilv_rec.duration;
1724: END IF;
1725: IF (x_rilv_rec.created_by = OKC_API.G_MISS_NUM)
1726: THEN
1727: x_rilv_rec.created_by := l_rilv_rec.created_by;
1728: END IF;
1729: IF (x_rilv_rec.creation_date = OKC_API.G_MISS_DATE)
1725: IF (x_rilv_rec.created_by = OKC_API.G_MISS_NUM)
1726: THEN
1727: x_rilv_rec.created_by := l_rilv_rec.created_by;
1728: END IF;
1729: IF (x_rilv_rec.creation_date = OKC_API.G_MISS_DATE)
1730: THEN
1731: x_rilv_rec.creation_date := l_rilv_rec.creation_date;
1732: END IF;
1733: IF (x_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1729: IF (x_rilv_rec.creation_date = OKC_API.G_MISS_DATE)
1730: THEN
1731: x_rilv_rec.creation_date := l_rilv_rec.creation_date;
1732: END IF;
1733: IF (x_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1734: THEN
1735: x_rilv_rec.last_updated_by := l_rilv_rec.last_updated_by;
1736: END IF;
1737: IF (x_rilv_rec.last_update_date = OKC_API.G_MISS_DATE)
1733: IF (x_rilv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1734: THEN
1735: x_rilv_rec.last_updated_by := l_rilv_rec.last_updated_by;
1736: END IF;
1737: IF (x_rilv_rec.last_update_date = OKC_API.G_MISS_DATE)
1738: THEN
1739: x_rilv_rec.last_update_date := l_rilv_rec.last_update_date;
1740: END IF;
1741: IF (x_rilv_rec.last_update_login = OKC_API.G_MISS_NUM)
1737: IF (x_rilv_rec.last_update_date = OKC_API.G_MISS_DATE)
1738: THEN
1739: x_rilv_rec.last_update_date := l_rilv_rec.last_update_date;
1740: END IF;
1741: IF (x_rilv_rec.last_update_login = OKC_API.G_MISS_NUM)
1742: THEN
1743: x_rilv_rec.last_update_login := l_rilv_rec.last_update_login;
1744: END IF;
1745: RETURN(l_return_status);
1750: FUNCTION Set_Attributes (
1751: p_rilv_rec IN rilv_rec_type,
1752: x_rilv_rec OUT NOCOPY rilv_rec_type
1753: ) RETURN VARCHAR2 IS
1754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1755: BEGIN
1756: x_rilv_rec := p_rilv_rec;
1757: x_rilv_rec.OBJECT_VERSION_NUMBER := NVL(x_rilv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1758: RETURN(l_return_status);
1757: x_rilv_rec.OBJECT_VERSION_NUMBER := NVL(x_rilv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1758: RETURN(l_return_status);
1759: END Set_Attributes;
1760: BEGIN
1761: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1762: G_PKG_NAME,
1763: p_init_msg_list,
1764: l_api_version,
1765: p_api_version,
1764: l_api_version,
1765: p_api_version,
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1765: p_api_version,
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1774: l_return_status := Set_Attributes(
1767: x_return_status);
1768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1774: l_return_status := Set_Attributes(
1775: p_rilv_rec, -- IN
1774: l_return_status := Set_Attributes(
1775: p_rilv_rec, -- IN
1776: l_rilv_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1775: p_rilv_rec, -- IN
1776: l_rilv_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1776: l_rilv_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1782: END IF;
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1790: --- Validate all non-missing attributes (Item Level Validation)
1783: l_return_status := populate_new_record(l_rilv_rec, l_def_rilv_rec);
1784: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1790: --- Validate all non-missing attributes (Item Level Validation)
1791: l_return_status := Validate_Attributes(l_def_rilv_rec);
1789: l_def_rilv_rec := fill_who_columns(l_def_rilv_rec);
1790: --- Validate all non-missing attributes (Item Level Validation)
1791: l_return_status := Validate_Attributes(l_def_rilv_rec);
1792: --- If any errors happen abort API
1793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1790: --- Validate all non-missing attributes (Item Level Validation)
1791: l_return_status := Validate_Attributes(l_def_rilv_rec);
1792: --- If any errors happen abort API
1793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1791: l_return_status := Validate_Attributes(l_def_rilv_rec);
1792: --- If any errors happen abort API
1793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1792: --- If any errors happen abort API
1793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1796: RAISE OKC_API.G_EXCEPTION_ERROR;
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1797: END IF;
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1805: --------------------------------------
1798: l_return_status := Validate_Record(l_def_rilv_rec);
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1805: --------------------------------------
1806: -- Move VIEW record to "Child" records
1816: x_msg_data,
1817: l_ril_rec,
1818: lx_ril_rec
1819: );
1820: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: END IF;
1817: l_ril_rec,
1818: lx_ril_rec
1819: );
1820: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: END IF;
1825: migrate(lx_ril_rec, l_def_rilv_rec);
1818: lx_ril_rec
1819: );
1820: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: END IF;
1825: migrate(lx_ril_rec, l_def_rilv_rec);
1826: x_rilv_rec := l_def_rilv_rec;
1819: );
1820: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1822: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: END IF;
1825: migrate(lx_ril_rec, l_def_rilv_rec);
1826: x_rilv_rec := l_def_rilv_rec;
1827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1823: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: END IF;
1825: migrate(lx_ril_rec, l_def_rilv_rec);
1826: x_rilv_rec := l_def_rilv_rec;
1827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1831: (
1825: migrate(lx_ril_rec, l_def_rilv_rec);
1826: x_rilv_rec := l_def_rilv_rec;
1827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1826: x_rilv_rec := l_def_rilv_rec;
1827: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'OKC_API.G_RET_STS_ERROR',
1830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'OKC_API.G_RET_STS_ERROR',
1835: x_msg_count,
1836: x_msg_data,
1837: '_PVT'
1838: );
1835: x_msg_count,
1836: x_msg_data,
1837: '_PVT'
1838: );
1839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1836: x_msg_data,
1837: '_PVT'
1838: );
1839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1845: x_msg_count,
1846: x_msg_data,
1847: '_PVT'
1848: );
1846: x_msg_data,
1847: '_PVT'
1848: );
1849: WHEN OTHERS THEN
1850: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1851: (
1852: l_api_name,
1853: G_PKG_NAME,
1854: 'OTHERS',
1870: x_rilv_tbl OUT NOCOPY rilv_tbl_type) IS
1871:
1872: l_api_version CONSTANT NUMBER := 1;
1873: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1874: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1875: i NUMBER := 0;
1876: BEGIN
1877: OKC_API.init_msg_list(p_init_msg_list);
1878: -- Make sure PL/SQL table has records in it before passing
1873: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1874: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1875: i NUMBER := 0;
1876: BEGIN
1877: OKC_API.init_msg_list(p_init_msg_list);
1878: -- Make sure PL/SQL table has records in it before passing
1879: IF (p_rilv_tbl.COUNT > 0) THEN
1880: i := p_rilv_tbl.FIRST;
1881: LOOP
1880: i := p_rilv_tbl.FIRST;
1881: LOOP
1882: update_row (
1883: p_api_version => p_api_version,
1884: p_init_msg_list => OKC_API.G_FALSE,
1885: x_return_status => x_return_status,
1886: x_msg_count => x_msg_count,
1887: x_msg_data => x_msg_data,
1888: p_rilv_rec => p_rilv_tbl(i),
1891: i := p_rilv_tbl.NEXT(i);
1892: END LOOP;
1893: END IF;
1894: EXCEPTION
1895: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1897: (
1898: l_api_name,
1899: G_PKG_NAME,
1892: END LOOP;
1893: END IF;
1894: EXCEPTION
1895: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1897: (
1898: l_api_name,
1899: G_PKG_NAME,
1900: 'OKC_API.G_RET_STS_ERROR',
1896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1897: (
1898: l_api_name,
1899: G_PKG_NAME,
1900: 'OKC_API.G_RET_STS_ERROR',
1901: x_msg_count,
1902: x_msg_data,
1903: '_PVT'
1904: );
1901: x_msg_count,
1902: x_msg_data,
1903: '_PVT'
1904: );
1905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1902: x_msg_data,
1903: '_PVT'
1904: );
1905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1910: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1910: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1911: x_msg_count,
1912: x_msg_data,
1913: '_PVT'
1914: );
1912: x_msg_data,
1913: '_PVT'
1914: );
1915: WHEN OTHERS THEN
1916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1917: (
1918: l_api_name,
1919: G_PKG_NAME,
1920: 'OTHERS',
1938: p_ril_rec IN ril_rec_type) IS
1939:
1940: l_api_version CONSTANT NUMBER := 1;
1941: l_api_name CONSTANT VARCHAR2(30) := 'INTERVALS_delete_row';
1942: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1943: l_ril_rec ril_rec_type:= p_ril_rec;
1944: l_row_notfound BOOLEAN := TRUE;
1945: BEGIN
1946: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1942: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1943: l_ril_rec ril_rec_type:= p_ril_rec;
1944: l_row_notfound BOOLEAN := TRUE;
1945: BEGIN
1946: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1946: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1953: RAISE OKC_API.G_EXCEPTION_ERROR;
1954: END IF;
1947: p_init_msg_list,
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1953: RAISE OKC_API.G_EXCEPTION_ERROR;
1954: END IF;
1955:
1948: '_PVT',
1949: x_return_status);
1950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1953: RAISE OKC_API.G_EXCEPTION_ERROR;
1954: END IF;
1955:
1956: -- Bug#3080839 fix to delete time values associated
1949: x_return_status);
1950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1953: RAISE OKC_API.G_EXCEPTION_ERROR;
1954: END IF;
1955:
1956: -- Bug#3080839 fix to delete time values associated
1957: -- with reaction intervals at line level.
1962: x_return_status => x_return_status,
1963: x_msg_count => x_msg_count,
1964: x_msg_data => x_msg_data,
1965: p_tve_id => l_ril_rec.tve_id);
1966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1963: x_msg_count => x_msg_count,
1964: x_msg_data => x_msg_data,
1965: p_tve_id => l_ril_rec.tve_id);
1966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: END IF;
1964: x_msg_data => x_msg_data,
1965: p_tve_id => l_ril_rec.tve_id);
1966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: END IF;
1972:
1965: p_tve_id => l_ril_rec.tve_id);
1966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: END IF;
1972:
1973:
1974: -- delete reaction times
1975: DELETE FROM OKC_REACT_INTERVALS
1976: WHERE TVE_ID = l_ril_rec.tve_id AND RUL_ID = l_ril_rec.rul_id;
1977:
1978: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1979: EXCEPTION
1980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1982: (
1976: WHERE TVE_ID = l_ril_rec.tve_id AND RUL_ID = l_ril_rec.rul_id;
1977:
1978: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1979: EXCEPTION
1980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1977:
1978: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1979: EXCEPTION
1980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1985: 'OKC_API.G_RET_STS_ERROR',
1981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1985: 'OKC_API.G_RET_STS_ERROR',
1986: x_msg_count,
1987: x_msg_data,
1988: '_PVT'
1989: );
1986: x_msg_count,
1987: x_msg_data,
1988: '_PVT'
1989: );
1990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1987: x_msg_data,
1988: '_PVT'
1989: );
1990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1995: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1995: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1996: x_msg_count,
1997: x_msg_data,
1998: '_PVT'
1999: );
1997: x_msg_data,
1998: '_PVT'
1999: );
2000: WHEN OTHERS THEN
2001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2002: (
2003: l_api_name,
2004: G_PKG_NAME,
2005: 'OTHERS',
2020: p_rilv_rec IN rilv_rec_type) IS
2021:
2022: l_api_version CONSTANT NUMBER := 1;
2023: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2024: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2025: l_rilv_rec rilv_rec_type := p_rilv_rec;
2026: l_ril_rec ril_rec_type;
2027: BEGIN
2028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2024: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2025: l_rilv_rec rilv_rec_type := p_rilv_rec;
2026: l_ril_rec ril_rec_type;
2027: BEGIN
2028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2029: G_PKG_NAME,
2030: p_init_msg_list,
2031: l_api_version,
2032: p_api_version,
2031: l_api_version,
2032: p_api_version,
2033: '_PVT',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2032: p_api_version,
2033: '_PVT',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------
2033: '_PVT',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------
2041: -- Move VIEW record to "Child" records
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------
2041: -- Move VIEW record to "Child" records
2042: --------------------------------------
2050: x_msg_count,
2051: x_msg_data,
2052: l_ril_rec
2053: );
2054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2051: x_msg_data,
2052: l_ril_rec
2053: );
2054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2052: l_ril_rec
2053: );
2054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2060: EXCEPTION
2053: );
2054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2060: EXCEPTION
2061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2060: EXCEPTION
2061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2063: (
2057: RAISE OKC_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2060: EXCEPTION
2061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2063: (
2064: l_api_name,
2065: G_PKG_NAME,
2058: END IF;
2059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2060: EXCEPTION
2061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2063: (
2064: l_api_name,
2065: G_PKG_NAME,
2066: 'OKC_API.G_RET_STS_ERROR',
2062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2063: (
2064: l_api_name,
2065: G_PKG_NAME,
2066: 'OKC_API.G_RET_STS_ERROR',
2067: x_msg_count,
2068: x_msg_data,
2069: '_PVT'
2070: );
2067: x_msg_count,
2068: x_msg_data,
2069: '_PVT'
2070: );
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2068: x_msg_data,
2069: '_PVT'
2070: );
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2077: x_msg_count,
2078: x_msg_data,
2079: '_PVT'
2080: );
2078: x_msg_data,
2079: '_PVT'
2080: );
2081: WHEN OTHERS THEN
2082: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2086: 'OTHERS',
2101: p_rilv_tbl IN rilv_tbl_type) IS
2102:
2103: l_api_version CONSTANT NUMBER := 1;
2104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2105: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2106: i NUMBER := 0;
2107: BEGIN
2108: OKC_API.init_msg_list(p_init_msg_list);
2109: -- Make sure PL/SQL table has records in it before passing
2104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2105: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2106: i NUMBER := 0;
2107: BEGIN
2108: OKC_API.init_msg_list(p_init_msg_list);
2109: -- Make sure PL/SQL table has records in it before passing
2110: IF (p_rilv_tbl.COUNT > 0) THEN
2111: i := p_rilv_tbl.FIRST;
2112: LOOP
2111: i := p_rilv_tbl.FIRST;
2112: LOOP
2113: delete_row (
2114: p_api_version => p_api_version,
2115: p_init_msg_list => OKC_API.G_FALSE,
2116: x_return_status => x_return_status,
2117: x_msg_count => x_msg_count,
2118: x_msg_data => x_msg_data,
2119: p_rilv_rec => p_rilv_tbl(i));
2121: i := p_rilv_tbl.NEXT(i);
2122: END LOOP;
2123: END IF;
2124: EXCEPTION
2125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2122: END LOOP;
2123: END IF;
2124: EXCEPTION
2125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2130: 'OKC_API.G_RET_STS_ERROR',
2126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2130: 'OKC_API.G_RET_STS_ERROR',
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT'
2134: );
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT'
2134: );
2135: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2132: x_msg_data,
2133: '_PVT'
2134: );
2135: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2141: x_msg_count,
2142: x_msg_data,
2143: '_PVT'
2144: );
2142: x_msg_data,
2143: '_PVT'
2144: );
2145: WHEN OTHERS THEN
2146: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2147: (
2148: l_api_name,
2149: G_PKG_NAME,
2150: 'OTHERS',
2174: in_last_update_login OKC_DATATYPES.NumberTabTyp;
2175: i number;
2176: j number;
2177: BEGIN
2178: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2179: i := p_rilv_tbl.FIRST; j:=0;
2180: while i is not null
2181: LOOP
2182: j:=j+1;
2228:
2229: EXCEPTION
2230: WHEN OTHERS THEN
2231: -- store SQL error message on message stack
2232: OKC_API.SET_MESSAGE(
2233: p_app_name => G_APP_NAME,
2234: p_msg_name => G_UNEXPECTED_ERROR,
2235: p_token1 => G_SQLCODE_TOKEN,
2236: p_token1_value => SQLCODE,
2236: p_token1_value => SQLCODE,
2237: p_token2 => G_SQLERRM_TOKEN,
2238: p_token2_value => SQLERRM);
2239: -- notify caller of an error as UNEXPETED error
2240: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2241: --RAISE;
2242:
2243:
2244: END INSERT_ROW_UPG;
2251: p_chr_id IN NUMBER,
2252: p_major_version IN NUMBER
2253: ) RETURN VARCHAR2 IS
2254:
2255: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2256:
2257: BEGIN
2258: INSERT INTO okc_react_intervals_h
2259: (
2290: EXCEPTION
2291: -- other appropriate handlers
2292: WHEN OTHERS THEN
2293: -- store SQL error message on message stack
2294: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2295: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2296: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2297: p_token1_value => sqlcode,
2298: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2298: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2299: p_token2_value => sqlerrm);
2300:
2301: -- notify UNEXPECTED error
2302: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2303: return l_return_status;
2304: END create_version;
2305:
2306: --This Function is called from Versioning API OKC_VERSION_PVT
2311: p_chr_id IN NUMBER,
2312: p_major_version IN NUMBER
2313: ) RETURN VARCHAR2 IS
2314:
2315: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2316:
2317: BEGIN
2318: INSERT INTO okc_react_intervals
2319: (
2349: EXCEPTION
2350: -- other appropriate handlers
2351: WHEN OTHERS THEN
2352: -- store SQL error message on message stack
2353: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2354: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2355: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2356: p_token1_value => sqlcode,
2357: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2357: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2358: p_token2_value => sqlerrm);
2359:
2360: -- notify UNEXPECTED error
2361: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2362: return l_return_status;
2363: END restore_version;
2364:
2365: END OKC_RIL_PVT;