[Home] [Help]
PACKAGE BODY: APPS.OKL_BLK_AST_UPD_PUB
Source
1 PACKAGE BODY okl_blk_ast_upd_pub AS
2 /* $Header: OKLPBAUB.pls 120.2 2005/09/07 20:58:50 rkuttiya noship $ */
3
4 --*************************************************************************--
5 -- Start of comments
6 -- Procedure Name : Update_Location
7 -- Description : This procedure takes in location record parameter
8 -- calls pvt procedure to update location
9 -- Business Rules :
10 -- Parameters : p_loc_rec - Location change record
11 --
12 -- Version : 1.0
13 -- History :
14 -- End of comments
15 --*************************************************************************--
16 PROCEDURE update_location(
17 p_api_version IN NUMBER,
18 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
19 p_loc_rec IN blk_rec_type,
20 x_return_status OUT NOCOPY VARCHAR2,
21 x_msg_count OUT NOCOPY NUMBER,
22 x_msg_data OUT NOCOPY VARCHAR2)
23 AS
24 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25 l_msg_count NUMBER;
26 l_msg_data VARCHAR2(2000);
27 BEGIN
28
29 --End Vertical User Hook Call
30
31 --Call to private API
32
33 OKL_BLK_AST_UPD_PVT.update_location( p_api_version => p_api_version,
34 p_init_msg_list => p_init_msg_list,
35 p_loc_rec => p_loc_rec,
36 x_return_status => l_return_status,
37 x_msg_count => l_msg_count,
38 x_msg_data => l_msg_data);
39
40 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
41 RAISE OKL_API.G_EXCEPTION_ERROR;
42 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
43 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
44 END IF;
45
46 --End Call to Private API
47
48
49
50 --End Vertical Post Processing Hook
51
52 --Start Horizontal Post Processing Hook
53
54 --End Horizontal Post Processing User Hook
55
56 x_return_status := l_return_status;
57 x_msg_count := l_msg_count;
58 x_msg_data := l_msg_data;
59
60 EXCEPTION
61
62 WHEN OKL_API.G_EXCEPTION_ERROR THEN
63 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
64 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
65 p_data => x_msg_data);
66
67 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
68 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
69 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
70 p_data => x_msg_data);
71
72 WHEN OTHERS THEN
73 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
74 FND_MSG_PUB.ADD_EXC_MSG('OKL_BLK_AST_UPD_PUB','Update_Location');
75 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
76 p_data => x_msg_data);
77
78 END update_location;
79
80 --*************************************************************************--
81 -- Start of comments
82 -- Procedure Name : Update_Location
83 -- Description : This procedure takes in location table parameter
84 -- calls pvt procedure to update location
85 -- Business Rules :
86 -- Parameters : p_loc_tbl - Location change tbl
87 --
88 -- Version : 1.0
89 -- History :
90 -- End of comments
91 --*************************************************************************--
92
93
94 PROCEDURE update_location(
95 p_api_version IN NUMBER,
96 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
97 p_loc_tbl IN blk_tbl_type,
98 x_return_status OUT NOCOPY VARCHAR2,
99 x_msg_count OUT NOCOPY NUMBER,
100 x_msg_data OUT NOCOPY VARCHAR2)
101 AS
102 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
103 l_msg_count NUMBER;
104 l_msg_data VARCHAR2(2000);
105 BEGIN
106
107
108
109
110
111 --End Vertical User Hook Call
112
113 --Call to private API
114
115 OKL_BLK_AST_UPD_PVT.update_location( p_api_version => p_api_version,
116 p_init_msg_list => p_init_msg_list,
117 p_loc_tbl => p_loc_tbl,
118 x_return_status => l_return_status,
119 x_msg_count => l_msg_count,
120 x_msg_data => l_msg_data);
121
122 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
123 RAISE OKL_API.G_EXCEPTION_ERROR;
124 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
125 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126 END IF;
127
128 --End Call to Private API
129
130
131
132 --End Vertical Post Processing Hook
133
134 --Start Horizontal Post Processing Hook
135
136 --End Horizontal Post Processing User Hook
137
138 x_return_status := l_return_status;
139 x_msg_count := l_msg_count;
140 x_msg_data := l_msg_data;
141
142 EXCEPTION
143
144 WHEN OKL_API.G_EXCEPTION_ERROR THEN
145 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
146 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
147 p_data => x_msg_data);
148
149 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
150 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
151 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
152 p_data => x_msg_data);
153
154 WHEN OTHERS THEN
155 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
156 FND_MSG_PUB.ADD_EXC_MSG('OKL_BLK_AST_UPD_PUB','Update_Location');
157 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
158 p_data => x_msg_data);
159
160 END update_location;
161
162 END okl_blk_ast_upd_pub;