300: p_to.last_update_login := p_from.last_update_login;
301: END migrate;
302: PROCEDURE migrate (
303: p_from IN cvm_rec_type,
304: p_to OUT NOCOPY okc_k_vers_numbers_h_rec_type
305: ) IS
306: BEGIN
307: p_to.chr_id := p_from.chr_id;
308: p_to.major_version := p_from.major_version;
318: ---------------------------------------------------------------------------
319: -- PROCEDURE insert_row
320: ---------------------------------------------------------------------------
321: -----------------------------------------
322: -- insert_row for:OKC_K_VERS_NUMBERS_H --
323: -----------------------------------------
324: PROCEDURE insert_row(
325: p_init_msg_list IN VARCHAR2 ,
326: x_return_status OUT NOCOPY VARCHAR2,
325: p_init_msg_list IN VARCHAR2 ,
326: x_return_status OUT NOCOPY VARCHAR2,
327: x_msg_count OUT NOCOPY NUMBER,
328: x_msg_data OUT NOCOPY VARCHAR2,
329: p_okc_k_vers_numbers_h_rec IN okc_k_vers_numbers_h_rec_type,
330: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type) IS
331:
332: l_api_version CONSTANT NUMBER := 1;
333: l_api_name CONSTANT VARCHAR2(30) := 'H_insert_row';
326: x_return_status OUT NOCOPY VARCHAR2,
327: x_msg_count OUT NOCOPY NUMBER,
328: x_msg_data OUT NOCOPY VARCHAR2,
329: p_okc_k_vers_numbers_h_rec IN okc_k_vers_numbers_h_rec_type,
330: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type) IS
331:
332: l_api_version CONSTANT NUMBER := 1;
333: l_api_name CONSTANT VARCHAR2(30) := 'H_insert_row';
334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
331:
332: l_api_version CONSTANT NUMBER := 1;
333: l_api_name CONSTANT VARCHAR2(30) := 'H_insert_row';
334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
335: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type := p_okc_k_vers_numbers_h_rec;
336: ldefokckversnumbershrec okc_k_vers_numbers_h_rec_type;
337: ---------------------------------------------
338: -- Set_Attributes for:OKC_K_VERS_NUMBERS_H --
339: ---------------------------------------------
332: l_api_version CONSTANT NUMBER := 1;
333: l_api_name CONSTANT VARCHAR2(30) := 'H_insert_row';
334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
335: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type := p_okc_k_vers_numbers_h_rec;
336: ldefokckversnumbershrec okc_k_vers_numbers_h_rec_type;
337: ---------------------------------------------
338: -- Set_Attributes for:OKC_K_VERS_NUMBERS_H --
339: ---------------------------------------------
340: FUNCTION Set_Attributes (
334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
335: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type := p_okc_k_vers_numbers_h_rec;
336: ldefokckversnumbershrec okc_k_vers_numbers_h_rec_type;
337: ---------------------------------------------
338: -- Set_Attributes for:OKC_K_VERS_NUMBERS_H --
339: ---------------------------------------------
340: FUNCTION Set_Attributes (
341: p_okc_k_vers_numbers_h_rec IN okc_k_vers_numbers_h_rec_type,
342: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type
337: ---------------------------------------------
338: -- Set_Attributes for:OKC_K_VERS_NUMBERS_H --
339: ---------------------------------------------
340: FUNCTION Set_Attributes (
341: p_okc_k_vers_numbers_h_rec IN okc_k_vers_numbers_h_rec_type,
342: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type
343: ) RETURN VARCHAR2 IS
344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
345: BEGIN
338: -- Set_Attributes for:OKC_K_VERS_NUMBERS_H --
339: ---------------------------------------------
340: FUNCTION Set_Attributes (
341: p_okc_k_vers_numbers_h_rec IN okc_k_vers_numbers_h_rec_type,
342: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type
343: ) RETURN VARCHAR2 IS
344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
345: BEGIN
346: x_okc_k_vers_numbers_h_rec := p_okc_k_vers_numbers_h_rec;
342: x_okc_k_vers_numbers_h_rec OUT NOCOPY okc_k_vers_numbers_h_rec_type
343: ) RETURN VARCHAR2 IS
344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
345: BEGIN
346: x_okc_k_vers_numbers_h_rec := p_okc_k_vers_numbers_h_rec;
347: RETURN(l_return_status);
348: END Set_Attributes;
349: BEGIN
350: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
357: RAISE OKC_API.G_EXCEPTION_ERROR;
358: END IF;
359: --- Setting item attributes
360: l_return_status := Set_Attributes(
361: p_okc_k_vers_numbers_h_rec, -- IN
362: l_okc_k_vers_numbers_h_rec); -- OUT
363: --- If any errors happen abort API
364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
358: END IF;
359: --- Setting item attributes
360: l_return_status := Set_Attributes(
361: p_okc_k_vers_numbers_h_rec, -- IN
362: l_okc_k_vers_numbers_h_rec); -- OUT
363: --- If any errors happen abort API
364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
367: RAISE OKC_API.G_EXCEPTION_ERROR;
368: END IF;
369: INSERT INTO OKC_K_VERS_NUMBERS_H(
370: chr_id,
371: major_version,
372: minor_version,
373: object_version_number,
376: last_updated_by,
377: last_update_date,
378: last_update_login)
379: VALUES (
380: l_okc_k_vers_numbers_h_rec.chr_id,
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
377: last_update_date,
378: last_update_login)
379: VALUES (
380: l_okc_k_vers_numbers_h_rec.chr_id,
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
378: last_update_login)
379: VALUES (
380: l_okc_k_vers_numbers_h_rec.chr_id,
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
379: VALUES (
380: l_okc_k_vers_numbers_h_rec.chr_id,
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
380: l_okc_k_vers_numbers_h_rec.chr_id,
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
381: l_okc_k_vers_numbers_h_rec.major_version,
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
389: -- Set OUT values
382: l_okc_k_vers_numbers_h_rec.minor_version,
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
389: -- Set OUT values
390: x_okc_k_vers_numbers_h_rec := l_okc_k_vers_numbers_h_rec;
383: l_okc_k_vers_numbers_h_rec.object_version_number,
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
389: -- Set OUT values
390: x_okc_k_vers_numbers_h_rec := l_okc_k_vers_numbers_h_rec;
391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
384: l_okc_k_vers_numbers_h_rec.created_by,
385: l_okc_k_vers_numbers_h_rec.creation_date,
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
389: -- Set OUT values
390: x_okc_k_vers_numbers_h_rec := l_okc_k_vers_numbers_h_rec;
391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
392: EXCEPTION
386: l_okc_k_vers_numbers_h_rec.last_updated_by,
387: l_okc_k_vers_numbers_h_rec.last_update_date,
388: l_okc_k_vers_numbers_h_rec.last_update_login);
389: -- Set OUT values
390: x_okc_k_vers_numbers_h_rec := l_okc_k_vers_numbers_h_rec;
391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
392: EXCEPTION
393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
964: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
965: l_cvm_rec cvm_rec_type := p_cvm_rec;
966: l_def_cvm_rec cvm_rec_type;
967: l_row_notfound BOOLEAN := TRUE;
968: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
969: lx_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
970: ----------------------------------
971: -- FUNCTION populate_new_record --
972: ----------------------------------
965: l_cvm_rec cvm_rec_type := p_cvm_rec;
966: l_def_cvm_rec cvm_rec_type;
967: l_row_notfound BOOLEAN := TRUE;
968: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
969: lx_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
970: ----------------------------------
971: -- FUNCTION populate_new_record --
972: ----------------------------------
973: FUNCTION populate_new_record (
986: END IF;
987: -- Move the "old" record to the history record:
988: -- (1) to get the "old" version
989: -- (2) to avoid 2 hits to the database
990: migrate(l_cvm_rec, l_okc_k_vers_numbers_h_rec);
991: IF (x_cvm_rec.chr_id = OKC_API.G_MISS_NUM)
992: THEN
993: x_cvm_rec.chr_id := l_cvm_rec.chr_id;
994: END IF;
1095: p_init_msg_list,
1096: x_return_status,
1097: x_msg_count,
1098: x_msg_data,
1099: l_okc_k_vers_numbers_h_rec,
1100: lx_okc_k_vers_numbers_h_rec
1101: );
1102: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1096: x_return_status,
1097: x_msg_count,
1098: x_msg_data,
1099: l_okc_k_vers_numbers_h_rec,
1100: lx_okc_k_vers_numbers_h_rec
1101: );
1102: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1370: l_api_name CONSTANT VARCHAR2(30) := 'NUMBERS_delete_row';
1371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1372: l_cvm_rec cvm_rec_type:= p_cvm_rec;
1373: l_row_notfound BOOLEAN := TRUE;
1374: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
1375: lx_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
1376: BEGIN
1377: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1378: p_init_msg_list,
1371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1372: l_cvm_rec cvm_rec_type:= p_cvm_rec;
1373: l_row_notfound BOOLEAN := TRUE;
1374: l_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
1375: lx_okc_k_vers_numbers_h_rec okc_k_vers_numbers_h_rec_type;
1376: BEGIN
1377: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1378: p_init_msg_list,
1379: '_PVT',
1387: l_cvm_rec := get_rec(l_cvm_rec, l_row_notfound);
1388: IF (l_row_notfound) THEN
1389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: END IF;
1391: migrate(l_cvm_rec, l_okc_k_vers_numbers_h_rec);
1392: insert_row(
1393: p_init_msg_list,
1394: x_return_status,
1395: x_msg_count,
1393: p_init_msg_list,
1394: x_return_status,
1395: x_msg_count,
1396: x_msg_data,
1397: l_okc_k_vers_numbers_h_rec,
1398: lx_okc_k_vers_numbers_h_rec
1399: );
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: x_return_status,
1395: x_msg_count,
1396: x_msg_data,
1397: l_okc_k_vers_numbers_h_rec,
1398: lx_okc_k_vers_numbers_h_rec
1399: );
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN