148: p_srav_rec IN srav_rec_type
149: ) RETURN srav_rec_type IS
150: l_srav_rec srav_rec_type := p_srav_rec;
151: BEGIN
152: IF (l_srav_rec.resp_id = OKC_API.G_MISS_NUM) THEN
153: l_srav_rec.resp_id := NULL;
154: END IF;
155: IF (l_srav_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_srav_rec.scs_code := NULL;
151: BEGIN
152: IF (l_srav_rec.resp_id = OKC_API.G_MISS_NUM) THEN
153: l_srav_rec.resp_id := NULL;
154: END IF;
155: IF (l_srav_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_srav_rec.scs_code := NULL;
157: END IF;
158: IF (l_srav_rec.access_level = OKC_API.G_MISS_CHAR) THEN
159: l_srav_rec.access_level := NULL;
154: END IF;
155: IF (l_srav_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_srav_rec.scs_code := NULL;
157: END IF;
158: IF (l_srav_rec.access_level = OKC_API.G_MISS_CHAR) THEN
159: l_srav_rec.access_level := NULL;
160: END IF;
161: IF (l_srav_rec.start_date = OKC_API.G_MISS_DATE) THEN
162: l_srav_rec.start_date := NULL;
157: END IF;
158: IF (l_srav_rec.access_level = OKC_API.G_MISS_CHAR) THEN
159: l_srav_rec.access_level := NULL;
160: END IF;
161: IF (l_srav_rec.start_date = OKC_API.G_MISS_DATE) THEN
162: l_srav_rec.start_date := NULL;
163: END IF;
164: IF (l_srav_rec.end_date = OKC_API.G_MISS_DATE) THEN
165: l_srav_rec.end_date := NULL;
160: END IF;
161: IF (l_srav_rec.start_date = OKC_API.G_MISS_DATE) THEN
162: l_srav_rec.start_date := NULL;
163: END IF;
164: IF (l_srav_rec.end_date = OKC_API.G_MISS_DATE) THEN
165: l_srav_rec.end_date := NULL;
166: END IF;
167: IF (l_srav_rec.created_by = OKC_API.G_MISS_NUM) THEN
168: l_srav_rec.created_by := NULL;
163: END IF;
164: IF (l_srav_rec.end_date = OKC_API.G_MISS_DATE) THEN
165: l_srav_rec.end_date := NULL;
166: END IF;
167: IF (l_srav_rec.created_by = OKC_API.G_MISS_NUM) THEN
168: l_srav_rec.created_by := NULL;
169: END IF;
170: IF (l_srav_rec.creation_date = OKC_API.G_MISS_DATE) THEN
171: l_srav_rec.creation_date := NULL;
166: END IF;
167: IF (l_srav_rec.created_by = OKC_API.G_MISS_NUM) THEN
168: l_srav_rec.created_by := NULL;
169: END IF;
170: IF (l_srav_rec.creation_date = OKC_API.G_MISS_DATE) THEN
171: l_srav_rec.creation_date := NULL;
172: END IF;
173: IF (l_srav_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
174: l_srav_rec.last_updated_by := NULL;
169: END IF;
170: IF (l_srav_rec.creation_date = OKC_API.G_MISS_DATE) THEN
171: l_srav_rec.creation_date := NULL;
172: END IF;
173: IF (l_srav_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
174: l_srav_rec.last_updated_by := NULL;
175: END IF;
176: IF (l_srav_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
177: l_srav_rec.last_update_date := NULL;
172: END IF;
173: IF (l_srav_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
174: l_srav_rec.last_updated_by := NULL;
175: END IF;
176: IF (l_srav_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
177: l_srav_rec.last_update_date := NULL;
178: END IF;
179: IF (l_srav_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
180: l_srav_rec.last_update_login := NULL;
175: END IF;
176: IF (l_srav_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
177: l_srav_rec.last_update_date := NULL;
178: END IF;
179: IF (l_srav_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
180: l_srav_rec.last_update_login := NULL;
181: END IF;
182: RETURN(l_srav_rec);
183: END null_out_defaults;
189: ---------------------------------------------------------------------------
190: PROCEDURE validate_scs_code(
191: p_srav_rec IN srav_rec_type,
192: x_return_status OUT NOCOPY VARCHAR2) IS
193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
194: BEGIN
195: IF p_srav_rec.scs_code = OKC_API.G_MISS_CHAR OR
196: p_srav_rec.scs_code IS NULL
197: THEN
191: p_srav_rec IN srav_rec_type,
192: x_return_status OUT NOCOPY VARCHAR2) IS
193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
194: BEGIN
195: IF p_srav_rec.scs_code = OKC_API.G_MISS_CHAR OR
196: p_srav_rec.scs_code IS NULL
197: THEN
198: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
199: l_return_status := OKC_API.G_RET_STS_ERROR;
194: BEGIN
195: IF p_srav_rec.scs_code = OKC_API.G_MISS_CHAR OR
196: p_srav_rec.scs_code IS NULL
197: THEN
198: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
199: l_return_status := OKC_API.G_RET_STS_ERROR;
200: END IF;
201: x_return_status := l_return_status;
202: EXCEPTION
195: IF p_srav_rec.scs_code = OKC_API.G_MISS_CHAR OR
196: p_srav_rec.scs_code IS NULL
197: THEN
198: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'scs_code');
199: l_return_status := OKC_API.G_RET_STS_ERROR;
200: END IF;
201: x_return_status := l_return_status;
202: EXCEPTION
203: WHEN OTHERS THEN
201: x_return_status := l_return_status;
202: EXCEPTION
203: WHEN OTHERS THEN
204: -- store SQL error message on message stack for caller
205: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
206: -- notify caller of an UNEXPECTED error
207: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
208: END validate_scs_code;
209:
203: WHEN OTHERS THEN
204: -- store SQL error message on message stack for caller
205: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
206: -- notify caller of an UNEXPECTED error
207: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
208: END validate_scs_code;
209:
210: ---------------------------------------------------------------------------
211: -- PROCEDURE Validate_resp_id
212: ---------------------------------------------------------------------------
213: PROCEDURE validate_resp_id(
214: p_srav_rec IN srav_rec_type,
215: x_return_status OUT NOCOPY VARCHAR2) IS
216: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
217: BEGIN
218: IF p_srav_rec.resp_id = OKC_API.G_MISS_NUM OR
219: p_srav_rec.resp_id IS NULL
220: THEN
214: p_srav_rec IN srav_rec_type,
215: x_return_status OUT NOCOPY VARCHAR2) IS
216: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
217: BEGIN
218: IF p_srav_rec.resp_id = OKC_API.G_MISS_NUM OR
219: p_srav_rec.resp_id IS NULL
220: THEN
221: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'resp_id');
222: l_return_status := OKC_API.G_RET_STS_ERROR;
217: BEGIN
218: IF p_srav_rec.resp_id = OKC_API.G_MISS_NUM OR
219: p_srav_rec.resp_id IS NULL
220: THEN
221: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'resp_id');
222: l_return_status := OKC_API.G_RET_STS_ERROR;
223: END IF;
224: x_return_status := l_return_status;
225: EXCEPTION
218: IF p_srav_rec.resp_id = OKC_API.G_MISS_NUM OR
219: p_srav_rec.resp_id IS NULL
220: THEN
221: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'resp_id');
222: l_return_status := OKC_API.G_RET_STS_ERROR;
223: END IF;
224: x_return_status := l_return_status;
225: EXCEPTION
226: WHEN OTHERS THEN
224: x_return_status := l_return_status;
225: EXCEPTION
226: WHEN OTHERS THEN
227: -- store SQL error message on message stack for caller
228: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
229: -- notify caller of an UNEXPECTED error
230: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
231: END validate_resp_id;
232:
226: WHEN OTHERS THEN
227: -- store SQL error message on message stack for caller
228: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
229: -- notify caller of an UNEXPECTED error
230: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
231: END validate_resp_id;
232:
233: ---------------------------------------------------------------------------
234: -- PROCEDURE Validate_access_level
235: ---------------------------------------------------------------------------
236: PROCEDURE validate_access_level(
237: p_srav_rec IN srav_rec_type,
238: x_return_status OUT NOCOPY VARCHAR2) IS
239: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
240: BEGIN
241: IF p_srav_rec.access_level = OKC_API.G_MISS_CHAR OR
242: p_srav_rec.access_level IS NULL
243: THEN
237: p_srav_rec IN srav_rec_type,
238: x_return_status OUT NOCOPY VARCHAR2) IS
239: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
240: BEGIN
241: IF p_srav_rec.access_level = OKC_API.G_MISS_CHAR OR
242: p_srav_rec.access_level IS NULL
243: THEN
244: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'access_level');
245: l_return_status := OKC_API.G_RET_STS_ERROR;
240: BEGIN
241: IF p_srav_rec.access_level = OKC_API.G_MISS_CHAR OR
242: p_srav_rec.access_level IS NULL
243: THEN
244: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'access_level');
245: l_return_status := OKC_API.G_RET_STS_ERROR;
246: RAISE G_EXCEPTION_HALT_VALIDATION;
247: END IF;
248: x_return_status := l_return_status;
241: IF p_srav_rec.access_level = OKC_API.G_MISS_CHAR OR
242: p_srav_rec.access_level IS NULL
243: THEN
244: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'access_level');
245: l_return_status := OKC_API.G_RET_STS_ERROR;
246: RAISE G_EXCEPTION_HALT_VALIDATION;
247: END IF;
248: x_return_status := l_return_status;
249: EXCEPTION
250: WHEN G_EXCEPTION_HALT_VALIDATION THEN
251: x_return_status := l_return_status;
252: WHEN OTHERS THEN
253: -- store SQL error message on message stack for caller
254: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
255: -- notify caller of an UNEXPECTED error
256: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
257: END validate_access_level;
258:
252: WHEN OTHERS THEN
253: -- store SQL error message on message stack for caller
254: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
255: -- notify caller of an UNEXPECTED error
256: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
257: END validate_access_level;
258:
259: ---------------------------------------------------------------------------
260: -- PROCEDURE Validate_start_date
261: ---------------------------------------------------------------------------
262: PROCEDURE validate_start_date(
263: p_srav_rec IN srav_rec_type,
264: x_return_status OUT NOCOPY VARCHAR2) IS
265: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
266: BEGIN
267: IF p_srav_rec.start_date = OKC_API.G_MISS_DATE OR
268: p_srav_rec.start_date IS NULL
269: THEN
263: p_srav_rec IN srav_rec_type,
264: x_return_status OUT NOCOPY VARCHAR2) IS
265: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
266: BEGIN
267: IF p_srav_rec.start_date = OKC_API.G_MISS_DATE OR
268: p_srav_rec.start_date IS NULL
269: THEN
270: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
271: l_return_status := OKC_API.G_RET_STS_ERROR;
266: BEGIN
267: IF p_srav_rec.start_date = OKC_API.G_MISS_DATE OR
268: p_srav_rec.start_date IS NULL
269: THEN
270: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
271: l_return_status := OKC_API.G_RET_STS_ERROR;
272: END IF;
273: x_return_status := l_return_status;
274: EXCEPTION
267: IF p_srav_rec.start_date = OKC_API.G_MISS_DATE OR
268: p_srav_rec.start_date IS NULL
269: THEN
270: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date');
271: l_return_status := OKC_API.G_RET_STS_ERROR;
272: END IF;
273: x_return_status := l_return_status;
274: EXCEPTION
275: WHEN OTHERS THEN
273: x_return_status := l_return_status;
274: EXCEPTION
275: WHEN OTHERS THEN
276: -- store SQL error message on message stack for caller
277: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
278: -- notify caller of an UNEXPECTED error
279: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
280: END validate_start_date;
281:
275: WHEN OTHERS THEN
276: -- store SQL error message on message stack for caller
277: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
278: -- notify caller of an UNEXPECTED error
279: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
280: END validate_start_date;
281:
282: ---------------------------------------------------------------------------
283: -- PROCEDURE Validate_Attributes
287: --------------------------------------------------
288: FUNCTION Validate_Attributes (
289: p_srav_rec IN srav_rec_type
290: ) RETURN VARCHAR2 IS
291: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
292: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
293: ---------------------------------------------------------------------------------------
294: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
295: ---------------------------------------------------------------------------------------
288: FUNCTION Validate_Attributes (
289: p_srav_rec IN srav_rec_type
290: ) RETURN VARCHAR2 IS
291: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
292: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
293: ---------------------------------------------------------------------------------------
294: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
295: ---------------------------------------------------------------------------------------
296: BEGIN
294: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.
295: ---------------------------------------------------------------------------------------
296: BEGIN
297: OKC_UTIL.ADD_VIEW('OKC_SUBCLASS_RESPS_V', l_return_status);
298: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
300: x_return_status := l_return_status;
301: RAISE G_EXCEPTION_HALT_VALIDATION;
302: ELSE
295: ---------------------------------------------------------------------------------------
296: BEGIN
297: OKC_UTIL.ADD_VIEW('OKC_SUBCLASS_RESPS_V', l_return_status);
298: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
300: x_return_status := l_return_status;
301: RAISE G_EXCEPTION_HALT_VALIDATION;
302: ELSE
303: x_return_status := l_return_status; -- record that there was an error
304: END IF;
305: END IF;
306:
307: VALIDATE_scs_code(p_srav_rec, l_return_status);
308: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
309: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
310: x_return_status := l_return_status;
311: RAISE G_EXCEPTION_HALT_VALIDATION;
312: ELSE
305: END IF;
306:
307: VALIDATE_scs_code(p_srav_rec, l_return_status);
308: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
309: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
310: x_return_status := l_return_status;
311: RAISE G_EXCEPTION_HALT_VALIDATION;
312: ELSE
313: x_return_status := l_return_status; -- record that there was an error
314: END IF;
315: END IF;
316:
317: VALIDATE_resp_id(p_srav_rec, l_return_status);
318: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
319: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
320: x_return_status := l_return_status;
321: RAISE G_EXCEPTION_HALT_VALIDATION;
322: ELSE
315: END IF;
316:
317: VALIDATE_resp_id(p_srav_rec, l_return_status);
318: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
319: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
320: x_return_status := l_return_status;
321: RAISE G_EXCEPTION_HALT_VALIDATION;
322: ELSE
323: x_return_status := l_return_status; -- record that there was an error
324: END IF;
325: END IF;
326:
327: VALIDATE_access_level(p_srav_rec, l_return_status);
328: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
329: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
330: x_return_status := l_return_status;
331: RAISE G_EXCEPTION_HALT_VALIDATION;
332: ELSE
325: END IF;
326:
327: VALIDATE_access_level(p_srav_rec, l_return_status);
328: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
329: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
330: x_return_status := l_return_status;
331: RAISE G_EXCEPTION_HALT_VALIDATION;
332: ELSE
333: x_return_status := l_return_status; -- record that there was an error
334: END IF;
335: END IF;
336:
337: VALIDATE_start_date(p_srav_rec, l_return_status);
338: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
340: x_return_status := l_return_status;
341: RAISE G_EXCEPTION_HALT_VALIDATION;
342: ELSE
335: END IF;
336:
337: VALIDATE_start_date(p_srav_rec, l_return_status);
338: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
340: x_return_status := l_return_status;
341: RAISE G_EXCEPTION_HALT_VALIDATION;
342: ELSE
343: x_return_status := l_return_status; -- record that there was an error
349: WHEN G_EXCEPTION_HALT_VALIDATION THEN
350: return(x_return_status);
351: WHEN OTHERS THEN
352: -- store SQL error message on message stack for caller
353: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
354: -- notify caller of an UNEXPECTED error
355: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
356: return(x_return_status);
357: ---------------------------------------------------------------------------------------
351: WHEN OTHERS THEN
352: -- store SQL error message on message stack for caller
353: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
354: -- notify caller of an UNEXPECTED error
355: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
356: return(x_return_status);
357: ---------------------------------------------------------------------------------------
358: --Attribute Level Validation Procedure Calls Ends(Modification on TAPI generated Code.)--
359: ---------------------------------------------------------------------------------------
368: ----------------------------------------------
369: FUNCTION Validate_Record (
370: p_srav_rec IN srav_rec_type
371: ) RETURN VARCHAR2 IS
372: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
373: ------------------------------------
374: -- FUNCTION validate_foreign_keys --
375: ------------------------------------
376: FUNCTION validate_foreign_keys (
385: SELECT 'x'
386: FROM Fnd_Responsibility_Vl
387: WHERE responsibility_id = p_responsibility_id;
388: l_dummy VARCHAR2(1);
389: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
390: l_row_notfound BOOLEAN := TRUE;
391: BEGIN
392: IF (p_srav_rec.SCS_CODE IS NOT NULL)
393: THEN
395: FETCH okc_scsv_pk_csr INTO l_dummy;
396: l_row_notfound := okc_scsv_pk_csr%NOTFOUND;
397: CLOSE okc_scsv_pk_csr;
398: IF (l_row_notfound) THEN
399: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, 'SCS_CODE');
400: RAISE item_not_found_error;
401: END IF;
402: END IF;
403: IF (p_srav_rec.RESP_ID IS NOT NULL)
406: FETCH okc_fnd_pk_csr INTO l_dummy;
407: l_row_notfound := okc_fnd_pk_csr%NOTFOUND;
408: CLOSE okc_fnd_pk_csr;
409: IF (l_row_notfound) THEN
410: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, 'RESP_ID');
411: RAISE item_not_found_error;
412: END IF;
413: END IF;
414: RETURN (l_return_status);
413: END IF;
414: RETURN (l_return_status);
415: EXCEPTION
416: WHEN item_not_found_error THEN
417: l_return_status := OKC_API.G_RET_STS_ERROR;
418: RETURN (l_return_status);
419: END validate_foreign_keys;
420: BEGIN
421: IF p_srav_rec.start_date IS NOT NULL AND
420: BEGIN
421: IF p_srav_rec.start_date IS NOT NULL AND
422: p_srav_rec.end_date IS NOT NULL THEN
423: IF p_srav_rec.end_date < p_srav_rec.start_date THEN
424: OKC_API.set_message(G_APP_NAME, 'OKC_INVALID_END_DATE');
425: l_return_status := OKC_API.G_RET_STS_ERROR;
426: raise G_EXCEPTION_HALT_VALIDATION;
427: END IF;
428: END IF;
421: IF p_srav_rec.start_date IS NOT NULL AND
422: p_srav_rec.end_date IS NOT NULL THEN
423: IF p_srav_rec.end_date < p_srav_rec.start_date THEN
424: OKC_API.set_message(G_APP_NAME, 'OKC_INVALID_END_DATE');
425: l_return_status := OKC_API.G_RET_STS_ERROR;
426: raise G_EXCEPTION_HALT_VALIDATION;
427: END IF;
428: END IF;
429: l_return_status := validate_foreign_keys (p_srav_rec);
426: raise G_EXCEPTION_HALT_VALIDATION;
427: END IF;
428: END IF;
429: l_return_status := validate_foreign_keys (p_srav_rec);
430: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
431: raise G_EXCEPTION_HALT_VALIDATION;
432: END IF;
433: RETURN (l_return_status);
434: EXCEPTION
434: EXCEPTION
435: WHEN G_EXCEPTION_HALT_VALIDATION THEN
436: RETURN(l_return_status);
437: WHEN OTHERS THEN
438: OKC_API.set_message(p_app_name => g_app_name,
439: p_msg_name => g_unexpected_error,
440: p_token1 => g_sqlcode_token,
441: p_token1_value => sqlcode,
442: p_token2 => g_sqlerrm_token,
440: p_token1 => g_sqlcode_token,
441: p_token1_value => sqlcode,
442: p_token2 => g_sqlerrm_token,
443: p_token2_value => sqlerrm);
444: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
445: RETURN(l_return_status);
446: END Validate_Record;
447:
448: ---------------------------------------------------------------------------
496: p_srav_rec IN srav_rec_type) IS
497:
498: l_api_version CONSTANT NUMBER := 1;
499: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
500: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
501: l_srav_rec srav_rec_type := p_srav_rec;
502: l_sra_rec sra_rec_type;
503: BEGIN
504: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
500: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
501: l_srav_rec srav_rec_type := p_srav_rec;
502: l_sra_rec sra_rec_type;
503: BEGIN
504: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
505: G_PKG_NAME,
506: p_init_msg_list,
507: l_api_version,
508: p_api_version,
507: l_api_version,
508: p_api_version,
509: '_PVT',
510: x_return_status);
511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
514: RAISE OKC_API.G_EXCEPTION_ERROR;
515: END IF;
508: p_api_version,
509: '_PVT',
510: x_return_status);
511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
514: RAISE OKC_API.G_EXCEPTION_ERROR;
515: END IF;
516: --- Validate all non-missing attributes (Item Level Validation)
509: '_PVT',
510: x_return_status);
511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
514: RAISE OKC_API.G_EXCEPTION_ERROR;
515: END IF;
516: --- Validate all non-missing attributes (Item Level Validation)
517: l_return_status := Validate_Attributes(l_srav_rec);
510: x_return_status);
511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
514: RAISE OKC_API.G_EXCEPTION_ERROR;
515: END IF;
516: --- Validate all non-missing attributes (Item Level Validation)
517: l_return_status := Validate_Attributes(l_srav_rec);
518: --- If any errors happen abort API
515: END IF;
516: --- Validate all non-missing attributes (Item Level Validation)
517: l_return_status := Validate_Attributes(l_srav_rec);
518: --- If any errors happen abort API
519: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
516: --- Validate all non-missing attributes (Item Level Validation)
517: l_return_status := Validate_Attributes(l_srav_rec);
518: --- If any errors happen abort API
519: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
517: l_return_status := Validate_Attributes(l_srav_rec);
518: --- If any errors happen abort API
519: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
518: --- If any errors happen abort API
519: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
522: RAISE OKC_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
523: END IF;
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
531: EXCEPTION
524: l_return_status := Validate_Record(l_srav_rec);
525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
531: EXCEPTION
532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
531: EXCEPTION
532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
534: (
528: RAISE OKC_API.G_EXCEPTION_ERROR;
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
531: EXCEPTION
532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
534: (
535: l_api_name,
536: G_PKG_NAME,
529: END IF;
530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
531: EXCEPTION
532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
534: (
535: l_api_name,
536: G_PKG_NAME,
537: 'OKC_API.G_RET_STS_ERROR',
533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
534: (
535: l_api_name,
536: G_PKG_NAME,
537: 'OKC_API.G_RET_STS_ERROR',
538: x_msg_count,
539: x_msg_data,
540: '_PVT'
541: );
538: x_msg_count,
539: x_msg_data,
540: '_PVT'
541: );
542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
544: (
545: l_api_name,
546: G_PKG_NAME,
539: x_msg_data,
540: '_PVT'
541: );
542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
544: (
545: l_api_name,
546: G_PKG_NAME,
547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
544: (
545: l_api_name,
546: G_PKG_NAME,
547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
548: x_msg_count,
549: x_msg_data,
550: '_PVT'
551: );
549: x_msg_data,
550: '_PVT'
551: );
552: WHEN OTHERS THEN
553: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
554: (
555: l_api_name,
556: G_PKG_NAME,
557: 'OTHERS',
572: p_srav_tbl IN srav_tbl_type) IS
573:
574: l_api_version CONSTANT NUMBER := 1;
575: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577: i NUMBER := 0;
578: BEGIN
579: OKC_API.init_msg_list(p_init_msg_list);
580: -- Make sure PL/SQL table has records in it before passing
575: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577: i NUMBER := 0;
578: BEGIN
579: OKC_API.init_msg_list(p_init_msg_list);
580: -- Make sure PL/SQL table has records in it before passing
581: IF (p_srav_tbl.COUNT > 0) THEN
582: i := p_srav_tbl.FIRST;
583: LOOP
582: i := p_srav_tbl.FIRST;
583: LOOP
584: validate_row (
585: p_api_version => p_api_version,
586: p_init_msg_list => OKC_API.G_FALSE,
587: x_return_status => x_return_status,
588: x_msg_count => x_msg_count,
589: x_msg_data => x_msg_data,
590: p_srav_rec => p_srav_tbl(i));
592: i := p_srav_tbl.NEXT(i);
593: END LOOP;
594: END IF;
595: EXCEPTION
596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
598: (
599: l_api_name,
600: G_PKG_NAME,
593: END LOOP;
594: END IF;
595: EXCEPTION
596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
598: (
599: l_api_name,
600: G_PKG_NAME,
601: 'OKC_API.G_RET_STS_ERROR',
597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
598: (
599: l_api_name,
600: G_PKG_NAME,
601: 'OKC_API.G_RET_STS_ERROR',
602: x_msg_count,
603: x_msg_data,
604: '_PVT'
605: );
602: x_msg_count,
603: x_msg_data,
604: '_PVT'
605: );
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
608: (
609: l_api_name,
610: G_PKG_NAME,
603: x_msg_data,
604: '_PVT'
605: );
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
608: (
609: l_api_name,
610: G_PKG_NAME,
611: 'OKC_API.G_RET_STS_UNEXP_ERROR',
607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
608: (
609: l_api_name,
610: G_PKG_NAME,
611: 'OKC_API.G_RET_STS_UNEXP_ERROR',
612: x_msg_count,
613: x_msg_data,
614: '_PVT'
615: );
613: x_msg_data,
614: '_PVT'
615: );
616: WHEN OTHERS THEN
617: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
618: (
619: l_api_name,
620: G_PKG_NAME,
621: 'OTHERS',
640: x_sra_rec OUT NOCOPY sra_rec_type) IS
641:
642: l_api_version CONSTANT NUMBER := 1;
643: l_api_name CONSTANT VARCHAR2(30) := 'RESPS_insert_row';
644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
645: l_sra_rec sra_rec_type := p_sra_rec;
646: l_def_sra_rec sra_rec_type;
647: -------------------------------------------
648: -- Set_Attributes for:OKC_SUBCLASS_RESPS --
650: FUNCTION Set_Attributes (
651: p_sra_rec IN sra_rec_type,
652: x_sra_rec OUT NOCOPY sra_rec_type
653: ) RETURN VARCHAR2 IS
654: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
655: BEGIN
656: x_sra_rec := p_sra_rec;
657: RETURN(l_return_status);
658: END Set_Attributes;
656: x_sra_rec := p_sra_rec;
657: RETURN(l_return_status);
658: END Set_Attributes;
659: BEGIN
660: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
661: p_init_msg_list,
662: '_PVT',
663: x_return_status);
664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
660: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
661: p_init_msg_list,
662: '_PVT',
663: x_return_status);
664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
667: RAISE OKC_API.G_EXCEPTION_ERROR;
668: END IF;
661: p_init_msg_list,
662: '_PVT',
663: x_return_status);
664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
667: RAISE OKC_API.G_EXCEPTION_ERROR;
668: END IF;
669: --- Setting item attributes
662: '_PVT',
663: x_return_status);
664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
667: RAISE OKC_API.G_EXCEPTION_ERROR;
668: END IF;
669: --- Setting item attributes
670: l_return_status := Set_Attributes(
663: x_return_status);
664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
667: RAISE OKC_API.G_EXCEPTION_ERROR;
668: END IF;
669: --- Setting item attributes
670: l_return_status := Set_Attributes(
671: p_sra_rec, -- IN
670: l_return_status := Set_Attributes(
671: p_sra_rec, -- IN
672: l_sra_rec); -- OUT
673: --- If any errors happen abort API
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
671: p_sra_rec, -- IN
672: l_sra_rec); -- OUT
673: --- If any errors happen abort API
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: INSERT INTO OKC_SUBCLASS_RESPS(
672: l_sra_rec); -- OUT
673: --- If any errors happen abort API
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: INSERT INTO OKC_SUBCLASS_RESPS(
680: resp_id,
673: --- If any errors happen abort API
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: INSERT INTO OKC_SUBCLASS_RESPS(
680: resp_id,
681: scs_code,
699: l_sra_rec.last_update_date,
700: l_sra_rec.last_update_login);
701: -- Set OUT values
702: x_sra_rec := l_sra_rec;
703: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKC_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKC_API.HANDLE_EXCEPTIONS
707: (
701: -- Set OUT values
702: x_sra_rec := l_sra_rec;
703: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKC_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
702: x_sra_rec := l_sra_rec;
703: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
704: EXCEPTION
705: WHEN OKC_API.G_EXCEPTION_ERROR THEN
706: x_return_status := OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
710: 'OKC_API.G_RET_STS_ERROR',
706: x_return_status := OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
710: 'OKC_API.G_RET_STS_ERROR',
711: x_msg_count,
712: x_msg_data,
713: '_PVT'
714: );
711: x_msg_count,
712: x_msg_data,
713: '_PVT'
714: );
715: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
717: (
718: l_api_name,
719: G_PKG_NAME,
712: x_msg_data,
713: '_PVT'
714: );
715: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
717: (
718: l_api_name,
719: G_PKG_NAME,
720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
717: (
718: l_api_name,
719: G_PKG_NAME,
720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
721: x_msg_count,
722: x_msg_data,
723: '_PVT'
724: );
722: x_msg_data,
723: '_PVT'
724: );
725: WHEN OTHERS THEN
726: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
727: (
728: l_api_name,
729: G_PKG_NAME,
730: 'OTHERS',
746: x_srav_rec OUT NOCOPY srav_rec_type) IS
747:
748: l_api_version CONSTANT NUMBER := 1;
749: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
750: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
751: l_srav_rec srav_rec_type;
752: l_def_srav_rec srav_rec_type;
753: l_sra_rec sra_rec_type;
754: lx_sra_rec sra_rec_type;
773: FUNCTION Set_Attributes (
774: p_srav_rec IN srav_rec_type,
775: x_srav_rec OUT NOCOPY srav_rec_type
776: ) RETURN VARCHAR2 IS
777: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
778: BEGIN
779: x_srav_rec := p_srav_rec;
780: RETURN(l_return_status);
781: END Set_Attributes;
792: FROM Okc_Subclass_Resps_V
793: WHERE scs_code = p_scs_code
794: AND resp_id = p_resp_id;
795: l_dummy VARCHAR2(1);
796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
797: l_row_found BOOLEAN := FALSE;
798: BEGIN
799: IF (p_srav_rec.SCS_CODE IS NOT NULL AND
800: p_srav_rec.RESP_ID IS NOT NULL) THEN
803: FETCH c1 INTO l_dummy;
804: l_row_found := c1%FOUND;
805: CLOSE c1;
806: IF (l_row_found) THEN
807: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SCS_CODE');
808: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RESP_ID');
809: RAISE unique_key_error;
810: END IF;
811: END IF;
804: l_row_found := c1%FOUND;
805: CLOSE c1;
806: IF (l_row_found) THEN
807: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SCS_CODE');
808: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RESP_ID');
809: RAISE unique_key_error;
810: END IF;
811: END IF;
812: RETURN (l_return_status);
811: END IF;
812: RETURN (l_return_status);
813: EXCEPTION
814: WHEN unique_key_error THEN
815: l_return_status := OKC_API.G_RET_STS_ERROR;
816: RETURN (l_return_status);
817: END validate_unique_keys;
818: BEGIN
819: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
815: l_return_status := OKC_API.G_RET_STS_ERROR;
816: RETURN (l_return_status);
817: END validate_unique_keys;
818: BEGIN
819: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
820: G_PKG_NAME,
821: p_init_msg_list,
822: l_api_version,
823: p_api_version,
822: l_api_version,
823: p_api_version,
824: '_PVT',
825: x_return_status);
826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
829: RAISE OKC_API.G_EXCEPTION_ERROR;
830: END IF;
823: p_api_version,
824: '_PVT',
825: x_return_status);
826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
829: RAISE OKC_API.G_EXCEPTION_ERROR;
830: END IF;
831: l_srav_rec := null_out_defaults(p_srav_rec);
824: '_PVT',
825: x_return_status);
826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
829: RAISE OKC_API.G_EXCEPTION_ERROR;
830: END IF;
831: l_srav_rec := null_out_defaults(p_srav_rec);
832: --- Setting item attributes
825: x_return_status);
826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
829: RAISE OKC_API.G_EXCEPTION_ERROR;
830: END IF;
831: l_srav_rec := null_out_defaults(p_srav_rec);
832: --- Setting item attributes
833: l_return_status := Set_Attributes(
833: l_return_status := Set_Attributes(
834: l_srav_rec, -- IN
835: l_def_srav_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
834: l_srav_rec, -- IN
835: l_def_srav_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
835: l_def_srav_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
843: --- Validate all non-missing attributes (Item Level Validation)
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
843: --- Validate all non-missing attributes (Item Level Validation)
844: l_return_status := Validate_Attributes(l_def_srav_rec);
842: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
843: --- Validate all non-missing attributes (Item Level Validation)
844: l_return_status := Validate_Attributes(l_def_srav_rec);
845: --- If any errors happen abort API
846: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
843: --- Validate all non-missing attributes (Item Level Validation)
844: l_return_status := Validate_Attributes(l_def_srav_rec);
845: --- If any errors happen abort API
846: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
844: l_return_status := Validate_Attributes(l_def_srav_rec);
845: --- If any errors happen abort API
846: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
845: --- If any errors happen abort API
846: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
849: RAISE OKC_API.G_EXCEPTION_ERROR;
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
850: END IF;
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
851: l_return_status := Validate_Record(l_def_srav_rec);
852: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
853: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: RAISE OKC_API.G_EXCEPTION_ERROR;
862: END IF;
855: RAISE OKC_API.G_EXCEPTION_ERROR;
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: RAISE OKC_API.G_EXCEPTION_ERROR;
862: END IF;
863: --------------------------------------
856: END IF;
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: RAISE OKC_API.G_EXCEPTION_ERROR;
862: END IF;
863: --------------------------------------
864: -- Move VIEW record to "Child" records
857: l_return_status := Validate_Unique_Keys(l_def_srav_rec);
858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: RAISE OKC_API.G_EXCEPTION_ERROR;
862: END IF;
863: --------------------------------------
864: -- Move VIEW record to "Child" records
865: --------------------------------------
874: x_msg_data,
875: l_sra_rec,
876: lx_sra_rec
877: );
878: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
875: l_sra_rec,
876: lx_sra_rec
877: );
878: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883: migrate(lx_sra_rec, l_def_srav_rec);
876: lx_sra_rec
877: );
878: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883: migrate(lx_sra_rec, l_def_srav_rec);
884: -- Set OUT values
877: );
878: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883: migrate(lx_sra_rec, l_def_srav_rec);
884: -- Set OUT values
885: x_srav_rec := l_def_srav_rec;
882: END IF;
883: migrate(lx_sra_rec, l_def_srav_rec);
884: -- Set OUT values
885: x_srav_rec := l_def_srav_rec;
886: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
887: EXCEPTION
888: WHEN OKC_API.G_EXCEPTION_ERROR THEN
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
884: -- Set OUT values
885: x_srav_rec := l_def_srav_rec;
886: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
887: EXCEPTION
888: WHEN OKC_API.G_EXCEPTION_ERROR THEN
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
885: x_srav_rec := l_def_srav_rec;
886: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
887: EXCEPTION
888: WHEN OKC_API.G_EXCEPTION_ERROR THEN
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
893: 'OKC_API.G_RET_STS_ERROR',
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
893: 'OKC_API.G_RET_STS_ERROR',
894: x_msg_count,
895: x_msg_data,
896: '_PVT'
897: );
894: x_msg_count,
895: x_msg_data,
896: '_PVT'
897: );
898: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
899: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
900: (
901: l_api_name,
902: G_PKG_NAME,
895: x_msg_data,
896: '_PVT'
897: );
898: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
899: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
900: (
901: l_api_name,
902: G_PKG_NAME,
903: 'OKC_API.G_RET_STS_UNEXP_ERROR',
899: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
900: (
901: l_api_name,
902: G_PKG_NAME,
903: 'OKC_API.G_RET_STS_UNEXP_ERROR',
904: x_msg_count,
905: x_msg_data,
906: '_PVT'
907: );
905: x_msg_data,
906: '_PVT'
907: );
908: WHEN OTHERS THEN
909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
910: (
911: l_api_name,
912: G_PKG_NAME,
913: 'OTHERS',
929: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
930:
931: l_api_version CONSTANT NUMBER := 1;
932: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
933: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
934: i NUMBER := 0;
935: BEGIN
936: OKC_API.init_msg_list(p_init_msg_list);
937: -- Make sure PL/SQL table has records in it before passing
932: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
933: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
934: i NUMBER := 0;
935: BEGIN
936: OKC_API.init_msg_list(p_init_msg_list);
937: -- Make sure PL/SQL table has records in it before passing
938: IF (p_srav_tbl.COUNT > 0) THEN
939: i := p_srav_tbl.FIRST;
940: LOOP
939: i := p_srav_tbl.FIRST;
940: LOOP
941: insert_row (
942: p_api_version => p_api_version,
943: p_init_msg_list => OKC_API.G_FALSE,
944: x_return_status => x_return_status,
945: x_msg_count => x_msg_count,
946: x_msg_data => x_msg_data,
947: p_srav_rec => p_srav_tbl(i),
950: i := p_srav_tbl.NEXT(i);
951: END LOOP;
952: END IF;
953: EXCEPTION
954: WHEN OKC_API.G_EXCEPTION_ERROR THEN
955: x_return_status := OKC_API.HANDLE_EXCEPTIONS
956: (
957: l_api_name,
958: G_PKG_NAME,
951: END LOOP;
952: END IF;
953: EXCEPTION
954: WHEN OKC_API.G_EXCEPTION_ERROR THEN
955: x_return_status := OKC_API.HANDLE_EXCEPTIONS
956: (
957: l_api_name,
958: G_PKG_NAME,
959: 'OKC_API.G_RET_STS_ERROR',
955: x_return_status := OKC_API.HANDLE_EXCEPTIONS
956: (
957: l_api_name,
958: G_PKG_NAME,
959: 'OKC_API.G_RET_STS_ERROR',
960: x_msg_count,
961: x_msg_data,
962: '_PVT'
963: );
960: x_msg_count,
961: x_msg_data,
962: '_PVT'
963: );
964: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
965: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
966: (
967: l_api_name,
968: G_PKG_NAME,
961: x_msg_data,
962: '_PVT'
963: );
964: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
965: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
966: (
967: l_api_name,
968: G_PKG_NAME,
969: 'OKC_API.G_RET_STS_UNEXP_ERROR',
965: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
966: (
967: l_api_name,
968: G_PKG_NAME,
969: 'OKC_API.G_RET_STS_UNEXP_ERROR',
970: x_msg_count,
971: x_msg_data,
972: '_PVT'
973: );
971: x_msg_data,
972: '_PVT'
973: );
974: WHEN OTHERS THEN
975: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
976: (
977: l_api_name,
978: G_PKG_NAME,
979: 'OTHERS',
1006: FOR UPDATE NOWAIT;
1007:
1008: l_api_version CONSTANT NUMBER := 1;
1009: l_api_name CONSTANT VARCHAR2(30) := 'RESPS_lock_row';
1010: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1011: l_lock_var lock_csr%ROWTYPE;
1012: l_row_notfound BOOLEAN := FALSE;
1013: lc_row_notfound BOOLEAN := FALSE;
1014: BEGIN
1011: l_lock_var lock_csr%ROWTYPE;
1012: l_row_notfound BOOLEAN := FALSE;
1013: lc_row_notfound BOOLEAN := FALSE;
1014: BEGIN
1015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1016: p_init_msg_list,
1017: '_PVT',
1018: x_return_status);
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1016: p_init_msg_list,
1017: '_PVT',
1018: x_return_status);
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1016: p_init_msg_list,
1017: '_PVT',
1018: x_return_status);
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: BEGIN
1017: '_PVT',
1018: x_return_status);
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: BEGIN
1025: OPEN lock_csr(p_sra_rec);
1018: x_return_status);
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1022: RAISE OKC_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: BEGIN
1025: OPEN lock_csr(p_sra_rec);
1026: FETCH lock_csr INTO l_lock_var;
1030: WHEN E_Resource_Busy THEN
1031: IF (lock_csr%ISOPEN) THEN
1032: CLOSE lock_csr;
1033: END IF;
1034: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1035: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1036: END;
1037:
1038: IF ( l_row_notfound ) THEN
1035: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1036: END;
1037:
1038: IF ( l_row_notfound ) THEN
1039: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1040: RAISE OKC_API.G_EXCEPTION_ERROR;
1041: ELSE
1042: IF (l_lock_var.RESP_ID <> p_sra_rec.resp_id) THEN
1043: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1036: END;
1037:
1038: IF ( l_row_notfound ) THEN
1039: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1040: RAISE OKC_API.G_EXCEPTION_ERROR;
1041: ELSE
1042: IF (l_lock_var.RESP_ID <> p_sra_rec.resp_id) THEN
1043: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1039: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1040: RAISE OKC_API.G_EXCEPTION_ERROR;
1041: ELSE
1042: IF (l_lock_var.RESP_ID <> p_sra_rec.resp_id) THEN
1043: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046: IF (l_lock_var.SCS_CODE <> p_sra_rec.scs_code) THEN
1047: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1040: RAISE OKC_API.G_EXCEPTION_ERROR;
1041: ELSE
1042: IF (l_lock_var.RESP_ID <> p_sra_rec.resp_id) THEN
1043: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046: IF (l_lock_var.SCS_CODE <> p_sra_rec.scs_code) THEN
1047: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1048: RAISE OKC_API.G_EXCEPTION_ERROR;
1043: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046: IF (l_lock_var.SCS_CODE <> p_sra_rec.scs_code) THEN
1047: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1048: RAISE OKC_API.G_EXCEPTION_ERROR;
1049: END IF;
1050: IF (l_lock_var.ACCESS_LEVEL <> p_sra_rec.access_level) THEN
1051: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046: IF (l_lock_var.SCS_CODE <> p_sra_rec.scs_code) THEN
1047: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1048: RAISE OKC_API.G_EXCEPTION_ERROR;
1049: END IF;
1050: IF (l_lock_var.ACCESS_LEVEL <> p_sra_rec.access_level) THEN
1051: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1052: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1048: RAISE OKC_API.G_EXCEPTION_ERROR;
1049: END IF;
1050: IF (l_lock_var.ACCESS_LEVEL <> p_sra_rec.access_level) THEN
1051: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1052: RAISE OKC_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: IF (l_lock_var.CREATED_BY <> p_sra_rec.created_by) THEN
1055: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1048: RAISE OKC_API.G_EXCEPTION_ERROR;
1049: END IF;
1050: IF (l_lock_var.ACCESS_LEVEL <> p_sra_rec.access_level) THEN
1051: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1052: RAISE OKC_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: IF (l_lock_var.CREATED_BY <> p_sra_rec.created_by) THEN
1055: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1052: RAISE OKC_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: IF (l_lock_var.CREATED_BY <> p_sra_rec.created_by) THEN
1055: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058: IF (l_lock_var.START_DATE <> p_sra_rec.start_date) THEN
1059: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1052: RAISE OKC_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: IF (l_lock_var.CREATED_BY <> p_sra_rec.created_by) THEN
1055: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058: IF (l_lock_var.START_DATE <> p_sra_rec.start_date) THEN
1059: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1060: RAISE OKC_API.G_EXCEPTION_ERROR;
1055: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058: IF (l_lock_var.START_DATE <> p_sra_rec.start_date) THEN
1059: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1060: RAISE OKC_API.G_EXCEPTION_ERROR;
1061: END IF;
1062: IF (l_lock_var.END_DATE <> p_sra_rec.end_date) THEN
1063: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058: IF (l_lock_var.START_DATE <> p_sra_rec.start_date) THEN
1059: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1060: RAISE OKC_API.G_EXCEPTION_ERROR;
1061: END IF;
1062: IF (l_lock_var.END_DATE <> p_sra_rec.end_date) THEN
1063: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1064: RAISE OKC_API.G_EXCEPTION_ERROR;
1059: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1060: RAISE OKC_API.G_EXCEPTION_ERROR;
1061: END IF;
1062: IF (l_lock_var.END_DATE <> p_sra_rec.end_date) THEN
1063: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1064: RAISE OKC_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: IF (l_lock_var.CREATION_DATE <> p_sra_rec.creation_date) THEN
1067: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1060: RAISE OKC_API.G_EXCEPTION_ERROR;
1061: END IF;
1062: IF (l_lock_var.END_DATE <> p_sra_rec.end_date) THEN
1063: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1064: RAISE OKC_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: IF (l_lock_var.CREATION_DATE <> p_sra_rec.creation_date) THEN
1067: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1068: RAISE OKC_API.G_EXCEPTION_ERROR;
1063: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1064: RAISE OKC_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: IF (l_lock_var.CREATION_DATE <> p_sra_rec.creation_date) THEN
1067: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1068: RAISE OKC_API.G_EXCEPTION_ERROR;
1069: END IF;
1070: IF (l_lock_var.LAST_UPDATED_BY <> p_sra_rec.last_updated_by) THEN
1071: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1064: RAISE OKC_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: IF (l_lock_var.CREATION_DATE <> p_sra_rec.creation_date) THEN
1067: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1068: RAISE OKC_API.G_EXCEPTION_ERROR;
1069: END IF;
1070: IF (l_lock_var.LAST_UPDATED_BY <> p_sra_rec.last_updated_by) THEN
1071: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1068: RAISE OKC_API.G_EXCEPTION_ERROR;
1069: END IF;
1070: IF (l_lock_var.LAST_UPDATED_BY <> p_sra_rec.last_updated_by) THEN
1071: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: IF (l_lock_var.LAST_UPDATE_DATE <> p_sra_rec.last_update_date) THEN
1075: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1068: RAISE OKC_API.G_EXCEPTION_ERROR;
1069: END IF;
1070: IF (l_lock_var.LAST_UPDATED_BY <> p_sra_rec.last_updated_by) THEN
1071: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: IF (l_lock_var.LAST_UPDATE_DATE <> p_sra_rec.last_update_date) THEN
1075: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1071: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: IF (l_lock_var.LAST_UPDATE_DATE <> p_sra_rec.last_update_date) THEN
1075: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: IF (l_lock_var.LAST_UPDATE_LOGIN <> p_sra_rec.last_update_login) THEN
1079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: IF (l_lock_var.LAST_UPDATE_DATE <> p_sra_rec.last_update_date) THEN
1075: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: IF (l_lock_var.LAST_UPDATE_LOGIN <> p_sra_rec.last_update_login) THEN
1079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1075: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: IF (l_lock_var.LAST_UPDATE_LOGIN <> p_sra_rec.last_update_login) THEN
1079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: END IF;
1083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: IF (l_lock_var.LAST_UPDATE_LOGIN <> p_sra_rec.last_update_login) THEN
1079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: END IF;
1083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1084: EXCEPTION
1079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: END IF;
1083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1084: EXCEPTION
1085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1087: (
1081: END IF;
1082: END IF;
1083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1084: EXCEPTION
1085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1087: (
1088: l_api_name,
1089: G_PKG_NAME,
1082: END IF;
1083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1084: EXCEPTION
1085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1087: (
1088: l_api_name,
1089: G_PKG_NAME,
1090: 'OKC_API.G_RET_STS_ERROR',
1086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1087: (
1088: l_api_name,
1089: G_PKG_NAME,
1090: 'OKC_API.G_RET_STS_ERROR',
1091: x_msg_count,
1092: x_msg_data,
1093: '_PVT'
1094: );
1091: x_msg_count,
1092: x_msg_data,
1093: '_PVT'
1094: );
1095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1096: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1097: (
1098: l_api_name,
1099: G_PKG_NAME,
1092: x_msg_data,
1093: '_PVT'
1094: );
1095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1096: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1097: (
1098: l_api_name,
1099: G_PKG_NAME,
1100: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1096: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1097: (
1098: l_api_name,
1099: G_PKG_NAME,
1100: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1101: x_msg_count,
1102: x_msg_data,
1103: '_PVT'
1104: );
1102: x_msg_data,
1103: '_PVT'
1104: );
1105: WHEN OTHERS THEN
1106: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1107: (
1108: l_api_name,
1109: G_PKG_NAME,
1110: 'OTHERS',
1125: p_srav_rec IN srav_rec_type) IS
1126:
1127: l_api_version CONSTANT NUMBER := 1;
1128: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1130: l_sra_rec sra_rec_type;
1131: BEGIN
1132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1133: G_PKG_NAME,
1128: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1130: l_sra_rec sra_rec_type;
1131: BEGIN
1132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1133: G_PKG_NAME,
1134: p_init_msg_list,
1135: l_api_version,
1136: p_api_version,
1135: l_api_version,
1136: p_api_version,
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_api_version,
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: --------------------------------------
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: --------------------------------------
1145: -- Move VIEW record to "Child" records
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: --------------------------------------
1145: -- Move VIEW record to "Child" records
1146: --------------------------------------
1154: x_msg_count,
1155: x_msg_data,
1156: l_sra_rec
1157: );
1158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1155: x_msg_data,
1156: l_sra_rec
1157: );
1158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1156: l_sra_rec
1157: );
1158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1164: EXCEPTION
1157: );
1158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1164: EXCEPTION
1165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1164: EXCEPTION
1165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1161: RAISE OKC_API.G_EXCEPTION_ERROR;
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1164: EXCEPTION
1165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1162: END IF;
1163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1164: EXCEPTION
1165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1170: 'OKC_API.G_RET_STS_ERROR',
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1170: 'OKC_API.G_RET_STS_ERROR',
1171: x_msg_count,
1172: x_msg_data,
1173: '_PVT'
1174: );
1171: x_msg_count,
1172: x_msg_data,
1173: '_PVT'
1174: );
1175: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1176: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1177: (
1178: l_api_name,
1179: G_PKG_NAME,
1172: x_msg_data,
1173: '_PVT'
1174: );
1175: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1176: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1177: (
1178: l_api_name,
1179: G_PKG_NAME,
1180: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1176: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1177: (
1178: l_api_name,
1179: G_PKG_NAME,
1180: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1181: x_msg_count,
1182: x_msg_data,
1183: '_PVT'
1184: );
1182: x_msg_data,
1183: '_PVT'
1184: );
1185: WHEN OTHERS THEN
1186: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1187: (
1188: l_api_name,
1189: G_PKG_NAME,
1190: 'OTHERS',
1205: p_srav_tbl IN srav_tbl_type) IS
1206:
1207: l_api_version CONSTANT NUMBER := 1;
1208: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1209: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1210: i NUMBER := 0;
1211: BEGIN
1212: OKC_API.init_msg_list(p_init_msg_list);
1213: -- Make sure PL/SQL table has records in it before passing
1208: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1209: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1210: i NUMBER := 0;
1211: BEGIN
1212: OKC_API.init_msg_list(p_init_msg_list);
1213: -- Make sure PL/SQL table has records in it before passing
1214: IF (p_srav_tbl.COUNT > 0) THEN
1215: i := p_srav_tbl.FIRST;
1216: LOOP
1215: i := p_srav_tbl.FIRST;
1216: LOOP
1217: lock_row (
1218: p_api_version => p_api_version,
1219: p_init_msg_list => OKC_API.G_FALSE,
1220: x_return_status => x_return_status,
1221: x_msg_count => x_msg_count,
1222: x_msg_data => x_msg_data,
1223: p_srav_rec => p_srav_tbl(i));
1225: i := p_srav_tbl.NEXT(i);
1226: END LOOP;
1227: END IF;
1228: EXCEPTION
1229: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1226: END LOOP;
1227: END IF;
1228: EXCEPTION
1229: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKC_API.G_RET_STS_ERROR',
1230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKC_API.G_RET_STS_ERROR',
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1245: x_msg_count,
1246: x_msg_data,
1247: '_PVT'
1248: );
1246: x_msg_data,
1247: '_PVT'
1248: );
1249: WHEN OTHERS THEN
1250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1251: (
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OTHERS',
1273: x_sra_rec OUT NOCOPY sra_rec_type) IS
1274:
1275: l_api_version CONSTANT NUMBER := 1;
1276: l_api_name CONSTANT VARCHAR2(30) := 'RESPS_update_row';
1277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1278: l_sra_rec sra_rec_type := p_sra_rec;
1279: l_def_sra_rec sra_rec_type;
1280: l_row_notfound BOOLEAN := TRUE;
1281: ----------------------------------
1286: x_sra_rec OUT NOCOPY sra_rec_type
1287: ) RETURN VARCHAR2 IS
1288: l_sra_rec sra_rec_type;
1289: l_row_notfound BOOLEAN := TRUE;
1290: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1291: BEGIN
1292: x_sra_rec := p_sra_rec;
1293: -- Get current database values
1294: l_sra_rec := get_rec(p_sra_rec, l_row_notfound);
1292: x_sra_rec := p_sra_rec;
1293: -- Get current database values
1294: l_sra_rec := get_rec(p_sra_rec, l_row_notfound);
1295: IF (l_row_notfound) THEN
1296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1297: END IF;
1298: IF (x_sra_rec.resp_id = OKC_API.G_MISS_NUM)
1299: THEN
1300: x_sra_rec.resp_id := l_sra_rec.resp_id;
1294: l_sra_rec := get_rec(p_sra_rec, l_row_notfound);
1295: IF (l_row_notfound) THEN
1296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1297: END IF;
1298: IF (x_sra_rec.resp_id = OKC_API.G_MISS_NUM)
1299: THEN
1300: x_sra_rec.resp_id := l_sra_rec.resp_id;
1301: END IF;
1302: IF (x_sra_rec.scs_code = OKC_API.G_MISS_CHAR)
1298: IF (x_sra_rec.resp_id = OKC_API.G_MISS_NUM)
1299: THEN
1300: x_sra_rec.resp_id := l_sra_rec.resp_id;
1301: END IF;
1302: IF (x_sra_rec.scs_code = OKC_API.G_MISS_CHAR)
1303: THEN
1304: x_sra_rec.scs_code := l_sra_rec.scs_code;
1305: END IF;
1306: IF (x_sra_rec.access_level = OKC_API.G_MISS_CHAR)
1302: IF (x_sra_rec.scs_code = OKC_API.G_MISS_CHAR)
1303: THEN
1304: x_sra_rec.scs_code := l_sra_rec.scs_code;
1305: END IF;
1306: IF (x_sra_rec.access_level = OKC_API.G_MISS_CHAR)
1307: THEN
1308: x_sra_rec.access_level := l_sra_rec.access_level;
1309: END IF;
1310: IF (x_sra_rec.created_by = OKC_API.G_MISS_NUM)
1306: IF (x_sra_rec.access_level = OKC_API.G_MISS_CHAR)
1307: THEN
1308: x_sra_rec.access_level := l_sra_rec.access_level;
1309: END IF;
1310: IF (x_sra_rec.created_by = OKC_API.G_MISS_NUM)
1311: THEN
1312: x_sra_rec.created_by := l_sra_rec.created_by;
1313: END IF;
1314: IF (x_sra_rec.start_date = OKC_API.G_MISS_DATE)
1310: IF (x_sra_rec.created_by = OKC_API.G_MISS_NUM)
1311: THEN
1312: x_sra_rec.created_by := l_sra_rec.created_by;
1313: END IF;
1314: IF (x_sra_rec.start_date = OKC_API.G_MISS_DATE)
1315: THEN
1316: x_sra_rec.start_date := l_sra_rec.start_date;
1317: END IF;
1318: IF (x_sra_rec.end_date = OKC_API.G_MISS_DATE)
1314: IF (x_sra_rec.start_date = OKC_API.G_MISS_DATE)
1315: THEN
1316: x_sra_rec.start_date := l_sra_rec.start_date;
1317: END IF;
1318: IF (x_sra_rec.end_date = OKC_API.G_MISS_DATE)
1319: THEN
1320: x_sra_rec.end_date := l_sra_rec.end_date;
1321: END IF;
1322: IF (x_sra_rec.creation_date = OKC_API.G_MISS_DATE)
1318: IF (x_sra_rec.end_date = OKC_API.G_MISS_DATE)
1319: THEN
1320: x_sra_rec.end_date := l_sra_rec.end_date;
1321: END IF;
1322: IF (x_sra_rec.creation_date = OKC_API.G_MISS_DATE)
1323: THEN
1324: x_sra_rec.creation_date := l_sra_rec.creation_date;
1325: END IF;
1326: IF (x_sra_rec.last_updated_by = OKC_API.G_MISS_NUM)
1322: IF (x_sra_rec.creation_date = OKC_API.G_MISS_DATE)
1323: THEN
1324: x_sra_rec.creation_date := l_sra_rec.creation_date;
1325: END IF;
1326: IF (x_sra_rec.last_updated_by = OKC_API.G_MISS_NUM)
1327: THEN
1328: x_sra_rec.last_updated_by := l_sra_rec.last_updated_by;
1329: END IF;
1330: IF (x_sra_rec.last_update_date = OKC_API.G_MISS_DATE)
1326: IF (x_sra_rec.last_updated_by = OKC_API.G_MISS_NUM)
1327: THEN
1328: x_sra_rec.last_updated_by := l_sra_rec.last_updated_by;
1329: END IF;
1330: IF (x_sra_rec.last_update_date = OKC_API.G_MISS_DATE)
1331: THEN
1332: x_sra_rec.last_update_date := l_sra_rec.last_update_date;
1333: END IF;
1334: IF (x_sra_rec.last_update_login = OKC_API.G_MISS_NUM)
1330: IF (x_sra_rec.last_update_date = OKC_API.G_MISS_DATE)
1331: THEN
1332: x_sra_rec.last_update_date := l_sra_rec.last_update_date;
1333: END IF;
1334: IF (x_sra_rec.last_update_login = OKC_API.G_MISS_NUM)
1335: THEN
1336: x_sra_rec.last_update_login := l_sra_rec.last_update_login;
1337: END IF;
1338: RETURN(l_return_status);
1343: FUNCTION Set_Attributes (
1344: p_sra_rec IN sra_rec_type,
1345: x_sra_rec OUT NOCOPY sra_rec_type
1346: ) RETURN VARCHAR2 IS
1347: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1348: BEGIN
1349: x_sra_rec := p_sra_rec;
1350: RETURN(l_return_status);
1351: END Set_Attributes;
1349: x_sra_rec := p_sra_rec;
1350: RETURN(l_return_status);
1351: END Set_Attributes;
1352: BEGIN
1353: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1354: p_init_msg_list,
1355: '_PVT',
1356: x_return_status);
1357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1354: p_init_msg_list,
1355: '_PVT',
1356: x_return_status);
1357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1360: RAISE OKC_API.G_EXCEPTION_ERROR;
1361: END IF;
1354: p_init_msg_list,
1355: '_PVT',
1356: x_return_status);
1357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1360: RAISE OKC_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --- Setting item attributes
1355: '_PVT',
1356: x_return_status);
1357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1360: RAISE OKC_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --- Setting item attributes
1363: l_return_status := Set_Attributes(
1356: x_return_status);
1357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1360: RAISE OKC_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --- Setting item attributes
1363: l_return_status := Set_Attributes(
1364: p_sra_rec, -- IN
1363: l_return_status := Set_Attributes(
1364: p_sra_rec, -- IN
1365: l_sra_rec); -- OUT
1366: --- If any errors happen abort API
1367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1364: p_sra_rec, -- IN
1365: l_sra_rec); -- OUT
1366: --- If any errors happen abort API
1367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1365: l_sra_rec); -- OUT
1366: --- If any errors happen abort API
1367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1366: --- If any errors happen abort API
1367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: RAISE OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1370: RAISE OKC_API.G_EXCEPTION_ERROR;
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: RAISE OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378: UPDATE OKC_SUBCLASS_RESPS
1371: END IF;
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: RAISE OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378: UPDATE OKC_SUBCLASS_RESPS
1379: SET ACCESS_LEVEL = l_def_sra_rec.access_level,
1372: l_return_status := populate_new_record(l_sra_rec, l_def_sra_rec);
1373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: RAISE OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378: UPDATE OKC_SUBCLASS_RESPS
1379: SET ACCESS_LEVEL = l_def_sra_rec.access_level,
1380: CREATED_BY = l_def_sra_rec.created_by,
1387: WHERE RESP_ID = l_def_sra_rec.resp_id
1388: AND SCS_CODE = l_def_sra_rec.scs_code;
1389:
1390: x_sra_rec := l_def_sra_rec;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1389:
1390: x_sra_rec := l_def_sra_rec;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1390: x_sra_rec := l_def_sra_rec;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1398: 'OKC_API.G_RET_STS_ERROR',
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1398: 'OKC_API.G_RET_STS_ERROR',
1399: x_msg_count,
1400: x_msg_data,
1401: '_PVT'
1402: );
1399: x_msg_count,
1400: x_msg_data,
1401: '_PVT'
1402: );
1403: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1404: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1400: x_msg_data,
1401: '_PVT'
1402: );
1403: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1404: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1404: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1409: x_msg_count,
1410: x_msg_data,
1411: '_PVT'
1412: );
1410: x_msg_data,
1411: '_PVT'
1412: );
1413: WHEN OTHERS THEN
1414: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1415: (
1416: l_api_name,
1417: G_PKG_NAME,
1418: 'OTHERS',
1434: x_srav_rec OUT NOCOPY srav_rec_type) IS
1435:
1436: l_api_version CONSTANT NUMBER := 1;
1437: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1438: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1439: l_srav_rec srav_rec_type := p_srav_rec;
1440: l_def_srav_rec srav_rec_type;
1441: l_sra_rec sra_rec_type;
1442: lx_sra_rec sra_rec_type;
1461: x_srav_rec OUT NOCOPY srav_rec_type
1462: ) RETURN VARCHAR2 IS
1463: l_srav_rec srav_rec_type;
1464: l_row_notfound BOOLEAN := TRUE;
1465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1466: BEGIN
1467: x_srav_rec := p_srav_rec;
1468: -- Get current database values
1469: l_srav_rec := get_rec(p_srav_rec, l_row_notfound);
1467: x_srav_rec := p_srav_rec;
1468: -- Get current database values
1469: l_srav_rec := get_rec(p_srav_rec, l_row_notfound);
1470: IF (l_row_notfound) THEN
1471: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1472: END IF;
1473: IF (x_srav_rec.resp_id = OKC_API.G_MISS_NUM)
1474: THEN
1475: x_srav_rec.resp_id := l_srav_rec.resp_id;
1469: l_srav_rec := get_rec(p_srav_rec, l_row_notfound);
1470: IF (l_row_notfound) THEN
1471: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1472: END IF;
1473: IF (x_srav_rec.resp_id = OKC_API.G_MISS_NUM)
1474: THEN
1475: x_srav_rec.resp_id := l_srav_rec.resp_id;
1476: END IF;
1477: IF (x_srav_rec.scs_code = OKC_API.G_MISS_CHAR)
1473: IF (x_srav_rec.resp_id = OKC_API.G_MISS_NUM)
1474: THEN
1475: x_srav_rec.resp_id := l_srav_rec.resp_id;
1476: END IF;
1477: IF (x_srav_rec.scs_code = OKC_API.G_MISS_CHAR)
1478: THEN
1479: x_srav_rec.scs_code := l_srav_rec.scs_code;
1480: END IF;
1481: IF (x_srav_rec.access_level = OKC_API.G_MISS_CHAR)
1477: IF (x_srav_rec.scs_code = OKC_API.G_MISS_CHAR)
1478: THEN
1479: x_srav_rec.scs_code := l_srav_rec.scs_code;
1480: END IF;
1481: IF (x_srav_rec.access_level = OKC_API.G_MISS_CHAR)
1482: THEN
1483: x_srav_rec.access_level := l_srav_rec.access_level;
1484: END IF;
1485: IF (x_srav_rec.start_date = OKC_API.G_MISS_DATE)
1481: IF (x_srav_rec.access_level = OKC_API.G_MISS_CHAR)
1482: THEN
1483: x_srav_rec.access_level := l_srav_rec.access_level;
1484: END IF;
1485: IF (x_srav_rec.start_date = OKC_API.G_MISS_DATE)
1486: THEN
1487: x_srav_rec.start_date := l_srav_rec.start_date;
1488: END IF;
1489: IF (x_srav_rec.end_date = OKC_API.G_MISS_DATE)
1485: IF (x_srav_rec.start_date = OKC_API.G_MISS_DATE)
1486: THEN
1487: x_srav_rec.start_date := l_srav_rec.start_date;
1488: END IF;
1489: IF (x_srav_rec.end_date = OKC_API.G_MISS_DATE)
1490: THEN
1491: x_srav_rec.end_date := l_srav_rec.end_date;
1492: END IF;
1493: IF (x_srav_rec.created_by = OKC_API.G_MISS_NUM)
1489: IF (x_srav_rec.end_date = OKC_API.G_MISS_DATE)
1490: THEN
1491: x_srav_rec.end_date := l_srav_rec.end_date;
1492: END IF;
1493: IF (x_srav_rec.created_by = OKC_API.G_MISS_NUM)
1494: THEN
1495: x_srav_rec.created_by := l_srav_rec.created_by;
1496: END IF;
1497: IF (x_srav_rec.creation_date = OKC_API.G_MISS_DATE)
1493: IF (x_srav_rec.created_by = OKC_API.G_MISS_NUM)
1494: THEN
1495: x_srav_rec.created_by := l_srav_rec.created_by;
1496: END IF;
1497: IF (x_srav_rec.creation_date = OKC_API.G_MISS_DATE)
1498: THEN
1499: x_srav_rec.creation_date := l_srav_rec.creation_date;
1500: END IF;
1501: IF (x_srav_rec.last_updated_by = OKC_API.G_MISS_NUM)
1497: IF (x_srav_rec.creation_date = OKC_API.G_MISS_DATE)
1498: THEN
1499: x_srav_rec.creation_date := l_srav_rec.creation_date;
1500: END IF;
1501: IF (x_srav_rec.last_updated_by = OKC_API.G_MISS_NUM)
1502: THEN
1503: x_srav_rec.last_updated_by := l_srav_rec.last_updated_by;
1504: END IF;
1505: IF (x_srav_rec.last_update_date = OKC_API.G_MISS_DATE)
1501: IF (x_srav_rec.last_updated_by = OKC_API.G_MISS_NUM)
1502: THEN
1503: x_srav_rec.last_updated_by := l_srav_rec.last_updated_by;
1504: END IF;
1505: IF (x_srav_rec.last_update_date = OKC_API.G_MISS_DATE)
1506: THEN
1507: x_srav_rec.last_update_date := l_srav_rec.last_update_date;
1508: END IF;
1509: IF (x_srav_rec.last_update_login = OKC_API.G_MISS_NUM)
1505: IF (x_srav_rec.last_update_date = OKC_API.G_MISS_DATE)
1506: THEN
1507: x_srav_rec.last_update_date := l_srav_rec.last_update_date;
1508: END IF;
1509: IF (x_srav_rec.last_update_login = OKC_API.G_MISS_NUM)
1510: THEN
1511: x_srav_rec.last_update_login := l_srav_rec.last_update_login;
1512: END IF;
1513: RETURN(l_return_status);
1518: FUNCTION Set_Attributes (
1519: p_srav_rec IN srav_rec_type,
1520: x_srav_rec OUT NOCOPY srav_rec_type
1521: ) RETURN VARCHAR2 IS
1522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1523: BEGIN
1524: x_srav_rec := p_srav_rec;
1525: RETURN(l_return_status);
1526: END Set_Attributes;
1524: x_srav_rec := p_srav_rec;
1525: RETURN(l_return_status);
1526: END Set_Attributes;
1527: BEGIN
1528: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1529: G_PKG_NAME,
1530: p_init_msg_list,
1531: l_api_version,
1532: p_api_version,
1531: l_api_version,
1532: p_api_version,
1533: '_PVT',
1534: x_return_status);
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1532: p_api_version,
1533: '_PVT',
1534: x_return_status);
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540: --- Setting item attributes
1533: '_PVT',
1534: x_return_status);
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540: --- Setting item attributes
1541: l_return_status := Set_Attributes(
1534: x_return_status);
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540: --- Setting item attributes
1541: l_return_status := Set_Attributes(
1542: p_srav_rec, -- IN
1541: l_return_status := Set_Attributes(
1542: p_srav_rec, -- IN
1543: l_srav_rec); -- OUT
1544: --- If any errors happen abort API
1545: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1542: p_srav_rec, -- IN
1543: l_srav_rec); -- OUT
1544: --- If any errors happen abort API
1545: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1543: l_srav_rec); -- OUT
1544: --- If any errors happen abort API
1545: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1544: --- If any errors happen abort API
1545: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_ERROR;
1555: END IF;
1548: RAISE OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_ERROR;
1555: END IF;
1556: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
1549: END IF;
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_ERROR;
1555: END IF;
1556: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
1557: --- Validate all non-missing attributes (Item Level Validation)
1550: l_return_status := populate_new_record(l_srav_rec, l_def_srav_rec);
1551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_ERROR;
1555: END IF;
1556: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
1557: --- Validate all non-missing attributes (Item Level Validation)
1558: l_return_status := Validate_Attributes(l_def_srav_rec);
1556: l_def_srav_rec := fill_who_columns(l_def_srav_rec);
1557: --- Validate all non-missing attributes (Item Level Validation)
1558: l_return_status := Validate_Attributes(l_def_srav_rec);
1559: --- If any errors happen abort API
1560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1557: --- Validate all non-missing attributes (Item Level Validation)
1558: l_return_status := Validate_Attributes(l_def_srav_rec);
1559: --- If any errors happen abort API
1560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1558: l_return_status := Validate_Attributes(l_def_srav_rec);
1559: --- If any errors happen abort API
1560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: --- If any errors happen abort API
1560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: END IF;
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: END IF;
1571:
1564: END IF;
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: END IF;
1571:
1572: --------------------------------------
1565: l_return_status := Validate_Record(l_def_srav_rec);
1566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: END IF;
1571:
1572: --------------------------------------
1573: -- Move VIEW record to "Child" records
1583: x_msg_data,
1584: l_sra_rec,
1585: lx_sra_rec
1586: );
1587: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1590: RAISE OKC_API.G_EXCEPTION_ERROR;
1591: END IF;
1584: l_sra_rec,
1585: lx_sra_rec
1586: );
1587: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1590: RAISE OKC_API.G_EXCEPTION_ERROR;
1591: END IF;
1592: migrate(lx_sra_rec, l_def_srav_rec);
1585: lx_sra_rec
1586: );
1587: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1590: RAISE OKC_API.G_EXCEPTION_ERROR;
1591: END IF;
1592: migrate(lx_sra_rec, l_def_srav_rec);
1593: x_srav_rec := l_def_srav_rec;
1586: );
1587: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1589: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1590: RAISE OKC_API.G_EXCEPTION_ERROR;
1591: END IF;
1592: migrate(lx_sra_rec, l_def_srav_rec);
1593: x_srav_rec := l_def_srav_rec;
1594: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1590: RAISE OKC_API.G_EXCEPTION_ERROR;
1591: END IF;
1592: migrate(lx_sra_rec, l_def_srav_rec);
1593: x_srav_rec := l_def_srav_rec;
1594: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1595: EXCEPTION
1596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1592: migrate(lx_sra_rec, l_def_srav_rec);
1593: x_srav_rec := l_def_srav_rec;
1594: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1595: EXCEPTION
1596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1593: x_srav_rec := l_def_srav_rec;
1594: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1595: EXCEPTION
1596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'OKC_API.G_RET_STS_ERROR',
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'OKC_API.G_RET_STS_ERROR',
1602: x_msg_count,
1603: x_msg_data,
1604: '_PVT'
1605: );
1602: x_msg_count,
1603: x_msg_data,
1604: '_PVT'
1605: );
1606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1608: (
1609: l_api_name,
1610: G_PKG_NAME,
1603: x_msg_data,
1604: '_PVT'
1605: );
1606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1608: (
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1608: (
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1612: x_msg_count,
1613: x_msg_data,
1614: '_PVT'
1615: );
1613: x_msg_data,
1614: '_PVT'
1615: );
1616: WHEN OTHERS THEN
1617: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1618: (
1619: l_api_name,
1620: G_PKG_NAME,
1621: 'OTHERS',
1637: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
1638:
1639: l_api_version CONSTANT NUMBER := 1;
1640: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1642: i NUMBER := 0;
1643: BEGIN
1644: OKC_API.init_msg_list(p_init_msg_list);
1645: -- Make sure PL/SQL table has records in it before passing
1640: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1642: i NUMBER := 0;
1643: BEGIN
1644: OKC_API.init_msg_list(p_init_msg_list);
1645: -- Make sure PL/SQL table has records in it before passing
1646: IF (p_srav_tbl.COUNT > 0) THEN
1647: i := p_srav_tbl.FIRST;
1648: LOOP
1647: i := p_srav_tbl.FIRST;
1648: LOOP
1649: update_row (
1650: p_api_version => p_api_version,
1651: p_init_msg_list => OKC_API.G_FALSE,
1652: x_return_status => x_return_status,
1653: x_msg_count => x_msg_count,
1654: x_msg_data => x_msg_data,
1655: p_srav_rec => p_srav_tbl(i),
1658: i := p_srav_tbl.NEXT(i);
1659: END LOOP;
1660: END IF;
1661: EXCEPTION
1662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1664: (
1665: l_api_name,
1666: G_PKG_NAME,
1659: END LOOP;
1660: END IF;
1661: EXCEPTION
1662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1664: (
1665: l_api_name,
1666: G_PKG_NAME,
1667: 'OKC_API.G_RET_STS_ERROR',
1663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1664: (
1665: l_api_name,
1666: G_PKG_NAME,
1667: 'OKC_API.G_RET_STS_ERROR',
1668: x_msg_count,
1669: x_msg_data,
1670: '_PVT'
1671: );
1668: x_msg_count,
1669: x_msg_data,
1670: '_PVT'
1671: );
1672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1673: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1676: G_PKG_NAME,
1669: x_msg_data,
1670: '_PVT'
1671: );
1672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1673: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1676: G_PKG_NAME,
1677: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1673: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1676: G_PKG_NAME,
1677: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1678: x_msg_count,
1679: x_msg_data,
1680: '_PVT'
1681: );
1679: x_msg_data,
1680: '_PVT'
1681: );
1682: WHEN OTHERS THEN
1683: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1684: (
1685: l_api_name,
1686: G_PKG_NAME,
1687: 'OTHERS',
1705: p_sra_rec IN sra_rec_type) IS
1706:
1707: l_api_version CONSTANT NUMBER := 1;
1708: l_api_name CONSTANT VARCHAR2(30) := 'RESPS_delete_row';
1709: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1710: l_sra_rec sra_rec_type:= p_sra_rec;
1711: l_row_notfound BOOLEAN := TRUE;
1712: BEGIN
1713: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1709: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1710: l_sra_rec sra_rec_type:= p_sra_rec;
1711: l_row_notfound BOOLEAN := TRUE;
1712: BEGIN
1713: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1714: p_init_msg_list,
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1713: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1714: p_init_msg_list,
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1714: p_init_msg_list,
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: DELETE FROM OKC_SUBCLASS_RESPS
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: DELETE FROM OKC_SUBCLASS_RESPS
1723: WHERE RESP_ID = l_sra_rec.resp_id AND
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: DELETE FROM OKC_SUBCLASS_RESPS
1723: WHERE RESP_ID = l_sra_rec.resp_id AND
1724: SCS_CODE = l_sra_rec.scs_code;
1722: DELETE FROM OKC_SUBCLASS_RESPS
1723: WHERE RESP_ID = l_sra_rec.resp_id AND
1724: SCS_CODE = l_sra_rec.scs_code;
1725:
1726: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1727: EXCEPTION
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1730: (
1724: SCS_CODE = l_sra_rec.scs_code;
1725:
1726: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1727: EXCEPTION
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1725:
1726: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1727: EXCEPTION
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1733: 'OKC_API.G_RET_STS_ERROR',
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1733: 'OKC_API.G_RET_STS_ERROR',
1734: x_msg_count,
1735: x_msg_data,
1736: '_PVT'
1737: );
1734: x_msg_count,
1735: x_msg_data,
1736: '_PVT'
1737: );
1738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1739: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1740: (
1741: l_api_name,
1742: G_PKG_NAME,
1735: x_msg_data,
1736: '_PVT'
1737: );
1738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1739: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1740: (
1741: l_api_name,
1742: G_PKG_NAME,
1743: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1739: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1740: (
1741: l_api_name,
1742: G_PKG_NAME,
1743: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1744: x_msg_count,
1745: x_msg_data,
1746: '_PVT'
1747: );
1745: x_msg_data,
1746: '_PVT'
1747: );
1748: WHEN OTHERS THEN
1749: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1750: (
1751: l_api_name,
1752: G_PKG_NAME,
1753: 'OTHERS',
1768: p_srav_rec IN srav_rec_type) IS
1769:
1770: l_api_version CONSTANT NUMBER := 1;
1771: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1773: l_srav_rec srav_rec_type := p_srav_rec;
1774: l_sra_rec sra_rec_type;
1775: BEGIN
1776: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1773: l_srav_rec srav_rec_type := p_srav_rec;
1774: l_sra_rec sra_rec_type;
1775: BEGIN
1776: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1777: G_PKG_NAME,
1778: p_init_msg_list,
1779: l_api_version,
1780: p_api_version,
1779: l_api_version,
1780: p_api_version,
1781: '_PVT',
1782: x_return_status);
1783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1780: p_api_version,
1781: '_PVT',
1782: x_return_status);
1783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: --------------------------------------
1781: '_PVT',
1782: x_return_status);
1783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: --------------------------------------
1789: -- Move VIEW record to "Child" records
1782: x_return_status);
1783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1785: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: --------------------------------------
1789: -- Move VIEW record to "Child" records
1790: --------------------------------------
1798: x_msg_count,
1799: x_msg_data,
1800: l_sra_rec
1801: );
1802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1799: x_msg_data,
1800: l_sra_rec
1801: );
1802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1800: l_sra_rec
1801: );
1802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1808: EXCEPTION
1801: );
1802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1808: EXCEPTION
1809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1808: EXCEPTION
1809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1811: (
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1808: EXCEPTION
1809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1811: (
1812: l_api_name,
1813: G_PKG_NAME,
1806: END IF;
1807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1808: EXCEPTION
1809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1811: (
1812: l_api_name,
1813: G_PKG_NAME,
1814: 'OKC_API.G_RET_STS_ERROR',
1810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1811: (
1812: l_api_name,
1813: G_PKG_NAME,
1814: 'OKC_API.G_RET_STS_ERROR',
1815: x_msg_count,
1816: x_msg_data,
1817: '_PVT'
1818: );
1815: x_msg_count,
1816: x_msg_data,
1817: '_PVT'
1818: );
1819: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1820: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1816: x_msg_data,
1817: '_PVT'
1818: );
1819: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1820: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1820: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1825: x_msg_count,
1826: x_msg_data,
1827: '_PVT'
1828: );
1826: x_msg_data,
1827: '_PVT'
1828: );
1829: WHEN OTHERS THEN
1830: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'OTHERS',
1849: p_srav_tbl IN srav_tbl_type) IS
1850:
1851: l_api_version CONSTANT NUMBER := 1;
1852: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1853: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1854: i NUMBER := 0;
1855: BEGIN
1856: OKC_API.init_msg_list(p_init_msg_list);
1857: -- Make sure PL/SQL table has records in it before passing
1852: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1853: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1854: i NUMBER := 0;
1855: BEGIN
1856: OKC_API.init_msg_list(p_init_msg_list);
1857: -- Make sure PL/SQL table has records in it before passing
1858: IF (p_srav_tbl.COUNT > 0) THEN
1859: i := p_srav_tbl.FIRST;
1860: LOOP
1859: i := p_srav_tbl.FIRST;
1860: LOOP
1861: delete_row (
1862: p_api_version => p_api_version,
1863: p_init_msg_list => OKC_API.G_FALSE,
1864: x_return_status => x_return_status,
1865: x_msg_count => x_msg_count,
1866: x_msg_data => x_msg_data,
1867: p_srav_rec => p_srav_tbl(i));
1869: i := p_srav_tbl.NEXT(i);
1870: END LOOP;
1871: END IF;
1872: EXCEPTION
1873: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1875: (
1876: l_api_name,
1877: G_PKG_NAME,
1870: END LOOP;
1871: END IF;
1872: EXCEPTION
1873: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1875: (
1876: l_api_name,
1877: G_PKG_NAME,
1878: 'OKC_API.G_RET_STS_ERROR',
1874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1875: (
1876: l_api_name,
1877: G_PKG_NAME,
1878: 'OKC_API.G_RET_STS_ERROR',
1879: x_msg_count,
1880: x_msg_data,
1881: '_PVT'
1882: );
1879: x_msg_count,
1880: x_msg_data,
1881: '_PVT'
1882: );
1883: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1886: l_api_name,
1887: G_PKG_NAME,
1880: x_msg_data,
1881: '_PVT'
1882: );
1883: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1886: l_api_name,
1887: G_PKG_NAME,
1888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1886: l_api_name,
1887: G_PKG_NAME,
1888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1889: x_msg_count,
1890: x_msg_data,
1891: '_PVT'
1892: );
1890: x_msg_data,
1891: '_PVT'
1892: );
1893: WHEN OTHERS THEN
1894: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1895: (
1896: l_api_name,
1897: G_PKG_NAME,
1898: 'OTHERS',