1 PACKAGE BODY OKL_INS_POLICIES_WRP_PVT AS
2 /* $Header: OKLRFPYB.pls 115.2 2002/11/30 08:47:45 spillaip noship $ */
3 --------------------------------------------------------
4 --NOTE: This procedure is a wrapper over OKL_INS_QUOTE_PVT
5 --This procedure accepts the parameter as table type and in turn
6 --calls the procedure that accepts the record type API in loop.
7 --For all practical purposes, only one record will be passed in
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,
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 ;
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(
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),
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;
43 END IF;
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,
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 ;
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(
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),
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;
79 END IF;
80 --EXIT WHEN (i = px_ipyv_tbl.LAST);
81 --i := p_ipyv_tbl.NEXT(i);
82 --END LOOP;
83 --x_return_status := l_overall_status;
84 -- END IF;
85 END delete_policy;
86
87 END OKL_INS_POLICIES_WRP_PVT;