[Home] [Help]
PACKAGE BODY: APPS.CSP_INV_LOC_ASSIGNMENTS_CUHK
Source
1 PACKAGE Body csp_inv_loc_assignments_cuhk AS
2 /* $Header: cspcilab.pls 115.3 2002/11/26 08:09:38 hhaugeru noship $ */
3
4 /*****************************************************************************************
5 This is the Customer User Hook API.
6 The Vertical Industry can add customization procedures here for Pre and Post Processing.
7 ******************************************************************************************/
8 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspcilab.pls';
9
10 PROCEDURE create_inventory_location_Pre
11 (
12 px_inv_loc_assignment IN OUT NOCOPY CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2
16 ) IS
17 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
18 BEGIN
19 Savepoint csp_inv_loc_assignments_cuhk;
20
21 x_return_status := fnd_api.g_ret_sts_success;
22 NULL;
23 -- Standard call to get message count and if count is 1, get message info
24 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
25 p_data => x_msg_data );
26
27 EXCEPTION
28 WHEN FND_API.G_EXC_ERROR THEN
29 ROLLBACK TO csp_inv_loc_assignments_cuhk;
30 x_return_status := FND_API.G_RET_STS_ERROR;
31 FND_MSG_PUB.Count_And_Get
32 ( p_count => x_msg_count,
33 p_data => x_msg_data );
34 WHEN OTHERS THEN
35 ROLLBACK TO csp_inv_loc_assignments_cuhk;
36 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
38 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
39 END IF;
40 FND_MSG_PUB.Count_And_Get
41 ( p_count => x_msg_count,
42 p_data => x_msg_data
43 );
44
45 END create_inventory_location_Pre;
46
47
48 PROCEDURE create_inventory_location_post
49 (
50 px_inv_loc_assignment IN OUT NOCOPY CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type,
51 x_return_status OUT NOCOPY VARCHAR2,
52 x_msg_count OUT NOCOPY NUMBER,
53 x_msg_data OUT NOCOPY VARCHAR2
54 ) IS
55 l_api_name varchar2(200) := 'create_inventory_location_Post' ;
56 BEGIN
57 Savepoint csp_inv_loc_assignments_cuhk;
58
59 x_return_status := fnd_api.g_ret_sts_success;
60 NULL;
61 -- Standard call to get message count and if count is 1, get message info
62 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
63 p_data => x_msg_data );
64
65 EXCEPTION
66 WHEN FND_API.G_EXC_ERROR THEN
67 ROLLBACK TO csp_inv_loc_assignments_cuhk;
68 x_return_status := FND_API.G_RET_STS_ERROR;
69 FND_MSG_PUB.Count_And_Get
70 ( p_count => x_msg_count,
71 p_data => x_msg_data );
72 WHEN OTHERS THEN
73 ROLLBACK TO csp_inv_loc_assignments_cuhk;
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
76 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
77 END IF;
78 FND_MSG_PUB.Count_And_Get
79 ( p_count => x_msg_count,
80 p_data => x_msg_data
81 );
82
83 END create_inventory_location_post;
84
85
86 PROCEDURE Update_inventory_location_pre
87 (
88 px_inv_loc_assignment IN OUT NOCOPY CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type,
89 x_return_status OUT NOCOPY VARCHAR2,
90 x_msg_count OUT NOCOPY NUMBER,
91 x_msg_data OUT NOCOPY VARCHAR2
92 ) IS
93 l_api_name varchar2(200) := 'Update_inventory_location_Pre' ;
94 BEGIN
95 Savepoint csp_inv_loc_assignments_cuhk;
96
97 x_return_status := fnd_api.g_ret_sts_success;
98 NULL;
99 -- Standard call to get message count and if count is 1, get message info
100 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
101 p_data => x_msg_data );
102
103 EXCEPTION
104 WHEN FND_API.G_EXC_ERROR THEN
105 ROLLBACK TO csp_inv_loc_assignments_cuhk;
106 x_return_status := FND_API.G_RET_STS_ERROR;
107 FND_MSG_PUB.Count_And_Get
108 ( p_count => x_msg_count,
109 p_data => x_msg_data );
110 WHEN OTHERS THEN
111 ROLLBACK TO csp_inv_loc_assignments_cuhk;
112 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
114 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
115 END IF;
116 FND_MSG_PUB.Count_And_Get
117 ( p_count => x_msg_count,
118 p_data => x_msg_data
119 );
120 END Update_inventory_location_pre;
121
122
123 PROCEDURE Update_inventory_location_post
124 (
125 px_inv_loc_assignment IN OUT NOCOPY CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2
129 ) IS
130 l_api_name varchar2(200) := 'Update_inventory_location_post' ;
131 BEGIN
132 Savepoint csp_inv_loc_assignments_cuhk;
133
134 x_return_status := fnd_api.g_ret_sts_success;
135 NULL;
136 -- Standard call to get message count and if count is 1, get message info
137 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
138 p_data => x_msg_data );
139
140 EXCEPTION
141 WHEN FND_API.G_EXC_ERROR THEN
142 ROLLBACK TO csp_inv_loc_assignments_cuhk;
143 x_return_status := FND_API.G_RET_STS_ERROR;
144 FND_MSG_PUB.Count_And_Get
145 ( p_count => x_msg_count,
146 p_data => x_msg_data );
147 WHEN OTHERS THEN
148 ROLLBACK TO csp_inv_loc_assignments_cuhk;
149 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
151 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
152 END IF;
153 FND_MSG_PUB.Count_And_Get
154 ( p_count => x_msg_count,
155 p_data => x_msg_data
156 );
157 END Update_inventory_location_post;
158 PROCEDURE Delete_inventory_location_pre
159 (
160 p_inv_loc_assignment_id IN NUMBER,
161 x_return_status OUT NOCOPY VARCHAR2,
162 x_msg_count OUT NOCOPY NUMBER,
163 x_msg_data OUT NOCOPY VARCHAR2
164 ) IS
165 l_api_name varchar2(200) := 'Delete_inventory_location_Pre' ;
166 BEGIN
167 Savepoint csp_inv_loc_assignments_cuhk;
168
169 x_return_status := fnd_api.g_ret_sts_success;
170 NULL;
171 -- Standard call to get message count and if count is 1, get message info
172 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
173 p_data => x_msg_data );
174
175 EXCEPTION
176 WHEN FND_API.G_EXC_ERROR THEN
177 ROLLBACK TO csp_inv_loc_assignments_cuhk;
178 x_return_status := FND_API.G_RET_STS_ERROR;
179 FND_MSG_PUB.Count_And_Get
180 ( p_count => x_msg_count,
181 p_data => x_msg_data );
182 WHEN OTHERS THEN
183 ROLLBACK TO csp_inv_loc_assignments_cuhk;
184 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
186 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
187 END IF;
188 FND_MSG_PUB.Count_And_Get
189 ( p_count => x_msg_count,
190 p_data => x_msg_data
191 );
192 END Delete_inventory_location_pre;
193 PROCEDURE Delete_inventory_location_post
194 (
195 p_inv_loc_assignment_id IN NUMBER,
196 x_return_status OUT NOCOPY VARCHAR2,
197 x_msg_count OUT NOCOPY NUMBER,
198 x_msg_data OUT NOCOPY VARCHAR2
199 ) IS
200 l_api_name varchar2(200) := 'Delete_inventory_location_post' ;
201 BEGIN
202 Savepoint csp_inv_loc_assignments_cuhk;
203
204 x_return_status := fnd_api.g_ret_sts_success;
205 NULL;
206 -- Standard call to get message count and if count is 1, get message info
207 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
208 p_data => x_msg_data );
209
210 EXCEPTION
211 WHEN FND_API.G_EXC_ERROR THEN
212 ROLLBACK TO csp_inv_loc_assignments_cuhk;
213 x_return_status := FND_API.G_RET_STS_ERROR;
214 FND_MSG_PUB.Count_And_Get
215 ( p_count => x_msg_count,
216 p_data => x_msg_data );
217 WHEN OTHERS THEN
218 ROLLBACK TO csp_inv_loc_assignments_cuhk;
219 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
221 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
222 END IF;
223 FND_MSG_PUB.Count_And_Get
224 ( p_count => x_msg_count,
225 p_data => x_msg_data
226 );
227 END Delete_inventory_location_post;
228 END csp_inv_loc_assignments_cuhk;