[Home] [Help]
PACKAGE BODY: APPS.WSH_CHARGES_PKG
Source
1 PACKAGE BODY WSH_CHARGES_PKG as
2 /* $Header: WSHSCRGB.pls 115.0 99/07/16 08:20:53 porting ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5 X_Freight_Charge_Id IN OUT NUMBER,
6 X_Creation_Date DATE,
7 X_Created_By NUMBER,
8 X_Last_Update_Date DATE,
9 X_Last_Updated_By NUMBER,
10 X_Last_Update_Login NUMBER,
11 X_Freight_Charge_Type_Id NUMBER,
12 X_Picking_Header_Id NUMBER,
13 X_Amount NUMBER,
14 X_Currency_Code VARCHAR2,
15 X_Conversion_Date DATE,
16 X_Conversion_Rate NUMBER,
17 X_Conversion_Type_Code VARCHAR2,
18 X_Invoice_Status VARCHAR2,
19 X_Context VARCHAR2,
20 X_Attribute1 VARCHAR2,
21 X_Attribute2 VARCHAR2,
22 X_Attribute3 VARCHAR2,
23 X_Attribute4 VARCHAR2,
24 X_Attribute5 VARCHAR2,
25 X_Attribute6 VARCHAR2,
26 X_Attribute7 VARCHAR2,
27 X_Attribute8 VARCHAR2,
28 X_Attribute9 VARCHAR2,
29 X_Attribute10 VARCHAR2,
30 X_Attribute11 VARCHAR2,
31 X_Attribute12 VARCHAR2,
32 X_Attribute13 VARCHAR2,
33 X_Attribute14 VARCHAR2,
34 X_Attribute15 VARCHAR2,
35 X_Delivery_Id NUMBER DEFAULT NULL,
36 X_Picking_Line_Detail_Id NUMBER DEFAULT NULL,
37 X_Container_Id NUMBER DEFAULT NULL,
38 X_AC_Attribute_Category VARCHAR2 DEFAULT NULL,
39 X_AC_Attribute1 VARCHAR2 DEFAULT NULL,
40 X_AC_Attribute2 VARCHAR2 DEFAULT NULL,
41 X_AC_Attribute3 VARCHAR2 DEFAULT NULL,
42 X_AC_Attribute4 VARCHAR2 DEFAULT NULL,
43 X_AC_Attribute5 VARCHAR2 DEFAULT NULL,
44 X_AC_Attribute6 VARCHAR2 DEFAULT NULL,
45 X_AC_Attribute7 VARCHAR2 DEFAULT NULL,
46 X_AC_Attribute8 VARCHAR2 DEFAULT NULL,
47 X_AC_Attribute9 VARCHAR2 DEFAULT NULL,
48 X_AC_Attribute10 VARCHAR2 DEFAULT NULL,
49 X_AC_Attribute11 VARCHAR2 DEFAULT NULL,
50 X_AC_Attribute12 VARCHAR2 DEFAULT NULL,
51 X_AC_Attribute13 VARCHAR2 DEFAULT NULL,
52 X_AC_Attribute14 VARCHAR2 DEFAULT NULL,
53 X_AC_Attribute15 VARCHAR2 DEFAULT NULL
54 ) IS
55 CURSOR C IS SELECT rowid FROM SO_FREIGHT_CHARGES
56 WHERE freight_charge_id = X_Freight_Charge_Id;
57 CURSOR NEXTID IS SELECT so_freight_charges_s.nextval FROM sys.dual;
58 BEGIN
59
60 IF (X_Freight_Charge_Id is NULL) THEN
61 OPEN NEXTID;
62 FETCH NEXTID INTO X_Freight_Charge_Id;
63 CLOSE NEXTID;
64 END IF;
65
66 INSERT INTO SO_FREIGHT_CHARGES(
67
68 freight_charge_id,
69 creation_date,
70 created_by,
71 last_update_date,
72 last_updated_by,
73 last_update_login,
74 freight_charge_type_id,
75 picking_header_id,
76 amount,
77 currency_code,
78 conversion_date,
79 conversion_rate,
80 conversion_type_code,
81 invoice_status,
82 context,
83 attribute1,
84 attribute2,
85 attribute3,
86 attribute4,
87 attribute5,
88 attribute6,
89 attribute7,
90 attribute8,
91 attribute9,
92 attribute10,
93 attribute11,
94 attribute12,
95 attribute13,
96 attribute14,
97 attribute15,
98 delivery_id,
99 picking_line_detail_id,
100 container_id,
101 ac_attribute_category,
102 ac_attribute1,
103 ac_attribute2,
104 ac_attribute3,
105 ac_attribute4,
106 ac_attribute5,
107 ac_attribute6,
108 ac_attribute7,
109 ac_attribute8,
110 ac_attribute9,
111 ac_attribute10,
112 ac_attribute11,
113 ac_attribute12,
114 ac_attribute13,
115 ac_attribute14,
116 ac_attribute15
117 ) VALUES (
118
119 X_Freight_Charge_Id,
120 X_Creation_Date,
121 X_Created_By,
122 X_Last_Update_Date,
123 X_Last_Updated_By,
124 X_Last_Update_Login,
125 X_Freight_Charge_Type_Id,
126 X_Picking_Header_Id,
127 X_Amount,
128 X_Currency_Code,
129 X_Conversion_Date,
130 X_Conversion_Rate,
131 X_Conversion_Type_Code,
132 X_Invoice_Status,
133 X_Context,
134 X_Attribute1,
135 X_Attribute2,
136 X_Attribute3,
137 X_Attribute4,
138 X_Attribute5,
139 X_Attribute6,
140 X_Attribute7,
141 X_Attribute8,
142 X_Attribute9,
143 X_Attribute10,
144 X_Attribute11,
145 X_Attribute12,
146 X_Attribute13,
147 X_Attribute14,
148 X_Attribute15,
149 X_Delivery_Id,
150 X_Picking_Line_Detail_Id,
151 X_Container_Id,
152 X_AC_Attribute_Category,
153 X_AC_Attribute1,
154 X_AC_Attribute2,
155 X_AC_Attribute3,
156 X_AC_Attribute4,
157 X_AC_Attribute5,
158 X_AC_Attribute6,
159 X_AC_Attribute7,
160 X_AC_Attribute8,
161 X_AC_Attribute9,
162 X_AC_Attribute10,
163 X_AC_Attribute11,
164 X_AC_Attribute12,
165 X_AC_Attribute13,
166 X_AC_Attribute14,
167 X_AC_Attribute15
168
169 );
170
171 OPEN C;
172 FETCH C INTO X_Rowid;
173 if (C%NOTFOUND) then
174 CLOSE C;
175 Raise NO_DATA_FOUND;
176 end if;
177 CLOSE C;
178 END Insert_Row;
179
180
181 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
182
183 X_Freight_Charge_Id NUMBER,
184 X_Freight_Charge_Type_Id NUMBER,
185 X_Picking_Header_Id NUMBER,
186 X_Amount NUMBER,
187 X_Currency_Code VARCHAR2,
188 X_Conversion_Date DATE,
189 X_Conversion_Rate NUMBER,
190 X_Conversion_Type_Code VARCHAR2,
191 X_Invoice_Status VARCHAR2,
192 X_Context VARCHAR2,
193 X_Attribute1 VARCHAR2,
194 X_Attribute2 VARCHAR2,
195 X_Attribute3 VARCHAR2,
196 X_Attribute4 VARCHAR2,
197 X_Attribute5 VARCHAR2,
198 X_Attribute6 VARCHAR2,
199 X_Attribute7 VARCHAR2,
200 X_Attribute8 VARCHAR2,
201 X_Attribute9 VARCHAR2,
202 X_Attribute10 VARCHAR2,
203 X_Attribute11 VARCHAR2,
204 X_Attribute12 VARCHAR2,
205 X_Attribute13 VARCHAR2,
206 X_Attribute14 VARCHAR2,
207 X_Attribute15 VARCHAR2,
208 X_Delivery_Id NUMBER DEFAULT NULL,
209 X_Picking_Line_Detail_Id NUMBER DEFAULT NULL,
210 X_Container_Id NUMBER DEFAULT NULL,
211 X_AC_Attribute_Category VARCHAR2 DEFAULT NULL,
212 X_AC_Attribute1 VARCHAR2 DEFAULT NULL,
213 X_AC_Attribute2 VARCHAR2 DEFAULT NULL,
214 X_AC_Attribute3 VARCHAR2 DEFAULT NULL,
215 X_AC_Attribute4 VARCHAR2 DEFAULT NULL,
216 X_AC_Attribute5 VARCHAR2 DEFAULT NULL,
217 X_AC_Attribute6 VARCHAR2 DEFAULT NULL,
218 X_AC_Attribute7 VARCHAR2 DEFAULT NULL,
219 X_AC_Attribute8 VARCHAR2 DEFAULT NULL,
220 X_AC_Attribute9 VARCHAR2 DEFAULT NULL,
221 X_AC_Attribute10 VARCHAR2 DEFAULT NULL,
222 X_AC_Attribute11 VARCHAR2 DEFAULT NULL,
223 X_AC_Attribute12 VARCHAR2 DEFAULT NULL,
224 X_AC_Attribute13 VARCHAR2 DEFAULT NULL,
225 X_AC_Attribute14 VARCHAR2 DEFAULT NULL,
226 X_AC_Attribute15 VARCHAR2 DEFAULT NULL
227 ) IS
228 CURSOR C IS
229 SELECT *
230 FROM SO_FREIGHT_CHARGES
231 WHERE rowid = X_Rowid
232 FOR UPDATE of Freight_Charge_Id NOWAIT;
233 Recinfo C%ROWTYPE;
234
235
236 BEGIN
237 OPEN C;
238 FETCH C INTO Recinfo;
239 if (C%NOTFOUND) then
240 CLOSE C;
241 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
242 APP_EXCEPTION.Raise_Exception;
243 end if;
244 CLOSE C;
245 if (
246
247 (Recinfo.freight_charge_id = X_Freight_Charge_Id)
248 AND (Recinfo.freight_charge_type_id = X_Freight_Charge_Type_Id)
249 AND ( (Recinfo.picking_header_id = X_Picking_Header_Id)
250 OR ( (Recinfo.picking_header_id IS NULL)
251 AND (X_Picking_Header_Id IS NULL)))
252 AND ( (Recinfo.amount = X_Amount)
253 OR ( (Recinfo.amount IS NULL)
254 AND (X_Amount IS NULL)))
255 AND ( (Recinfo.currency_code = X_Currency_Code)
256 OR ( (Recinfo.currency_code IS NULL)
257 AND (X_Currency_Code IS NULL)))
258 AND ( (Recinfo.conversion_date = X_Conversion_Date)
259 OR ( (Recinfo.conversion_date IS NULL)
260 AND (X_Conversion_Date IS NULL)))
261 AND ( (Recinfo.conversion_rate = X_Conversion_Rate)
262 OR ( (Recinfo.conversion_rate IS NULL)
263 AND (X_Conversion_Rate IS NULL)))
264 AND ( (Recinfo.conversion_type_code = X_Conversion_Type_Code)
265 OR ( (Recinfo.conversion_type_code IS NULL)
266 AND (X_Conversion_Type_Code IS NULL)))
267 AND ( (Recinfo.invoice_status = X_Invoice_Status)
268 OR ( (Recinfo.invoice_status IS NULL)
269 AND (X_Invoice_Status IS NULL)))
270 AND ( (Recinfo.context = X_Context)
271 OR ( (Recinfo.context IS NULL)
272 AND (X_Context IS NULL)))
273 AND ( (Recinfo.attribute1 = X_Attribute1)
274 OR ( (Recinfo.attribute1 IS NULL)
275 AND (X_Attribute1 IS NULL)))
276 AND ( (Recinfo.attribute2 = X_Attribute2)
277 OR ( (Recinfo.attribute2 IS NULL)
278 AND (X_Attribute2 IS NULL)))
279 AND ( (Recinfo.attribute3 = X_Attribute3)
280 OR ( (Recinfo.attribute3 IS NULL)
281 AND (X_Attribute3 IS NULL)))
282 AND ( (Recinfo.attribute4 = X_Attribute4)
283 OR ( (Recinfo.attribute4 IS NULL)
284 AND (X_Attribute4 IS NULL)))
285 AND ( (Recinfo.attribute5 = X_Attribute5)
286 OR ( (Recinfo.attribute5 IS NULL)
287 AND (X_Attribute5 IS NULL)))
288 AND ( (Recinfo.attribute6 = X_Attribute6)
289 OR ( (Recinfo.attribute6 IS NULL)
290 AND (X_Attribute6 IS NULL)))
294 AND ( (Recinfo.attribute8 = X_Attribute8)
291 AND ( (Recinfo.attribute7 = X_Attribute7)
292 OR ( (Recinfo.attribute7 IS NULL)
293 AND (X_Attribute7 IS NULL)))
295 OR ( (Recinfo.attribute8 IS NULL)
296 AND (X_Attribute8 IS NULL)))
297 AND ( (Recinfo.attribute9 = X_Attribute9)
298 OR ( (Recinfo.attribute9 IS NULL)
299 AND (X_Attribute9 IS NULL)))
300 AND ( (Recinfo.attribute10 = X_Attribute10)
301 OR ( (Recinfo.attribute10 IS NULL)
302 AND (X_Attribute10 IS NULL)))
303 AND ( (Recinfo.attribute11 = X_Attribute11)
304 OR ( (Recinfo.attribute11 IS NULL)
305 AND (X_Attribute11 IS NULL)))
306 AND ( (Recinfo.attribute12 = X_Attribute12)
307 OR ( (Recinfo.attribute12 IS NULL)
308 AND (X_Attribute12 IS NULL)))
309 AND ( (Recinfo.attribute13 = X_Attribute13)
310 OR ( (Recinfo.attribute13 IS NULL)
311 AND (X_Attribute13 IS NULL)))
312 AND ( (Recinfo.attribute14 = X_Attribute14)
313 OR ( (Recinfo.attribute14 IS NULL)
314 AND (X_Attribute14 IS NULL)))
315 AND ( (Recinfo.attribute15 = X_Attribute15)
316 OR ( (Recinfo.attribute15 IS NULL)
317 AND (X_Attribute15 IS NULL)))
318 AND ( (Recinfo.delivery_id = X_Delivery_Id)
319 OR ( (Recinfo.delivery_id IS NULL)
320 AND (X_Delivery_Id IS NULL)))
321 AND ( (Recinfo.picking_line_detail_id = X_Picking_Line_Detail_Id)
322 OR ( (Recinfo.picking_line_detail_id IS NULL)
323 AND (X_Picking_Line_Detail_Id IS NULL)))
324 AND ( (Recinfo.container_id = X_Container_Id)
325 OR ( (Recinfo.container_Id IS NULL)
326 AND (X_Container_Id IS NULL)))
327 AND ( (Recinfo.ac_attribute_category = X_AC_Attribute_Category)
328 OR ( (Recinfo.ac_attribute_category IS NULL)
329 AND (X_AC_Attribute_Category IS NULL)))
330 AND ( (Recinfo.ac_attribute1 = X_AC_Attribute1)
331 OR ( (Recinfo.ac_attribute1 IS NULL)
332 AND (X_AC_Attribute1 IS NULL)))
333 AND ( (Recinfo.ac_attribute2 = X_AC_Attribute2)
334 OR ( (Recinfo.ac_attribute2 IS NULL)
335 AND (X_AC_Attribute2 IS NULL)))
336 AND ( (Recinfo.ac_attribute3 = X_AC_Attribute3)
337 OR ( (Recinfo.ac_attribute3 IS NULL)
338 AND (X_AC_Attribute3 IS NULL)))
339 AND ( (Recinfo.ac_attribute4 = X_AC_Attribute4)
340 OR ( (Recinfo.ac_attribute4 IS NULL)
341 AND (X_AC_Attribute4 IS NULL)))
342 AND ( (Recinfo.ac_attribute5 = X_AC_Attribute5)
343 OR ( (Recinfo.ac_attribute5 IS NULL)
344 AND (X_AC_Attribute5 IS NULL)))
345 AND ( (Recinfo.ac_attribute6 = X_AC_Attribute6)
346 OR ( (Recinfo.ac_attribute6 IS NULL)
347 AND (X_AC_Attribute6 IS NULL)))
348 AND ( (Recinfo.ac_attribute7 = X_AC_Attribute7)
349 OR ( (Recinfo.ac_attribute7 IS NULL)
350 AND (X_AC_Attribute7 IS NULL)))
351 AND ( (Recinfo.ac_attribute8 = X_AC_Attribute8)
352 OR ( (Recinfo.ac_attribute8 IS NULL)
353 AND (X_AC_Attribute8 IS NULL)))
354 AND ( (Recinfo.ac_attribute9 = X_AC_Attribute9)
355 OR ( (Recinfo.ac_attribute9 IS NULL)
356 AND (X_AC_Attribute9 IS NULL)))
357 AND ( (Recinfo.ac_attribute10 = X_AC_Attribute10)
358 OR ( (Recinfo.ac_attribute10 IS NULL)
359 AND (X_AC_Attribute10 IS NULL)))
360 AND ( (Recinfo.ac_attribute11 = X_AC_Attribute11)
361 OR ( (Recinfo.ac_attribute11 IS NULL)
362 AND (X_AC_Attribute11 IS NULL)))
363 AND ( (Recinfo.ac_attribute12 = X_AC_Attribute12)
364 OR ( (Recinfo.ac_attribute12 IS NULL)
365 AND (X_AC_Attribute12 IS NULL)))
366 AND ( (Recinfo.ac_attribute13 = X_AC_Attribute13)
367 OR ( (Recinfo.ac_attribute13 IS NULL)
368 AND (X_AC_Attribute13 IS NULL)))
369 AND ( (Recinfo.ac_attribute14 = X_AC_Attribute14)
370 OR ( (Recinfo.ac_attribute14 IS NULL)
371 AND (X_AC_Attribute14 IS NULL)))
372 AND ( (Recinfo.ac_attribute15 = X_AC_Attribute15)
373 OR ( (Recinfo.ac_attribute15 IS NULL)
374 AND (X_AC_Attribute15 IS NULL)))
375 ) then
376 return;
377 else
378 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
379 APP_EXCEPTION.Raise_Exception;
380 end if;
381 END Lock_Row;
382
383
384
385 PROCEDURE Update_Row(X_Rowid VARCHAR2,
386
387 X_Freight_Charge_Id NUMBER,
388 X_Last_Update_Date DATE,
389 X_Last_Updated_By NUMBER,
390 X_Last_Update_Login NUMBER,
391 X_Freight_Charge_Type_Id NUMBER,
392 X_Picking_Header_Id NUMBER,
393 X_Amount NUMBER,
394 X_Currency_Code VARCHAR2,
395 X_Conversion_Date DATE,
396 X_Conversion_Rate NUMBER,
400 X_Attribute1 VARCHAR2,
397 X_Conversion_Type_Code VARCHAR2,
398 X_Invoice_Status VARCHAR2,
399 X_Context VARCHAR2,
401 X_Attribute2 VARCHAR2,
402 X_Attribute3 VARCHAR2,
403 X_Attribute4 VARCHAR2,
404 X_Attribute5 VARCHAR2,
405 X_Attribute6 VARCHAR2,
406 X_Attribute7 VARCHAR2,
407 X_Attribute8 VARCHAR2,
408 X_Attribute9 VARCHAR2,
409 X_Attribute10 VARCHAR2,
410 X_Attribute11 VARCHAR2,
411 X_Attribute12 VARCHAR2,
412 X_Attribute13 VARCHAR2,
413 X_Attribute14 VARCHAR2,
414 X_Attribute15 VARCHAR2,
415 X_Delivery_Id NUMBER DEFAULT NULL,
416 X_Picking_Line_Detail_Id NUMBER DEFAULT NULL,
417 X_Container_Id NUMBER DEFAULT NULL,
418 X_AC_Attribute_Category VARCHAR2 DEFAULT NULL,
419 X_AC_Attribute1 VARCHAR2 DEFAULT NULL,
420 X_AC_Attribute2 VARCHAR2 DEFAULT NULL,
421 X_AC_Attribute3 VARCHAR2 DEFAULT NULL,
422 X_AC_Attribute4 VARCHAR2 DEFAULT NULL,
423 X_AC_Attribute5 VARCHAR2 DEFAULT NULL,
424 X_AC_Attribute6 VARCHAR2 DEFAULT NULL,
425 X_AC_Attribute7 VARCHAR2 DEFAULT NULL,
426 X_AC_Attribute8 VARCHAR2 DEFAULT NULL,
427 X_AC_Attribute9 VARCHAR2 DEFAULT NULL,
428 X_AC_Attribute10 VARCHAR2 DEFAULT NULL,
429 X_AC_Attribute11 VARCHAR2 DEFAULT NULL,
430 X_AC_Attribute12 VARCHAR2 DEFAULT NULL,
431 X_AC_Attribute13 VARCHAR2 DEFAULT NULL,
432 X_AC_Attribute14 VARCHAR2 DEFAULT NULL,
433 X_AC_Attribute15 VARCHAR2 DEFAULT NULL
434
435 ) IS
436 BEGIN
437 UPDATE SO_FREIGHT_CHARGES
438 SET
439 freight_charge_id = X_Freight_Charge_Id,
440 last_update_date = X_Last_Update_Date,
441 last_updated_by = X_Last_Updated_By,
442 last_update_login = X_Last_Update_Login,
443 freight_charge_type_id = X_Freight_Charge_Type_Id,
444 picking_header_id = X_Picking_Header_Id,
445 amount = X_Amount,
446 currency_code = X_Currency_Code,
447 conversion_date = X_Conversion_Date,
448 conversion_rate = X_Conversion_Rate,
449 conversion_type_code = X_Conversion_Type_Code,
450 invoice_status = X_Invoice_Status,
451 context = X_Context,
452 attribute1 = X_Attribute1,
453 attribute2 = X_Attribute2,
454 attribute3 = X_Attribute3,
455 attribute4 = X_Attribute4,
456 attribute5 = X_Attribute5,
457 attribute6 = X_Attribute6,
458 attribute7 = X_Attribute7,
459 attribute8 = X_Attribute8,
460 attribute9 = X_Attribute9,
461 attribute10 = X_Attribute10,
462 attribute11 = X_Attribute11,
463 attribute12 = X_Attribute12,
464 attribute13 = X_Attribute13,
465 attribute14 = X_Attribute14,
466 attribute15 = X_Attribute15,
467 delivery_id = X_Delivery_Id,
468 picking_line_detail_id = X_Picking_Line_Detail_Id,
469 container_id = X_Container_Id,
470 ac_attribute_category = X_AC_Attribute_Category,
471 ac_attribute1 = X_AC_Attribute1,
472 ac_attribute2 = X_AC_Attribute2,
473 ac_attribute3 = X_AC_Attribute3,
474 ac_attribute4 = X_AC_Attribute4,
475 ac_attribute5 = X_AC_Attribute5,
476 ac_attribute6 = X_AC_Attribute6,
477 ac_attribute7 = X_AC_Attribute7,
478 ac_attribute8 = X_AC_Attribute8,
479 ac_attribute9 = X_AC_Attribute9,
480 ac_attribute10 = X_AC_Attribute10,
481 ac_attribute11 = X_AC_Attribute11,
482 ac_attribute12 = X_AC_Attribute12,
483 ac_attribute13 = X_AC_Attribute13,
484 ac_attribute14 = X_AC_Attribute14,
485 ac_attribute15 = X_AC_Attribute15
486 WHERE rowid = X_Rowid;
487
488 if (SQL%NOTFOUND) then
489 Raise NO_DATA_FOUND;
490 end if;
491 END Update_Row;
492 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
493 BEGIN
494 DELETE FROM SO_FREIGHT_CHARGES
498 Raise NO_DATA_FOUND;
495 WHERE rowid = X_Rowid;
496
497 if (SQL%NOTFOUND) then
499 end if;
500 END Delete_Row;
501
502
503 END WSH_CHARGES_PKG;