212: p_cahv_rec IN cahv_rec_type
213: ) RETURN cahv_rec_type IS
214: l_cahv_rec cahv_rec_type := p_cahv_rec;
215: BEGIN
216: IF (l_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
217: l_cahv_rec.object_version_number := NULL;
218: END IF;
219: IF (l_cahv_rec.name = Okl_Api.G_MISS_CHAR) THEN
220: l_cahv_rec.name := NULL;
215: BEGIN
216: IF (l_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
217: l_cahv_rec.object_version_number := NULL;
218: END IF;
219: IF (l_cahv_rec.name = Okl_Api.G_MISS_CHAR) THEN
220: l_cahv_rec.name := NULL;
221: END IF;
222: IF (l_cahv_rec.description = Okl_Api.G_MISS_CHAR) THEN
223: l_cahv_rec.description := NULL;
218: END IF;
219: IF (l_cahv_rec.name = Okl_Api.G_MISS_CHAR) THEN
220: l_cahv_rec.name := NULL;
221: END IF;
222: IF (l_cahv_rec.description = Okl_Api.G_MISS_CHAR) THEN
223: l_cahv_rec.description := NULL;
224: END IF;
225: IF (l_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
226: l_cahv_rec.sequence_number := NULL;
221: END IF;
222: IF (l_cahv_rec.description = Okl_Api.G_MISS_CHAR) THEN
223: l_cahv_rec.description := NULL;
224: END IF;
225: IF (l_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
226: l_cahv_rec.sequence_number := NULL;
227: END IF;
228: IF (l_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
229: l_cahv_rec.attribute_category := NULL;
224: END IF;
225: IF (l_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
226: l_cahv_rec.sequence_number := NULL;
227: END IF;
228: IF (l_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
229: l_cahv_rec.attribute_category := NULL;
230: END IF;
231: IF (l_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
232: l_cahv_rec.attribute1 := NULL;
227: END IF;
228: IF (l_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
229: l_cahv_rec.attribute_category := NULL;
230: END IF;
231: IF (l_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
232: l_cahv_rec.attribute1 := NULL;
233: END IF;
234: IF (l_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
235: l_cahv_rec.attribute2 := NULL;
230: END IF;
231: IF (l_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
232: l_cahv_rec.attribute1 := NULL;
233: END IF;
234: IF (l_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
235: l_cahv_rec.attribute2 := NULL;
236: END IF;
237: IF (l_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
238: l_cahv_rec.attribute3 := NULL;
233: END IF;
234: IF (l_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
235: l_cahv_rec.attribute2 := NULL;
236: END IF;
237: IF (l_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
238: l_cahv_rec.attribute3 := NULL;
239: END IF;
240: IF (l_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
241: l_cahv_rec.attribute4 := NULL;
236: END IF;
237: IF (l_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
238: l_cahv_rec.attribute3 := NULL;
239: END IF;
240: IF (l_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
241: l_cahv_rec.attribute4 := NULL;
242: END IF;
243: IF (l_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
244: l_cahv_rec.attribute5 := NULL;
239: END IF;
240: IF (l_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
241: l_cahv_rec.attribute4 := NULL;
242: END IF;
243: IF (l_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
244: l_cahv_rec.attribute5 := NULL;
245: END IF;
246: IF (l_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
247: l_cahv_rec.attribute6 := NULL;
242: END IF;
243: IF (l_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
244: l_cahv_rec.attribute5 := NULL;
245: END IF;
246: IF (l_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
247: l_cahv_rec.attribute6 := NULL;
248: END IF;
249: IF (l_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
250: l_cahv_rec.attribute7 := NULL;
245: END IF;
246: IF (l_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
247: l_cahv_rec.attribute6 := NULL;
248: END IF;
249: IF (l_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
250: l_cahv_rec.attribute7 := NULL;
251: END IF;
252: IF (l_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
253: l_cahv_rec.attribute8 := NULL;
248: END IF;
249: IF (l_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
250: l_cahv_rec.attribute7 := NULL;
251: END IF;
252: IF (l_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
253: l_cahv_rec.attribute8 := NULL;
254: END IF;
255: IF (l_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
256: l_cahv_rec.attribute9 := NULL;
251: END IF;
252: IF (l_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
253: l_cahv_rec.attribute8 := NULL;
254: END IF;
255: IF (l_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
256: l_cahv_rec.attribute9 := NULL;
257: END IF;
258: IF (l_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
259: l_cahv_rec.attribute10 := NULL;
254: END IF;
255: IF (l_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
256: l_cahv_rec.attribute9 := NULL;
257: END IF;
258: IF (l_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
259: l_cahv_rec.attribute10 := NULL;
260: END IF;
261: IF (l_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
262: l_cahv_rec.attribute11 := NULL;
257: END IF;
258: IF (l_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
259: l_cahv_rec.attribute10 := NULL;
260: END IF;
261: IF (l_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
262: l_cahv_rec.attribute11 := NULL;
263: END IF;
264: IF (l_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
265: l_cahv_rec.attribute12 := NULL;
260: END IF;
261: IF (l_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
262: l_cahv_rec.attribute11 := NULL;
263: END IF;
264: IF (l_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
265: l_cahv_rec.attribute12 := NULL;
266: END IF;
267: IF (l_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
268: l_cahv_rec.attribute13 := NULL;
263: END IF;
264: IF (l_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
265: l_cahv_rec.attribute12 := NULL;
266: END IF;
267: IF (l_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
268: l_cahv_rec.attribute13 := NULL;
269: END IF;
270: IF (l_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
271: l_cahv_rec.attribute14 := NULL;
266: END IF;
267: IF (l_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
268: l_cahv_rec.attribute13 := NULL;
269: END IF;
270: IF (l_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
271: l_cahv_rec.attribute14 := NULL;
272: END IF;
273: IF (l_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
274: l_cahv_rec.attribute15 := NULL;
269: END IF;
270: IF (l_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
271: l_cahv_rec.attribute14 := NULL;
272: END IF;
273: IF (l_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
274: l_cahv_rec.attribute15 := NULL;
275: END IF;
276: IF (l_cahv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
277: l_cahv_rec.org_id := NULL;
272: END IF;
273: IF (l_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
274: l_cahv_rec.attribute15 := NULL;
275: END IF;
276: IF (l_cahv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
277: l_cahv_rec.org_id := NULL;
278: END IF;
279: IF (l_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR) THEN
280: l_cahv_rec.cash_search_type := NULL;
275: END IF;
276: IF (l_cahv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
277: l_cahv_rec.org_id := NULL;
278: END IF;
279: IF (l_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR) THEN
280: l_cahv_rec.cash_search_type := NULL;
281: END IF;
282: IF (l_cahv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
283: l_cahv_rec.created_by := NULL;
278: END IF;
279: IF (l_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR) THEN
280: l_cahv_rec.cash_search_type := NULL;
281: END IF;
282: IF (l_cahv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
283: l_cahv_rec.created_by := NULL;
284: END IF;
285: IF (l_cahv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
286: l_cahv_rec.creation_date := NULL;
281: END IF;
282: IF (l_cahv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
283: l_cahv_rec.created_by := NULL;
284: END IF;
285: IF (l_cahv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
286: l_cahv_rec.creation_date := NULL;
287: END IF;
288: IF (l_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
289: l_cahv_rec.last_updated_by := NULL;
284: END IF;
285: IF (l_cahv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
286: l_cahv_rec.creation_date := NULL;
287: END IF;
288: IF (l_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
289: l_cahv_rec.last_updated_by := NULL;
290: END IF;
291: IF (l_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
292: l_cahv_rec.last_update_date := NULL;
287: END IF;
288: IF (l_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
289: l_cahv_rec.last_updated_by := NULL;
290: END IF;
291: IF (l_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
292: l_cahv_rec.last_update_date := NULL;
293: END IF;
294: IF (l_cahv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
295: l_cahv_rec.last_update_login := NULL;
290: END IF;
291: IF (l_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
292: l_cahv_rec.last_update_date := NULL;
293: END IF;
294: IF (l_cahv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
295: l_cahv_rec.last_update_login := NULL;
296: END IF;
297: RETURN(l_cahv_rec);
298: END null_out_defaults;
313: x_return_status OUT NOCOPY VARCHAR2) IS
314:
315: BEGIN
316:
317: x_return_status:=Okl_Api.G_RET_STS_SUCCESS;
318: --check not null
319: IF (p_cahv_rec.name IS NULL) OR (p_cahv_rec.name = Okl_Api.G_MISS_CHAR) OR
320: (p_cahv_rec.sequence_number IS NULL) OR (p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
321:
315: BEGIN
316:
317: x_return_status:=Okl_Api.G_RET_STS_SUCCESS;
318: --check not null
319: IF (p_cahv_rec.name IS NULL) OR (p_cahv_rec.name = Okl_Api.G_MISS_CHAR) OR
320: (p_cahv_rec.sequence_number IS NULL) OR (p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
321:
322: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
323: ,p_msg_name => 'OKL_BPD_MISSING_FIELDS');
316:
317: x_return_status:=Okl_Api.G_RET_STS_SUCCESS;
318: --check not null
319: IF (p_cahv_rec.name IS NULL) OR (p_cahv_rec.name = Okl_Api.G_MISS_CHAR) OR
320: (p_cahv_rec.sequence_number IS NULL) OR (p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
321:
322: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
323: ,p_msg_name => 'OKL_BPD_MISSING_FIELDS');
324:
318: --check not null
319: IF (p_cahv_rec.name IS NULL) OR (p_cahv_rec.name = Okl_Api.G_MISS_CHAR) OR
320: (p_cahv_rec.sequence_number IS NULL) OR (p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM) THEN
321:
322: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
323: ,p_msg_name => 'OKL_BPD_MISSING_FIELDS');
324:
325: RAISE G_EXCEPTION_HALT_VALIDATION;
326: -- x_return_status := Okl_Api.G_RET_STS_ERROR;
322: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
323: ,p_msg_name => 'OKL_BPD_MISSING_FIELDS');
324:
325: RAISE G_EXCEPTION_HALT_VALIDATION;
326: -- x_return_status := Okl_Api.G_RET_STS_ERROR;
327:
328: END IF;
329:
330: END validate_name;
336: FROM okl_csh_allct_srchs
337: WHERE name = p_cahv_rec.name
338: AND id <> NVL(p_cahv_rec.id,-99999);
339:
340: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
341: l_dummy VARCHAR2(1);
342: l_found BOOLEAN;
343:
344: BEGIN
347: FETCH l_chr_csr INTO l_dummy;
348: CLOSE l_chr_csr;
349:
350: IF l_dummy = 'x' THEN
351: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
352: ,p_msg_name => 'OKL_BPD_DUP_COMBI_NAME');
353:
354: l_return_status := Okl_Api.G_RET_STS_ERROR;
355: END IF;
350: IF l_dummy = 'x' THEN
351: Okl_Api.SET_MESSAGE(p_app_name => 'OKL'
352: ,p_msg_name => 'OKL_BPD_DUP_COMBI_NAME');
353:
354: l_return_status := Okl_Api.G_RET_STS_ERROR;
355: END IF;
356:
357: RETURN (l_return_status);
358:
365: ---------------------------------------------------
366: FUNCTION Validate_Attributes (
367: p_cahv_rec IN cahv_rec_type
368: ) RETURN VARCHAR2 IS
369: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
370: -- Added 04/23/2001 -- Bruno Vaghela
371: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
372:
373: BEGIN
367: p_cahv_rec IN cahv_rec_type
368: ) RETURN VARCHAR2 IS
369: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
370: -- Added 04/23/2001 -- Bruno Vaghela
371: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
372:
373: BEGIN
374:
375: --Added 04/23/2001 Bruno Vaghela ---
374:
375: --Added 04/23/2001 Bruno Vaghela ---
376:
377: validate_name(p_cahv_rec, x_return_status);
378: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
379: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
380: l_return_status := x_return_status;
381: RAISE G_EXCEPTION_HALT_VALIDATION;
382: ELSE
375: --Added 04/23/2001 Bruno Vaghela ---
376:
377: validate_name(p_cahv_rec, x_return_status);
378: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
379: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
380: l_return_status := x_return_status;
381: RAISE G_EXCEPTION_HALT_VALIDATION;
382: ELSE
383: l_return_status := x_return_status; -- record that there was an error
385: END IF;
386:
387: --END 04/23/2001 Bruno Vaghela ---
388:
389: IF p_cahv_rec.id = Okl_Api.G_MISS_NUM OR
390: p_cahv_rec.id IS NULL
391: THEN
392: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
393: l_return_status := Okl_Api.G_RET_STS_ERROR;
388:
389: IF p_cahv_rec.id = Okl_Api.G_MISS_NUM OR
390: p_cahv_rec.id IS NULL
391: THEN
392: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
393: l_return_status := Okl_Api.G_RET_STS_ERROR;
394: ELSIF p_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
395: p_cahv_rec.object_version_number IS NULL
396: THEN
389: IF p_cahv_rec.id = Okl_Api.G_MISS_NUM OR
390: p_cahv_rec.id IS NULL
391: THEN
392: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
393: l_return_status := Okl_Api.G_RET_STS_ERROR;
394: ELSIF p_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
395: p_cahv_rec.object_version_number IS NULL
396: THEN
397: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
390: p_cahv_rec.id IS NULL
391: THEN
392: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
393: l_return_status := Okl_Api.G_RET_STS_ERROR;
394: ELSIF p_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
395: p_cahv_rec.object_version_number IS NULL
396: THEN
397: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
398: l_return_status := Okl_Api.G_RET_STS_ERROR;
393: l_return_status := Okl_Api.G_RET_STS_ERROR;
394: ELSIF p_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
395: p_cahv_rec.object_version_number IS NULL
396: THEN
397: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
398: l_return_status := Okl_Api.G_RET_STS_ERROR;
399: ELSIF p_cahv_rec.name = Okl_Api.G_MISS_CHAR OR
400: p_cahv_rec.name IS NULL
401: THEN
394: ELSIF p_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
395: p_cahv_rec.object_version_number IS NULL
396: THEN
397: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
398: l_return_status := Okl_Api.G_RET_STS_ERROR;
399: ELSIF p_cahv_rec.name = Okl_Api.G_MISS_CHAR OR
400: p_cahv_rec.name IS NULL
401: THEN
402: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
395: p_cahv_rec.object_version_number IS NULL
396: THEN
397: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
398: l_return_status := Okl_Api.G_RET_STS_ERROR;
399: ELSIF p_cahv_rec.name = Okl_Api.G_MISS_CHAR OR
400: p_cahv_rec.name IS NULL
401: THEN
402: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
403: l_return_status := Okl_Api.G_RET_STS_ERROR;
398: l_return_status := Okl_Api.G_RET_STS_ERROR;
399: ELSIF p_cahv_rec.name = Okl_Api.G_MISS_CHAR OR
400: p_cahv_rec.name IS NULL
401: THEN
402: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
403: l_return_status := Okl_Api.G_RET_STS_ERROR;
404: ELSIF p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
405: p_cahv_rec.sequence_number IS NULL
406: THEN
399: ELSIF p_cahv_rec.name = Okl_Api.G_MISS_CHAR OR
400: p_cahv_rec.name IS NULL
401: THEN
402: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
403: l_return_status := Okl_Api.G_RET_STS_ERROR;
404: ELSIF p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
405: p_cahv_rec.sequence_number IS NULL
406: THEN
407: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
400: p_cahv_rec.name IS NULL
401: THEN
402: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
403: l_return_status := Okl_Api.G_RET_STS_ERROR;
404: ELSIF p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
405: p_cahv_rec.sequence_number IS NULL
406: THEN
407: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
408: l_return_status := Okl_Api.G_RET_STS_ERROR;
403: l_return_status := Okl_Api.G_RET_STS_ERROR;
404: ELSIF p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
405: p_cahv_rec.sequence_number IS NULL
406: THEN
407: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
408: l_return_status := Okl_Api.G_RET_STS_ERROR;
409: ELSIF p_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR OR
410: p_cahv_rec.cash_search_type IS NULL
411: THEN
404: ELSIF p_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
405: p_cahv_rec.sequence_number IS NULL
406: THEN
407: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
408: l_return_status := Okl_Api.G_RET_STS_ERROR;
409: ELSIF p_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR OR
410: p_cahv_rec.cash_search_type IS NULL
411: THEN
412: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cash_search_type');
405: p_cahv_rec.sequence_number IS NULL
406: THEN
407: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
408: l_return_status := Okl_Api.G_RET_STS_ERROR;
409: ELSIF p_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR OR
410: p_cahv_rec.cash_search_type IS NULL
411: THEN
412: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cash_search_type');
413: l_return_status := Okl_Api.G_RET_STS_ERROR;
408: l_return_status := Okl_Api.G_RET_STS_ERROR;
409: ELSIF p_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR OR
410: p_cahv_rec.cash_search_type IS NULL
411: THEN
412: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cash_search_type');
413: l_return_status := Okl_Api.G_RET_STS_ERROR;
414: END IF;
415: RETURN(l_return_status);
416: END Validate_Attributes;
409: ELSIF p_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR OR
410: p_cahv_rec.cash_search_type IS NULL
411: THEN
412: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cash_search_type');
413: l_return_status := Okl_Api.G_RET_STS_ERROR;
414: END IF;
415: RETURN(l_return_status);
416: END Validate_Attributes;
417:
426:
427: FUNCTION Validate_Record (
428: p_cahv_rec IN cahv_rec_type
429: ) RETURN VARCHAR2 IS
430: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
431: BEGIN
432:
433: l_return_status := IS_UNIQUE(p_cahv_rec);
434:
551: -- validate_row for:OKL_CSH_ALLCT_SRCHS_V --
552: --------------------------------------------
553: PROCEDURE validate_row(
554: p_api_version IN NUMBER,
555: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
556: x_return_status OUT NOCOPY VARCHAR2,
557: x_msg_count OUT NOCOPY NUMBER,
558: x_msg_data OUT NOCOPY VARCHAR2,
559: p_cahv_rec IN cahv_rec_type) IS
559: p_cahv_rec IN cahv_rec_type) IS
560:
561: l_api_version CONSTANT NUMBER := 1;
562: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
563: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
564: l_cahv_rec cahv_rec_type := p_cahv_rec;
565: l_cah_rec cah_rec_type;
566: BEGIN
567: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
563: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
564: l_cahv_rec cahv_rec_type := p_cahv_rec;
565: l_cah_rec cah_rec_type;
566: BEGIN
567: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
568: G_PKG_NAME,
569: p_init_msg_list,
570: l_api_version,
571: p_api_version,
570: l_api_version,
571: p_api_version,
572: '_PVT',
573: x_return_status);
574: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
577: RAISE Okl_Api.G_EXCEPTION_ERROR;
578: END IF;
571: p_api_version,
572: '_PVT',
573: x_return_status);
574: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
577: RAISE Okl_Api.G_EXCEPTION_ERROR;
578: END IF;
579: --- Validate all non-missing attributes (Item Level Validation)
572: '_PVT',
573: x_return_status);
574: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
577: RAISE Okl_Api.G_EXCEPTION_ERROR;
578: END IF;
579: --- Validate all non-missing attributes (Item Level Validation)
580: l_return_status := Validate_Attributes(l_cahv_rec);
573: x_return_status);
574: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
575: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
577: RAISE Okl_Api.G_EXCEPTION_ERROR;
578: END IF;
579: --- Validate all non-missing attributes (Item Level Validation)
580: l_return_status := Validate_Attributes(l_cahv_rec);
581: --- If any errors happen abort API
578: END IF;
579: --- Validate all non-missing attributes (Item Level Validation)
580: l_return_status := Validate_Attributes(l_cahv_rec);
581: --- If any errors happen abort API
582: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
579: --- Validate all non-missing attributes (Item Level Validation)
580: l_return_status := Validate_Attributes(l_cahv_rec);
581: --- If any errors happen abort API
582: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
580: l_return_status := Validate_Attributes(l_cahv_rec);
581: --- If any errors happen abort API
582: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
581: --- If any errors happen abort API
582: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
585: RAISE Okl_Api.G_EXCEPTION_ERROR;
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
586: END IF;
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
594: EXCEPTION
587: l_return_status := Validate_Record(l_cahv_rec);
588: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
594: EXCEPTION
595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
594: EXCEPTION
595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
597: (
591: RAISE Okl_Api.G_EXCEPTION_ERROR;
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
594: EXCEPTION
595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
597: (
598: l_api_name,
599: G_PKG_NAME,
592: END IF;
593: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
594: EXCEPTION
595: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
597: (
598: l_api_name,
599: G_PKG_NAME,
600: 'Okl_Api.G_RET_STS_ERROR',
596: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
597: (
598: l_api_name,
599: G_PKG_NAME,
600: 'Okl_Api.G_RET_STS_ERROR',
601: x_msg_count,
602: x_msg_data,
603: '_PVT'
604: );
601: x_msg_count,
602: x_msg_data,
603: '_PVT'
604: );
605: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
602: x_msg_data,
603: '_PVT'
604: );
605: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
610: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
606: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
610: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
611: x_msg_count,
612: x_msg_data,
613: '_PVT'
614: );
612: x_msg_data,
613: '_PVT'
614: );
615: WHEN OTHERS THEN
616: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
617: (
618: l_api_name,
619: G_PKG_NAME,
620: 'OTHERS',
627: -- PL/SQL TBL validate_row for:CAHV_TBL --
628: ------------------------------------------
629: PROCEDURE validate_row(
630: p_api_version IN NUMBER,
631: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
632: x_return_status OUT NOCOPY VARCHAR2,
633: x_msg_count OUT NOCOPY NUMBER,
634: x_msg_data OUT NOCOPY VARCHAR2,
635: p_cahv_tbl IN cahv_tbl_type) IS
635: p_cahv_tbl IN cahv_tbl_type) IS
636:
637: l_api_version CONSTANT NUMBER := 1;
638: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
639: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
640: i NUMBER := 0;
641: -- Begin Post-Generation Change
642: -- overall error status
643: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
639: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
640: i NUMBER := 0;
641: -- Begin Post-Generation Change
642: -- overall error status
643: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
644: -- End Post-Generation Change
645: BEGIN
646: Okl_Api.init_msg_list(p_init_msg_list);
647: -- Make sure PL/SQL table has records in it before passing
642: -- overall error status
643: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
644: -- End Post-Generation Change
645: BEGIN
646: Okl_Api.init_msg_list(p_init_msg_list);
647: -- Make sure PL/SQL table has records in it before passing
648: IF (p_cahv_tbl.COUNT > 0) THEN
649: i := p_cahv_tbl.FIRST;
650: LOOP
649: i := p_cahv_tbl.FIRST;
650: LOOP
651: validate_row (
652: p_api_version => p_api_version,
653: p_init_msg_list => Okl_Api.G_FALSE,
654: x_return_status => x_return_status,
655: x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data,
657: p_cahv_rec => p_cahv_tbl(i));
657: p_cahv_rec => p_cahv_tbl(i));
658:
659: -- Begin Post-Generation Change
660: -- store the highest degree of error
661: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
662: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
663: l_overall_status := x_return_status;
664: END IF;
665: END IF;
658:
659: -- Begin Post-Generation Change
660: -- store the highest degree of error
661: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
662: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
663: l_overall_status := x_return_status;
664: END IF;
665: END IF;
666: -- End Post-Generation Change
675: -- End Post-Generation Change
676:
677: END IF;
678: EXCEPTION
679: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
680: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
676:
677: END IF;
678: EXCEPTION
679: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
680: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
684: 'Okl_Api.G_RET_STS_ERROR',
680: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
684: 'Okl_Api.G_RET_STS_ERROR',
685: x_msg_count,
686: x_msg_data,
687: '_PVT'
688: );
685: x_msg_count,
686: x_msg_data,
687: '_PVT'
688: );
689: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
690: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
691: (
692: l_api_name,
693: G_PKG_NAME,
686: x_msg_data,
687: '_PVT'
688: );
689: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
690: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
691: (
692: l_api_name,
693: G_PKG_NAME,
694: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
690: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
691: (
692: l_api_name,
693: G_PKG_NAME,
694: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
695: x_msg_count,
696: x_msg_data,
697: '_PVT'
698: );
696: x_msg_data,
697: '_PVT'
698: );
699: WHEN OTHERS THEN
700: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
701: (
702: l_api_name,
703: G_PKG_NAME,
704: 'OTHERS',
715: -- insert_row for:OKL_CSH_ALLCT_SRCHS_H --
716: ------------------------------------------
717: /* -- history tables not supported -- 04 APR 2002
718: PROCEDURE insert_row(
719: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
720: x_return_status OUT NOCOPY VARCHAR2,
721: x_msg_count OUT NOCOPY NUMBER,
722: x_msg_data OUT NOCOPY VARCHAR2,
723: p_okl_csh_allct_srchs_h_rec IN okl_csh_allct_srchs_h_rec_type,
724: x_okl_csh_allct_srchs_h_rec OUT NOCOPY okl_csh_allct_srchs_h_rec_type) IS
725:
726: l_api_version CONSTANT NUMBER := 1;
727: l_api_name CONSTANT VARCHAR2(30) := 'H_insert_row';
728: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
729: l_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type := p_okl_csh_allct_srchs_h_rec;
730: ldefoklcshallctsrchshrec okl_csh_allct_srchs_h_rec_type;
731: ----------------------------------------------
732: -- Set_Attributes for:OKL_CSH_ALLCT_SRCHS_H --
734: FUNCTION Set_Attributes (
735: p_okl_csh_allct_srchs_h_rec IN okl_csh_allct_srchs_h_rec_type,
736: x_okl_csh_allct_srchs_h_rec OUT NOCOPY okl_csh_allct_srchs_h_rec_type
737: ) RETURN VARCHAR2 IS
738: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
739: BEGIN
740: x_okl_csh_allct_srchs_h_rec := p_okl_csh_allct_srchs_h_rec;
741: RETURN(l_return_status);
742: END Set_Attributes;
740: x_okl_csh_allct_srchs_h_rec := p_okl_csh_allct_srchs_h_rec;
741: RETURN(l_return_status);
742: END Set_Attributes;
743: BEGIN
744: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
745: p_init_msg_list,
746: '_PVT',
747: x_return_status);
748: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
744: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
745: p_init_msg_list,
746: '_PVT',
747: x_return_status);
748: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
749: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
750: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
751: RAISE Okl_Api.G_EXCEPTION_ERROR;
752: END IF;
745: p_init_msg_list,
746: '_PVT',
747: x_return_status);
748: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
749: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
750: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
751: RAISE Okl_Api.G_EXCEPTION_ERROR;
752: END IF;
753: --- Setting item attributes
746: '_PVT',
747: x_return_status);
748: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
749: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
750: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
751: RAISE Okl_Api.G_EXCEPTION_ERROR;
752: END IF;
753: --- Setting item attributes
754: l_return_status := Set_Attributes(
747: x_return_status);
748: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
749: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
750: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
751: RAISE Okl_Api.G_EXCEPTION_ERROR;
752: END IF;
753: --- Setting item attributes
754: l_return_status := Set_Attributes(
755: p_okl_csh_allct_srchs_h_rec, -- IN
754: l_return_status := Set_Attributes(
755: p_okl_csh_allct_srchs_h_rec, -- IN
756: l_okl_csh_allct_srchs_h_rec); -- OUT
757: --- If any errors happen abort API
758: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
761: RAISE Okl_Api.G_EXCEPTION_ERROR;
762: END IF;
755: p_okl_csh_allct_srchs_h_rec, -- IN
756: l_okl_csh_allct_srchs_h_rec); -- OUT
757: --- If any errors happen abort API
758: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
761: RAISE Okl_Api.G_EXCEPTION_ERROR;
762: END IF;
763:
756: l_okl_csh_allct_srchs_h_rec); -- OUT
757: --- If any errors happen abort API
758: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
761: RAISE Okl_Api.G_EXCEPTION_ERROR;
762: END IF;
763:
764: ---------------------------------------------
757: --- If any errors happen abort API
758: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
761: RAISE Okl_Api.G_EXCEPTION_ERROR;
762: END IF;
763:
764: ---------------------------------------------
765: --Condition added by PB Suresh for Bug 2482011
764: ---------------------------------------------
765: --Condition added by PB Suresh for Bug 2482011
766: ---------------------------------------------
767: l_return_status := Validate_Record(l_def_cahv_rec);
768: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
771: RAISE Okl_Api.G_EXCEPTION_ERROR;
772: END IF;
765: --Condition added by PB Suresh for Bug 2482011
766: ---------------------------------------------
767: l_return_status := Validate_Record(l_def_cahv_rec);
768: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
771: RAISE Okl_Api.G_EXCEPTION_ERROR;
772: END IF;
773: INSERT INTO OKL_CSH_ALLCT_SRCHS_H(
766: ---------------------------------------------
767: l_return_status := Validate_Record(l_def_cahv_rec);
768: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
771: RAISE Okl_Api.G_EXCEPTION_ERROR;
772: END IF;
773: INSERT INTO OKL_CSH_ALLCT_SRCHS_H(
774: id,
767: l_return_status := Validate_Record(l_def_cahv_rec);
768: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
771: RAISE Okl_Api.G_EXCEPTION_ERROR;
772: END IF;
773: INSERT INTO OKL_CSH_ALLCT_SRCHS_H(
774: id,
775: major_version,
829: l_okl_csh_allct_srchs_h_rec.last_update_date,
830: l_okl_csh_allct_srchs_h_rec.last_update_login);
831: -- Set OUT values
832: x_okl_csh_allct_srchs_h_rec := l_okl_csh_allct_srchs_h_rec;
833: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
834: EXCEPTION
835: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
836: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
837: (
831: -- Set OUT values
832: x_okl_csh_allct_srchs_h_rec := l_okl_csh_allct_srchs_h_rec;
833: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
834: EXCEPTION
835: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
836: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
837: (
838: l_api_name,
839: G_PKG_NAME,
832: x_okl_csh_allct_srchs_h_rec := l_okl_csh_allct_srchs_h_rec;
833: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
834: EXCEPTION
835: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
836: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
837: (
838: l_api_name,
839: G_PKG_NAME,
840: 'Okl_Api.G_RET_STS_ERROR',
836: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
837: (
838: l_api_name,
839: G_PKG_NAME,
840: 'Okl_Api.G_RET_STS_ERROR',
841: x_msg_count,
842: x_msg_data,
843: '_PVT'
844: );
841: x_msg_count,
842: x_msg_data,
843: '_PVT'
844: );
845: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
847: (
848: l_api_name,
849: G_PKG_NAME,
842: x_msg_data,
843: '_PVT'
844: );
845: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
847: (
848: l_api_name,
849: G_PKG_NAME,
850: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
846: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
847: (
848: l_api_name,
849: G_PKG_NAME,
850: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
851: x_msg_count,
852: x_msg_data,
853: '_PVT'
854: );
852: x_msg_data,
853: '_PVT'
854: );
855: WHEN OTHERS THEN
856: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
857: (
858: l_api_name,
859: G_PKG_NAME,
860: 'OTHERS',
867: ----------------------------------------
868: -- insert_row for:OKL_CSH_ALLCT_SRCHS --
869: ----------------------------------------
870: PROCEDURE insert_row(
871: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
872: x_return_status OUT NOCOPY VARCHAR2,
873: x_msg_count OUT NOCOPY NUMBER,
874: x_msg_data OUT NOCOPY VARCHAR2,
875: p_cah_rec IN cah_rec_type,
876: x_cah_rec OUT NOCOPY cah_rec_type) IS
877:
878: l_api_version CONSTANT NUMBER := 1;
879: l_api_name CONSTANT VARCHAR2(30) := 'SRCHS_insert_row';
880: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
881: l_cah_rec cah_rec_type := p_cah_rec;
882: l_def_cah_rec cah_rec_type;
883: --------------------------------------------
884: -- Set_Attributes for:OKL_CSH_ALLCT_SRCHS --
886: FUNCTION Set_Attributes (
887: p_cah_rec IN cah_rec_type,
888: x_cah_rec OUT NOCOPY cah_rec_type
889: ) RETURN VARCHAR2 IS
890: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
891: BEGIN
892: x_cah_rec := p_cah_rec;
893: RETURN(l_return_status);
894: END Set_Attributes;
892: x_cah_rec := p_cah_rec;
893: RETURN(l_return_status);
894: END Set_Attributes;
895: BEGIN
896: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
897: p_init_msg_list,
898: '_PVT',
899: x_return_status);
900: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
896: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
897: p_init_msg_list,
898: '_PVT',
899: x_return_status);
900: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
901: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
902: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
903: RAISE Okl_Api.G_EXCEPTION_ERROR;
904: END IF;
897: p_init_msg_list,
898: '_PVT',
899: x_return_status);
900: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
901: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
902: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
903: RAISE Okl_Api.G_EXCEPTION_ERROR;
904: END IF;
905: --- Setting item attributes
898: '_PVT',
899: x_return_status);
900: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
901: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
902: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
903: RAISE Okl_Api.G_EXCEPTION_ERROR;
904: END IF;
905: --- Setting item attributes
906: l_return_status := Set_Attributes(
899: x_return_status);
900: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
901: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
902: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
903: RAISE Okl_Api.G_EXCEPTION_ERROR;
904: END IF;
905: --- Setting item attributes
906: l_return_status := Set_Attributes(
907: p_cah_rec, -- IN
906: l_return_status := Set_Attributes(
907: p_cah_rec, -- IN
908: l_cah_rec); -- OUT
909: --- If any errors happen abort API
910: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
913: RAISE Okl_Api.G_EXCEPTION_ERROR;
914: END IF;
907: p_cah_rec, -- IN
908: l_cah_rec); -- OUT
909: --- If any errors happen abort API
910: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
913: RAISE Okl_Api.G_EXCEPTION_ERROR;
914: END IF;
915: INSERT INTO OKL_CSH_ALLCT_SRCHS(
908: l_cah_rec); -- OUT
909: --- If any errors happen abort API
910: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
913: RAISE Okl_Api.G_EXCEPTION_ERROR;
914: END IF;
915: INSERT INTO OKL_CSH_ALLCT_SRCHS(
916: id,
909: --- If any errors happen abort API
910: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
913: RAISE Okl_Api.G_EXCEPTION_ERROR;
914: END IF;
915: INSERT INTO OKL_CSH_ALLCT_SRCHS(
916: id,
917: name,
971: l_cah_rec.last_update_date,
972: l_cah_rec.last_update_login);
973: -- Set OUT values
974: x_cah_rec := l_cah_rec;
975: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
976: EXCEPTION
977: WHEN okl_api.G_EXCEPTION_ERROR THEN
978: x_return_status := 'E';
979: NULL;
973: -- Set OUT values
974: x_cah_rec := l_cah_rec;
975: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
976: EXCEPTION
977: WHEN okl_api.G_EXCEPTION_ERROR THEN
978: x_return_status := 'E';
979: NULL;
980: /*
981: x_return_status := okl_api.HANDLE_EXCEPTIONS
977: WHEN okl_api.G_EXCEPTION_ERROR THEN
978: x_return_status := 'E';
979: NULL;
980: /*
981: x_return_status := okl_api.HANDLE_EXCEPTIONS
982: (
983: l_api_name,
984: G_PKG_NAME,
985: 'okl_api.G_RET_STS_ERROR',
981: x_return_status := okl_api.HANDLE_EXCEPTIONS
982: (
983: l_api_name,
984: G_PKG_NAME,
985: 'okl_api.G_RET_STS_ERROR',
986: x_msg_count,
987: x_msg_data,
988: '_PVT'
989: );
987: x_msg_data,
988: '_PVT'
989: );
990: */
991: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
992: x_return_status := 'U';
993: NULL;
994: /*
995: x_return_status :=okl_api.HANDLE_EXCEPTIONS
991: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
992: x_return_status := 'U';
993: NULL;
994: /*
995: x_return_status :=okl_api.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
999: 'okl_api.G_RET_STS_UNEXP_ERROR',
995: x_return_status :=okl_api.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
999: 'okl_api.G_RET_STS_UNEXP_ERROR',
1000: x_msg_count,
1001: x_msg_data,
1002: '_PVT'
1003: );
1005: WHEN OTHERS THEN
1006: x_return_status := 'U';
1007: NULL;
1008: /*
1009: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1010: (
1011: l_api_name,
1012: G_PKG_NAME,
1013: 'OTHERS',
1021: -- insert_row for:OKL_CSH_ALLCT_SRCHS_V --
1022: ------------------------------------------
1023: PROCEDURE insert_row(
1024: p_api_version IN NUMBER,
1025: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1026: x_return_status OUT NOCOPY VARCHAR2,
1027: x_msg_count OUT NOCOPY NUMBER,
1028: x_msg_data OUT NOCOPY VARCHAR2,
1029: p_cahv_rec IN cahv_rec_type,
1030: x_cahv_rec OUT NOCOPY cahv_rec_type) IS
1031:
1032: l_api_version CONSTANT NUMBER := 1;
1033: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1034: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1035: l_cahv_rec cahv_rec_type;
1036: l_def_cahv_rec cahv_rec_type;
1037: l_cah_rec cah_rec_type;
1038: lx_cah_rec cah_rec_type;
1057: FUNCTION Set_Attributes (
1058: p_cahv_rec IN cahv_rec_type,
1059: x_cahv_rec OUT NOCOPY cahv_rec_type
1060: ) RETURN VARCHAR2 IS
1061: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1062: BEGIN
1063: x_cahv_rec := p_cahv_rec;
1064: x_cahv_rec.OBJECT_VERSION_NUMBER := 1;
1065: RETURN(l_return_status);
1064: x_cahv_rec.OBJECT_VERSION_NUMBER := 1;
1065: RETURN(l_return_status);
1066: END Set_Attributes;
1067: BEGIN
1068: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1069: G_PKG_NAME,
1070: p_init_msg_list,
1071: l_api_version,
1072: p_api_version,
1074: x_return_status);
1075:
1076:
1077:
1078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1081: RAISE Okl_Api.G_EXCEPTION_ERROR;
1082: END IF;
1075:
1076:
1077:
1078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1081: RAISE Okl_Api.G_EXCEPTION_ERROR;
1082: END IF;
1083:
1076:
1077:
1078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1081: RAISE Okl_Api.G_EXCEPTION_ERROR;
1082: END IF;
1083:
1084:
1077:
1078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1081: RAISE Okl_Api.G_EXCEPTION_ERROR;
1082: END IF;
1083:
1084:
1085:
1090: l_return_status := Set_Attributes(
1091: l_cahv_rec, -- IN
1092: l_def_cahv_rec); -- OUT
1093: --- If any errors happen abort API
1094: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1097: RAISE Okl_Api.G_EXCEPTION_ERROR;
1098: END IF;
1091: l_cahv_rec, -- IN
1092: l_def_cahv_rec); -- OUT
1093: --- If any errors happen abort API
1094: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1097: RAISE Okl_Api.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
1092: l_def_cahv_rec); -- OUT
1093: --- If any errors happen abort API
1094: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1097: RAISE Okl_Api.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1093: --- If any errors happen abort API
1094: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1097: RAISE Okl_Api.G_EXCEPTION_ERROR;
1098: END IF;
1099: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1101: l_return_status := Validate_Attributes(l_def_cahv_rec);
1099: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1101: l_return_status := Validate_Attributes(l_def_cahv_rec);
1102: --- If any errors happen abort API
1103: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1100: --- Validate all non-missing attributes (Item Level Validation)
1101: l_return_status := Validate_Attributes(l_def_cahv_rec);
1102: --- If any errors happen abort API
1103: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1101: l_return_status := Validate_Attributes(l_def_cahv_rec);
1102: --- If any errors happen abort API
1103: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1102: --- If any errors happen abort API
1103: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1104: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1111: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1112: RAISE Okl_Api.G_EXCEPTION_ERROR;
1113: END IF;
1106: RAISE Okl_Api.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1111: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1112: RAISE Okl_Api.G_EXCEPTION_ERROR;
1113: END IF;
1114: --------------------------------------
1107: END IF;
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1111: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1112: RAISE Okl_Api.G_EXCEPTION_ERROR;
1113: END IF;
1114: --------------------------------------
1115: -- Move VIEW record to "Child" records
1108: l_return_status := Validate_Record(l_def_cahv_rec);
1109: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1111: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1112: RAISE Okl_Api.G_EXCEPTION_ERROR;
1113: END IF;
1114: --------------------------------------
1115: -- Move VIEW record to "Child" records
1116: --------------------------------------
1126: l_cah_rec,
1127: lx_cah_rec
1128: );
1129:
1130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_ERROR;
1134: END IF;
1127: lx_cah_rec
1128: );
1129:
1130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_ERROR;
1134: END IF;
1135: migrate(lx_cah_rec, l_def_cahv_rec);
1128: );
1129:
1130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_ERROR;
1134: END IF;
1135: migrate(lx_cah_rec, l_def_cahv_rec);
1136: -- Set OUT values
1129:
1130: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_ERROR;
1134: END IF;
1135: migrate(lx_cah_rec, l_def_cahv_rec);
1136: -- Set OUT values
1137: x_cahv_rec := l_def_cahv_rec;
1134: END IF;
1135: migrate(lx_cah_rec, l_def_cahv_rec);
1136: -- Set OUT values
1137: x_cahv_rec := l_def_cahv_rec;
1138: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1139: EXCEPTION
1140: WHEN okl_api.G_EXCEPTION_ERROR THEN
1141: x_return_status := 'E';
1142: NULL;
1136: -- Set OUT values
1137: x_cahv_rec := l_def_cahv_rec;
1138: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1139: EXCEPTION
1140: WHEN okl_api.G_EXCEPTION_ERROR THEN
1141: x_return_status := 'E';
1142: NULL;
1143: /*
1144: x_return_status := okl_api.HANDLE_EXCEPTIONS
1140: WHEN okl_api.G_EXCEPTION_ERROR THEN
1141: x_return_status := 'E';
1142: NULL;
1143: /*
1144: x_return_status := okl_api.HANDLE_EXCEPTIONS
1145: (
1146: l_api_name,
1147: G_PKG_NAME,
1148: 'okl_api.G_RET_STS_ERROR',
1144: x_return_status := okl_api.HANDLE_EXCEPTIONS
1145: (
1146: l_api_name,
1147: G_PKG_NAME,
1148: 'okl_api.G_RET_STS_ERROR',
1149: x_msg_count,
1150: x_msg_data,
1151: '_PVT'
1152: );
1150: x_msg_data,
1151: '_PVT'
1152: );
1153: */
1154: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1155: x_return_status := 'U';
1156: NULL;
1157: /*
1158: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1154: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1155: x_return_status := 'U';
1156: NULL;
1157: /*
1158: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'okl_api.G_RET_STS_UNEXP_ERROR',
1158: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'okl_api.G_RET_STS_UNEXP_ERROR',
1163: x_msg_count,
1164: x_msg_data,
1165: '_PVT'
1166: );
1168: WHEN OTHERS THEN
1169: x_return_status := 'U';
1170: NULL;
1171: /*
1172: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1173: (
1174: l_api_name,
1175: G_PKG_NAME,
1176: 'OTHERS',
1184: -- PL/SQL TBL insert_row for:CAHV_TBL --
1185: ----------------------------------------
1186: PROCEDURE insert_row(
1187: p_api_version IN NUMBER,
1188: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1189: x_return_status OUT NOCOPY VARCHAR2,
1190: x_msg_count OUT NOCOPY NUMBER,
1191: x_msg_data OUT NOCOPY VARCHAR2,
1192: p_cahv_tbl IN cahv_tbl_type,
1193: x_cahv_tbl OUT NOCOPY cahv_tbl_type) IS
1194:
1195: l_api_version CONSTANT NUMBER := 1;
1196: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1197: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1198: i NUMBER := 0;
1199:
1200: --custom code start: added by sspurani on 02/22/2002
1201: l_cahv_tbl cahv_tbl_type := p_cahv_tbl;
1203: l_cahv_seq_tbl cahv_tbl_type;
1204: x_cahv_seq_tbl cahv_tbl_type;
1205:
1206: x1_cahv_tbl cahv_tbl_type;
1207: x1_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1208: j NUMBER;
1209: l_newrownum INTEGER;
1210: --custom code end: added by sspurani on 02/22/2002
1211:
1210: --custom code end: added by sspurani on 02/22/2002
1211:
1212: -- Begin Post-Generation Change
1213: -- overall error status
1214: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1215: -- End Post-Generation Change
1216:
1217: -----------------------------------------------------------------------
1218: --Custom Code Start: Added for generating and ordering sequence numbers
1235: -- in multiples of 5 -- Added by sspurani 02/22/2002
1236: -----------------------------------------------------------------------
1237:
1238: BEGIN
1239: Okl_Api.init_msg_list(p_init_msg_list);
1240: -- Make sure PL/SQL table has records in it before passing
1241: IF (p_cahv_tbl.COUNT > 0) THEN
1242: i := p_cahv_tbl.FIRST;
1243: LOOP
1242: i := p_cahv_tbl.FIRST;
1243: LOOP
1244: insert_row (
1245: p_api_version => p_api_version,
1246: p_init_msg_list => Okl_Api.G_FALSE,
1247: x_return_status => x_return_status,
1248: x_msg_count => x_msg_count,
1249: x_msg_data => x_msg_data,
1250: p_cahv_rec => p_cahv_tbl(i),
1251: x_cahv_rec => x_cahv_tbl(i));
1252:
1253: -- Begin Post-Generation Change
1254: -- store the highest degree of error
1255: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1256: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1257: l_overall_status := x_return_status;
1258: END IF;
1259: END IF;
1252:
1253: -- Begin Post-Generation Change
1254: -- store the highest degree of error
1255: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1256: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1257: l_overall_status := x_return_status;
1258: END IF;
1259: END IF;
1260: -- End Post-Generation Change
1293: END LOOP;
1294:
1295: update_row (
1296: p_api_version => p_api_version,
1297: p_init_msg_list => Okl_Api.G_FALSE,
1298: x_return_status => x1_return_status,
1299: x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data,
1301: p_cahv_tbl => l_cahv_seq_tbl,
1307: -- in multiples of 5 -- Added by sspurani 02/22/2002
1308: -----------------------------------------------------------------------
1309:
1310: EXCEPTION
1311: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1312: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1313: (
1314: l_api_name,
1315: G_PKG_NAME,
1308: -----------------------------------------------------------------------
1309:
1310: EXCEPTION
1311: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1312: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1313: (
1314: l_api_name,
1315: G_PKG_NAME,
1316: 'Okl_Api.G_RET_STS_ERROR',
1312: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1313: (
1314: l_api_name,
1315: G_PKG_NAME,
1316: 'Okl_Api.G_RET_STS_ERROR',
1317: x_msg_count,
1318: x_msg_data,
1319: '_PVT'
1320: );
1317: x_msg_count,
1318: x_msg_data,
1319: '_PVT'
1320: );
1321: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1322: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1318: x_msg_data,
1319: '_PVT'
1320: );
1321: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1322: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1326: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1322: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1326: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1327: x_msg_count,
1328: x_msg_data,
1329: '_PVT'
1330: );
1328: x_msg_data,
1329: '_PVT'
1330: );
1331: WHEN OTHERS THEN
1332: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1333: (
1334: l_api_name,
1335: G_PKG_NAME,
1336: 'OTHERS',
1346: --------------------------------------
1347: -- lock_row for:OKL_CSH_ALLCT_SRCHS --
1348: --------------------------------------
1349: PROCEDURE lock_row(
1350: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1351: x_return_status OUT NOCOPY VARCHAR2,
1352: x_msg_count OUT NOCOPY NUMBER,
1353: x_msg_data OUT NOCOPY VARCHAR2,
1354: p_cah_rec IN cah_rec_type) IS
1367: FROM OKL_CSH_ALLCT_SRCHS
1368: WHERE ID = p_cah_rec.id;
1369: l_api_version CONSTANT NUMBER := 1;
1370: l_api_name CONSTANT VARCHAR2(30) := 'SRCHS_lock_row';
1371: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1372: l_object_version_number OKL_CSH_ALLCT_SRCHS.OBJECT_VERSION_NUMBER%TYPE;
1373: lc_object_version_number OKL_CSH_ALLCT_SRCHS.OBJECT_VERSION_NUMBER%TYPE;
1374: l_row_notfound BOOLEAN := FALSE;
1375: lc_row_notfound BOOLEAN := FALSE;
1373: lc_object_version_number OKL_CSH_ALLCT_SRCHS.OBJECT_VERSION_NUMBER%TYPE;
1374: l_row_notfound BOOLEAN := FALSE;
1375: lc_row_notfound BOOLEAN := FALSE;
1376: BEGIN
1377: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1378: p_init_msg_list,
1379: '_PVT',
1380: x_return_status);
1381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1377: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1378: p_init_msg_list,
1379: '_PVT',
1380: x_return_status);
1381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1378: p_init_msg_list,
1379: '_PVT',
1380: x_return_status);
1381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: BEGIN
1379: '_PVT',
1380: x_return_status);
1381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: BEGIN
1387: OPEN lock_csr(p_cah_rec);
1380: x_return_status);
1381: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: BEGIN
1387: OPEN lock_csr(p_cah_rec);
1388: FETCH lock_csr INTO l_object_version_number;
1392: WHEN E_Resource_Busy THEN
1393: IF (lock_csr%ISOPEN) THEN
1394: CLOSE lock_csr;
1395: END IF;
1396: Okl_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1397: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1398: END;
1399:
1400: IF ( l_row_notfound ) THEN
1403: lc_row_notfound := lchk_csr%NOTFOUND;
1404: CLOSE lchk_csr;
1405: END IF;
1406: IF (lc_row_notfound) THEN
1407: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1408: RAISE Okl_Api.G_EXCEPTION_ERROR;
1409: ELSIF lc_object_version_number > p_cah_rec.object_version_number THEN
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1404: CLOSE lchk_csr;
1405: END IF;
1406: IF (lc_row_notfound) THEN
1407: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1408: RAISE Okl_Api.G_EXCEPTION_ERROR;
1409: ELSIF lc_object_version_number > p_cah_rec.object_version_number THEN
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1406: IF (lc_row_notfound) THEN
1407: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1408: RAISE Okl_Api.G_EXCEPTION_ERROR;
1409: ELSIF lc_object_version_number > p_cah_rec.object_version_number THEN
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1408: RAISE Okl_Api.G_EXCEPTION_ERROR;
1409: ELSIF lc_object_version_number > p_cah_rec.object_version_number THEN
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: ELSIF lc_object_version_number = -1 THEN
1409: ELSIF lc_object_version_number > p_cah_rec.object_version_number THEN
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: ELSIF lc_object_version_number = -1 THEN
1416: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1411: RAISE Okl_Api.G_EXCEPTION_ERROR;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: ELSIF lc_object_version_number = -1 THEN
1416: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1418: END IF;
1412: ELSIF lc_object_version_number <> p_cah_rec.object_version_number THEN
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: ELSIF lc_object_version_number = -1 THEN
1416: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1418: END IF;
1419: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1420: EXCEPTION
1413: Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: ELSIF lc_object_version_number = -1 THEN
1416: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1418: END IF;
1419: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1420: EXCEPTION
1421: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1415: ELSIF lc_object_version_number = -1 THEN
1416: Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1418: END IF;
1419: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1420: EXCEPTION
1421: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1422: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1423: (
1417: RAISE Okl_Api.G_EXCEPTION_ERROR;
1418: END IF;
1419: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1420: EXCEPTION
1421: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1422: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1418: END IF;
1419: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1420: EXCEPTION
1421: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1422: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'Okl_Api.G_RET_STS_ERROR',
1422: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'Okl_Api.G_RET_STS_ERROR',
1427: x_msg_count,
1428: x_msg_data,
1429: '_PVT'
1430: );
1427: x_msg_count,
1428: x_msg_data,
1429: '_PVT'
1430: );
1431: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1432: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1433: (
1434: l_api_name,
1435: G_PKG_NAME,
1428: x_msg_data,
1429: '_PVT'
1430: );
1431: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1432: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1433: (
1434: l_api_name,
1435: G_PKG_NAME,
1436: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1432: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1433: (
1434: l_api_name,
1435: G_PKG_NAME,
1436: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1437: x_msg_count,
1438: x_msg_data,
1439: '_PVT'
1440: );
1438: x_msg_data,
1439: '_PVT'
1440: );
1441: WHEN OTHERS THEN
1442: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1443: (
1444: l_api_name,
1445: G_PKG_NAME,
1446: 'OTHERS',
1453: -- lock_row for:OKL_CSH_ALLCT_SRCHS_V --
1454: ----------------------------------------
1455: PROCEDURE lock_row(
1456: p_api_version IN NUMBER,
1457: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1458: x_return_status OUT NOCOPY VARCHAR2,
1459: x_msg_count OUT NOCOPY NUMBER,
1460: x_msg_data OUT NOCOPY VARCHAR2,
1461: p_cahv_rec IN cahv_rec_type) IS
1461: p_cahv_rec IN cahv_rec_type) IS
1462:
1463: l_api_version CONSTANT NUMBER := 1;
1464: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1465: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1466: l_cah_rec cah_rec_type;
1467: BEGIN
1468: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1469: G_PKG_NAME,
1464: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1465: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1466: l_cah_rec cah_rec_type;
1467: BEGIN
1468: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1469: G_PKG_NAME,
1470: p_init_msg_list,
1471: l_api_version,
1472: p_api_version,
1471: l_api_version,
1472: p_api_version,
1473: '_PVT',
1474: x_return_status);
1475: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1478: RAISE Okl_Api.G_EXCEPTION_ERROR;
1479: END IF;
1472: p_api_version,
1473: '_PVT',
1474: x_return_status);
1475: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1478: RAISE Okl_Api.G_EXCEPTION_ERROR;
1479: END IF;
1480: --------------------------------------
1473: '_PVT',
1474: x_return_status);
1475: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1478: RAISE Okl_Api.G_EXCEPTION_ERROR;
1479: END IF;
1480: --------------------------------------
1481: -- Move VIEW record to "Child" records
1474: x_return_status);
1475: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1476: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1477: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1478: RAISE Okl_Api.G_EXCEPTION_ERROR;
1479: END IF;
1480: --------------------------------------
1481: -- Move VIEW record to "Child" records
1482: --------------------------------------
1490: x_msg_count,
1491: x_msg_data,
1492: l_cah_rec
1493: );
1494: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1491: x_msg_data,
1492: l_cah_rec
1493: );
1494: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1492: l_cah_rec
1493: );
1494: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1500: EXCEPTION
1493: );
1494: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1500: EXCEPTION
1501: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1495: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1500: EXCEPTION
1501: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1502: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1503: (
1497: RAISE Okl_Api.G_EXCEPTION_ERROR;
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1500: EXCEPTION
1501: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1502: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1498: END IF;
1499: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1500: EXCEPTION
1501: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1502: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1506: 'Okl_Api.G_RET_STS_ERROR',
1502: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1506: 'Okl_Api.G_RET_STS_ERROR',
1507: x_msg_count,
1508: x_msg_data,
1509: '_PVT'
1510: );
1507: x_msg_count,
1508: x_msg_data,
1509: '_PVT'
1510: );
1511: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1512: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1513: (
1514: l_api_name,
1515: G_PKG_NAME,
1508: x_msg_data,
1509: '_PVT'
1510: );
1511: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1512: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1513: (
1514: l_api_name,
1515: G_PKG_NAME,
1516: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1512: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1513: (
1514: l_api_name,
1515: G_PKG_NAME,
1516: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1517: x_msg_count,
1518: x_msg_data,
1519: '_PVT'
1520: );
1518: x_msg_data,
1519: '_PVT'
1520: );
1521: WHEN OTHERS THEN
1522: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1523: (
1524: l_api_name,
1525: G_PKG_NAME,
1526: 'OTHERS',
1533: -- PL/SQL TBL lock_row for:CAHV_TBL --
1534: --------------------------------------
1535: PROCEDURE lock_row(
1536: p_api_version IN NUMBER,
1537: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1538: x_return_status OUT NOCOPY VARCHAR2,
1539: x_msg_count OUT NOCOPY NUMBER,
1540: x_msg_data OUT NOCOPY VARCHAR2,
1541: p_cahv_tbl IN cahv_tbl_type) IS
1541: p_cahv_tbl IN cahv_tbl_type) IS
1542:
1543: l_api_version CONSTANT NUMBER := 1;
1544: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1545: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1546: i NUMBER := 0;
1547: -- Begin Post-Generation Change
1548: -- overall error status
1549: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1545: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1546: i NUMBER := 0;
1547: -- Begin Post-Generation Change
1548: -- overall error status
1549: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1550: -- End Post-Generation Change
1551:
1552: BEGIN
1553: Okl_Api.init_msg_list(p_init_msg_list);
1549: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1550: -- End Post-Generation Change
1551:
1552: BEGIN
1553: Okl_Api.init_msg_list(p_init_msg_list);
1554: -- Make sure PL/SQL table has records in it before passing
1555: IF (p_cahv_tbl.COUNT > 0) THEN
1556: i := p_cahv_tbl.FIRST;
1557: LOOP
1556: i := p_cahv_tbl.FIRST;
1557: LOOP
1558: lock_row (
1559: p_api_version => p_api_version,
1560: p_init_msg_list => Okl_Api.G_FALSE,
1561: x_return_status => x_return_status,
1562: x_msg_count => x_msg_count,
1563: x_msg_data => x_msg_data,
1564: p_cahv_rec => p_cahv_tbl(i));
1564: p_cahv_rec => p_cahv_tbl(i));
1565:
1566: -- Begin Post-Generation Change
1567: -- store the highest degree of error
1568: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1569: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1570: l_overall_status := x_return_status;
1571: END IF;
1572: END IF;
1565:
1566: -- Begin Post-Generation Change
1567: -- store the highest degree of error
1568: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1569: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1570: l_overall_status := x_return_status;
1571: END IF;
1572: END IF;
1573: -- End Post-Generation Change
1582: -- End Post-Generation Change
1583:
1584: END IF;
1585: EXCEPTION
1586: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1587: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1583:
1584: END IF;
1585: EXCEPTION
1586: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1587: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1591: 'Okl_Api.G_RET_STS_ERROR',
1587: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1591: 'Okl_Api.G_RET_STS_ERROR',
1592: x_msg_count,
1593: x_msg_data,
1594: '_PVT'
1595: );
1592: x_msg_count,
1593: x_msg_data,
1594: '_PVT'
1595: );
1596: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1593: x_msg_data,
1594: '_PVT'
1595: );
1596: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1597: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1602: x_msg_count,
1603: x_msg_data,
1604: '_PVT'
1605: );
1603: x_msg_data,
1604: '_PVT'
1605: );
1606: WHEN OTHERS THEN
1607: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1608: (
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OTHERS',
1621: ----------------------------------------
1622: -- update_row for:OKL_CSH_ALLCT_SRCHS --
1623: ----------------------------------------
1624: PROCEDURE update_row(
1625: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1626: x_return_status OUT NOCOPY VARCHAR2,
1627: x_msg_count OUT NOCOPY NUMBER,
1628: x_msg_data OUT NOCOPY VARCHAR2,
1629: p_cah_rec IN cah_rec_type,
1630: x_cah_rec OUT NOCOPY cah_rec_type) IS
1631:
1632: l_api_version CONSTANT NUMBER := 1;
1633: l_api_name CONSTANT VARCHAR2(30) := 'SRCHS_update_row';
1634: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1635: l_cah_rec cah_rec_type := p_cah_rec;
1636: l_def_cah_rec cah_rec_type;
1637: l_row_notfound BOOLEAN := TRUE;
1638: -- l_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type;
1645: x_cah_rec OUT NOCOPY cah_rec_type
1646: ) RETURN VARCHAR2 IS
1647: l_cah_rec cah_rec_type;
1648: l_row_notfound BOOLEAN := TRUE;
1649: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1650: BEGIN
1651: x_cah_rec := p_cah_rec;
1652: -- Get current database values
1653: l_cah_rec := get_rec(p_cah_rec, l_row_notfound);
1651: x_cah_rec := p_cah_rec;
1652: -- Get current database values
1653: l_cah_rec := get_rec(p_cah_rec, l_row_notfound);
1654: IF (l_row_notfound) THEN
1655: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1656: END IF;
1657: -- Move the "old" record to the history record:
1658: -- (1) to get the "old" version
1659: -- (2) to avoid 2 hits to the database
1657: -- Move the "old" record to the history record:
1658: -- (1) to get the "old" version
1659: -- (2) to avoid 2 hits to the database
1660: -- migrate(l_cah_rec, l_okl_csh_allct_srchs_h_rec);
1661: IF (x_cah_rec.id = Okl_Api.G_MISS_NUM)
1662: THEN
1663: x_cah_rec.id := l_cah_rec.id;
1664: END IF;
1665: IF (x_cah_rec.name = Okl_Api.G_MISS_CHAR)
1661: IF (x_cah_rec.id = Okl_Api.G_MISS_NUM)
1662: THEN
1663: x_cah_rec.id := l_cah_rec.id;
1664: END IF;
1665: IF (x_cah_rec.name = Okl_Api.G_MISS_CHAR)
1666: THEN
1667: x_cah_rec.name := l_cah_rec.name;
1668: END IF;
1669: IF (x_cah_rec.sequence_number = Okl_Api.G_MISS_NUM)
1665: IF (x_cah_rec.name = Okl_Api.G_MISS_CHAR)
1666: THEN
1667: x_cah_rec.name := l_cah_rec.name;
1668: END IF;
1669: IF (x_cah_rec.sequence_number = Okl_Api.G_MISS_NUM)
1670: THEN
1671: x_cah_rec.sequence_number := l_cah_rec.sequence_number;
1672: END IF;
1673: IF (x_cah_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
1669: IF (x_cah_rec.sequence_number = Okl_Api.G_MISS_NUM)
1670: THEN
1671: x_cah_rec.sequence_number := l_cah_rec.sequence_number;
1672: END IF;
1673: IF (x_cah_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
1674: THEN
1675: x_cah_rec.cash_search_type := l_cah_rec.cash_search_type;
1676: END IF;
1677: IF (x_cah_rec.object_version_number = Okl_Api.G_MISS_NUM)
1673: IF (x_cah_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
1674: THEN
1675: x_cah_rec.cash_search_type := l_cah_rec.cash_search_type;
1676: END IF;
1677: IF (x_cah_rec.object_version_number = Okl_Api.G_MISS_NUM)
1678: THEN
1679: x_cah_rec.object_version_number := l_cah_rec.object_version_number;
1680: END IF;
1681: IF (x_cah_rec.description = Okl_Api.G_MISS_CHAR)
1677: IF (x_cah_rec.object_version_number = Okl_Api.G_MISS_NUM)
1678: THEN
1679: x_cah_rec.object_version_number := l_cah_rec.object_version_number;
1680: END IF;
1681: IF (x_cah_rec.description = Okl_Api.G_MISS_CHAR)
1682: THEN
1683: x_cah_rec.description := l_cah_rec.description;
1684: END IF;
1685: IF (x_cah_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1681: IF (x_cah_rec.description = Okl_Api.G_MISS_CHAR)
1682: THEN
1683: x_cah_rec.description := l_cah_rec.description;
1684: END IF;
1685: IF (x_cah_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1686: THEN
1687: x_cah_rec.attribute_category := l_cah_rec.attribute_category;
1688: END IF;
1689: IF (x_cah_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1685: IF (x_cah_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1686: THEN
1687: x_cah_rec.attribute_category := l_cah_rec.attribute_category;
1688: END IF;
1689: IF (x_cah_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1690: THEN
1691: x_cah_rec.attribute1 := l_cah_rec.attribute1;
1692: END IF;
1693: IF (x_cah_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1689: IF (x_cah_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1690: THEN
1691: x_cah_rec.attribute1 := l_cah_rec.attribute1;
1692: END IF;
1693: IF (x_cah_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1694: THEN
1695: x_cah_rec.attribute2 := l_cah_rec.attribute2;
1696: END IF;
1697: IF (x_cah_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1693: IF (x_cah_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1694: THEN
1695: x_cah_rec.attribute2 := l_cah_rec.attribute2;
1696: END IF;
1697: IF (x_cah_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1698: THEN
1699: x_cah_rec.attribute3 := l_cah_rec.attribute3;
1700: END IF;
1701: IF (x_cah_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1697: IF (x_cah_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1698: THEN
1699: x_cah_rec.attribute3 := l_cah_rec.attribute3;
1700: END IF;
1701: IF (x_cah_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1702: THEN
1703: x_cah_rec.attribute4 := l_cah_rec.attribute4;
1704: END IF;
1705: IF (x_cah_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1701: IF (x_cah_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1702: THEN
1703: x_cah_rec.attribute4 := l_cah_rec.attribute4;
1704: END IF;
1705: IF (x_cah_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1706: THEN
1707: x_cah_rec.attribute5 := l_cah_rec.attribute5;
1708: END IF;
1709: IF (x_cah_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1705: IF (x_cah_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1706: THEN
1707: x_cah_rec.attribute5 := l_cah_rec.attribute5;
1708: END IF;
1709: IF (x_cah_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1710: THEN
1711: x_cah_rec.attribute6 := l_cah_rec.attribute6;
1712: END IF;
1713: IF (x_cah_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1709: IF (x_cah_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1710: THEN
1711: x_cah_rec.attribute6 := l_cah_rec.attribute6;
1712: END IF;
1713: IF (x_cah_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1714: THEN
1715: x_cah_rec.attribute7 := l_cah_rec.attribute7;
1716: END IF;
1717: IF (x_cah_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1713: IF (x_cah_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1714: THEN
1715: x_cah_rec.attribute7 := l_cah_rec.attribute7;
1716: END IF;
1717: IF (x_cah_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1718: THEN
1719: x_cah_rec.attribute8 := l_cah_rec.attribute8;
1720: END IF;
1721: IF (x_cah_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1717: IF (x_cah_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1718: THEN
1719: x_cah_rec.attribute8 := l_cah_rec.attribute8;
1720: END IF;
1721: IF (x_cah_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1722: THEN
1723: x_cah_rec.attribute9 := l_cah_rec.attribute9;
1724: END IF;
1725: IF (x_cah_rec.attribute10 = Okl_Api.G_MISS_CHAR)
1721: IF (x_cah_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1722: THEN
1723: x_cah_rec.attribute9 := l_cah_rec.attribute9;
1724: END IF;
1725: IF (x_cah_rec.attribute10 = Okl_Api.G_MISS_CHAR)
1726: THEN
1727: x_cah_rec.attribute10 := l_cah_rec.attribute10;
1728: END IF;
1729: IF (x_cah_rec.attribute11 = Okl_Api.G_MISS_CHAR)
1725: IF (x_cah_rec.attribute10 = Okl_Api.G_MISS_CHAR)
1726: THEN
1727: x_cah_rec.attribute10 := l_cah_rec.attribute10;
1728: END IF;
1729: IF (x_cah_rec.attribute11 = Okl_Api.G_MISS_CHAR)
1730: THEN
1731: x_cah_rec.attribute11 := l_cah_rec.attribute11;
1732: END IF;
1733: IF (x_cah_rec.attribute12 = Okl_Api.G_MISS_CHAR)
1729: IF (x_cah_rec.attribute11 = Okl_Api.G_MISS_CHAR)
1730: THEN
1731: x_cah_rec.attribute11 := l_cah_rec.attribute11;
1732: END IF;
1733: IF (x_cah_rec.attribute12 = Okl_Api.G_MISS_CHAR)
1734: THEN
1735: x_cah_rec.attribute12 := l_cah_rec.attribute12;
1736: END IF;
1737: IF (x_cah_rec.attribute13 = Okl_Api.G_MISS_CHAR)
1733: IF (x_cah_rec.attribute12 = Okl_Api.G_MISS_CHAR)
1734: THEN
1735: x_cah_rec.attribute12 := l_cah_rec.attribute12;
1736: END IF;
1737: IF (x_cah_rec.attribute13 = Okl_Api.G_MISS_CHAR)
1738: THEN
1739: x_cah_rec.attribute13 := l_cah_rec.attribute13;
1740: END IF;
1741: IF (x_cah_rec.attribute14 = Okl_Api.G_MISS_CHAR)
1737: IF (x_cah_rec.attribute13 = Okl_Api.G_MISS_CHAR)
1738: THEN
1739: x_cah_rec.attribute13 := l_cah_rec.attribute13;
1740: END IF;
1741: IF (x_cah_rec.attribute14 = Okl_Api.G_MISS_CHAR)
1742: THEN
1743: x_cah_rec.attribute14 := l_cah_rec.attribute14;
1744: END IF;
1745: IF (x_cah_rec.attribute15 = Okl_Api.G_MISS_CHAR)
1741: IF (x_cah_rec.attribute14 = Okl_Api.G_MISS_CHAR)
1742: THEN
1743: x_cah_rec.attribute14 := l_cah_rec.attribute14;
1744: END IF;
1745: IF (x_cah_rec.attribute15 = Okl_Api.G_MISS_CHAR)
1746: THEN
1747: x_cah_rec.attribute15 := l_cah_rec.attribute15;
1748: END IF;
1749: IF (x_cah_rec.org_id = Okl_Api.G_MISS_NUM)
1745: IF (x_cah_rec.attribute15 = Okl_Api.G_MISS_CHAR)
1746: THEN
1747: x_cah_rec.attribute15 := l_cah_rec.attribute15;
1748: END IF;
1749: IF (x_cah_rec.org_id = Okl_Api.G_MISS_NUM)
1750: THEN
1751: x_cah_rec.org_id := l_cah_rec.org_id;
1752: END IF;
1753: IF (x_cah_rec.created_by = Okl_Api.G_MISS_NUM)
1749: IF (x_cah_rec.org_id = Okl_Api.G_MISS_NUM)
1750: THEN
1751: x_cah_rec.org_id := l_cah_rec.org_id;
1752: END IF;
1753: IF (x_cah_rec.created_by = Okl_Api.G_MISS_NUM)
1754: THEN
1755: x_cah_rec.created_by := l_cah_rec.created_by;
1756: END IF;
1757: IF (x_cah_rec.creation_date = Okl_Api.G_MISS_DATE)
1753: IF (x_cah_rec.created_by = Okl_Api.G_MISS_NUM)
1754: THEN
1755: x_cah_rec.created_by := l_cah_rec.created_by;
1756: END IF;
1757: IF (x_cah_rec.creation_date = Okl_Api.G_MISS_DATE)
1758: THEN
1759: x_cah_rec.creation_date := l_cah_rec.creation_date;
1760: END IF;
1761: IF (x_cah_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1757: IF (x_cah_rec.creation_date = Okl_Api.G_MISS_DATE)
1758: THEN
1759: x_cah_rec.creation_date := l_cah_rec.creation_date;
1760: END IF;
1761: IF (x_cah_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1762: THEN
1763: x_cah_rec.last_updated_by := l_cah_rec.last_updated_by;
1764: END IF;
1765: IF (x_cah_rec.last_update_date = Okl_Api.G_MISS_DATE)
1761: IF (x_cah_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1762: THEN
1763: x_cah_rec.last_updated_by := l_cah_rec.last_updated_by;
1764: END IF;
1765: IF (x_cah_rec.last_update_date = Okl_Api.G_MISS_DATE)
1766: THEN
1767: x_cah_rec.last_update_date := l_cah_rec.last_update_date;
1768: END IF;
1769: IF (x_cah_rec.last_update_login = Okl_Api.G_MISS_NUM)
1765: IF (x_cah_rec.last_update_date = Okl_Api.G_MISS_DATE)
1766: THEN
1767: x_cah_rec.last_update_date := l_cah_rec.last_update_date;
1768: END IF;
1769: IF (x_cah_rec.last_update_login = Okl_Api.G_MISS_NUM)
1770: THEN
1771: x_cah_rec.last_update_login := l_cah_rec.last_update_login;
1772: END IF;
1773: RETURN(l_return_status);
1778: FUNCTION Set_Attributes (
1779: p_cah_rec IN cah_rec_type,
1780: x_cah_rec OUT NOCOPY cah_rec_type
1781: ) RETURN VARCHAR2 IS
1782: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1783: BEGIN
1784: x_cah_rec := p_cah_rec;
1785: RETURN(l_return_status);
1786: END Set_Attributes;
1784: x_cah_rec := p_cah_rec;
1785: RETURN(l_return_status);
1786: END Set_Attributes;
1787: BEGIN
1788: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1789: p_init_msg_list,
1790: '_PVT',
1791: x_return_status);
1792: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1788: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1789: p_init_msg_list,
1790: '_PVT',
1791: x_return_status);
1792: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1795: RAISE Okl_Api.G_EXCEPTION_ERROR;
1796: END IF;
1789: p_init_msg_list,
1790: '_PVT',
1791: x_return_status);
1792: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1795: RAISE Okl_Api.G_EXCEPTION_ERROR;
1796: END IF;
1797: --- Setting item attributes
1790: '_PVT',
1791: x_return_status);
1792: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1795: RAISE Okl_Api.G_EXCEPTION_ERROR;
1796: END IF;
1797: --- Setting item attributes
1798: l_return_status := Set_Attributes(
1791: x_return_status);
1792: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1795: RAISE Okl_Api.G_EXCEPTION_ERROR;
1796: END IF;
1797: --- Setting item attributes
1798: l_return_status := Set_Attributes(
1799: p_cah_rec, -- IN
1798: l_return_status := Set_Attributes(
1799: p_cah_rec, -- IN
1800: l_cah_rec); -- OUT
1801: --- If any errors happen abort API
1802: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1799: p_cah_rec, -- IN
1800: l_cah_rec); -- OUT
1801: --- If any errors happen abort API
1802: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1800: l_cah_rec); -- OUT
1801: --- If any errors happen abort API
1802: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1801: --- If any errors happen abort API
1802: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1805: RAISE Okl_Api.G_EXCEPTION_ERROR;
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: UPDATE OKL_CSH_ALLCT_SRCHS
1806: END IF;
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: UPDATE OKL_CSH_ALLCT_SRCHS
1814: SET NAME = l_def_cah_rec.name,
1807: l_return_status := populate_new_record(l_cah_rec, l_def_cah_rec);
1808: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1811: RAISE Okl_Api.G_EXCEPTION_ERROR;
1812: END IF;
1813: UPDATE OKL_CSH_ALLCT_SRCHS
1814: SET NAME = l_def_cah_rec.name,
1815: SEQUENCE_NUMBER = l_def_cah_rec.sequence_number,
1850: l_okl_csh_allct_srchs_h_rec,
1851: lx_okl_csh_allct_srchs_h_rec
1852: );
1853: */
1854: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1856: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1857: RAISE Okl_Api.G_EXCEPTION_ERROR;
1858: END IF;
1851: lx_okl_csh_allct_srchs_h_rec
1852: );
1853: */
1854: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1856: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1857: RAISE Okl_Api.G_EXCEPTION_ERROR;
1858: END IF;
1859: x_cah_rec := l_def_cah_rec;
1852: );
1853: */
1854: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1856: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1857: RAISE Okl_Api.G_EXCEPTION_ERROR;
1858: END IF;
1859: x_cah_rec := l_def_cah_rec;
1860: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: */
1854: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1856: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1857: RAISE Okl_Api.G_EXCEPTION_ERROR;
1858: END IF;
1859: x_cah_rec := l_def_cah_rec;
1860: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1861: EXCEPTION
1856: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1857: RAISE Okl_Api.G_EXCEPTION_ERROR;
1858: END IF;
1859: x_cah_rec := l_def_cah_rec;
1860: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1861: EXCEPTION
1862: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1863: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1864: (
1858: END IF;
1859: x_cah_rec := l_def_cah_rec;
1860: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1861: EXCEPTION
1862: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1863: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1864: (
1865: l_api_name,
1866: G_PKG_NAME,
1859: x_cah_rec := l_def_cah_rec;
1860: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1861: EXCEPTION
1862: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1863: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1864: (
1865: l_api_name,
1866: G_PKG_NAME,
1867: 'Okl_Api.G_RET_STS_ERROR',
1863: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1864: (
1865: l_api_name,
1866: G_PKG_NAME,
1867: 'Okl_Api.G_RET_STS_ERROR',
1868: x_msg_count,
1869: x_msg_data,
1870: '_PVT'
1871: );
1868: x_msg_count,
1869: x_msg_data,
1870: '_PVT'
1871: );
1872: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1873: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1869: x_msg_data,
1870: '_PVT'
1871: );
1872: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1873: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1877: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1873: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1877: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1878: x_msg_count,
1879: x_msg_data,
1880: '_PVT'
1881: );
1879: x_msg_data,
1880: '_PVT'
1881: );
1882: WHEN OTHERS THEN
1883: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1887: 'OTHERS',
1894: -- update_row for:OKL_CSH_ALLCT_SRCHS_V --
1895: ------------------------------------------
1896: PROCEDURE update_row(
1897: p_api_version IN NUMBER,
1898: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1899: x_return_status OUT NOCOPY VARCHAR2,
1900: x_msg_count OUT NOCOPY NUMBER,
1901: x_msg_data OUT NOCOPY VARCHAR2,
1902: p_cahv_rec IN cahv_rec_type,
1903: x_cahv_rec OUT NOCOPY cahv_rec_type) IS
1904:
1905: l_api_version CONSTANT NUMBER := 1;
1906: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1907: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1908: l_cahv_rec cahv_rec_type := p_cahv_rec;
1909: l_def_cahv_rec cahv_rec_type;
1910: l_cah_rec cah_rec_type;
1911: lx_cah_rec cah_rec_type;
1930: x_cahv_rec OUT NOCOPY cahv_rec_type
1931: ) RETURN VARCHAR2 IS
1932: l_cahv_rec cahv_rec_type;
1933: l_row_notfound BOOLEAN := TRUE;
1934: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1935: BEGIN
1936: x_cahv_rec := p_cahv_rec;
1937: -- Get current database values
1938: l_cahv_rec := get_rec(p_cahv_rec, l_row_notfound);
1936: x_cahv_rec := p_cahv_rec;
1937: -- Get current database values
1938: l_cahv_rec := get_rec(p_cahv_rec, l_row_notfound);
1939: IF (l_row_notfound) THEN
1940: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1941: END IF;
1942: IF (x_cahv_rec.id = Okl_Api.G_MISS_NUM)
1943: THEN
1944: x_cahv_rec.id := l_cahv_rec.id;
1938: l_cahv_rec := get_rec(p_cahv_rec, l_row_notfound);
1939: IF (l_row_notfound) THEN
1940: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1941: END IF;
1942: IF (x_cahv_rec.id = Okl_Api.G_MISS_NUM)
1943: THEN
1944: x_cahv_rec.id := l_cahv_rec.id;
1945: END IF;
1946: IF (x_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1942: IF (x_cahv_rec.id = Okl_Api.G_MISS_NUM)
1943: THEN
1944: x_cahv_rec.id := l_cahv_rec.id;
1945: END IF;
1946: IF (x_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1947: THEN
1948: x_cahv_rec.object_version_number := l_cahv_rec.object_version_number;
1949: END IF;
1950: IF (x_cahv_rec.name = Okl_Api.G_MISS_CHAR)
1946: IF (x_cahv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1947: THEN
1948: x_cahv_rec.object_version_number := l_cahv_rec.object_version_number;
1949: END IF;
1950: IF (x_cahv_rec.name = Okl_Api.G_MISS_CHAR)
1951: THEN
1952: x_cahv_rec.name := l_cahv_rec.name;
1953: END IF;
1954: IF (x_cahv_rec.description = Okl_Api.G_MISS_CHAR)
1950: IF (x_cahv_rec.name = Okl_Api.G_MISS_CHAR)
1951: THEN
1952: x_cahv_rec.name := l_cahv_rec.name;
1953: END IF;
1954: IF (x_cahv_rec.description = Okl_Api.G_MISS_CHAR)
1955: THEN
1956: x_cahv_rec.description := l_cahv_rec.description;
1957: END IF;
1958: IF (x_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM)
1954: IF (x_cahv_rec.description = Okl_Api.G_MISS_CHAR)
1955: THEN
1956: x_cahv_rec.description := l_cahv_rec.description;
1957: END IF;
1958: IF (x_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM)
1959: THEN
1960: x_cahv_rec.sequence_number := l_cahv_rec.sequence_number;
1961: END IF;
1962: IF (x_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1958: IF (x_cahv_rec.sequence_number = Okl_Api.G_MISS_NUM)
1959: THEN
1960: x_cahv_rec.sequence_number := l_cahv_rec.sequence_number;
1961: END IF;
1962: IF (x_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1963: THEN
1964: x_cahv_rec.attribute_category := l_cahv_rec.attribute_category;
1965: END IF;
1966: IF (x_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1962: IF (x_cahv_rec.attribute_category = Okl_Api.G_MISS_CHAR)
1963: THEN
1964: x_cahv_rec.attribute_category := l_cahv_rec.attribute_category;
1965: END IF;
1966: IF (x_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1967: THEN
1968: x_cahv_rec.attribute1 := l_cahv_rec.attribute1;
1969: END IF;
1970: IF (x_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1966: IF (x_cahv_rec.attribute1 = Okl_Api.G_MISS_CHAR)
1967: THEN
1968: x_cahv_rec.attribute1 := l_cahv_rec.attribute1;
1969: END IF;
1970: IF (x_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1971: THEN
1972: x_cahv_rec.attribute2 := l_cahv_rec.attribute2;
1973: END IF;
1974: IF (x_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1970: IF (x_cahv_rec.attribute2 = Okl_Api.G_MISS_CHAR)
1971: THEN
1972: x_cahv_rec.attribute2 := l_cahv_rec.attribute2;
1973: END IF;
1974: IF (x_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1975: THEN
1976: x_cahv_rec.attribute3 := l_cahv_rec.attribute3;
1977: END IF;
1978: IF (x_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1974: IF (x_cahv_rec.attribute3 = Okl_Api.G_MISS_CHAR)
1975: THEN
1976: x_cahv_rec.attribute3 := l_cahv_rec.attribute3;
1977: END IF;
1978: IF (x_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1979: THEN
1980: x_cahv_rec.attribute4 := l_cahv_rec.attribute4;
1981: END IF;
1982: IF (x_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1978: IF (x_cahv_rec.attribute4 = Okl_Api.G_MISS_CHAR)
1979: THEN
1980: x_cahv_rec.attribute4 := l_cahv_rec.attribute4;
1981: END IF;
1982: IF (x_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1983: THEN
1984: x_cahv_rec.attribute5 := l_cahv_rec.attribute5;
1985: END IF;
1986: IF (x_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1982: IF (x_cahv_rec.attribute5 = Okl_Api.G_MISS_CHAR)
1983: THEN
1984: x_cahv_rec.attribute5 := l_cahv_rec.attribute5;
1985: END IF;
1986: IF (x_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1987: THEN
1988: x_cahv_rec.attribute6 := l_cahv_rec.attribute6;
1989: END IF;
1990: IF (x_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1986: IF (x_cahv_rec.attribute6 = Okl_Api.G_MISS_CHAR)
1987: THEN
1988: x_cahv_rec.attribute6 := l_cahv_rec.attribute6;
1989: END IF;
1990: IF (x_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1991: THEN
1992: x_cahv_rec.attribute7 := l_cahv_rec.attribute7;
1993: END IF;
1994: IF (x_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1990: IF (x_cahv_rec.attribute7 = Okl_Api.G_MISS_CHAR)
1991: THEN
1992: x_cahv_rec.attribute7 := l_cahv_rec.attribute7;
1993: END IF;
1994: IF (x_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1995: THEN
1996: x_cahv_rec.attribute8 := l_cahv_rec.attribute8;
1997: END IF;
1998: IF (x_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1994: IF (x_cahv_rec.attribute8 = Okl_Api.G_MISS_CHAR)
1995: THEN
1996: x_cahv_rec.attribute8 := l_cahv_rec.attribute8;
1997: END IF;
1998: IF (x_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1999: THEN
2000: x_cahv_rec.attribute9 := l_cahv_rec.attribute9;
2001: END IF;
2002: IF (x_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
1998: IF (x_cahv_rec.attribute9 = Okl_Api.G_MISS_CHAR)
1999: THEN
2000: x_cahv_rec.attribute9 := l_cahv_rec.attribute9;
2001: END IF;
2002: IF (x_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2003: THEN
2004: x_cahv_rec.attribute10 := l_cahv_rec.attribute10;
2005: END IF;
2006: IF (x_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2002: IF (x_cahv_rec.attribute10 = Okl_Api.G_MISS_CHAR)
2003: THEN
2004: x_cahv_rec.attribute10 := l_cahv_rec.attribute10;
2005: END IF;
2006: IF (x_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2007: THEN
2008: x_cahv_rec.attribute11 := l_cahv_rec.attribute11;
2009: END IF;
2010: IF (x_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2006: IF (x_cahv_rec.attribute11 = Okl_Api.G_MISS_CHAR)
2007: THEN
2008: x_cahv_rec.attribute11 := l_cahv_rec.attribute11;
2009: END IF;
2010: IF (x_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2011: THEN
2012: x_cahv_rec.attribute12 := l_cahv_rec.attribute12;
2013: END IF;
2014: IF (x_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2010: IF (x_cahv_rec.attribute12 = Okl_Api.G_MISS_CHAR)
2011: THEN
2012: x_cahv_rec.attribute12 := l_cahv_rec.attribute12;
2013: END IF;
2014: IF (x_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2015: THEN
2016: x_cahv_rec.attribute13 := l_cahv_rec.attribute13;
2017: END IF;
2018: IF (x_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2014: IF (x_cahv_rec.attribute13 = Okl_Api.G_MISS_CHAR)
2015: THEN
2016: x_cahv_rec.attribute13 := l_cahv_rec.attribute13;
2017: END IF;
2018: IF (x_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2019: THEN
2020: x_cahv_rec.attribute14 := l_cahv_rec.attribute14;
2021: END IF;
2022: IF (x_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2018: IF (x_cahv_rec.attribute14 = Okl_Api.G_MISS_CHAR)
2019: THEN
2020: x_cahv_rec.attribute14 := l_cahv_rec.attribute14;
2021: END IF;
2022: IF (x_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2023: THEN
2024: x_cahv_rec.attribute15 := l_cahv_rec.attribute15;
2025: END IF;
2026: IF (x_cahv_rec.org_id = Okl_Api.G_MISS_NUM)
2022: IF (x_cahv_rec.attribute15 = Okl_Api.G_MISS_CHAR)
2023: THEN
2024: x_cahv_rec.attribute15 := l_cahv_rec.attribute15;
2025: END IF;
2026: IF (x_cahv_rec.org_id = Okl_Api.G_MISS_NUM)
2027: THEN
2028: x_cahv_rec.org_id := l_cahv_rec.org_id;
2029: END IF;
2030: IF (x_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
2026: IF (x_cahv_rec.org_id = Okl_Api.G_MISS_NUM)
2027: THEN
2028: x_cahv_rec.org_id := l_cahv_rec.org_id;
2029: END IF;
2030: IF (x_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
2031: THEN
2032: x_cahv_rec.cash_search_type := l_cahv_rec.cash_search_type;
2033: END IF;
2034: IF (x_cahv_rec.created_by = Okl_Api.G_MISS_NUM)
2030: IF (x_cahv_rec.cash_search_type = Okl_Api.G_MISS_CHAR)
2031: THEN
2032: x_cahv_rec.cash_search_type := l_cahv_rec.cash_search_type;
2033: END IF;
2034: IF (x_cahv_rec.created_by = Okl_Api.G_MISS_NUM)
2035: THEN
2036: x_cahv_rec.created_by := l_cahv_rec.created_by;
2037: END IF;
2038: IF (x_cahv_rec.creation_date = Okl_Api.G_MISS_DATE)
2034: IF (x_cahv_rec.created_by = Okl_Api.G_MISS_NUM)
2035: THEN
2036: x_cahv_rec.created_by := l_cahv_rec.created_by;
2037: END IF;
2038: IF (x_cahv_rec.creation_date = Okl_Api.G_MISS_DATE)
2039: THEN
2040: x_cahv_rec.creation_date := l_cahv_rec.creation_date;
2041: END IF;
2042: IF (x_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2038: IF (x_cahv_rec.creation_date = Okl_Api.G_MISS_DATE)
2039: THEN
2040: x_cahv_rec.creation_date := l_cahv_rec.creation_date;
2041: END IF;
2042: IF (x_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2043: THEN
2044: x_cahv_rec.last_updated_by := l_cahv_rec.last_updated_by;
2045: END IF;
2046: IF (x_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2042: IF (x_cahv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
2043: THEN
2044: x_cahv_rec.last_updated_by := l_cahv_rec.last_updated_by;
2045: END IF;
2046: IF (x_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2047: THEN
2048: x_cahv_rec.last_update_date := l_cahv_rec.last_update_date;
2049: END IF;
2050: IF (x_cahv_rec.last_update_login = Okl_Api.G_MISS_NUM)
2046: IF (x_cahv_rec.last_update_date = Okl_Api.G_MISS_DATE)
2047: THEN
2048: x_cahv_rec.last_update_date := l_cahv_rec.last_update_date;
2049: END IF;
2050: IF (x_cahv_rec.last_update_login = Okl_Api.G_MISS_NUM)
2051: THEN
2052: x_cahv_rec.last_update_login := l_cahv_rec.last_update_login;
2053: END IF;
2054: RETURN(l_return_status);
2059: FUNCTION Set_Attributes (
2060: p_cahv_rec IN cahv_rec_type,
2061: x_cahv_rec OUT NOCOPY cahv_rec_type
2062: ) RETURN VARCHAR2 IS
2063: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2064: BEGIN
2065: x_cahv_rec := p_cahv_rec;
2066: x_cahv_rec.OBJECT_VERSION_NUMBER := NVL(x_cahv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2067: RETURN(l_return_status);
2066: x_cahv_rec.OBJECT_VERSION_NUMBER := NVL(x_cahv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2067: RETURN(l_return_status);
2068: END Set_Attributes;
2069: BEGIN
2070: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2071: G_PKG_NAME,
2072: p_init_msg_list,
2073: l_api_version,
2074: p_api_version,
2074: p_api_version,
2075: '_PVT',
2076: x_return_status);
2077: /*
2078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2081: RAISE Okl_Api.G_EXCEPTION_ERROR;
2082: END IF;
2075: '_PVT',
2076: x_return_status);
2077: /*
2078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2081: RAISE Okl_Api.G_EXCEPTION_ERROR;
2082: END IF;
2083: */
2076: x_return_status);
2077: /*
2078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2081: RAISE Okl_Api.G_EXCEPTION_ERROR;
2082: END IF;
2083: */
2084: --- Setting item attributes
2077: /*
2078: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2081: RAISE Okl_Api.G_EXCEPTION_ERROR;
2082: END IF;
2083: */
2084: --- Setting item attributes
2085: l_return_status := Set_Attributes(
2085: l_return_status := Set_Attributes(
2086: p_cahv_rec, -- IN
2087: l_cahv_rec); -- OUT
2088: --- If any errors happen abort API
2089: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2090: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2086: p_cahv_rec, -- IN
2087: l_cahv_rec); -- OUT
2088: --- If any errors happen abort API
2089: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2090: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2087: l_cahv_rec); -- OUT
2088: --- If any errors happen abort API
2089: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2090: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2088: --- If any errors happen abort API
2089: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2090: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2098: RAISE Okl_Api.G_EXCEPTION_ERROR;
2099: END IF;
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2098: RAISE Okl_Api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
2093: END IF;
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2098: RAISE Okl_Api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
2101: --- Validate all non-missing attributes (Item Level Validation)
2094: l_return_status := populate_new_record(l_cahv_rec, l_def_cahv_rec);
2095: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2098: RAISE Okl_Api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
2101: --- Validate all non-missing attributes (Item Level Validation)
2102: l_return_status := Validate_Attributes(l_def_cahv_rec);
2100: l_def_cahv_rec := fill_who_columns(l_def_cahv_rec);
2101: --- Validate all non-missing attributes (Item Level Validation)
2102: l_return_status := Validate_Attributes(l_def_cahv_rec);
2103: --- If any errors happen abort API
2104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2101: --- Validate all non-missing attributes (Item Level Validation)
2102: l_return_status := Validate_Attributes(l_def_cahv_rec);
2103: --- If any errors happen abort API
2104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2102: l_return_status := Validate_Attributes(l_def_cahv_rec);
2103: --- If any errors happen abort API
2104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2103: --- If any errors happen abort API
2104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2113: RAISE Okl_Api.G_EXCEPTION_ERROR;
2114: END IF;
2107: RAISE Okl_Api.G_EXCEPTION_ERROR;
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2113: RAISE Okl_Api.G_EXCEPTION_ERROR;
2114: END IF;
2115:
2108: END IF;
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2113: RAISE Okl_Api.G_EXCEPTION_ERROR;
2114: END IF;
2115:
2116: --------------------------------------
2109: l_return_status := Validate_Record(l_def_cahv_rec);
2110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2113: RAISE Okl_Api.G_EXCEPTION_ERROR;
2114: END IF;
2115:
2116: --------------------------------------
2117: -- Move VIEW record to "Child" records
2129: l_cah_rec,
2130: lx_cah_rec
2131: );
2132:
2133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2136: RAISE Okl_Api.G_EXCEPTION_ERROR;
2137: END IF;
2130: lx_cah_rec
2131: );
2132:
2133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2136: RAISE Okl_Api.G_EXCEPTION_ERROR;
2137: END IF;
2138: migrate(lx_cah_rec, l_def_cahv_rec);
2131: );
2132:
2133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2136: RAISE Okl_Api.G_EXCEPTION_ERROR;
2137: END IF;
2138: migrate(lx_cah_rec, l_def_cahv_rec);
2139: x_cahv_rec := l_def_cahv_rec;
2132:
2133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2136: RAISE Okl_Api.G_EXCEPTION_ERROR;
2137: END IF;
2138: migrate(lx_cah_rec, l_def_cahv_rec);
2139: x_cahv_rec := l_def_cahv_rec;
2140: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2136: RAISE Okl_Api.G_EXCEPTION_ERROR;
2137: END IF;
2138: migrate(lx_cah_rec, l_def_cahv_rec);
2139: x_cahv_rec := l_def_cahv_rec;
2140: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2141: EXCEPTION
2142: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2143: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2144: (
2138: migrate(lx_cah_rec, l_def_cahv_rec);
2139: x_cahv_rec := l_def_cahv_rec;
2140: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2141: EXCEPTION
2142: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2143: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2139: x_cahv_rec := l_def_cahv_rec;
2140: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2141: EXCEPTION
2142: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2143: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2147: 'Okl_Api.G_RET_STS_ERROR',
2143: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2147: 'Okl_Api.G_RET_STS_ERROR',
2148: x_msg_count,
2149: x_msg_data,
2150: '_PVT'
2151: );
2148: x_msg_count,
2149: x_msg_data,
2150: '_PVT'
2151: );
2152: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2154: (
2155: l_api_name,
2156: G_PKG_NAME,
2149: x_msg_data,
2150: '_PVT'
2151: );
2152: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2154: (
2155: l_api_name,
2156: G_PKG_NAME,
2157: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2154: (
2155: l_api_name,
2156: G_PKG_NAME,
2157: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2158: x_msg_count,
2159: x_msg_data,
2160: '_PVT'
2161: );
2159: x_msg_data,
2160: '_PVT'
2161: );
2162: WHEN OTHERS THEN
2163: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2164: (
2165: l_api_name,
2166: G_PKG_NAME,
2167: 'OTHERS',
2174: -- PL/SQL TBL update_row for:CAHV_TBL --
2175: ----------------------------------------
2176: PROCEDURE update_row(
2177: p_api_version IN NUMBER,
2178: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2179: x_return_status OUT NOCOPY VARCHAR2,
2180: x_msg_count OUT NOCOPY NUMBER,
2181: x_msg_data OUT NOCOPY VARCHAR2,
2182: p_cahv_tbl IN cahv_tbl_type,
2183: x_cahv_tbl OUT NOCOPY cahv_tbl_type) IS
2184:
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2187: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2188: i NUMBER := 0;
2189:
2190: --custom code start: added by sspurani on 02/22/2002
2191: l_cahv_rec cahv_rec_type;
2189:
2190: --custom code start: added by sspurani on 02/22/2002
2191: l_cahv_rec cahv_rec_type;
2192: x_cahv_rec cahv_rec_type;
2193: x1_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2194: j NUMBER;
2195: l_newrownum INTEGER;
2196: --custom code end: added by sspurani on 02/22/2002
2197:
2196: --custom code end: added by sspurani on 02/22/2002
2197:
2198: -- Begin Post-Generation Change
2199: -- overall error status
2200: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2201: -- End Post-Generation Change
2202:
2203: -----------------------------------------------------------------------
2204: --Custom Code Start: Added for ordering sequence numbers
2221: -- in multiples of 5 -- Added by sspurani 02/22/2002
2222: -----------------------------------------------------------------------
2223:
2224: BEGIN
2225: Okl_Api.init_msg_list(p_init_msg_list);
2226: -- Make sure PL/SQL table has records in it before passing
2227: IF (p_cahv_tbl.COUNT > 0) THEN
2228: i := p_cahv_tbl.FIRST;
2229: LOOP
2228: i := p_cahv_tbl.FIRST;
2229: LOOP
2230: update_row (
2231: p_api_version => p_api_version,
2232: p_init_msg_list => Okl_Api.G_FALSE,
2233: x_return_status => x_return_status,
2234: x_msg_count => x_msg_count,
2235: x_msg_data => x_msg_data,
2236: p_cahv_rec => p_cahv_tbl(i),
2237: x_cahv_rec => x_cahv_tbl(i));
2238:
2239: -- Begin Post-Generation Change
2240: -- store the highest degree of error
2241: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2242: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2243: l_overall_status := x_return_status;
2244: END IF;
2245: END IF;
2238:
2239: -- Begin Post-Generation Change
2240: -- store the highest degree of error
2241: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2242: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2243: l_overall_status := x_return_status;
2244: END IF;
2245: END IF;
2246: -- End Post-Generation Change
2274: l_cahv_rec.SEQUENCE_NUMBER := (l_newrownum*5);
2275:
2276: update_row (
2277: p_api_version => p_api_version,
2278: p_init_msg_list => Okl_Api.G_FALSE,
2279: x_return_status => x1_return_status,
2280: x_msg_count => x_msg_count,
2281: x_msg_data => x_msg_data,
2282: p_cahv_rec => l_cahv_rec,
2293: -----------------------------------------------------------------------
2294:
2295:
2296: EXCEPTION
2297: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2298: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2294:
2295:
2296: EXCEPTION
2297: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2298: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'Okl_Api.G_RET_STS_ERROR',
2298: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'Okl_Api.G_RET_STS_ERROR',
2303: x_msg_count,
2304: x_msg_data,
2305: '_PVT'
2306: );
2303: x_msg_count,
2304: x_msg_data,
2305: '_PVT'
2306: );
2307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2308: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2304: x_msg_data,
2305: '_PVT'
2306: );
2307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2308: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2312: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2308: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2309: (
2310: l_api_name,
2311: G_PKG_NAME,
2312: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2313: x_msg_count,
2314: x_msg_data,
2315: '_PVT'
2316: );
2314: x_msg_data,
2315: '_PVT'
2316: );
2317: WHEN OTHERS THEN
2318: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2319: (
2320: l_api_name,
2321: G_PKG_NAME,
2322: 'OTHERS',
2332: ----------------------------------------
2333: -- delete_row for:OKL_CSH_ALLCT_SRCHS --
2334: ----------------------------------------
2335: PROCEDURE delete_row(
2336: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2337: x_return_status OUT NOCOPY VARCHAR2,
2338: x_msg_count OUT NOCOPY NUMBER,
2339: x_msg_data OUT NOCOPY VARCHAR2,
2340: p_cah_rec IN cah_rec_type) IS
2340: p_cah_rec IN cah_rec_type) IS
2341:
2342: l_api_version CONSTANT NUMBER := 1;
2343: l_api_name CONSTANT VARCHAR2(30) := 'SRCHS_delete_row';
2344: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2345: l_cah_rec cah_rec_type:= p_cah_rec;
2346: l_row_notfound BOOLEAN := TRUE;
2347: -- l_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type;
2348: -- lx_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type;
2346: l_row_notfound BOOLEAN := TRUE;
2347: -- l_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type;
2348: -- lx_okl_csh_allct_srchs_h_rec okl_csh_allct_srchs_h_rec_type;
2349: BEGIN
2350: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2351: p_init_msg_list,
2352: '_PVT',
2353: x_return_status);
2354: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2350: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2351: p_init_msg_list,
2352: '_PVT',
2353: x_return_status);
2354: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2357: RAISE Okl_Api.G_EXCEPTION_ERROR;
2358: END IF;
2351: p_init_msg_list,
2352: '_PVT',
2353: x_return_status);
2354: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2357: RAISE Okl_Api.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Insert into History table
2352: '_PVT',
2353: x_return_status);
2354: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2357: RAISE Okl_Api.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Insert into History table
2360: /*
2353: x_return_status);
2354: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2357: RAISE Okl_Api.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Insert into History table
2360: /*
2361: l_cah_rec := get_rec(l_cah_rec, l_row_notfound);
2359: -- Insert into History table
2360: /*
2361: l_cah_rec := get_rec(l_cah_rec, l_row_notfound);
2362: IF (l_row_notfound) THEN
2363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2364: END IF;
2365: migrate(l_cah_rec, l_okl_csh_allct_srchs_h_rec);
2366: insert_row(
2367: p_init_msg_list,
2371: l_okl_csh_allct_srchs_h_rec,
2372: lx_okl_csh_allct_srchs_h_rec
2373: );
2374: */
2375: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2376: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2377: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2378: RAISE Okl_Api.G_EXCEPTION_ERROR;
2379: END IF;
2372: lx_okl_csh_allct_srchs_h_rec
2373: );
2374: */
2375: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2376: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2377: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2378: RAISE Okl_Api.G_EXCEPTION_ERROR;
2379: END IF;
2380: DELETE FROM OKL_CSH_ALLCT_SRCHS
2373: );
2374: */
2375: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2376: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2377: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2378: RAISE Okl_Api.G_EXCEPTION_ERROR;
2379: END IF;
2380: DELETE FROM OKL_CSH_ALLCT_SRCHS
2381: WHERE ID = l_cah_rec.id;
2374: */
2375: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2376: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2377: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2378: RAISE Okl_Api.G_EXCEPTION_ERROR;
2379: END IF;
2380: DELETE FROM OKL_CSH_ALLCT_SRCHS
2381: WHERE ID = l_cah_rec.id;
2382:
2379: END IF;
2380: DELETE FROM OKL_CSH_ALLCT_SRCHS
2381: WHERE ID = l_cah_rec.id;
2382:
2383: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2384: EXCEPTION
2385: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2386: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2387: (
2381: WHERE ID = l_cah_rec.id;
2382:
2383: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2384: EXCEPTION
2385: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2386: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2382:
2383: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2384: EXCEPTION
2385: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2386: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2390: 'Okl_Api.G_RET_STS_ERROR',
2386: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2387: (
2388: l_api_name,
2389: G_PKG_NAME,
2390: 'Okl_Api.G_RET_STS_ERROR',
2391: x_msg_count,
2392: x_msg_data,
2393: '_PVT'
2394: );
2391: x_msg_count,
2392: x_msg_data,
2393: '_PVT'
2394: );
2395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2396: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2392: x_msg_data,
2393: '_PVT'
2394: );
2395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2396: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2400: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2396: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2397: (
2398: l_api_name,
2399: G_PKG_NAME,
2400: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2401: x_msg_count,
2402: x_msg_data,
2403: '_PVT'
2404: );
2402: x_msg_data,
2403: '_PVT'
2404: );
2405: WHEN OTHERS THEN
2406: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2407: (
2408: l_api_name,
2409: G_PKG_NAME,
2410: 'OTHERS',
2417: -- delete_row for:OKL_CSH_ALLCT_SRCHS_V --
2418: ------------------------------------------
2419: PROCEDURE delete_row(
2420: p_api_version IN NUMBER,
2421: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2422: x_return_status OUT NOCOPY VARCHAR2,
2423: x_msg_count OUT NOCOPY NUMBER,
2424: x_msg_data OUT NOCOPY VARCHAR2,
2425: p_cahv_rec IN cahv_rec_type) IS
2425: p_cahv_rec IN cahv_rec_type) IS
2426:
2427: l_api_version CONSTANT NUMBER := 1;
2428: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2429: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2430: l_cahv_rec cahv_rec_type := p_cahv_rec;
2431: l_cah_rec cah_rec_type;
2432:
2433: -----------------------------------------------------------------------
2455: -- in multiples of 5 -- Added by sspurani 02/26/2002
2456: -----------------------------------------------------------------------
2457:
2458: BEGIN
2459: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
2460: G_PKG_NAME,
2461: p_init_msg_list,
2462: l_api_version,
2463: p_api_version,
2462: l_api_version,
2463: p_api_version,
2464: '_PVT',
2465: x_return_status);
2466: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2469: RAISE Okl_Api.G_EXCEPTION_ERROR;
2470: END IF;
2463: p_api_version,
2464: '_PVT',
2465: x_return_status);
2466: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2469: RAISE Okl_Api.G_EXCEPTION_ERROR;
2470: END IF;
2471: --------------------------------------
2464: '_PVT',
2465: x_return_status);
2466: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2469: RAISE Okl_Api.G_EXCEPTION_ERROR;
2470: END IF;
2471: --------------------------------------
2472: -- Move VIEW record to "Child" records
2465: x_return_status);
2466: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2469: RAISE Okl_Api.G_EXCEPTION_ERROR;
2470: END IF;
2471: --------------------------------------
2472: -- Move VIEW record to "Child" records
2473: --------------------------------------
2481: x_msg_count,
2482: x_msg_data,
2483: l_cah_rec
2484: );
2485: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2486: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2487: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2488: RAISE Okl_Api.G_EXCEPTION_ERROR;
2489: END IF;
2482: x_msg_data,
2483: l_cah_rec
2484: );
2485: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2486: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2487: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2488: RAISE Okl_Api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2483: l_cah_rec
2484: );
2485: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2486: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2487: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2488: RAISE Okl_Api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2491:
2484: );
2485: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2486: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2487: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2488: RAISE Okl_Api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2491:
2492: -----------------------------------------------------------------------
2486: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2487: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2488: RAISE Okl_Api.G_EXCEPTION_ERROR;
2489: END IF;
2490: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2491:
2492: -----------------------------------------------------------------------
2493: --Custom Code Start: Added for generating and ordering sequence numbers
2494: -- in multiples of 5 -- Added by sspurani 02/26/2002
2507:
2508:
2509: update_row (
2510: p_api_version => p_api_version,
2511: p_init_msg_list => Okl_Api.G_FALSE,
2512: x_return_status => x_return_status,
2513: x_msg_count => x_msg_count,
2514: x_msg_data => x_msg_data,
2515: p_cahv_rec => l_cahv_rec,
2519: j := j + 1;
2520:
2521: END LOOP;
2522:
2523: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2520:
2521: END LOOP;
2522:
2523: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2521: END LOOP;
2522:
2523: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2529:
2522:
2523: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2529:
2530: -----------------------------------------------------------------------
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2529:
2530: -----------------------------------------------------------------------
2531: --Custom Code End: Added for generating and ordering sequence numbers
2532: -- in multiples of 5 -- Added by sspurani 02/26/2002
2533: -----------------------------------------------------------------------
2534:
2535:
2536: EXCEPTION
2537: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2538: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2539: (
2540: l_api_name,
2541: G_PKG_NAME,
2534:
2535:
2536: EXCEPTION
2537: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2538: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2539: (
2540: l_api_name,
2541: G_PKG_NAME,
2542: 'Okl_Api.G_RET_STS_ERROR',
2538: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2539: (
2540: l_api_name,
2541: G_PKG_NAME,
2542: 'Okl_Api.G_RET_STS_ERROR',
2543: x_msg_count,
2544: x_msg_data,
2545: '_PVT'
2546: );
2543: x_msg_count,
2544: x_msg_data,
2545: '_PVT'
2546: );
2547: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2548: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2549: (
2550: l_api_name,
2551: G_PKG_NAME,
2544: x_msg_data,
2545: '_PVT'
2546: );
2547: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2548: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2549: (
2550: l_api_name,
2551: G_PKG_NAME,
2552: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2548: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2549: (
2550: l_api_name,
2551: G_PKG_NAME,
2552: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2553: x_msg_count,
2554: x_msg_data,
2555: '_PVT'
2556: );
2554: x_msg_data,
2555: '_PVT'
2556: );
2557: WHEN OTHERS THEN
2558: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2559: (
2560: l_api_name,
2561: G_PKG_NAME,
2562: 'OTHERS',
2569: -- PL/SQL TBL delete_row for:CAHV_TBL --
2570: ----------------------------------------
2571: PROCEDURE delete_row(
2572: p_api_version IN NUMBER,
2573: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2574: x_return_status OUT NOCOPY VARCHAR2,
2575: x_msg_count OUT NOCOPY NUMBER,
2576: x_msg_data OUT NOCOPY VARCHAR2,
2577: p_cahv_tbl IN cahv_tbl_type) IS
2577: p_cahv_tbl IN cahv_tbl_type) IS
2578:
2579: l_api_version CONSTANT NUMBER := 1;
2580: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2581: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2582: i NUMBER := 0;
2583: -- Begin Post-Generation Change
2584: -- overall error status
2585: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2581: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2582: i NUMBER := 0;
2583: -- Begin Post-Generation Change
2584: -- overall error status
2585: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2586: -- End Post-Generation Change
2587:
2588: BEGIN
2589: Okl_Api.init_msg_list(p_init_msg_list);
2585: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2586: -- End Post-Generation Change
2587:
2588: BEGIN
2589: Okl_Api.init_msg_list(p_init_msg_list);
2590: -- Make sure PL/SQL table has records in it before passing
2591: IF (p_cahv_tbl.COUNT > 0) THEN
2592: i := p_cahv_tbl.FIRST;
2593: LOOP
2592: i := p_cahv_tbl.FIRST;
2593: LOOP
2594: delete_row (
2595: p_api_version => p_api_version,
2596: p_init_msg_list => Okl_Api.G_FALSE,
2597: x_return_status => x_return_status,
2598: x_msg_count => x_msg_count,
2599: x_msg_data => x_msg_data,
2600: p_cahv_rec => p_cahv_tbl(i));
2600: p_cahv_rec => p_cahv_tbl(i));
2601:
2602: -- Begin Post-Generation Change
2603: -- store the highest degree of error
2604: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2605: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2606: l_overall_status := x_return_status;
2607: END IF;
2608: END IF;
2601:
2602: -- Begin Post-Generation Change
2603: -- store the highest degree of error
2604: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2605: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2606: l_overall_status := x_return_status;
2607: END IF;
2608: END IF;
2609: -- End Post-Generation Change
2618: -- End Post-Generation Change
2619:
2620: END IF;
2621: EXCEPTION
2622: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2623: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2619:
2620: END IF;
2621: EXCEPTION
2622: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2623: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2627: 'Okl_Api.G_RET_STS_ERROR',
2623: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2627: 'Okl_Api.G_RET_STS_ERROR',
2628: x_msg_count,
2629: x_msg_data,
2630: '_PVT'
2631: );
2628: x_msg_count,
2629: x_msg_data,
2630: '_PVT'
2631: );
2632: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2629: x_msg_data,
2630: '_PVT'
2631: );
2632: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2637: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2637: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2638: x_msg_count,
2639: x_msg_data,
2640: '_PVT'
2641: );
2639: x_msg_data,
2640: '_PVT'
2641: );
2642: WHEN OTHERS THEN
2643: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2644: (
2645: l_api_name,
2646: G_PKG_NAME,
2647: 'OTHERS',