180: p_srev_rec IN srev_rec_type
181: ) RETURN srev_rec_type IS
182: l_srev_rec srev_rec_type := p_srev_rec;
183: BEGIN
184: IF (l_srev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
185: l_srev_rec.object_version_number := NULL;
186: END IF;
187: IF (l_srev_rec.rle_code = OKC_API.G_MISS_CHAR) THEN
188: l_srev_rec.rle_code := NULL;
183: BEGIN
184: IF (l_srev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
185: l_srev_rec.object_version_number := NULL;
186: END IF;
187: IF (l_srev_rec.rle_code = OKC_API.G_MISS_CHAR) THEN
188: l_srev_rec.rle_code := NULL;
189: END IF;
190: IF (l_srev_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
191: l_srev_rec.scs_code := NULL;
186: END IF;
187: IF (l_srev_rec.rle_code = OKC_API.G_MISS_CHAR) THEN
188: l_srev_rec.rle_code := NULL;
189: END IF;
190: IF (l_srev_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
191: l_srev_rec.scs_code := NULL;
192: END IF;
193: IF (l_srev_rec.created_by = OKC_API.G_MISS_NUM) THEN
194: l_srev_rec.created_by := NULL;
189: END IF;
190: IF (l_srev_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
191: l_srev_rec.scs_code := NULL;
192: END IF;
193: IF (l_srev_rec.created_by = OKC_API.G_MISS_NUM) THEN
194: l_srev_rec.created_by := NULL;
195: END IF;
196: IF (l_srev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
197: l_srev_rec.creation_date := NULL;
192: END IF;
193: IF (l_srev_rec.created_by = OKC_API.G_MISS_NUM) THEN
194: l_srev_rec.created_by := NULL;
195: END IF;
196: IF (l_srev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
197: l_srev_rec.creation_date := NULL;
198: END IF;
199: IF (l_srev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
200: l_srev_rec.last_updated_by := NULL;
195: END IF;
196: IF (l_srev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
197: l_srev_rec.creation_date := NULL;
198: END IF;
199: IF (l_srev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
200: l_srev_rec.last_updated_by := NULL;
201: END IF;
202: IF (l_srev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
203: l_srev_rec.last_update_date := NULL;
198: END IF;
199: IF (l_srev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
200: l_srev_rec.last_updated_by := NULL;
201: END IF;
202: IF (l_srev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
203: l_srev_rec.last_update_date := NULL;
204: END IF;
205: IF (l_srev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
206: l_srev_rec.last_update_login := NULL;
201: END IF;
202: IF (l_srev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
203: l_srev_rec.last_update_date := NULL;
204: END IF;
205: IF (l_srev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
206: l_srev_rec.last_update_login := NULL;
207: END IF;
208: IF (l_srev_rec.start_date = OKC_API.G_MISS_DATE) THEN
209: l_srev_rec.start_date := NULL;
204: END IF;
205: IF (l_srev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
206: l_srev_rec.last_update_login := NULL;
207: END IF;
208: IF (l_srev_rec.start_date = OKC_API.G_MISS_DATE) THEN
209: l_srev_rec.start_date := NULL;
210: END IF;
211: IF (l_srev_rec.end_date = OKC_API.G_MISS_DATE) THEN
212: l_srev_rec.end_date := NULL;
207: END IF;
208: IF (l_srev_rec.start_date = OKC_API.G_MISS_DATE) THEN
209: l_srev_rec.start_date := NULL;
210: END IF;
211: IF (l_srev_rec.end_date = OKC_API.G_MISS_DATE) THEN
212: l_srev_rec.end_date := NULL;
213: END IF;
214: IF (l_srev_rec.access_level = OKC_API.G_MISS_CHAR) THEN
215: l_srev_rec.access_level := NULL;
210: END IF;
211: IF (l_srev_rec.end_date = OKC_API.G_MISS_DATE) THEN
212: l_srev_rec.end_date := NULL;
213: END IF;
214: IF (l_srev_rec.access_level = OKC_API.G_MISS_CHAR) THEN
215: l_srev_rec.access_level := NULL;
216: END IF;
217: RETURN(l_srev_rec);
218: END null_out_defaults;
224: ---------------------------------------------------------------------------
225: PROCEDURE validate_id(
226: p_srev_rec IN srev_rec_type,
227: x_return_status OUT NOCOPY VARCHAR2) IS
228: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
229: BEGIN
230: IF p_srev_rec.id = OKC_API.G_MISS_NUM OR
231: p_srev_rec.id IS NULL
232: THEN
226: p_srev_rec IN srev_rec_type,
227: x_return_status OUT NOCOPY VARCHAR2) IS
228: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
229: BEGIN
230: IF p_srev_rec.id = OKC_API.G_MISS_NUM OR
231: p_srev_rec.id IS NULL
232: THEN
233: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
234: l_return_status := OKC_API.G_RET_STS_ERROR;
229: BEGIN
230: IF p_srev_rec.id = OKC_API.G_MISS_NUM OR
231: p_srev_rec.id IS NULL
232: THEN
233: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
234: l_return_status := OKC_API.G_RET_STS_ERROR;
235: END IF;
236: x_return_status := l_return_status;
237: EXCEPTION
230: IF p_srev_rec.id = OKC_API.G_MISS_NUM OR
231: p_srev_rec.id IS NULL
232: THEN
233: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
234: l_return_status := OKC_API.G_RET_STS_ERROR;
235: END IF;
236: x_return_status := l_return_status;
237: EXCEPTION
238: WHEN OTHERS THEN
236: x_return_status := l_return_status;
237: EXCEPTION
238: WHEN OTHERS THEN
239: -- store SQL error message on message stack for caller
240: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
241: -- notify caller of an UNEXPECTED error
242: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
243: END validate_id;
244:
238: WHEN OTHERS THEN
239: -- store SQL error message on message stack for caller
240: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
241: -- notify caller of an UNEXPECTED error
242: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
243: END validate_id;
244:
245: ---------------------------------------------------------------------------
246: -- PROCEDURE Validate_object_version_number
247: ---------------------------------------------------------------------------
248: PROCEDURE validate_object_version_number(
249: p_srev_rec IN srev_rec_type,
250: x_return_status OUT NOCOPY VARCHAR2) IS
251: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
252: BEGIN
253: IF p_srev_rec.object_version_number = OKC_API.G_MISS_NUM OR
254: p_srev_rec.object_version_number IS NULL
255: THEN
249: p_srev_rec IN srev_rec_type,
250: x_return_status OUT NOCOPY VARCHAR2) IS
251: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
252: BEGIN
253: IF p_srev_rec.object_version_number = OKC_API.G_MISS_NUM OR
254: p_srev_rec.object_version_number IS NULL
255: THEN
256: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
257: l_return_status := OKC_API.G_RET_STS_ERROR;
252: BEGIN
253: IF p_srev_rec.object_version_number = OKC_API.G_MISS_NUM OR
254: p_srev_rec.object_version_number IS NULL
255: THEN
256: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
257: l_return_status := OKC_API.G_RET_STS_ERROR;
258: RAISE G_EXCEPTION_HALT_VALIDATION;
259: END IF;
260:
253: IF p_srev_rec.object_version_number = OKC_API.G_MISS_NUM OR
254: p_srev_rec.object_version_number IS NULL
255: THEN
256: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
257: l_return_status := OKC_API.G_RET_STS_ERROR;
258: RAISE G_EXCEPTION_HALT_VALIDATION;
259: END IF;
260:
261: x_return_status := l_return_status;
263: WHEN G_EXCEPTION_HALT_VALIDATION THEN
264: x_return_status := l_return_status;
265: WHEN OTHERS THEN
266: -- store SQL error message on message stack for caller
267: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
268: -- notify caller of an UNEXPECTED error
269: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
270: END validate_object_version_number;
271:
265: WHEN OTHERS THEN
266: -- store SQL error message on message stack for caller
267: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
268: -- notify caller of an UNEXPECTED error
269: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
270: END validate_object_version_number;
271:
272: ---------------------------------------------------------------------------
273: -- PROCEDURE Validate_rle_code
274: ---------------------------------------------------------------------------
275: PROCEDURE validate_rle_code(
276: p_srev_rec IN srev_rec_type,
277: x_return_status OUT NOCOPY VARCHAR2) IS
278: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
279: BEGIN
280: IF p_srev_rec.rle_code = OKC_API.G_MISS_CHAR OR
281: p_srev_rec.rle_code IS NULL
282: THEN
276: p_srev_rec IN srev_rec_type,
277: x_return_status OUT NOCOPY VARCHAR2) IS
278: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
279: BEGIN
280: IF p_srev_rec.rle_code = OKC_API.G_MISS_CHAR OR
281: p_srev_rec.rle_code IS NULL
282: THEN
283: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rle_code');
284: l_return_status := OKC_API.G_RET_STS_ERROR;
279: BEGIN
280: IF p_srev_rec.rle_code = OKC_API.G_MISS_CHAR OR
281: p_srev_rec.rle_code IS NULL
282: THEN
283: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rle_code');
284: l_return_status := OKC_API.G_RET_STS_ERROR;
285: END IF;
286: x_return_status := l_return_status;
287: EXCEPTION
280: IF p_srev_rec.rle_code = OKC_API.G_MISS_CHAR OR
281: p_srev_rec.rle_code IS NULL
282: THEN
283: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'rle_code');
284: l_return_status := OKC_API.G_RET_STS_ERROR;
285: END IF;
286: x_return_status := l_return_status;
287: EXCEPTION
288: WHEN OTHERS THEN
286: x_return_status := l_return_status;
287: EXCEPTION
288: WHEN OTHERS THEN
289: -- store SQL error message on message stack for caller
290: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
291: -- notify caller of an UNEXPECTED error
292: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
293: END validate_rle_code;
294:
288: WHEN OTHERS THEN
289: -- store SQL error message on message stack for caller
290: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
291: -- notify caller of an UNEXPECTED error
292: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
293: END validate_rle_code;
294:
295: ---------------------------------------------------------------------------
296: -- PROCEDURE Validate_scs_code
297: ---------------------------------------------------------------------------
298: PROCEDURE validate_scs_code(
299: p_srev_rec IN srev_rec_type,
300: x_return_status OUT NOCOPY VARCHAR2) IS
301: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
302: BEGIN
303: IF p_srev_rec.scs_code = OKC_API.G_MISS_CHAR OR
304: p_srev_rec.scs_code IS NULL
305: THEN
299: p_srev_rec IN srev_rec_type,
300: x_return_status OUT NOCOPY VARCHAR2) IS
301: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
302: BEGIN
303: IF p_srev_rec.scs_code = OKC_API.G_MISS_CHAR OR
304: p_srev_rec.scs_code IS NULL
305: THEN
306: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
307: l_return_status := OKC_API.G_RET_STS_ERROR;
302: BEGIN
303: IF p_srev_rec.scs_code = OKC_API.G_MISS_CHAR OR
304: p_srev_rec.scs_code IS NULL
305: THEN
306: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
307: l_return_status := OKC_API.G_RET_STS_ERROR;
308: END IF;
309: x_return_status := l_return_status;
310: EXCEPTION
303: IF p_srev_rec.scs_code = OKC_API.G_MISS_CHAR OR
304: p_srev_rec.scs_code IS NULL
305: THEN
306: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
307: l_return_status := OKC_API.G_RET_STS_ERROR;
308: END IF;
309: x_return_status := l_return_status;
310: EXCEPTION
311: WHEN OTHERS THEN
309: x_return_status := l_return_status;
310: EXCEPTION
311: WHEN OTHERS THEN
312: -- store SQL error message on message stack for caller
313: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
314: -- notify caller of an UNEXPECTED error
315: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
316: END validate_scs_code;
317:
311: WHEN OTHERS THEN
312: -- store SQL error message on message stack for caller
313: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
314: -- notify caller of an UNEXPECTED error
315: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
316: END validate_scs_code;
317:
318: ---------------------------------------------------------------------------
319: -- PROCEDURE Validate_start_date
320: ---------------------------------------------------------------------------
321: PROCEDURE validate_start_date(
322: p_srev_rec IN srev_rec_type,
323: x_return_status OUT NOCOPY VARCHAR2) IS
324: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
325: BEGIN
326: IF p_srev_rec.start_date = OKC_API.G_MISS_DATE OR
327: p_srev_rec.start_date IS NULL
328: THEN
322: p_srev_rec IN srev_rec_type,
323: x_return_status OUT NOCOPY VARCHAR2) IS
324: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
325: BEGIN
326: IF p_srev_rec.start_date = OKC_API.G_MISS_DATE OR
327: p_srev_rec.start_date IS NULL
328: THEN
329: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
330: l_return_status := OKC_API.G_RET_STS_ERROR;
325: BEGIN
326: IF p_srev_rec.start_date = OKC_API.G_MISS_DATE OR
327: p_srev_rec.start_date IS NULL
328: THEN
329: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
330: l_return_status := OKC_API.G_RET_STS_ERROR;
331: END IF;
332: x_return_status := l_return_status;
333: EXCEPTION
326: IF p_srev_rec.start_date = OKC_API.G_MISS_DATE OR
327: p_srev_rec.start_date IS NULL
328: THEN
329: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
330: l_return_status := OKC_API.G_RET_STS_ERROR;
331: END IF;
332: x_return_status := l_return_status;
333: EXCEPTION
334: WHEN OTHERS THEN
332: x_return_status := l_return_status;
333: EXCEPTION
334: WHEN OTHERS THEN
335: -- store SQL error message on message stack for caller
336: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
337: -- notify caller of an UNEXPECTED error
338: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
339: END validate_start_date;
340: --------------------------------------------------------------------------
334: WHEN OTHERS THEN
335: -- store SQL error message on message stack for caller
336: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
337: -- notify caller of an UNEXPECTED error
338: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
339: END validate_start_date;
340: --------------------------------------------------------------------------
341: -- PROCEDURE validate_access_level
342: ---------------------------------------------------------------------------
343: PROCEDURE validate_access_level(
344: p_srev_rec IN srev_rec_type,
345: x_return_status OUT NOCOPY VARCHAR2) IS
346: BEGIN
347: x_return_status :=OKC_API.G_RET_STS_SUCCESS;
348:
349: IF (p_srev_rec.access_level = OKC_API.G_MISS_CHAR OR
350: p_srev_rec.access_level IS NULL)
351: THEN
345: x_return_status OUT NOCOPY VARCHAR2) IS
346: BEGIN
347: x_return_status :=OKC_API.G_RET_STS_SUCCESS;
348:
349: IF (p_srev_rec.access_level = OKC_API.G_MISS_CHAR OR
350: p_srev_rec.access_level IS NULL)
351: THEN
352:
353: raise G_EXCEPTION_HALT_VALIDATION;
352:
353: raise G_EXCEPTION_HALT_VALIDATION;
354: END IF;
355: IF upper(p_srev_rec.access_level) not in ('S','E','U') Then
356: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
357: p_msg_name => g_invalid_value,
358: p_token1 => g_col_name_token,
359: p_token1_value => 'Access Level');
360: x_return_status :=OKC_API.G_RET_STS_ERROR;
356: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
357: p_msg_name => g_invalid_value,
358: p_token1 => g_col_name_token,
359: p_token1_value => 'Access Level');
360: x_return_status :=OKC_API.G_RET_STS_ERROR;
361: End If;
362: exception
363: when G_EXCEPTION_HALT_VALIDATION then
364: null;
362: exception
363: when G_EXCEPTION_HALT_VALIDATION then
364: null;
365: when OTHERS then
366: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
367: p_msg_name => g_unexpected_error,
368: p_token1 => g_sqlcode_token,
369: p_token1_value => sqlcode,
370: p_token2 => g_sqlerrm_token,
368: p_token1 => g_sqlcode_token,
369: p_token1_value => sqlcode,
370: p_token2 => g_sqlerrm_token,
371: p_token2_value => sqlerrm );
372: x_return_status :=OKC_API.G_RET_STS_UNEXP_ERROR;
373:
374: END validate_access_level;
375: ---------------------------------------------------------------------------
376: -- PROCEDURE Validate_Attributes
380: --------------------------------------------------
381: FUNCTION Validate_Attributes (
382: p_srev_rec IN srev_rec_type
383: ) RETURN VARCHAR2 IS
384: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
386: ---------------------------------------------------------------------------------------
387: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
388: ---------------------------------------------------------------------------------------
381: FUNCTION Validate_Attributes (
382: p_srev_rec IN srev_rec_type
383: ) RETURN VARCHAR2 IS
384: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
386: ---------------------------------------------------------------------------------------
387: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
388: ---------------------------------------------------------------------------------------
389: BEGIN
387: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
388: ---------------------------------------------------------------------------------------
389: BEGIN
390: VALIDATE_id(p_srev_rec, l_return_status);
391: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
393: x_return_status := l_return_status;
394: RAISE G_EXCEPTION_HALT_VALIDATION;
395: ELSE
388: ---------------------------------------------------------------------------------------
389: BEGIN
390: VALIDATE_id(p_srev_rec, l_return_status);
391: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
393: x_return_status := l_return_status;
394: RAISE G_EXCEPTION_HALT_VALIDATION;
395: ELSE
396: x_return_status := l_return_status; -- record that there was an error
397: END IF;
398: END IF;
399:
400: VALIDATE_object_version_number(p_srev_rec, l_return_status);
401: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
402: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
403: x_return_status := l_return_status;
404: RAISE G_EXCEPTION_HALT_VALIDATION;
405: ELSE
398: END IF;
399:
400: VALIDATE_object_version_number(p_srev_rec, l_return_status);
401: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
402: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
403: x_return_status := l_return_status;
404: RAISE G_EXCEPTION_HALT_VALIDATION;
405: ELSE
406: x_return_status := l_return_status; -- record that there was an error
407: END IF;
408: END IF;
409:
410: VALIDATE_rle_code(p_srev_rec, l_return_status);
411: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
413: x_return_status := l_return_status;
414: RAISE G_EXCEPTION_HALT_VALIDATION;
415: ELSE
408: END IF;
409:
410: VALIDATE_rle_code(p_srev_rec, l_return_status);
411: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
413: x_return_status := l_return_status;
414: RAISE G_EXCEPTION_HALT_VALIDATION;
415: ELSE
416: x_return_status := l_return_status; -- record that there was an error
417: END IF;
418: END IF;
419:
420: VALIDATE_scs_code(p_srev_rec, l_return_status);
421: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
423: x_return_status := l_return_status;
424: RAISE G_EXCEPTION_HALT_VALIDATION;
425: ELSE
418: END IF;
419:
420: VALIDATE_scs_code(p_srev_rec, l_return_status);
421: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
422: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
423: x_return_status := l_return_status;
424: RAISE G_EXCEPTION_HALT_VALIDATION;
425: ELSE
426: x_return_status := l_return_status; -- record that there was an error
427: END IF;
428: END IF;
429:
430: VALIDATE_start_date(p_srev_rec, l_return_status);
431: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
433: x_return_status := l_return_status;
434: RAISE G_EXCEPTION_HALT_VALIDATION;
435: ELSE
428: END IF;
429:
430: VALIDATE_start_date(p_srev_rec, l_return_status);
431: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
433: x_return_status := l_return_status;
434: RAISE G_EXCEPTION_HALT_VALIDATION;
435: ELSE
436: x_return_status := l_return_status; -- record that there was an error
437: END IF;
438: END IF;
439:
440: VALIDATE_access_level(p_srev_rec, l_return_status);
441: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
443: x_return_status := l_return_status;
444: RAISE G_EXCEPTION_HALT_VALIDATION;
445: ELSE
438: END IF;
439:
440: VALIDATE_access_level(p_srev_rec, l_return_status);
441: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
443: x_return_status := l_return_status;
444: RAISE G_EXCEPTION_HALT_VALIDATION;
445: ELSE
446: x_return_status := l_return_status; -- record that there was an error
451: WHEN G_EXCEPTION_HALT_VALIDATION THEN
452: return(x_return_status);
453: WHEN OTHERS THEN
454: -- store SQL error message on message stack for caller
455: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
456: -- notify caller of an UNEXPECTED error
457: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
458: return(x_return_status);
459: ---------------------------------------------------------------------------------------
453: WHEN OTHERS THEN
454: -- store SQL error message on message stack for caller
455: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
456: -- notify caller of an UNEXPECTED error
457: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
458: return(x_return_status);
459: ---------------------------------------------------------------------------------------
460: --Attribute Level Validation Procedure Calls Ends(Modification on TAPI generated Code.)--
461: ---------------------------------------------------------------------------------------
470: ----------------------------------------------
471: FUNCTION Validate_Record (
472: p_srev_rec IN srev_rec_type
473: ) RETURN VARCHAR2 IS
474: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
475: ------------------------------------
476: -- FUNCTION validate_foreign_keys --
477: ------------------------------------
478: FUNCTION validate_foreign_keys (
488: FROM Fnd_Lookups
489: WHERE fnd_lookups.lookup_code = p_lookup_code
490: AND fnd_lookups.lookup_type = 'OKC_ROLE';
491: l_dummy VARCHAR2(1);
492: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
493: l_row_notfound BOOLEAN := TRUE;
494: BEGIN
495: IF (p_srev_rec.SCS_CODE IS NOT NULL)
496: THEN
498: FETCH okc_scsv_pk_csr INTO l_dummy;
499: l_row_notfound := okc_scsv_pk_csr%NOTFOUND;
500: CLOSE okc_scsv_pk_csr;
501: IF (l_row_notfound) THEN
502: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SCS_CODE');
503: RAISE item_not_found_error;
504: END IF;
505: END IF;
506: IF (p_srev_rec.RLE_CODE IS NOT NULL)
509: FETCH fnd_lookups_pk_csr INTO l_dummy;
510: l_row_notfound := fnd_lookups_pk_csr%NOTFOUND;
511: CLOSE fnd_lookups_pk_csr;
512: IF (l_row_notfound) THEN
513: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RLE_CODE');
514: RAISE item_not_found_error;
515: END IF;
516: END IF;
517: RETURN (l_return_status);
516: END IF;
517: RETURN (l_return_status);
518: EXCEPTION
519: WHEN item_not_found_error THEN
520: l_return_status := OKC_API.G_RET_STS_ERROR;
521: RETURN (l_return_status);
522: END validate_foreign_keys;
523: ----------------------------------------------------
524: FUNCTION validate_unique_keys (
535: AND ((p_id IS NULL)
536: OR (p_id IS NOT NULL
537: AND id <> p_id));
538: l_dummy VARCHAR2(1);
539: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
540: l_row_found BOOLEAN := FALSE;
541: BEGIN
542: IF (p_srev_rec.SCS_CODE IS NOT NULL AND
543: p_srev_rec.RLE_CODE IS NOT NULL) THEN
547: FETCH c1 INTO l_dummy;
548: l_row_found := c1%FOUND;
549: CLOSE c1;
550: IF (l_row_found) THEN
551: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SCS_CODE');
552: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RLE_CODE');
553: RAISE unique_key_error;
554: END IF;
555: END IF;
548: l_row_found := c1%FOUND;
549: CLOSE c1;
550: IF (l_row_found) THEN
551: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SCS_CODE');
552: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RLE_CODE');
553: RAISE unique_key_error;
554: END IF;
555: END IF;
556: RETURN (l_return_status);
555: END IF;
556: RETURN (l_return_status);
557: EXCEPTION
558: WHEN unique_key_error THEN
559: l_return_status := OKC_API.G_RET_STS_ERROR;
560: RETURN (l_return_status);
561: END validate_unique_keys;
562: BEGIN
563: IF p_srev_rec.start_date IS NOT NULL AND
562: BEGIN
563: IF p_srev_rec.start_date IS NOT NULL AND
564: p_srev_rec.end_date IS NOT NULL THEN
565: IF p_srev_rec.end_date < p_srev_rec.start_date THEN
566: OKC_API.set_message(G_APP_NAME, 'OKC_INVALID_END_DATE');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: raise G_EXCEPTION_HALT_VALIDATION;
569: END IF;
570: END IF;
563: IF p_srev_rec.start_date IS NOT NULL AND
564: p_srev_rec.end_date IS NOT NULL THEN
565: IF p_srev_rec.end_date < p_srev_rec.start_date THEN
566: OKC_API.set_message(G_APP_NAME, 'OKC_INVALID_END_DATE');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: raise G_EXCEPTION_HALT_VALIDATION;
569: END IF;
570: END IF;
571: l_return_status := validate_foreign_keys (p_srev_rec);
568: raise G_EXCEPTION_HALT_VALIDATION;
569: END IF;
570: END IF;
571: l_return_status := validate_foreign_keys (p_srev_rec);
572: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
573: raise G_EXCEPTION_HALT_VALIDATION;
574: END IF;
575: l_return_status := validate_unique_keys (p_srev_rec);
576: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
572: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
573: raise G_EXCEPTION_HALT_VALIDATION;
574: END IF;
575: l_return_status := validate_unique_keys (p_srev_rec);
576: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
577: raise G_EXCEPTION_HALT_VALIDATION;
578: END IF;
579: RETURN (l_return_status);
580: EXCEPTION
580: EXCEPTION
581: WHEN G_EXCEPTION_HALT_VALIDATION THEN
582: RETURN(l_return_status);
583: WHEN OTHERS THEN
584: OKC_API.set_message(p_app_name => g_app_name,
585: p_msg_name => g_unexpected_error,
586: p_token1 => g_sqlcode_token,
587: p_token1_value => sqlcode,
588: p_token2 => g_sqlerrm_token,
586: p_token1 => g_sqlcode_token,
587: p_token1_value => sqlcode,
588: p_token2 => g_sqlerrm_token,
589: p_token2_value => sqlerrm);
590: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
591: RETURN(l_return_status);
592: END Validate_Record;
593:
594: ---------------------------------------------------------------------------
646: p_srev_rec IN srev_rec_type) IS
647:
648: l_api_version CONSTANT NUMBER := 1;
649: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
651: l_srev_rec srev_rec_type := p_srev_rec;
652: l_sre_rec sre_rec_type;
653: BEGIN
654: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
650: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
651: l_srev_rec srev_rec_type := p_srev_rec;
652: l_sre_rec sre_rec_type;
653: BEGIN
654: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
655: G_PKG_NAME,
656: p_init_msg_list,
657: l_api_version,
658: p_api_version,
657: l_api_version,
658: p_api_version,
659: '_PVT',
660: x_return_status);
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: RAISE OKC_API.G_EXCEPTION_ERROR;
665: END IF;
658: p_api_version,
659: '_PVT',
660: x_return_status);
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: RAISE OKC_API.G_EXCEPTION_ERROR;
665: END IF;
666: --- Validate all non-missing attributes (Item Level Validation)
659: '_PVT',
660: x_return_status);
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: RAISE OKC_API.G_EXCEPTION_ERROR;
665: END IF;
666: --- Validate all non-missing attributes (Item Level Validation)
667: l_return_status := Validate_Attributes(l_srev_rec);
660: x_return_status);
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: RAISE OKC_API.G_EXCEPTION_ERROR;
665: END IF;
666: --- Validate all non-missing attributes (Item Level Validation)
667: l_return_status := Validate_Attributes(l_srev_rec);
668: --- If any errors happen abort API
665: END IF;
666: --- Validate all non-missing attributes (Item Level Validation)
667: l_return_status := Validate_Attributes(l_srev_rec);
668: --- If any errors happen abort API
669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
666: --- Validate all non-missing attributes (Item Level Validation)
667: l_return_status := Validate_Attributes(l_srev_rec);
668: --- If any errors happen abort API
669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
667: l_return_status := Validate_Attributes(l_srev_rec);
668: --- If any errors happen abort API
669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
668: --- If any errors happen abort API
669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
677: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
672: RAISE OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
677: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
673: END IF;
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
677: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681: EXCEPTION
674: l_return_status := Validate_Record(l_srev_rec);
675: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
677: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681: EXCEPTION
682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
677: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681: EXCEPTION
682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
684: (
678: RAISE OKC_API.G_EXCEPTION_ERROR;
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681: EXCEPTION
682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
684: (
685: l_api_name,
686: G_PKG_NAME,
679: END IF;
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681: EXCEPTION
682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
684: (
685: l_api_name,
686: G_PKG_NAME,
687: 'OKC_API.G_RET_STS_ERROR',
683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
684: (
685: l_api_name,
686: G_PKG_NAME,
687: 'OKC_API.G_RET_STS_ERROR',
688: x_msg_count,
689: x_msg_data,
690: '_PVT'
691: );
688: x_msg_count,
689: x_msg_data,
690: '_PVT'
691: );
692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
693: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
694: (
695: l_api_name,
696: G_PKG_NAME,
689: x_msg_data,
690: '_PVT'
691: );
692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
693: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
694: (
695: l_api_name,
696: G_PKG_NAME,
697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
693: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
694: (
695: l_api_name,
696: G_PKG_NAME,
697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
698: x_msg_count,
699: x_msg_data,
700: '_PVT'
701: );
699: x_msg_data,
700: '_PVT'
701: );
702: WHEN OTHERS THEN
703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
704: (
705: l_api_name,
706: G_PKG_NAME,
707: 'OTHERS',
722: p_srev_tbl IN srev_tbl_type) IS
723:
724: l_api_version CONSTANT NUMBER := 1;
725: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
726: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
727: i NUMBER := 0;
728: BEGIN
729: OKC_API.init_msg_list(p_init_msg_list);
730: -- Make sure PL/SQL table has records in it before passing
725: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
726: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
727: i NUMBER := 0;
728: BEGIN
729: OKC_API.init_msg_list(p_init_msg_list);
730: -- Make sure PL/SQL table has records in it before passing
731: IF (p_srev_tbl.COUNT > 0) THEN
732: i := p_srev_tbl.FIRST;
733: LOOP
732: i := p_srev_tbl.FIRST;
733: LOOP
734: validate_row (
735: p_api_version => p_api_version,
736: p_init_msg_list => OKC_API.G_FALSE,
737: x_return_status => x_return_status,
738: x_msg_count => x_msg_count,
739: x_msg_data => x_msg_data,
740: p_srev_rec => p_srev_tbl(i));
742: i := p_srev_tbl.NEXT(i);
743: END LOOP;
744: END IF;
745: EXCEPTION
746: WHEN OKC_API.G_EXCEPTION_ERROR THEN
747: x_return_status := OKC_API.HANDLE_EXCEPTIONS
748: (
749: l_api_name,
750: G_PKG_NAME,
743: END LOOP;
744: END IF;
745: EXCEPTION
746: WHEN OKC_API.G_EXCEPTION_ERROR THEN
747: x_return_status := OKC_API.HANDLE_EXCEPTIONS
748: (
749: l_api_name,
750: G_PKG_NAME,
751: 'OKC_API.G_RET_STS_ERROR',
747: x_return_status := OKC_API.HANDLE_EXCEPTIONS
748: (
749: l_api_name,
750: G_PKG_NAME,
751: 'OKC_API.G_RET_STS_ERROR',
752: x_msg_count,
753: x_msg_data,
754: '_PVT'
755: );
752: x_msg_count,
753: x_msg_data,
754: '_PVT'
755: );
756: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
757: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
753: x_msg_data,
754: '_PVT'
755: );
756: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
757: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
761: 'OKC_API.G_RET_STS_UNEXP_ERROR',
757: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
761: 'OKC_API.G_RET_STS_UNEXP_ERROR',
762: x_msg_count,
763: x_msg_data,
764: '_PVT'
765: );
763: x_msg_data,
764: '_PVT'
765: );
766: WHEN OTHERS THEN
767: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
768: (
769: l_api_name,
770: G_PKG_NAME,
771: 'OTHERS',
790: x_sre_rec OUT NOCOPY sre_rec_type) IS
791:
792: l_api_version CONSTANT NUMBER := 1;
793: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_insert_row';
794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
795: l_sre_rec sre_rec_type := p_sre_rec;
796: l_def_sre_rec sre_rec_type;
797: -------------------------------------------
798: -- Set_Attributes for:OKC_SUBCLASS_ROLES --
800: FUNCTION Set_Attributes (
801: p_sre_rec IN sre_rec_type,
802: x_sre_rec OUT NOCOPY sre_rec_type
803: ) RETURN VARCHAR2 IS
804: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
805: BEGIN
806: x_sre_rec := p_sre_rec;
807: RETURN(l_return_status);
808: END Set_Attributes;
806: x_sre_rec := p_sre_rec;
807: RETURN(l_return_status);
808: END Set_Attributes;
809: BEGIN
810: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
811: p_init_msg_list,
812: '_PVT',
813: x_return_status);
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
810: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
811: p_init_msg_list,
812: '_PVT',
813: x_return_status);
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
811: p_init_msg_list,
812: '_PVT',
813: x_return_status);
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: --- Setting item attributes
812: '_PVT',
813: x_return_status);
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: --- Setting item attributes
820: l_return_status := Set_Attributes(
813: x_return_status);
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: --- Setting item attributes
820: l_return_status := Set_Attributes(
821: p_sre_rec, -- IN
820: l_return_status := Set_Attributes(
821: p_sre_rec, -- IN
822: l_sre_rec); -- OUT
823: --- If any errors happen abort API
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_ERROR;
828: END IF;
821: p_sre_rec, -- IN
822: l_sre_rec); -- OUT
823: --- If any errors happen abort API
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: INSERT INTO OKC_SUBCLASS_ROLES(
822: l_sre_rec); -- OUT
823: --- If any errors happen abort API
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: INSERT INTO OKC_SUBCLASS_ROLES(
830: id,
823: --- If any errors happen abort API
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: INSERT INTO OKC_SUBCLASS_ROLES(
830: id,
831: scs_code,
853: l_sre_rec.end_date,
854: l_sre_rec.access_level);
855: -- Set OUT values
856: x_sre_rec := l_sre_rec;
857: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
858: EXCEPTION
859: WHEN OKC_API.G_EXCEPTION_ERROR THEN
860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
861: (
855: -- Set OUT values
856: x_sre_rec := l_sre_rec;
857: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
858: EXCEPTION
859: WHEN OKC_API.G_EXCEPTION_ERROR THEN
860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
861: (
862: l_api_name,
863: G_PKG_NAME,
856: x_sre_rec := l_sre_rec;
857: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
858: EXCEPTION
859: WHEN OKC_API.G_EXCEPTION_ERROR THEN
860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
861: (
862: l_api_name,
863: G_PKG_NAME,
864: 'OKC_API.G_RET_STS_ERROR',
860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
861: (
862: l_api_name,
863: G_PKG_NAME,
864: 'OKC_API.G_RET_STS_ERROR',
865: x_msg_count,
866: x_msg_data,
867: '_PVT'
868: );
865: x_msg_count,
866: x_msg_data,
867: '_PVT'
868: );
869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
870: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
871: (
872: l_api_name,
873: G_PKG_NAME,
866: x_msg_data,
867: '_PVT'
868: );
869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
870: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
871: (
872: l_api_name,
873: G_PKG_NAME,
874: 'OKC_API.G_RET_STS_UNEXP_ERROR',
870: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
871: (
872: l_api_name,
873: G_PKG_NAME,
874: 'OKC_API.G_RET_STS_UNEXP_ERROR',
875: x_msg_count,
876: x_msg_data,
877: '_PVT'
878: );
876: x_msg_data,
877: '_PVT'
878: );
879: WHEN OTHERS THEN
880: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
884: 'OTHERS',
900: x_srev_rec OUT NOCOPY srev_rec_type) IS
901:
902: l_api_version CONSTANT NUMBER := 1;
903: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
904: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
905: l_srev_rec srev_rec_type;
906: l_def_srev_rec srev_rec_type;
907: l_sre_rec sre_rec_type;
908: lx_sre_rec sre_rec_type;
927: FUNCTION Set_Attributes (
928: p_srev_rec IN srev_rec_type,
929: x_srev_rec OUT NOCOPY srev_rec_type
930: ) RETURN VARCHAR2 IS
931: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
932: BEGIN
933: x_srev_rec := p_srev_rec;
934: x_srev_rec.OBJECT_VERSION_NUMBER := 1;
935: RETURN(l_return_status);
934: x_srev_rec.OBJECT_VERSION_NUMBER := 1;
935: RETURN(l_return_status);
936: END Set_Attributes;
937: BEGIN
938: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
939: G_PKG_NAME,
940: p_init_msg_list,
941: l_api_version,
942: p_api_version,
941: l_api_version,
942: p_api_version,
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_api_version,
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: l_srev_rec := null_out_defaults(p_srev_rec);
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: l_srev_rec := null_out_defaults(p_srev_rec);
951: -- Set primary key value
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: l_srev_rec := null_out_defaults(p_srev_rec);
951: -- Set primary key value
952: l_srev_rec.ID := get_seq_id;
954: l_return_status := Set_Attributes(
955: l_srev_rec, -- IN
956: l_def_srev_rec); -- OUT
957: --- If any errors happen abort API
958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
961: RAISE OKC_API.G_EXCEPTION_ERROR;
962: END IF;
955: l_srev_rec, -- IN
956: l_def_srev_rec); -- OUT
957: --- If any errors happen abort API
958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
961: RAISE OKC_API.G_EXCEPTION_ERROR;
962: END IF;
963: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
956: l_def_srev_rec); -- OUT
957: --- If any errors happen abort API
958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
961: RAISE OKC_API.G_EXCEPTION_ERROR;
962: END IF;
963: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
964: --- Validate all non-missing attributes (Item Level Validation)
957: --- If any errors happen abort API
958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
961: RAISE OKC_API.G_EXCEPTION_ERROR;
962: END IF;
963: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
964: --- Validate all non-missing attributes (Item Level Validation)
965: l_return_status := Validate_Attributes(l_def_srev_rec);
963: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
964: --- Validate all non-missing attributes (Item Level Validation)
965: l_return_status := Validate_Attributes(l_def_srev_rec);
966: --- If any errors happen abort API
967: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
964: --- Validate all non-missing attributes (Item Level Validation)
965: l_return_status := Validate_Attributes(l_def_srev_rec);
966: --- If any errors happen abort API
967: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
965: l_return_status := Validate_Attributes(l_def_srev_rec);
966: --- If any errors happen abort API
967: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
966: --- If any errors happen abort API
967: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_ERROR;
977: END IF;
970: RAISE OKC_API.G_EXCEPTION_ERROR;
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_ERROR;
977: END IF;
978: --------------------------------------
971: END IF;
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_ERROR;
977: END IF;
978: --------------------------------------
979: -- Move VIEW record to "Child" records
972: l_return_status := Validate_Record(l_def_srev_rec);
973: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_ERROR;
977: END IF;
978: --------------------------------------
979: -- Move VIEW record to "Child" records
980: --------------------------------------
989: x_msg_data,
990: l_sre_rec,
991: lx_sre_rec
992: );
993: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
996: RAISE OKC_API.G_EXCEPTION_ERROR;
997: END IF;
990: l_sre_rec,
991: lx_sre_rec
992: );
993: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
996: RAISE OKC_API.G_EXCEPTION_ERROR;
997: END IF;
998: migrate(lx_sre_rec, l_def_srev_rec);
991: lx_sre_rec
992: );
993: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
996: RAISE OKC_API.G_EXCEPTION_ERROR;
997: END IF;
998: migrate(lx_sre_rec, l_def_srev_rec);
999: -- Set OUT values
992: );
993: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
996: RAISE OKC_API.G_EXCEPTION_ERROR;
997: END IF;
998: migrate(lx_sre_rec, l_def_srev_rec);
999: -- Set OUT values
1000: x_srev_rec := l_def_srev_rec;
997: END IF;
998: migrate(lx_sre_rec, l_def_srev_rec);
999: -- Set OUT values
1000: x_srev_rec := l_def_srev_rec;
1001: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1002: EXCEPTION
1003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1005: (
999: -- Set OUT values
1000: x_srev_rec := l_def_srev_rec;
1001: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1002: EXCEPTION
1003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1005: (
1006: l_api_name,
1007: G_PKG_NAME,
1000: x_srev_rec := l_def_srev_rec;
1001: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1002: EXCEPTION
1003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1005: (
1006: l_api_name,
1007: G_PKG_NAME,
1008: 'OKC_API.G_RET_STS_ERROR',
1004: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1005: (
1006: l_api_name,
1007: G_PKG_NAME,
1008: 'OKC_API.G_RET_STS_ERROR',
1009: x_msg_count,
1010: x_msg_data,
1011: '_PVT'
1012: );
1009: x_msg_count,
1010: x_msg_data,
1011: '_PVT'
1012: );
1013: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1014: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1010: x_msg_data,
1011: '_PVT'
1012: );
1013: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1014: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1018: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1014: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1018: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1019: x_msg_count,
1020: x_msg_data,
1021: '_PVT'
1022: );
1020: x_msg_data,
1021: '_PVT'
1022: );
1023: WHEN OTHERS THEN
1024: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1025: (
1026: l_api_name,
1027: G_PKG_NAME,
1028: 'OTHERS',
1044: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
1045:
1046: l_api_version CONSTANT NUMBER := 1;
1047: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1049: i NUMBER := 0;
1050: BEGIN
1051: OKC_API.init_msg_list(p_init_msg_list);
1052: -- Make sure PL/SQL table has records in it before passing
1047: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1049: i NUMBER := 0;
1050: BEGIN
1051: OKC_API.init_msg_list(p_init_msg_list);
1052: -- Make sure PL/SQL table has records in it before passing
1053: IF (p_srev_tbl.COUNT > 0) THEN
1054: i := p_srev_tbl.FIRST;
1055: LOOP
1054: i := p_srev_tbl.FIRST;
1055: LOOP
1056: insert_row (
1057: p_api_version => p_api_version,
1058: p_init_msg_list => OKC_API.G_FALSE,
1059: x_return_status => x_return_status,
1060: x_msg_count => x_msg_count,
1061: x_msg_data => x_msg_data,
1062: p_srev_rec => p_srev_tbl(i),
1065: i := p_srev_tbl.NEXT(i);
1066: END LOOP;
1067: END IF;
1068: EXCEPTION
1069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (
1072: l_api_name,
1073: G_PKG_NAME,
1066: END LOOP;
1067: END IF;
1068: EXCEPTION
1069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (
1072: l_api_name,
1073: G_PKG_NAME,
1074: 'OKC_API.G_RET_STS_ERROR',
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (
1072: l_api_name,
1073: G_PKG_NAME,
1074: 'OKC_API.G_RET_STS_ERROR',
1075: x_msg_count,
1076: x_msg_data,
1077: '_PVT'
1078: );
1075: x_msg_count,
1076: x_msg_data,
1077: '_PVT'
1078: );
1079: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1080: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1081: (
1082: l_api_name,
1083: G_PKG_NAME,
1076: x_msg_data,
1077: '_PVT'
1078: );
1079: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1080: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1081: (
1082: l_api_name,
1083: G_PKG_NAME,
1084: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1080: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1081: (
1082: l_api_name,
1083: G_PKG_NAME,
1084: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1085: x_msg_count,
1086: x_msg_data,
1087: '_PVT'
1088: );
1086: x_msg_data,
1087: '_PVT'
1088: );
1089: WHEN OTHERS THEN
1090: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1091: (
1092: l_api_name,
1093: G_PKG_NAME,
1094: 'OTHERS',
1125: FROM OKC_SUBCLASS_ROLES
1126: WHERE ID = p_sre_rec.id;
1127: l_api_version CONSTANT NUMBER := 1;
1128: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_lock_row';
1129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1130: l_object_version_number OKC_SUBCLASS_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1131: lc_object_version_number OKC_SUBCLASS_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1132: l_row_notfound BOOLEAN := FALSE;
1133: lc_row_notfound BOOLEAN := FALSE;
1131: lc_object_version_number OKC_SUBCLASS_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1132: l_row_notfound BOOLEAN := FALSE;
1133: lc_row_notfound BOOLEAN := FALSE;
1134: BEGIN
1135: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1136: p_init_msg_list,
1137: '_PVT',
1138: x_return_status);
1139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1135: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1136: p_init_msg_list,
1137: '_PVT',
1138: x_return_status);
1139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1142: RAISE OKC_API.G_EXCEPTION_ERROR;
1143: END IF;
1136: p_init_msg_list,
1137: '_PVT',
1138: x_return_status);
1139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1142: RAISE OKC_API.G_EXCEPTION_ERROR;
1143: END IF;
1144: BEGIN
1137: '_PVT',
1138: x_return_status);
1139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1142: RAISE OKC_API.G_EXCEPTION_ERROR;
1143: END IF;
1144: BEGIN
1145: OPEN lock_csr(p_sre_rec);
1138: x_return_status);
1139: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1140: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1141: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1142: RAISE OKC_API.G_EXCEPTION_ERROR;
1143: END IF;
1144: BEGIN
1145: OPEN lock_csr(p_sre_rec);
1146: FETCH lock_csr INTO l_object_version_number;
1150: WHEN E_Resource_Busy THEN
1151: IF (lock_csr%ISOPEN) THEN
1152: CLOSE lock_csr;
1153: END IF;
1154: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1155: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1156: END;
1157:
1158: IF ( l_row_notfound ) THEN
1161: lc_row_notfound := lchk_csr%NOTFOUND;
1162: CLOSE lchk_csr;
1163: END IF;
1164: IF (lc_row_notfound) THEN
1165: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1166: RAISE OKC_API.G_EXCEPTION_ERROR;
1167: ELSIF lc_object_version_number > p_sre_rec.object_version_number THEN
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: CLOSE lchk_csr;
1163: END IF;
1164: IF (lc_row_notfound) THEN
1165: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1166: RAISE OKC_API.G_EXCEPTION_ERROR;
1167: ELSIF lc_object_version_number > p_sre_rec.object_version_number THEN
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1164: IF (lc_row_notfound) THEN
1165: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1166: RAISE OKC_API.G_EXCEPTION_ERROR;
1167: ELSIF lc_object_version_number > p_sre_rec.object_version_number THEN
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1165: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1166: RAISE OKC_API.G_EXCEPTION_ERROR;
1167: ELSIF lc_object_version_number > p_sre_rec.object_version_number THEN
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: ELSIF lc_object_version_number = -1 THEN
1167: ELSIF lc_object_version_number > p_sre_rec.object_version_number THEN
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: ELSIF lc_object_version_number = -1 THEN
1174: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: ELSIF lc_object_version_number = -1 THEN
1174: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: END IF;
1170: ELSIF lc_object_version_number <> p_sre_rec.object_version_number THEN
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: ELSIF lc_object_version_number = -1 THEN
1174: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: END IF;
1177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1178: EXCEPTION
1171: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1172: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: ELSIF lc_object_version_number = -1 THEN
1174: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: END IF;
1177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1178: EXCEPTION
1179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1173: ELSIF lc_object_version_number = -1 THEN
1174: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: END IF;
1177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1178: EXCEPTION
1179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1181: (
1175: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: END IF;
1177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1178: EXCEPTION
1179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1181: (
1182: l_api_name,
1183: G_PKG_NAME,
1176: END IF;
1177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1178: EXCEPTION
1179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1181: (
1182: l_api_name,
1183: G_PKG_NAME,
1184: 'OKC_API.G_RET_STS_ERROR',
1180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1181: (
1182: l_api_name,
1183: G_PKG_NAME,
1184: 'OKC_API.G_RET_STS_ERROR',
1185: x_msg_count,
1186: x_msg_data,
1187: '_PVT'
1188: );
1185: x_msg_count,
1186: x_msg_data,
1187: '_PVT'
1188: );
1189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1190: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name,
1193: G_PKG_NAME,
1186: x_msg_data,
1187: '_PVT'
1188: );
1189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1190: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name,
1193: G_PKG_NAME,
1194: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1190: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name,
1193: G_PKG_NAME,
1194: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1195: x_msg_count,
1196: x_msg_data,
1197: '_PVT'
1198: );
1196: x_msg_data,
1197: '_PVT'
1198: );
1199: WHEN OTHERS THEN
1200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name,
1203: G_PKG_NAME,
1204: 'OTHERS',
1219: p_srev_rec IN srev_rec_type) IS
1220:
1221: l_api_version CONSTANT NUMBER := 1;
1222: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1223: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1224: l_sre_rec sre_rec_type;
1225: BEGIN
1226: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1227: G_PKG_NAME,
1222: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1223: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1224: l_sre_rec sre_rec_type;
1225: BEGIN
1226: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1227: G_PKG_NAME,
1228: p_init_msg_list,
1229: l_api_version,
1230: p_api_version,
1229: l_api_version,
1230: p_api_version,
1231: '_PVT',
1232: x_return_status);
1233: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_ERROR;
1237: END IF;
1230: p_api_version,
1231: '_PVT',
1232: x_return_status);
1233: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: --------------------------------------
1231: '_PVT',
1232: x_return_status);
1233: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: --------------------------------------
1239: -- Move VIEW record to "Child" records
1232: x_return_status);
1233: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: --------------------------------------
1239: -- Move VIEW record to "Child" records
1240: --------------------------------------
1248: x_msg_count,
1249: x_msg_data,
1250: l_sre_rec
1251: );
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1249: x_msg_data,
1250: l_sre_rec
1251: );
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1250: l_sre_rec
1251: );
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1258: EXCEPTION
1251: );
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1258: EXCEPTION
1259: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1258: EXCEPTION
1259: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1261: (
1255: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1258: EXCEPTION
1259: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1261: (
1262: l_api_name,
1263: G_PKG_NAME,
1256: END IF;
1257: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1258: EXCEPTION
1259: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1261: (
1262: l_api_name,
1263: G_PKG_NAME,
1264: 'OKC_API.G_RET_STS_ERROR',
1260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1261: (
1262: l_api_name,
1263: G_PKG_NAME,
1264: 'OKC_API.G_RET_STS_ERROR',
1265: x_msg_count,
1266: x_msg_data,
1267: '_PVT'
1268: );
1265: x_msg_count,
1266: x_msg_data,
1267: '_PVT'
1268: );
1269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1266: x_msg_data,
1267: '_PVT'
1268: );
1269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1274: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1274: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count,
1276: x_msg_data,
1277: '_PVT'
1278: );
1276: x_msg_data,
1277: '_PVT'
1278: );
1279: WHEN OTHERS THEN
1280: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1281: (
1282: l_api_name,
1283: G_PKG_NAME,
1284: 'OTHERS',
1299: p_srev_tbl IN srev_tbl_type) IS
1300:
1301: l_api_version CONSTANT NUMBER := 1;
1302: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1304: i NUMBER := 0;
1305: BEGIN
1306: OKC_API.init_msg_list(p_init_msg_list);
1307: -- Make sure PL/SQL table has records in it before passing
1302: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1304: i NUMBER := 0;
1305: BEGIN
1306: OKC_API.init_msg_list(p_init_msg_list);
1307: -- Make sure PL/SQL table has records in it before passing
1308: IF (p_srev_tbl.COUNT > 0) THEN
1309: i := p_srev_tbl.FIRST;
1310: LOOP
1309: i := p_srev_tbl.FIRST;
1310: LOOP
1311: lock_row (
1312: p_api_version => p_api_version,
1313: p_init_msg_list => OKC_API.G_FALSE,
1314: x_return_status => x_return_status,
1315: x_msg_count => x_msg_count,
1316: x_msg_data => x_msg_data,
1317: p_srev_rec => p_srev_tbl(i));
1319: i := p_srev_tbl.NEXT(i);
1320: END LOOP;
1321: END IF;
1322: EXCEPTION
1323: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1324: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1320: END LOOP;
1321: END IF;
1322: EXCEPTION
1323: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1324: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1328: 'OKC_API.G_RET_STS_ERROR',
1324: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1328: 'OKC_API.G_RET_STS_ERROR',
1329: x_msg_count,
1330: x_msg_data,
1331: '_PVT'
1332: );
1329: x_msg_count,
1330: x_msg_data,
1331: '_PVT'
1332: );
1333: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1334: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1330: x_msg_data,
1331: '_PVT'
1332: );
1333: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1334: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1338: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1334: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1338: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1339: x_msg_count,
1340: x_msg_data,
1341: '_PVT'
1342: );
1340: x_msg_data,
1341: '_PVT'
1342: );
1343: WHEN OTHERS THEN
1344: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1345: (
1346: l_api_name,
1347: G_PKG_NAME,
1348: 'OTHERS',
1367: x_sre_rec OUT NOCOPY sre_rec_type) IS
1368:
1369: l_api_version CONSTANT NUMBER := 1;
1370: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_update_row';
1371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1372: l_sre_rec sre_rec_type := p_sre_rec;
1373: l_def_sre_rec sre_rec_type;
1374: l_row_notfound BOOLEAN := TRUE;
1375: ----------------------------------
1380: x_sre_rec OUT NOCOPY sre_rec_type
1381: ) RETURN VARCHAR2 IS
1382: l_sre_rec sre_rec_type;
1383: l_row_notfound BOOLEAN := TRUE;
1384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1385: BEGIN
1386: x_sre_rec := p_sre_rec;
1387: -- Get current database values
1388: l_sre_rec := get_rec(p_sre_rec, l_row_notfound);
1386: x_sre_rec := p_sre_rec;
1387: -- Get current database values
1388: l_sre_rec := get_rec(p_sre_rec, l_row_notfound);
1389: IF (l_row_notfound) THEN
1390: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1391: END IF;
1392: IF (x_sre_rec.id = OKC_API.G_MISS_NUM)
1393: THEN
1394: x_sre_rec.id := l_sre_rec.id;
1388: l_sre_rec := get_rec(p_sre_rec, l_row_notfound);
1389: IF (l_row_notfound) THEN
1390: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1391: END IF;
1392: IF (x_sre_rec.id = OKC_API.G_MISS_NUM)
1393: THEN
1394: x_sre_rec.id := l_sre_rec.id;
1395: END IF;
1396: IF (x_sre_rec.scs_code = OKC_API.G_MISS_CHAR)
1392: IF (x_sre_rec.id = OKC_API.G_MISS_NUM)
1393: THEN
1394: x_sre_rec.id := l_sre_rec.id;
1395: END IF;
1396: IF (x_sre_rec.scs_code = OKC_API.G_MISS_CHAR)
1397: THEN
1398: x_sre_rec.scs_code := l_sre_rec.scs_code;
1399: END IF;
1400: IF (x_sre_rec.rle_code = OKC_API.G_MISS_CHAR)
1396: IF (x_sre_rec.scs_code = OKC_API.G_MISS_CHAR)
1397: THEN
1398: x_sre_rec.scs_code := l_sre_rec.scs_code;
1399: END IF;
1400: IF (x_sre_rec.rle_code = OKC_API.G_MISS_CHAR)
1401: THEN
1402: x_sre_rec.rle_code := l_sre_rec.rle_code;
1403: END IF;
1404: IF (x_sre_rec.object_version_number = OKC_API.G_MISS_NUM)
1400: IF (x_sre_rec.rle_code = OKC_API.G_MISS_CHAR)
1401: THEN
1402: x_sre_rec.rle_code := l_sre_rec.rle_code;
1403: END IF;
1404: IF (x_sre_rec.object_version_number = OKC_API.G_MISS_NUM)
1405: THEN
1406: x_sre_rec.object_version_number := l_sre_rec.object_version_number;
1407: END IF;
1408: IF (x_sre_rec.created_by = OKC_API.G_MISS_NUM)
1404: IF (x_sre_rec.object_version_number = OKC_API.G_MISS_NUM)
1405: THEN
1406: x_sre_rec.object_version_number := l_sre_rec.object_version_number;
1407: END IF;
1408: IF (x_sre_rec.created_by = OKC_API.G_MISS_NUM)
1409: THEN
1410: x_sre_rec.created_by := l_sre_rec.created_by;
1411: END IF;
1412: IF (x_sre_rec.creation_date = OKC_API.G_MISS_DATE)
1408: IF (x_sre_rec.created_by = OKC_API.G_MISS_NUM)
1409: THEN
1410: x_sre_rec.created_by := l_sre_rec.created_by;
1411: END IF;
1412: IF (x_sre_rec.creation_date = OKC_API.G_MISS_DATE)
1413: THEN
1414: x_sre_rec.creation_date := l_sre_rec.creation_date;
1415: END IF;
1416: IF (x_sre_rec.last_updated_by = OKC_API.G_MISS_NUM)
1412: IF (x_sre_rec.creation_date = OKC_API.G_MISS_DATE)
1413: THEN
1414: x_sre_rec.creation_date := l_sre_rec.creation_date;
1415: END IF;
1416: IF (x_sre_rec.last_updated_by = OKC_API.G_MISS_NUM)
1417: THEN
1418: x_sre_rec.last_updated_by := l_sre_rec.last_updated_by;
1419: END IF;
1420: IF (x_sre_rec.last_update_date = OKC_API.G_MISS_DATE)
1416: IF (x_sre_rec.last_updated_by = OKC_API.G_MISS_NUM)
1417: THEN
1418: x_sre_rec.last_updated_by := l_sre_rec.last_updated_by;
1419: END IF;
1420: IF (x_sre_rec.last_update_date = OKC_API.G_MISS_DATE)
1421: THEN
1422: x_sre_rec.last_update_date := l_sre_rec.last_update_date;
1423: END IF;
1424: IF (x_sre_rec.last_update_login = OKC_API.G_MISS_NUM)
1420: IF (x_sre_rec.last_update_date = OKC_API.G_MISS_DATE)
1421: THEN
1422: x_sre_rec.last_update_date := l_sre_rec.last_update_date;
1423: END IF;
1424: IF (x_sre_rec.last_update_login = OKC_API.G_MISS_NUM)
1425: THEN
1426: x_sre_rec.last_update_login := l_sre_rec.last_update_login;
1427: END IF;
1428: IF (x_sre_rec.start_date = OKC_API.G_MISS_DATE)
1424: IF (x_sre_rec.last_update_login = OKC_API.G_MISS_NUM)
1425: THEN
1426: x_sre_rec.last_update_login := l_sre_rec.last_update_login;
1427: END IF;
1428: IF (x_sre_rec.start_date = OKC_API.G_MISS_DATE)
1429: THEN
1430: x_sre_rec.start_date := l_sre_rec.start_date;
1431: END IF;
1432: IF (x_sre_rec.end_date = OKC_API.G_MISS_DATE)
1428: IF (x_sre_rec.start_date = OKC_API.G_MISS_DATE)
1429: THEN
1430: x_sre_rec.start_date := l_sre_rec.start_date;
1431: END IF;
1432: IF (x_sre_rec.end_date = OKC_API.G_MISS_DATE)
1433: THEN
1434: x_sre_rec.end_date := l_sre_rec.end_date;
1435: END IF;
1436: IF (x_sre_rec.access_level = OKC_API.G_MISS_CHAR)
1432: IF (x_sre_rec.end_date = OKC_API.G_MISS_DATE)
1433: THEN
1434: x_sre_rec.end_date := l_sre_rec.end_date;
1435: END IF;
1436: IF (x_sre_rec.access_level = OKC_API.G_MISS_CHAR)
1437: THEN
1438: x_sre_rec.access_level := l_sre_rec.access_level;
1439: END IF;
1440: RETURN(l_return_status);
1445: FUNCTION Set_Attributes (
1446: p_sre_rec IN sre_rec_type,
1447: x_sre_rec OUT NOCOPY sre_rec_type
1448: ) RETURN VARCHAR2 IS
1449: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1450: BEGIN
1451: x_sre_rec := p_sre_rec;
1452: RETURN(l_return_status);
1453: END Set_Attributes;
1451: x_sre_rec := p_sre_rec;
1452: RETURN(l_return_status);
1453: END Set_Attributes;
1454: BEGIN
1455: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1456: p_init_msg_list,
1457: '_PVT',
1458: x_return_status);
1459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1456: p_init_msg_list,
1457: '_PVT',
1458: x_return_status);
1459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1462: RAISE OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1456: p_init_msg_list,
1457: '_PVT',
1458: x_return_status);
1459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1462: RAISE OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464: --- Setting item attributes
1457: '_PVT',
1458: x_return_status);
1459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1462: RAISE OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464: --- Setting item attributes
1465: l_return_status := Set_Attributes(
1458: x_return_status);
1459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1462: RAISE OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464: --- Setting item attributes
1465: l_return_status := Set_Attributes(
1466: p_sre_rec, -- IN
1465: l_return_status := Set_Attributes(
1466: p_sre_rec, -- IN
1467: l_sre_rec); -- OUT
1468: --- If any errors happen abort API
1469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1466: p_sre_rec, -- IN
1467: l_sre_rec); -- OUT
1468: --- If any errors happen abort API
1469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1467: l_sre_rec); -- OUT
1468: --- If any errors happen abort API
1469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1468: --- If any errors happen abort API
1469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1478: RAISE OKC_API.G_EXCEPTION_ERROR;
1479: END IF;
1472: RAISE OKC_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1478: RAISE OKC_API.G_EXCEPTION_ERROR;
1479: END IF;
1480: UPDATE OKC_SUBCLASS_ROLES
1473: END IF;
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1478: RAISE OKC_API.G_EXCEPTION_ERROR;
1479: END IF;
1480: UPDATE OKC_SUBCLASS_ROLES
1481: SET SCS_CODE = l_def_sre_rec.scs_code,
1474: l_return_status := populate_new_record(l_sre_rec, l_def_sre_rec);
1475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1478: RAISE OKC_API.G_EXCEPTION_ERROR;
1479: END IF;
1480: UPDATE OKC_SUBCLASS_ROLES
1481: SET SCS_CODE = l_def_sre_rec.scs_code,
1482: RLE_CODE = l_def_sre_rec.rle_code,
1491: ACCESS_LEVEL = l_def_sre_rec.access_level
1492: WHERE ID = l_def_sre_rec.id;
1493:
1494: x_sre_rec := l_def_sre_rec;
1495: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1496: EXCEPTION
1497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1499: (
1493:
1494: x_sre_rec := l_def_sre_rec;
1495: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1496: EXCEPTION
1497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1494: x_sre_rec := l_def_sre_rec;
1495: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1496: EXCEPTION
1497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKC_API.G_RET_STS_ERROR',
1498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKC_API.G_RET_STS_ERROR',
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT'
1506: );
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT'
1506: );
1507: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1508: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1509: (
1510: l_api_name,
1511: G_PKG_NAME,
1504: x_msg_data,
1505: '_PVT'
1506: );
1507: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1508: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1509: (
1510: l_api_name,
1511: G_PKG_NAME,
1512: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1508: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1509: (
1510: l_api_name,
1511: G_PKG_NAME,
1512: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1513: x_msg_count,
1514: x_msg_data,
1515: '_PVT'
1516: );
1514: x_msg_data,
1515: '_PVT'
1516: );
1517: WHEN OTHERS THEN
1518: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1519: (
1520: l_api_name,
1521: G_PKG_NAME,
1522: 'OTHERS',
1538: x_srev_rec OUT NOCOPY srev_rec_type) IS
1539:
1540: l_api_version CONSTANT NUMBER := 1;
1541: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1543: l_srev_rec srev_rec_type := p_srev_rec;
1544: l_def_srev_rec srev_rec_type;
1545: l_sre_rec sre_rec_type;
1546: lx_sre_rec sre_rec_type;
1565: x_srev_rec OUT NOCOPY srev_rec_type
1566: ) RETURN VARCHAR2 IS
1567: l_srev_rec srev_rec_type;
1568: l_row_notfound BOOLEAN := TRUE;
1569: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1570: BEGIN
1571: x_srev_rec := p_srev_rec;
1572: -- Get current database values
1573: l_srev_rec := get_rec(p_srev_rec, l_row_notfound);
1571: x_srev_rec := p_srev_rec;
1572: -- Get current database values
1573: l_srev_rec := get_rec(p_srev_rec, l_row_notfound);
1574: IF (l_row_notfound) THEN
1575: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1576: END IF;
1577: IF (x_srev_rec.id = OKC_API.G_MISS_NUM)
1578: THEN
1579: x_srev_rec.id := l_srev_rec.id;
1573: l_srev_rec := get_rec(p_srev_rec, l_row_notfound);
1574: IF (l_row_notfound) THEN
1575: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1576: END IF;
1577: IF (x_srev_rec.id = OKC_API.G_MISS_NUM)
1578: THEN
1579: x_srev_rec.id := l_srev_rec.id;
1580: END IF;
1581: IF (x_srev_rec.object_version_number = OKC_API.G_MISS_NUM)
1577: IF (x_srev_rec.id = OKC_API.G_MISS_NUM)
1578: THEN
1579: x_srev_rec.id := l_srev_rec.id;
1580: END IF;
1581: IF (x_srev_rec.object_version_number = OKC_API.G_MISS_NUM)
1582: THEN
1583: x_srev_rec.object_version_number := l_srev_rec.object_version_number;
1584: END IF;
1585: IF (x_srev_rec.rle_code = OKC_API.G_MISS_CHAR)
1581: IF (x_srev_rec.object_version_number = OKC_API.G_MISS_NUM)
1582: THEN
1583: x_srev_rec.object_version_number := l_srev_rec.object_version_number;
1584: END IF;
1585: IF (x_srev_rec.rle_code = OKC_API.G_MISS_CHAR)
1586: THEN
1587: x_srev_rec.rle_code := l_srev_rec.rle_code;
1588: END IF;
1589: IF (x_srev_rec.scs_code = OKC_API.G_MISS_CHAR)
1585: IF (x_srev_rec.rle_code = OKC_API.G_MISS_CHAR)
1586: THEN
1587: x_srev_rec.rle_code := l_srev_rec.rle_code;
1588: END IF;
1589: IF (x_srev_rec.scs_code = OKC_API.G_MISS_CHAR)
1590: THEN
1591: x_srev_rec.scs_code := l_srev_rec.scs_code;
1592: END IF;
1593: IF (x_srev_rec.created_by = OKC_API.G_MISS_NUM)
1589: IF (x_srev_rec.scs_code = OKC_API.G_MISS_CHAR)
1590: THEN
1591: x_srev_rec.scs_code := l_srev_rec.scs_code;
1592: END IF;
1593: IF (x_srev_rec.created_by = OKC_API.G_MISS_NUM)
1594: THEN
1595: x_srev_rec.created_by := l_srev_rec.created_by;
1596: END IF;
1597: IF (x_srev_rec.creation_date = OKC_API.G_MISS_DATE)
1593: IF (x_srev_rec.created_by = OKC_API.G_MISS_NUM)
1594: THEN
1595: x_srev_rec.created_by := l_srev_rec.created_by;
1596: END IF;
1597: IF (x_srev_rec.creation_date = OKC_API.G_MISS_DATE)
1598: THEN
1599: x_srev_rec.creation_date := l_srev_rec.creation_date;
1600: END IF;
1601: IF (x_srev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1597: IF (x_srev_rec.creation_date = OKC_API.G_MISS_DATE)
1598: THEN
1599: x_srev_rec.creation_date := l_srev_rec.creation_date;
1600: END IF;
1601: IF (x_srev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1602: THEN
1603: x_srev_rec.last_updated_by := l_srev_rec.last_updated_by;
1604: END IF;
1605: IF (x_srev_rec.last_update_date = OKC_API.G_MISS_DATE)
1601: IF (x_srev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1602: THEN
1603: x_srev_rec.last_updated_by := l_srev_rec.last_updated_by;
1604: END IF;
1605: IF (x_srev_rec.last_update_date = OKC_API.G_MISS_DATE)
1606: THEN
1607: x_srev_rec.last_update_date := l_srev_rec.last_update_date;
1608: END IF;
1609: IF (x_srev_rec.last_update_login = OKC_API.G_MISS_NUM)
1605: IF (x_srev_rec.last_update_date = OKC_API.G_MISS_DATE)
1606: THEN
1607: x_srev_rec.last_update_date := l_srev_rec.last_update_date;
1608: END IF;
1609: IF (x_srev_rec.last_update_login = OKC_API.G_MISS_NUM)
1610: THEN
1611: x_srev_rec.last_update_login := l_srev_rec.last_update_login;
1612: END IF;
1613: IF (x_srev_rec.start_date = OKC_API.G_MISS_DATE)
1609: IF (x_srev_rec.last_update_login = OKC_API.G_MISS_NUM)
1610: THEN
1611: x_srev_rec.last_update_login := l_srev_rec.last_update_login;
1612: END IF;
1613: IF (x_srev_rec.start_date = OKC_API.G_MISS_DATE)
1614: THEN
1615: x_srev_rec.start_date := l_srev_rec.start_date;
1616: END IF;
1617: IF (x_srev_rec.end_date = OKC_API.G_MISS_DATE)
1613: IF (x_srev_rec.start_date = OKC_API.G_MISS_DATE)
1614: THEN
1615: x_srev_rec.start_date := l_srev_rec.start_date;
1616: END IF;
1617: IF (x_srev_rec.end_date = OKC_API.G_MISS_DATE)
1618: THEN
1619: x_srev_rec.end_date := l_srev_rec.end_date;
1620: END IF;
1621: IF (x_srev_rec.access_level = OKC_API.G_MISS_CHAR)
1617: IF (x_srev_rec.end_date = OKC_API.G_MISS_DATE)
1618: THEN
1619: x_srev_rec.end_date := l_srev_rec.end_date;
1620: END IF;
1621: IF (x_srev_rec.access_level = OKC_API.G_MISS_CHAR)
1622: THEN
1623: x_srev_rec.access_level := l_srev_rec.access_level;
1624: END IF;
1625: RETURN(l_return_status);
1630: FUNCTION Set_Attributes (
1631: p_srev_rec IN srev_rec_type,
1632: x_srev_rec OUT NOCOPY srev_rec_type
1633: ) RETURN VARCHAR2 IS
1634: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1635: BEGIN
1636: x_srev_rec := p_srev_rec;
1637: x_srev_rec.OBJECT_VERSION_NUMBER := NVL(x_srev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1638: RETURN(l_return_status);
1637: x_srev_rec.OBJECT_VERSION_NUMBER := NVL(x_srev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1638: RETURN(l_return_status);
1639: END Set_Attributes;
1640: BEGIN
1641: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1642: G_PKG_NAME,
1643: p_init_msg_list,
1644: l_api_version,
1645: p_api_version,
1644: l_api_version,
1645: p_api_version,
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1645: p_api_version,
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1654: l_return_status := Set_Attributes(
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1654: l_return_status := Set_Attributes(
1655: p_srev_rec, -- IN
1654: l_return_status := Set_Attributes(
1655: p_srev_rec, -- IN
1656: l_srev_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1655: p_srev_rec, -- IN
1656: l_srev_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1656: l_srev_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
1662: END IF;
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
1670: --- Validate all non-missing attributes (Item Level Validation)
1663: l_return_status := populate_new_record(l_srev_rec, l_def_srev_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
1670: --- Validate all non-missing attributes (Item Level Validation)
1671: l_return_status := Validate_Attributes(l_def_srev_rec);
1669: l_def_srev_rec := fill_who_columns(l_def_srev_rec);
1670: --- Validate all non-missing attributes (Item Level Validation)
1671: l_return_status := Validate_Attributes(l_def_srev_rec);
1672: --- If any errors happen abort API
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1670: --- Validate all non-missing attributes (Item Level Validation)
1671: l_return_status := Validate_Attributes(l_def_srev_rec);
1672: --- If any errors happen abort API
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1671: l_return_status := Validate_Attributes(l_def_srev_rec);
1672: --- If any errors happen abort API
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1672: --- If any errors happen abort API
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1682: RAISE OKC_API.G_EXCEPTION_ERROR;
1683: END IF;
1676: RAISE OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1682: RAISE OKC_API.G_EXCEPTION_ERROR;
1683: END IF;
1684:
1677: END IF;
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1682: RAISE OKC_API.G_EXCEPTION_ERROR;
1683: END IF;
1684:
1685: --------------------------------------
1678: l_return_status := Validate_Record(l_def_srev_rec);
1679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1682: RAISE OKC_API.G_EXCEPTION_ERROR;
1683: END IF;
1684:
1685: --------------------------------------
1686: -- Move VIEW record to "Child" records
1696: x_msg_data,
1697: l_sre_rec,
1698: lx_sre_rec
1699: );
1700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1697: l_sre_rec,
1698: lx_sre_rec
1699: );
1700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: migrate(lx_sre_rec, l_def_srev_rec);
1698: lx_sre_rec
1699: );
1700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: migrate(lx_sre_rec, l_def_srev_rec);
1706: x_srev_rec := l_def_srev_rec;
1699: );
1700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: migrate(lx_sre_rec, l_def_srev_rec);
1706: x_srev_rec := l_def_srev_rec;
1707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: migrate(lx_sre_rec, l_def_srev_rec);
1706: x_srev_rec := l_def_srev_rec;
1707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1708: EXCEPTION
1709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1711: (
1705: migrate(lx_sre_rec, l_def_srev_rec);
1706: x_srev_rec := l_def_srev_rec;
1707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1708: EXCEPTION
1709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1711: (
1712: l_api_name,
1713: G_PKG_NAME,
1706: x_srev_rec := l_def_srev_rec;
1707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1708: EXCEPTION
1709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1711: (
1712: l_api_name,
1713: G_PKG_NAME,
1714: 'OKC_API.G_RET_STS_ERROR',
1710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1711: (
1712: l_api_name,
1713: G_PKG_NAME,
1714: 'OKC_API.G_RET_STS_ERROR',
1715: x_msg_count,
1716: x_msg_data,
1717: '_PVT'
1718: );
1715: x_msg_count,
1716: x_msg_data,
1717: '_PVT'
1718: );
1719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1721: (
1722: l_api_name,
1723: G_PKG_NAME,
1716: x_msg_data,
1717: '_PVT'
1718: );
1719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1721: (
1722: l_api_name,
1723: G_PKG_NAME,
1724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1721: (
1722: l_api_name,
1723: G_PKG_NAME,
1724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1725: x_msg_count,
1726: x_msg_data,
1727: '_PVT'
1728: );
1726: x_msg_data,
1727: '_PVT'
1728: );
1729: WHEN OTHERS THEN
1730: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1731: (
1732: l_api_name,
1733: G_PKG_NAME,
1734: 'OTHERS',
1750: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
1751:
1752: l_api_version CONSTANT NUMBER := 1;
1753: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1755: i NUMBER := 0;
1756: BEGIN
1757: OKC_API.init_msg_list(p_init_msg_list);
1758: -- Make sure PL/SQL table has records in it before passing
1753: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1755: i NUMBER := 0;
1756: BEGIN
1757: OKC_API.init_msg_list(p_init_msg_list);
1758: -- Make sure PL/SQL table has records in it before passing
1759: IF (p_srev_tbl.COUNT > 0) THEN
1760: i := p_srev_tbl.FIRST;
1761: LOOP
1760: i := p_srev_tbl.FIRST;
1761: LOOP
1762: update_row (
1763: p_api_version => p_api_version,
1764: p_init_msg_list => OKC_API.G_FALSE,
1765: x_return_status => x_return_status,
1766: x_msg_count => x_msg_count,
1767: x_msg_data => x_msg_data,
1768: p_srev_rec => p_srev_tbl(i),
1771: i := p_srev_tbl.NEXT(i);
1772: END LOOP;
1773: END IF;
1774: EXCEPTION
1775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1777: (
1778: l_api_name,
1779: G_PKG_NAME,
1772: END LOOP;
1773: END IF;
1774: EXCEPTION
1775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1777: (
1778: l_api_name,
1779: G_PKG_NAME,
1780: 'OKC_API.G_RET_STS_ERROR',
1776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1777: (
1778: l_api_name,
1779: G_PKG_NAME,
1780: 'OKC_API.G_RET_STS_ERROR',
1781: x_msg_count,
1782: x_msg_data,
1783: '_PVT'
1784: );
1781: x_msg_count,
1782: x_msg_data,
1783: '_PVT'
1784: );
1785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1787: (
1788: l_api_name,
1789: G_PKG_NAME,
1782: x_msg_data,
1783: '_PVT'
1784: );
1785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1787: (
1788: l_api_name,
1789: G_PKG_NAME,
1790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1787: (
1788: l_api_name,
1789: G_PKG_NAME,
1790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1791: x_msg_count,
1792: x_msg_data,
1793: '_PVT'
1794: );
1792: x_msg_data,
1793: '_PVT'
1794: );
1795: WHEN OTHERS THEN
1796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1797: (
1798: l_api_name,
1799: G_PKG_NAME,
1800: 'OTHERS',
1818: p_sre_rec IN sre_rec_type) IS
1819:
1820: l_api_version CONSTANT NUMBER := 1;
1821: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_delete_row';
1822: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1823: l_sre_rec sre_rec_type:= p_sre_rec;
1824: l_row_notfound BOOLEAN := TRUE;
1825: BEGIN
1826: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1822: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1823: l_sre_rec sre_rec_type:= p_sre_rec;
1824: l_row_notfound BOOLEAN := TRUE;
1825: BEGIN
1826: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1826: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: DELETE FROM OKC_SUBCLASS_ROLES
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: DELETE FROM OKC_SUBCLASS_ROLES
1836: WHERE ID = l_sre_rec.id;
1829: x_return_status);
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: DELETE FROM OKC_SUBCLASS_ROLES
1836: WHERE ID = l_sre_rec.id;
1837:
1834: END IF;
1835: DELETE FROM OKC_SUBCLASS_ROLES
1836: WHERE ID = l_sre_rec.id;
1837:
1838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1839: EXCEPTION
1840: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1841: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1842: (
1836: WHERE ID = l_sre_rec.id;
1837:
1838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1839: EXCEPTION
1840: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1841: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1842: (
1843: l_api_name,
1844: G_PKG_NAME,
1837:
1838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1839: EXCEPTION
1840: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1841: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1842: (
1843: l_api_name,
1844: G_PKG_NAME,
1845: 'OKC_API.G_RET_STS_ERROR',
1841: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1842: (
1843: l_api_name,
1844: G_PKG_NAME,
1845: 'OKC_API.G_RET_STS_ERROR',
1846: x_msg_count,
1847: x_msg_data,
1848: '_PVT'
1849: );
1846: x_msg_count,
1847: x_msg_data,
1848: '_PVT'
1849: );
1850: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1851: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1847: x_msg_data,
1848: '_PVT'
1849: );
1850: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1851: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1855: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1851: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1855: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1856: x_msg_count,
1857: x_msg_data,
1858: '_PVT'
1859: );
1857: x_msg_data,
1858: '_PVT'
1859: );
1860: WHEN OTHERS THEN
1861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1862: (
1863: l_api_name,
1864: G_PKG_NAME,
1865: 'OTHERS',
1880: p_srev_rec IN srev_rec_type) IS
1881:
1882: l_api_version CONSTANT NUMBER := 1;
1883: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1884: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1885: l_srev_rec srev_rec_type := p_srev_rec;
1886: l_sre_rec sre_rec_type;
1887: BEGIN
1888: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1884: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1885: l_srev_rec srev_rec_type := p_srev_rec;
1886: l_sre_rec sre_rec_type;
1887: BEGIN
1888: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1889: G_PKG_NAME,
1890: p_init_msg_list,
1891: l_api_version,
1892: p_api_version,
1891: l_api_version,
1892: p_api_version,
1893: '_PVT',
1894: x_return_status);
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_ERROR;
1899: END IF;
1892: p_api_version,
1893: '_PVT',
1894: x_return_status);
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_ERROR;
1899: END IF;
1900: --------------------------------------
1893: '_PVT',
1894: x_return_status);
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_ERROR;
1899: END IF;
1900: --------------------------------------
1901: -- Move VIEW record to "Child" records
1894: x_return_status);
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1897: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_ERROR;
1899: END IF;
1900: --------------------------------------
1901: -- Move VIEW record to "Child" records
1902: --------------------------------------
1910: x_msg_count,
1911: x_msg_data,
1912: l_sre_rec
1913: );
1914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1911: x_msg_data,
1912: l_sre_rec
1913: );
1914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1912: l_sre_rec
1913: );
1914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1913: );
1914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1923: (
1917: RAISE OKC_API.G_EXCEPTION_ERROR;
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1918: END IF;
1919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1920: EXCEPTION
1921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'OKC_API.G_RET_STS_ERROR',
1922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'OKC_API.G_RET_STS_ERROR',
1927: x_msg_count,
1928: x_msg_data,
1929: '_PVT'
1930: );
1927: x_msg_count,
1928: x_msg_data,
1929: '_PVT'
1930: );
1931: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1928: x_msg_data,
1929: '_PVT'
1930: );
1931: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1937: x_msg_count,
1938: x_msg_data,
1939: '_PVT'
1940: );
1938: x_msg_data,
1939: '_PVT'
1940: );
1941: WHEN OTHERS THEN
1942: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OTHERS',
1961: p_srev_tbl IN srev_tbl_type) IS
1962:
1963: l_api_version CONSTANT NUMBER := 1;
1964: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1965: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1966: i NUMBER := 0;
1967: BEGIN
1968: OKC_API.init_msg_list(p_init_msg_list);
1969: -- Make sure PL/SQL table has records in it before passing
1964: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1965: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1966: i NUMBER := 0;
1967: BEGIN
1968: OKC_API.init_msg_list(p_init_msg_list);
1969: -- Make sure PL/SQL table has records in it before passing
1970: IF (p_srev_tbl.COUNT > 0) THEN
1971: i := p_srev_tbl.FIRST;
1972: LOOP
1971: i := p_srev_tbl.FIRST;
1972: LOOP
1973: delete_row (
1974: p_api_version => p_api_version,
1975: p_init_msg_list => OKC_API.G_FALSE,
1976: x_return_status => x_return_status,
1977: x_msg_count => x_msg_count,
1978: x_msg_data => x_msg_data,
1979: p_srev_rec => p_srev_tbl(i));
1981: i := p_srev_tbl.NEXT(i);
1982: END LOOP;
1983: END IF;
1984: EXCEPTION
1985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1982: END LOOP;
1983: END IF;
1984: EXCEPTION
1985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKC_API.G_RET_STS_ERROR',
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKC_API.G_RET_STS_ERROR',
1991: x_msg_count,
1992: x_msg_data,
1993: '_PVT'
1994: );
1991: x_msg_count,
1992: x_msg_data,
1993: '_PVT'
1994: );
1995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
1992: x_msg_data,
1993: '_PVT'
1994: );
1995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
2000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
2000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2001: x_msg_count,
2002: x_msg_data,
2003: '_PVT'
2004: );
2002: x_msg_data,
2003: '_PVT'
2004: );
2005: WHEN OTHERS THEN
2006: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2007: (
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OTHERS',