PACKAGE BODY: APPS.OKL_ACCOUNT_DIST_MISC_PUB

Source

1 PACKAGE BODY OKL_ACCOUNT_DIST_MISC_PUB  AS
2 /* $Header: OKLPTDSB.pls 115.4 2002/12/18 12:42:47 kjinger noship $ */
3 
4 
5 PROCEDURE insert_updt_dstrs(p_api_version         IN  NUMBER,
6                             p_init_msg_list       IN  VARCHAR2 DEFAULT OKC_API.G_FALSE,
7                             x_return_status       OUT NOCOPY VARCHAR2,
8                             x_msg_count           OUT NOCOPY NUMBER,
9                             x_msg_data            OUT NOCOPY VARCHAR2,
10                             p_tabv_tbl            IN  tabv_tbl_type,
11                             x_tabv_tbl            OUT NOCOPY tabv_tbl_type)
12 
13 IS
14   l_api_version       CONSTANT NUMBER        := 1.0;
15   l_api_name          CONSTANT VARCHAR2(30)  := 'INSERT_UPDT_DSTRS';
16   l_return_status     VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17   l_tabv_tbl          tabv_tbl_type := p_tabv_tbl;
18 
19 
20 
21 BEGIN
22 
23 
24   SAVEPOINT insert_updt_dstrs;
25 
26   x_return_status    := FND_API.G_RET_STS_SUCCESS;
27 
28   -- customer pre-processing
29 
30 
31 
32 
33 -- Run the MAIN Procedure
34 
35 
36    OKL_ACCOUNT_DIST_MISC_PVT.insert_updt_dstrs(p_api_version         => l_api_version,
37                                                p_init_msg_list       => p_init_msg_list,
38                                                x_return_status       => x_return_status,
39                                                x_msg_count           => x_msg_count,
40                                                x_msg_data            => x_msg_data,
41                                                p_tabv_tbl            => l_tabv_tbl,
42                                                x_tabv_tbl            => x_tabv_tbl);
43 
44 
45   IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
46 
47      RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
48 
49   ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
50 
51      RAISE FND_API.G_EXC_ERROR;
52 
53   END IF;
54 
55 
56 
57 
58 
59 EXCEPTION
60 
61   WHEN FND_API.G_EXC_ERROR THEN
62       ROLLBACK TO insert_updt_dstrs;
63       x_return_status := FND_API.G_RET_STS_ERROR;
64 
65       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
66                                ,p_count   => x_msg_count
67                                ,p_data    => x_msg_data);
68 
69   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70       ROLLBACK TO insert_updt_dstrs;
71       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
73                                ,p_count   => x_msg_count
74                                ,p_data    => x_msg_data);
75 
76   WHEN OTHERS THEN
77 
78       FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNT_DIST_MISC_PUB','INSERT_UPDT_DSTRS');
79       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
80                                ,p_count   => x_msg_count
81                                ,p_data    => x_msg_data);
82       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83 
84 
85 
86 
87 
88 END insert_updt_dstrs;
89 
90 
91 END OKL_ACCOUNT_DIST_MISC_PUB;