8: -- the pl/sql table and so the record api is called only once.
9: --------------------------------------------------------
10: PROCEDURE cancel_policy(
11: p_api_version IN NUMBER,
12: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
13: x_return_status OUT NOCOPY VARCHAR2,
14: x_msg_count OUT NOCOPY NUMBER,
15: x_msg_data OUT NOCOPY VARCHAR2,
16: p_ipyv_tbl IN ipyv_tbl_type,
16: p_ipyv_tbl IN ipyv_tbl_type,
17: x_ipyv_tbl OUT NOCOPY ipyv_tbl_type
18: ) AS
19: l_api_version NUMBER ;
20: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21: i NUMBER := 0;
22: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
23: BEGIN
24: l_api_version := p_api_version ;
18: ) AS
19: l_api_version NUMBER ;
20: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21: i NUMBER := 0;
22: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
23: BEGIN
24: l_api_version := p_api_version ;
25: OKC_API.init_msg_list(p_init_msg_list);
26: --IF (p_ipyv_tbl.COUNT > 0) THEN
21: i NUMBER := 0;
22: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
23: BEGIN
24: l_api_version := p_api_version ;
25: OKC_API.init_msg_list(p_init_msg_list);
26: --IF (p_ipyv_tbl.COUNT > 0) THEN
27: i := p_ipyv_tbl.FIRST;
28: --LOOP
29: okl_insurance_policies_pub.cancel_policy(
27: i := p_ipyv_tbl.FIRST;
28: --LOOP
29: okl_insurance_policies_pub.cancel_policy(
30: p_api_version => l_api_version,
31: p_init_msg_list => Okc_Api.G_FALSE,
32: x_return_status => l_return_status,
33: x_msg_count => x_msg_count,
34: x_msg_data => x_msg_data,
35: p_ipyv_rec => p_ipyv_tbl(i),
34: x_msg_data => x_msg_data,
35: p_ipyv_rec => p_ipyv_tbl(i),
36: x_ipyv_rec => x_ipyv_tbl(i)
37: );
38: IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
39: x_return_status := l_return_status;
40: END IF;
41: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
42: x_return_status := l_return_status;
37: );
38: IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
39: x_return_status := l_return_status;
40: END IF;
41: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
42: x_return_status := l_return_status;
43: END IF;
44:
45: END cancel_policy;
44:
45: END cancel_policy;
46: PROCEDURE delete_policy(
47: p_api_version IN NUMBER,
48: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
51: x_msg_data OUT NOCOPY VARCHAR2,
52: p_ipyv_tbl IN ipyv_tbl_type,
52: p_ipyv_tbl IN ipyv_tbl_type,
53: x_ipyv_tbl OUT NOCOPY ipyv_tbl_type
54: ) AS
55: l_api_version NUMBER ;
56: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
57: i NUMBER := 0;
58: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
59: BEGIN
60: l_api_version := p_api_version ;
54: ) AS
55: l_api_version NUMBER ;
56: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
57: i NUMBER := 0;
58: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
59: BEGIN
60: l_api_version := p_api_version ;
61: OKC_API.init_msg_list(p_init_msg_list);
62: --IF (p_ipyv_tbl.COUNT > 0) THEN
57: i NUMBER := 0;
58: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
59: BEGIN
60: l_api_version := p_api_version ;
61: OKC_API.init_msg_list(p_init_msg_list);
62: --IF (p_ipyv_tbl.COUNT > 0) THEN
63: i := p_ipyv_tbl.FIRST;
64: --LOOP
65: okl_insurance_policies_pub.delete_policy(
63: i := p_ipyv_tbl.FIRST;
64: --LOOP
65: okl_insurance_policies_pub.delete_policy(
66: p_api_version => l_api_version,
67: p_init_msg_list => Okc_Api.G_FALSE,
68: x_return_status => l_return_status,
69: x_msg_count => x_msg_count,
70: x_msg_data => x_msg_data,
71: p_ipyv_rec => p_ipyv_tbl(i),
70: x_msg_data => x_msg_data,
71: p_ipyv_rec => p_ipyv_tbl(i),
72: x_ipyv_rec => x_ipyv_tbl(i)
73: );
74: IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
75: x_return_status := l_return_status;
76: END IF;
77: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
78: x_return_status := l_return_status;
73: );
74: IF l_return_status = Okc_Api.G_RET_STS_ERROR THEN
75: x_return_status := l_return_status;
76: END IF;
77: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
78: x_return_status := l_return_status;
79: END IF;
80: --EXIT WHEN (i = px_ipyv_tbl.LAST);
81: --i := p_ipyv_tbl.NEXT(i);