[Home] [Help]
PACKAGE BODY: APPS.CSP_PICKLIST_LINES_PKG
Source
1 PACKAGE BODY CSP_PICKLIST_LINES_PKG AS
2 /* $Header: cspttplb.pls 115.7 2002/11/26 07:11:41 hhaugeru ship $ */
3 -- Start of Comments
4 -- Package name : CSP_PICKLIST_LINES_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PICKLIST_LINES_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttplb.pls';
13
14 PROCEDURE Insert_Row(
15 px_picklist_line_id IN OUT NOCOPY NUMBER,
16 p_CREATED_BY NUMBER,
17 p_CREATION_DATE DATE,
18 p_LAST_UPDATED_BY NUMBER,
19 p_LAST_UPDATE_DATE DATE,
20 p_LAST_UPDATE_LOGIN NUMBER,
21 p_PICKLIST_LINE_NUMBER NUMBER,
22 p_picklist_header_id NUMBER,
23 p_LINE_ID NUMBER,
24 p_INVENTORY_ITEM_ID NUMBER,
25 p_UOM_CODE VARCHAR2,
26 p_REVISION VARCHAR2,
27 p_QUANTITY_PICKED NUMBER,
28 p_TRANSACTION_TEMP_ID NUMBER,
29 p_ATTRIBUTE_CATEGORY VARCHAR2,
30 p_ATTRIBUTE1 VARCHAR2,
31 p_ATTRIBUTE2 VARCHAR2,
32 p_ATTRIBUTE3 VARCHAR2,
33 p_ATTRIBUTE4 VARCHAR2,
34 p_ATTRIBUTE5 VARCHAR2,
35 p_ATTRIBUTE6 VARCHAR2,
36 p_ATTRIBUTE7 VARCHAR2,
37 p_ATTRIBUTE8 VARCHAR2,
38 p_ATTRIBUTE9 VARCHAR2,
39 p_ATTRIBUTE10 VARCHAR2,
40 p_ATTRIBUTE11 VARCHAR2,
41 p_ATTRIBUTE12 VARCHAR2,
42 p_ATTRIBUTE13 VARCHAR2,
43 p_ATTRIBUTE14 VARCHAR2,
44 p_ATTRIBUTE15 VARCHAR2)
45
46 IS
47 CURSOR C2 IS SELECT CSP_PICKLIST_LINES_S1.nextval FROM sys.dual;
48 BEGIN
49
50 If (px_picklist_line_id IS NULL) OR (px_picklist_line_id = FND_API.G_MISS_NUM) then
51 OPEN C2;
52 FETCH C2 INTO px_picklist_line_id;
53 CLOSE C2;
54 End If;
55 INSERT INTO CSP_PICKLIST_LINES(
56 picklist_line_id,
57 CREATED_BY,
58 CREATION_DATE,
59 LAST_UPDATED_BY,
60 LAST_UPDATE_DATE,
61 LAST_UPDATE_LOGIN,
62 PICKLIST_LINE_NUMBER,
63 picklist_header_id,
64 LINE_ID,
65 INVENTORY_ITEM_ID,
66 UOM_CODE,
67 REVISION,
68 QUANTITY_PICKED,
69 TRANSACTION_TEMP_ID,
70 ATTRIBUTE_CATEGORY,
71 ATTRIBUTE1,
72 ATTRIBUTE2,
73 ATTRIBUTE3,
74 ATTRIBUTE4,
75 ATTRIBUTE5,
76 ATTRIBUTE6,
77 ATTRIBUTE7,
78 ATTRIBUTE8,
79 ATTRIBUTE9,
80 ATTRIBUTE10,
81 ATTRIBUTE11,
82 ATTRIBUTE12,
83 ATTRIBUTE13,
84 ATTRIBUTE14,
85 ATTRIBUTE15
86 ) VALUES (
87 px_picklist_line_id,
88 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
89 decode(p_CREATION_DATE,fnd_api.g_miss_date,to_date(null),p_creation_date),
90 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
91 decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,to_date(null),p_last_update_date),
92 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
93 decode( p_PICKLIST_LINE_NUMBER, FND_API.G_MISS_NUM, NULL, p_PICKLIST_LINE_NUMBER),
94 decode( p_picklist_header_id, FND_API.G_MISS_NUM, NULL, p_picklist_header_id),
95 decode( p_LINE_ID, FND_API.G_MISS_NUM, NULL, p_LINE_ID),
96 decode( p_INVENTORY_ITEM_ID, FND_API.G_MISS_NUM, NULL, p_INVENTORY_ITEM_ID),
97 decode( p_UOM_CODE, FND_API.G_MISS_CHAR, NULL, p_UOM_CODE),
98 decode( p_REVISION, FND_API.G_MISS_CHAR, NULL, p_REVISION),
99 decode( p_QUANTITY_PICKED, FND_API.G_MISS_NUM, NULL, p_QUANTITY_PICKED),
100 decode( p_TRANSACTION_TEMP_ID, FND_API.G_MISS_NUM, NULL, p_TRANSACTION_TEMP_ID),
101 decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY),
102 decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
103 decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
104 decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
105 decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
106 decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
107 decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
108 decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
109 decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
110 decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
111 decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
112 decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
113 decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
114 decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
115 decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
116 decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15));
117 End Insert_Row;
118
119 PROCEDURE Update_Row(
120 p_picklist_line_id NUMBER,
121 p_CREATED_BY NUMBER,
122 p_CREATION_DATE DATE,
123 p_LAST_UPDATED_BY NUMBER,
124 p_LAST_UPDATE_DATE DATE,
125 p_LAST_UPDATE_LOGIN NUMBER,
126 p_PICKLIST_LINE_NUMBER NUMBER,
127 p_picklist_header_id NUMBER,
128 p_LINE_ID NUMBER,
129 p_INVENTORY_ITEM_ID NUMBER,
130 p_UOM_CODE VARCHAR2,
131 p_REVISION VARCHAR2,
132 p_QUANTITY_PICKED NUMBER,
133 p_TRANSACTION_TEMP_ID NUMBER,
134 p_ATTRIBUTE_CATEGORY VARCHAR2,
135 p_ATTRIBUTE1 VARCHAR2,
136 p_ATTRIBUTE2 VARCHAR2,
137 p_ATTRIBUTE3 VARCHAR2,
138 p_ATTRIBUTE4 VARCHAR2,
139 p_ATTRIBUTE5 VARCHAR2,
140 p_ATTRIBUTE6 VARCHAR2,
141 p_ATTRIBUTE7 VARCHAR2,
142 p_ATTRIBUTE8 VARCHAR2,
143 p_ATTRIBUTE9 VARCHAR2,
144 p_ATTRIBUTE10 VARCHAR2,
145 p_ATTRIBUTE11 VARCHAR2,
146 p_ATTRIBUTE12 VARCHAR2,
147 p_ATTRIBUTE13 VARCHAR2,
148 p_ATTRIBUTE14 VARCHAR2,
149 p_ATTRIBUTE15 VARCHAR2)
150
151 IS
152 BEGIN
153 Update CSP_PICKLIST_LINES
154 SET
155 CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
156 CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
157 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
158 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,last_update_date,p_last_update_date),
159 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
160 PICKLIST_LINE_NUMBER = decode( p_PICKLIST_LINE_NUMBER, FND_API.G_MISS_NUM, PICKLIST_LINE_NUMBER, p_PICKLIST_LINE_NUMBER),
161 picklist_header_id = decode( p_picklist_header_id, FND_API.G_MISS_NUM, picklist_header_id, p_picklist_header_id),
162 LINE_ID = decode( p_LINE_ID, FND_API.G_MISS_NUM, LINE_ID, p_LINE_ID),
163 INVENTORY_ITEM_ID = decode( p_INVENTORY_ITEM_ID, FND_API.G_MISS_NUM, INVENTORY_ITEM_ID, p_INVENTORY_ITEM_ID),
164 UOM_CODE = decode( p_UOM_CODE, FND_API.G_MISS_CHAR, UOM_CODE, p_UOM_CODE),
165 REVISION = decode( p_REVISION, FND_API.G_MISS_CHAR, REVISION, p_REVISION),
166 QUANTITY_PICKED = decode( p_QUANTITY_PICKED, FND_API.G_MISS_NUM, QUANTITY_PICKED, p_QUANTITY_PICKED),
167 TRANSACTION_TEMP_ID = decode( p_TRANSACTION_TEMP_ID, FND_API.G_MISS_NUM, TRANSACTION_TEMP_ID, p_TRANSACTION_TEMP_ID),
168 ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY),
169 ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
170 ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
171 ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
172 ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
173 ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
174 ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
175 ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
176 ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
177 ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
178 ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
179 ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
180 ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
181 ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
182 ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
183 ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15)
184 where picklist_line_id = p_picklist_line_id;
185
186 If (SQL%NOTFOUND) then
187 RAISE NO_DATA_FOUND;
188 End If;
189 END Update_Row;
190
191 PROCEDURE Delete_Row(
192 p_picklist_line_id NUMBER)
193 IS
194 BEGIN
195 DELETE FROM CSP_PICKLIST_LINES
196 WHERE picklist_line_id = p_picklist_line_id;
197 If (SQL%NOTFOUND) then
198 RAISE NO_DATA_FOUND;
199 End If;
200 END Delete_Row;
201
202 PROCEDURE Lock_Row(
203 p_picklist_line_id NUMBER,
204 p_CREATED_BY NUMBER,
205 p_CREATION_DATE DATE,
206 p_LAST_UPDATED_BY NUMBER,
207 p_LAST_UPDATE_DATE DATE,
208 p_LAST_UPDATE_LOGIN NUMBER,
209 p_PICKLIST_LINE_NUMBER NUMBER,
210 p_picklist_header_id NUMBER,
211 p_LINE_ID NUMBER,
212 p_INVENTORY_ITEM_ID NUMBER,
213 p_UOM_CODE VARCHAR2,
214 p_REVISION VARCHAR2,
215 p_QUANTITY_PICKED NUMBER,
216 p_TRANSACTION_TEMP_ID NUMBER,
217 p_ATTRIBUTE_CATEGORY VARCHAR2,
218 p_ATTRIBUTE1 VARCHAR2,
219 p_ATTRIBUTE2 VARCHAR2,
220 p_ATTRIBUTE3 VARCHAR2,
221 p_ATTRIBUTE4 VARCHAR2,
222 p_ATTRIBUTE5 VARCHAR2,
223 p_ATTRIBUTE6 VARCHAR2,
224 p_ATTRIBUTE7 VARCHAR2,
225 p_ATTRIBUTE8 VARCHAR2,
226 p_ATTRIBUTE9 VARCHAR2,
227 p_ATTRIBUTE10 VARCHAR2,
228 p_ATTRIBUTE11 VARCHAR2,
229 p_ATTRIBUTE12 VARCHAR2,
230 p_ATTRIBUTE13 VARCHAR2,
231 p_ATTRIBUTE14 VARCHAR2,
232 p_ATTRIBUTE15 VARCHAR2)
233
234 IS
235 CURSOR C IS
236 SELECT *
237 FROM CSP_PICKLIST_LINES
238 WHERE picklist_line_id = p_picklist_line_id
239 FOR UPDATE of picklist_line_id NOWAIT;
240 Recinfo C%ROWTYPE;
241 BEGIN
242 OPEN C;
243 FETCH C INTO Recinfo;
244 If (C%NOTFOUND) then
245 CLOSE C;
246 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
247 APP_EXCEPTION.RAISE_EXCEPTION;
248 End If;
249 CLOSE C;
250
251 if (
252 ( Recinfo.picklist_line_id = p_picklist_line_id)
253 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
254 OR ( ( Recinfo.CREATED_BY IS NULL )
255 AND ( p_CREATED_BY IS NULL )))
256 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
257 OR ( ( Recinfo.CREATION_DATE IS NULL )
258 AND ( p_CREATION_DATE IS NULL )))
259 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
260 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
261 AND ( p_LAST_UPDATED_BY IS NULL )))
262 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
263 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
264 AND ( p_LAST_UPDATE_DATE IS NULL )))
265 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
266 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
267 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
268 AND ( ( Recinfo.PICKLIST_LINE_NUMBER = p_PICKLIST_LINE_NUMBER)
269 OR ( ( Recinfo.PICKLIST_LINE_NUMBER IS NULL )
273 AND ( p_picklist_header_id IS NULL )))
270 AND ( p_PICKLIST_LINE_NUMBER IS NULL )))
271 AND ( ( Recinfo.picklist_header_id = p_picklist_header_id)
272 OR ( ( Recinfo.picklist_header_id IS NULL )
274 AND ( ( Recinfo.LINE_ID = p_LINE_ID)
275 OR ( ( Recinfo.LINE_ID IS NULL )
276 AND ( p_LINE_ID IS NULL )))
277 AND ( ( Recinfo.INVENTORY_ITEM_ID = p_INVENTORY_ITEM_ID)
278 OR ( ( Recinfo.INVENTORY_ITEM_ID IS NULL )
279 AND ( p_INVENTORY_ITEM_ID IS NULL )))
280 AND ( ( Recinfo.UOM_CODE = p_UOM_CODE)
281 OR ( ( Recinfo.UOM_CODE IS NULL )
282 AND ( p_UOM_CODE IS NULL )))
283 AND ( ( Recinfo.REVISION = p_REVISION)
284 OR ( ( Recinfo.REVISION IS NULL )
285 AND ( p_REVISION IS NULL )))
286 AND ( ( Recinfo.QUANTITY_PICKED = p_QUANTITY_PICKED)
287 OR ( ( Recinfo.QUANTITY_PICKED IS NULL )
288 AND ( p_QUANTITY_PICKED IS NULL )))
289 AND ( ( Recinfo.TRANSACTION_TEMP_ID = p_TRANSACTION_TEMP_ID)
290 OR ( ( Recinfo.TRANSACTION_TEMP_ID IS NULL )
291 AND ( p_TRANSACTION_TEMP_ID IS NULL )))
292 AND ( ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
293 OR ( ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
294 AND ( p_ATTRIBUTE_CATEGORY IS NULL )))
295 AND ( ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
296 OR ( ( Recinfo.ATTRIBUTE1 IS NULL )
297 AND ( p_ATTRIBUTE1 IS NULL )))
298 AND ( ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
299 OR ( ( Recinfo.ATTRIBUTE2 IS NULL )
300 AND ( p_ATTRIBUTE2 IS NULL )))
301 AND ( ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
302 OR ( ( Recinfo.ATTRIBUTE3 IS NULL )
303 AND ( p_ATTRIBUTE3 IS NULL )))
304 AND ( ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
305 OR ( ( Recinfo.ATTRIBUTE4 IS NULL )
306 AND ( p_ATTRIBUTE4 IS NULL )))
307 AND ( ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
308 OR ( ( Recinfo.ATTRIBUTE5 IS NULL )
309 AND ( p_ATTRIBUTE5 IS NULL )))
310 AND ( ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
311 OR ( ( Recinfo.ATTRIBUTE6 IS NULL )
312 AND ( p_ATTRIBUTE6 IS NULL )))
313 AND ( ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
314 OR ( ( Recinfo.ATTRIBUTE7 IS NULL )
315 AND ( p_ATTRIBUTE7 IS NULL )))
316 AND ( ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
317 OR ( ( Recinfo.ATTRIBUTE8 IS NULL )
318 AND ( p_ATTRIBUTE8 IS NULL )))
319 AND ( ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
320 OR ( ( Recinfo.ATTRIBUTE9 IS NULL )
321 AND ( p_ATTRIBUTE9 IS NULL )))
322 AND ( ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
323 OR ( ( Recinfo.ATTRIBUTE10 IS NULL )
324 AND ( p_ATTRIBUTE10 IS NULL )))
325 AND ( ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
326 OR ( ( Recinfo.ATTRIBUTE11 IS NULL )
327 AND ( p_ATTRIBUTE11 IS NULL )))
328 AND ( ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
329 OR ( ( Recinfo.ATTRIBUTE12 IS NULL )
330 AND ( p_ATTRIBUTE12 IS NULL )))
331 AND ( ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
332 OR ( ( Recinfo.ATTRIBUTE13 IS NULL )
333 AND ( p_ATTRIBUTE13 IS NULL )))
334 AND ( ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
335 OR ( ( Recinfo.ATTRIBUTE14 IS NULL )
336 AND ( p_ATTRIBUTE14 IS NULL )))
337 AND ( ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
338 OR ( ( Recinfo.ATTRIBUTE15 IS NULL )
339 AND ( p_ATTRIBUTE15 IS NULL )))
340 ) then
341 return;
342 else
343 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
344 APP_EXCEPTION.RAISE_EXCEPTION;
345 End If;
346 END Lock_Row;
347
348 End CSP_PICKLIST_LINES_PKG;