[Home] [Help]
PACKAGE BODY: APPS.AMS_ITEM_REVISION_PUB
Source
1 PACKAGE BODY AMS_ITEM_REVISION_PUB AS
2 /* $Header: amsprevb.pls 115.5 2002/11/11 22:04:50 abhola ship $ */
3
4
5
6 PROCEDURE Create_Item_Revision
7 (
8 p_api_version IN NUMBER
9 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10 , p_commit IN VARCHAR2 := FND_API.G_FALSE
11 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
12 , x_return_status OUT NOCOPY VARCHAR2
13 , x_msg_count OUT NOCOPY NUMBER
14 , x_msg_data OUT NOCOPY VARCHAR2
15 , p_Item_Revision_rec IN Item_Revision_rec_type
16 )
17 IS
18
19 l_Item_Revision_rec INV_ITEM_REVISION_PUB.Item_Revision_rec_type;
20 l_api_version NUMBER ;
21 l_init_msg_list VARCHAR2(2000) ;
22 l_commit VARCHAR2(1) ;
23 l_validation_level NUMBER ;
24 l_return_status VARCHAR2(1) ;
25 l_msg_count NUMBER;
26 l_msg_data VARCHAR2(2000);
27
28 BEGIN
29
30
31
32 l_api_version := p_api_version;
33 l_init_msg_list := p_init_msg_list ;
34 l_commit := p_commit ;
35 l_validation_level := p_validation_level ;
36
37
38 l_Item_Revision_rec.inventory_item_id := p_Item_Revision_rec.inventory_item_id ;
39 l_Item_Revision_rec.organization_id := p_Item_Revision_rec.organization_id ;
40 l_Item_Revision_rec.revision := p_Item_Revision_rec.revision ;
41 l_Item_Revision_rec.description := p_Item_Revision_rec.description ;
42 l_Item_Revision_rec.effectivity_date := p_Item_Revision_rec.effectivity_date ;
43
44 IF to_char(l_Item_Revision_rec.effectivity_date,'DD-MON-YY') = to_char(sysdate,'DD-MON-YY')
45 THEN
46 l_Item_Revision_rec.effectivity_date := sysdate+.00001; --which increase one second from a sysdate
47 END IF;
48
49 INV_ITEM_REVISION_PUB.Create_Item_Revision
50 (
51 p_api_version => l_api_version
52 ,p_init_msg_list => l_init_msg_list
53 ,p_commit => l_commit
54 ,p_validation_level => l_validation_level
55 ,x_return_status => x_return_status
56 ,x_msg_count => x_msg_count
57 ,x_msg_data => x_msg_data
58 ,p_Item_Revision_rec => l_Item_Revision_rec
59 ) ;
60
61 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
62 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
64 RAISE FND_API.G_EXC_ERROR;
65 END IF;
66
67
68 IF FND_API.to_boolean(p_commit) THEN
69 COMMIT;
70 END IF;
71
72 FND_MSG_PUB.Count_AND_Get
73 ( p_count => x_msg_count,
74 p_data => x_msg_data,
75 p_encoded => FND_API.G_FALSE
76 );
77
78 EXCEPTION
79 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 FND_MSG_PUB.count_And_Get
82 ( p_count => x_msg_count,
83 p_data => x_msg_data,
84 p_encoded => FND_API.G_FALSE
85 );
86 WHEN FND_API.G_EXC_ERROR THEN
87 x_return_status := FND_API.G_RET_STS_ERROR;
88 FND_MSG_PUB.count_And_Get
89 ( p_count => x_msg_count,
90 p_data => x_msg_data,
91 p_encoded => FND_API.G_FALSE
92 );
93
94 END;
95
96
97
98
99 PROCEDURE Update_Item_Revision
100 (
101 p_api_version IN NUMBER
102 , p_init_msg_list IN VARCHAR2 := FND_API.g_FALSE
103 , p_commit IN VARCHAR2 := FND_API.g_FALSE
104 , p_validation_level IN NUMBER := FND_API.g_VALID_LEVEL_FULL
105 , x_return_status OUT NOCOPY VARCHAR2
106 , x_msg_count OUT NOCOPY NUMBER
107 , x_msg_data OUT NOCOPY VARCHAR2
108 , p_Item_Revision_rec IN Item_Revision_rec_type
109 )
110 IS
111
112 l_Item_Revision_rec INV_ITEM_REVISION_PUB.Item_Revision_rec_type;
113
114 l_api_version NUMBER ;
115 l_init_msg_list VARCHAR2(2000) ;
116 l_commit VARCHAR2(1) ;
117 l_validation_level NUMBER ;
118 l_return_status VARCHAR2(1) ;
119 l_msg_count NUMBER;
120 l_msg_data VARCHAR2(2000);
121
122 BEGIN
123
124 l_api_version := p_api_version;
125 l_init_msg_list := p_init_msg_list ;
126 l_commit := p_commit ;
127 l_validation_level := p_validation_level ;
128
129
130 l_Item_Revision_rec.inventory_item_id := p_Item_Revision_rec.inventory_item_id ;
131 l_Item_Revision_rec.organization_id := p_Item_Revision_rec.organization_id ;
132 l_Item_Revision_rec.revision := p_Item_Revision_rec.revision ;
133 l_Item_Revision_rec.description := p_Item_Revision_rec.description ;
134 l_Item_Revision_rec.effectivity_date := p_Item_Revision_rec.effectivity_date ;
135 l_Item_Revision_rec.object_version_number := p_Item_Revision_rec.object_version_number ;
136
137 INV_ITEM_REVISION_PUB.update_Item_Revision
138 (
139 p_api_version => l_api_version
140 , p_init_msg_list => l_init_msg_list
141 , p_commit => l_commit
142 , p_validation_level => l_validation_level
143 , x_return_status => x_return_status
144 , x_msg_count => x_msg_count
145 , x_msg_data => x_msg_data
146 , p_Item_Revision_rec => l_Item_Revision_rec
147 ) ;
148
149 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
152 RAISE FND_API.G_EXC_ERROR;
153 END IF;
154
155
156 IF FND_API.to_boolean(p_commit) THEN
157 COMMIT;
158 END IF;
159
160 FND_MSG_PUB.Count_AND_Get
161 ( p_count => x_msg_count,
162 p_data => x_msg_data,
163 p_encoded => FND_API.G_FALSE
164 );
165
166 EXCEPTION
167 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169 FND_MSG_PUB.count_And_Get
170 ( p_count => x_msg_count,
171 p_data => x_msg_data,
172 p_encoded => FND_API.G_FALSE
173 );
174 WHEN FND_API.G_EXC_ERROR THEN
175 x_return_status := FND_API.G_RET_STS_ERROR;
176 FND_MSG_PUB.count_And_Get
177 ( p_count => x_msg_count,
178 p_data => x_msg_data,
179 p_encoded => FND_API.G_FALSE
180 );
181
182 END;
183
184
185
186 PROCEDURE Delete_Item_Revision
187 (
188 p_api_version IN NUMBER
189 , p_init_msg_list IN VARCHAR2 := FND_API.g_FALSE
190 , p_commit IN VARCHAR2 := FND_API.g_FALSE
191 , p_validation_level IN NUMBER := FND_API.g_VALID_LEVEL_FULL
192 , x_return_status OUT NOCOPY VARCHAR2
193 , x_msg_count OUT NOCOPY NUMBER
194 , x_msg_data OUT NOCOPY VARCHAR2
195 , p_inventory_item_id IN NUMBER
196 , p_organization_id IN NUMBER
197 , p_revision IN VARCHAR2
198 , p_object_version_number IN NUMBER
199 )
200 IS
201
202
203 l_api_version NUMBER ;
204 l_init_msg_list VARCHAR2(2000) ;
205 l_commit VARCHAR2(1) ;
206 l_validation_level NUMBER ;
207 l_return_status VARCHAR2(1) ;
208 l_msg_count NUMBER;
209 l_msg_data VARCHAR2(2000);
210
211
212 l_inventory_item_id NUMBER ;
213 l_organization_id NUMBER ;
214 l_revision VARCHAR2(3) ;
215 l_object_version_number NUMBER ;
216
217 BEGIN
218
219 l_api_version := p_api_version;
220 l_init_msg_list := p_init_msg_list ;
221 l_commit := p_commit ;
222 l_validation_level := p_validation_level ;
223
224 l_inventory_item_id := p_inventory_item_id ;
225 l_organization_id := p_organization_id ;
226 l_revision := p_revision ;
227 l_object_version_number := p_object_version_number ;
228
229 INV_ITEM_REVISION_PUB.delete_Item_Revision
230 (
231 p_api_version => l_api_version
232 , p_init_msg_list => l_init_msg_list
233 , p_commit => l_commit
234 , p_validation_level => l_validation_level
235 , x_return_status => x_return_status
236 , x_msg_count => x_msg_count
237 , x_msg_data => x_msg_data
238 , p_inventory_item_id => l_inventory_item_id
239 , p_organization_id => l_organization_id
240 , p_revision => l_revision
241 , p_object_version_number => l_object_version_number
242 ) ;
243
244 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
245 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
246 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
247 RAISE FND_API.G_EXC_ERROR;
248 END IF;
249
250
251 IF FND_API.to_boolean(p_commit) THEN
252 COMMIT;
253 END IF;
254
255 FND_MSG_PUB.Count_AND_Get
256 ( p_count => x_msg_count,
257 p_data => x_msg_data,
258 p_encoded => FND_API.G_FALSE
259 );
260
261 EXCEPTION
262 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264 FND_MSG_PUB.count_And_Get
265 ( p_count => x_msg_count,
266 p_data => x_msg_data,
267 p_encoded => FND_API.G_FALSE
268 );
269 WHEN FND_API.G_EXC_ERROR THEN
270 x_return_status := FND_API.G_RET_STS_ERROR;
271 FND_MSG_PUB.count_And_Get
272 ( p_count => x_msg_count,
273 p_data => x_msg_data,
274 p_encoded => FND_API.G_FALSE
275 );
276
277
278 END;
279
280
281 END AMS_ITEM_REVISION_PUB;