[Home] [Help]
PACKAGE BODY: APPS.GMI_MOVE_ORDER_HEADER_UTIL
Source
1 PACKAGE BODY GMI_Move_Order_Header_Util AS
2 /* $Header: GMIUMOHB.pls 120.0 2005/05/26 00:14:59 appldev noship $ */
3 /* +=========================================================================+
4 | Copyright (c) 2000 Oracle Corporation |
5 | TVP, Reading, England |
6 | All rights reserved |
7 +=========================================================================+
8 | FILENAME |
9 | GMIUMOHB.pls |
10 | |
11 | DESCRIPTION |
12 | This package contains public procedures relating to GMI |
13 | Move Order Header Utilities |
14 | |
15 | - Process_Move_Order_Header |
16 | |
17 | |
18 | HISTORY |
19 | 27-Apr-2000 odaboval Created |
20 | 14-Sep-2000 odaboval removed dummy calls. |
21 | |
22 | |
23 +=========================================================================+
24 API Name : GMI_Move_Order_Header_Util
25 Type : Global
26 -
27 Pre-reqs : N/A
28 Parameters: Per function
29
30 Current Vers : 1.0
31 */
32
33
34 /* Global constant holding the package name */
35
36 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMI_Move_Order_Header_Util';
37
38 /* (odab) Deleted procedures :
39 Procedure Clear_Dependent_Attr
40 Procedure Apply_Attribute_Changes
41 Function Get_Values
42 Function Get_Ids
43 */
44
45 /* Function Complete_Record */
46
47 FUNCTION Complete_Record
48 ( p_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
49 , p_old_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
50 ) RETURN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
51 IS
52 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC := p_mo_hdr_rec;
53 BEGIN
54
55 IF l_mo_hdr_rec.attribute1 = FND_API.G_MISS_CHAR THEN
56 l_mo_hdr_rec.attribute1 := p_old_mo_hdr_rec.attribute1;
57 END IF;
58
59 IF l_mo_hdr_rec.attribute10 = FND_API.G_MISS_CHAR THEN
60 l_mo_hdr_rec.attribute10 := p_old_mo_hdr_rec.attribute10;
61 END IF;
62
63 IF l_mo_hdr_rec.attribute11 = FND_API.G_MISS_CHAR THEN
64 l_mo_hdr_rec.attribute11 := p_old_mo_hdr_rec.attribute11;
65 END IF;
66
67 IF l_mo_hdr_rec.attribute12 = FND_API.G_MISS_CHAR THEN
68 l_mo_hdr_rec.attribute12 := p_old_mo_hdr_rec.attribute12;
69 END IF;
70
71 IF l_mo_hdr_rec.attribute13 = FND_API.G_MISS_CHAR THEN
72 l_mo_hdr_rec.attribute13 := p_old_mo_hdr_rec.attribute13;
73 END IF;
74
75 IF l_mo_hdr_rec.attribute14 = FND_API.G_MISS_CHAR THEN
76 l_mo_hdr_rec.attribute14 := p_old_mo_hdr_rec.attribute14;
77 END IF;
78
79 IF l_mo_hdr_rec.attribute15 = FND_API.G_MISS_CHAR THEN
80 l_mo_hdr_rec.attribute15 := p_old_mo_hdr_rec.attribute15;
81 END IF;
82
83 IF l_mo_hdr_rec.attribute2 = FND_API.G_MISS_CHAR THEN
84 l_mo_hdr_rec.attribute2 := p_old_mo_hdr_rec.attribute2;
85 END IF;
86
87 IF l_mo_hdr_rec.attribute3 = FND_API.G_MISS_CHAR THEN
88 l_mo_hdr_rec.attribute3 := p_old_mo_hdr_rec.attribute3;
89 END IF;
90
91 IF l_mo_hdr_rec.attribute4 = FND_API.G_MISS_CHAR THEN
92 l_mo_hdr_rec.attribute4 := p_old_mo_hdr_rec.attribute4;
93 END IF;
94
95 IF l_mo_hdr_rec.attribute5 = FND_API.G_MISS_CHAR THEN
96 l_mo_hdr_rec.attribute5 := p_old_mo_hdr_rec.attribute5;
97 END IF;
98
99 IF l_mo_hdr_rec.attribute6 = FND_API.G_MISS_CHAR THEN
100 l_mo_hdr_rec.attribute6 := p_old_mo_hdr_rec.attribute6;
101 END IF;
102
103 IF l_mo_hdr_rec.attribute7 = FND_API.G_MISS_CHAR THEN
104 l_mo_hdr_rec.attribute7 := p_old_mo_hdr_rec.attribute7;
105 END IF;
106
107 IF l_mo_hdr_rec.attribute8 = FND_API.G_MISS_CHAR THEN
108 l_mo_hdr_rec.attribute8 := p_old_mo_hdr_rec.attribute8;
109 END IF;
110
111 IF l_mo_hdr_rec.attribute9 = FND_API.G_MISS_CHAR THEN
112 l_mo_hdr_rec.attribute9 := p_old_mo_hdr_rec.attribute9;
113 END IF;
114
115 IF l_mo_hdr_rec.attribute_category = FND_API.G_MISS_CHAR THEN
116 l_mo_hdr_rec.attribute_category := p_old_mo_hdr_rec.attribute_category;
117 END IF;
118
119 IF l_mo_hdr_rec.created_by = FND_API.G_MISS_NUM THEN
120 l_mo_hdr_rec.created_by := p_old_mo_hdr_rec.created_by;
121 END IF;
122
123 IF l_mo_hdr_rec.creation_date = FND_API.G_MISS_DATE THEN
124 l_mo_hdr_rec.creation_date := p_old_mo_hdr_rec.creation_date;
125 END IF;
126
127 IF l_mo_hdr_rec.date_required = FND_API.G_MISS_DATE THEN
128 l_mo_hdr_rec.date_required := p_old_mo_hdr_rec.date_required;
129 END IF;
130
131 IF l_mo_hdr_rec.description = FND_API.G_MISS_CHAR THEN
132 l_mo_hdr_rec.description := p_old_mo_hdr_rec.description;
133 END IF;
134
135 IF l_mo_hdr_rec.from_subinventory_code = FND_API.G_MISS_CHAR THEN
136 l_mo_hdr_rec.from_subinventory_code := p_old_mo_hdr_rec.from_subinventory_code;
137 END IF;
138
139 IF l_mo_hdr_rec.header_id = FND_API.G_MISS_NUM THEN
140 l_mo_hdr_rec.header_id := p_old_mo_hdr_rec.header_id;
141 END IF;
142
143 IF l_mo_hdr_rec.header_status = FND_API.G_MISS_NUM THEN
144 l_mo_hdr_rec.header_status := p_old_mo_hdr_rec.header_status;
145 END IF;
146
147 IF l_mo_hdr_rec.last_updated_by = FND_API.G_MISS_NUM THEN
148 l_mo_hdr_rec.last_updated_by := p_old_mo_hdr_rec.last_updated_by;
149 END IF;
150
151 IF l_mo_hdr_rec.last_update_date = FND_API.G_MISS_DATE THEN
152 l_mo_hdr_rec.last_update_date := p_old_mo_hdr_rec.last_update_date;
153 END IF;
154
155 IF l_mo_hdr_rec.last_update_login = FND_API.G_MISS_NUM THEN
156 l_mo_hdr_rec.last_update_login := p_old_mo_hdr_rec.last_update_login;
157 END IF;
158
159 IF l_mo_hdr_rec.organization_id = FND_API.G_MISS_NUM THEN
160 l_mo_hdr_rec.organization_id := p_old_mo_hdr_rec.organization_id;
161 END IF;
162
163 IF l_mo_hdr_rec.program_application_id = FND_API.G_MISS_NUM THEN
164 l_mo_hdr_rec.program_application_id := p_old_mo_hdr_rec.program_application_id;
165 END IF;
166
167 IF l_mo_hdr_rec.program_id = FND_API.G_MISS_NUM THEN
168 l_mo_hdr_rec.program_id := p_old_mo_hdr_rec.program_id;
169 END IF;
170
171 IF l_mo_hdr_rec.program_update_date = FND_API.G_MISS_DATE THEN
172 l_mo_hdr_rec.program_update_date := p_old_mo_hdr_rec.program_update_date;
173 END IF;
174
175 IF l_mo_hdr_rec.request_id = FND_API.G_MISS_NUM THEN
176 l_mo_hdr_rec.request_id := p_old_mo_hdr_rec.request_id;
177 END IF;
178
179 IF l_mo_hdr_rec.request_number = FND_API.G_MISS_CHAR THEN
180 l_mo_hdr_rec.request_number := p_old_mo_hdr_rec.request_number;
181 END IF;
182
183 IF l_mo_hdr_rec.status_date = FND_API.G_MISS_DATE THEN
184 l_mo_hdr_rec.status_date := p_old_mo_hdr_rec.status_date;
185 END IF;
186
187 IF l_mo_hdr_rec.to_account_id = FND_API.G_MISS_NUM THEN
188 l_mo_hdr_rec.to_account_id := p_old_mo_hdr_rec.to_account_id;
189 END IF;
190
191 IF l_mo_hdr_rec.to_subinventory_code = FND_API.G_MISS_CHAR THEN
192 l_mo_hdr_rec.to_subinventory_code := p_old_mo_hdr_rec.to_subinventory_code;
193 END IF;
194
195 IF l_mo_hdr_rec.move_order_type = FND_API.G_MISS_NUM THEN
196 l_mo_hdr_rec.move_order_type := p_old_mo_hdr_rec.move_order_type;
197 END IF;
198
199 IF l_mo_hdr_rec.transaction_type_id = FND_API.G_MISS_NUM THEN
200 l_mo_hdr_rec.transaction_type_id := p_old_mo_hdr_rec.transaction_type_id;
201 END IF;
202
203 IF l_mo_hdr_rec.ship_to_location_id = FND_API.G_MISS_NUM THEN
204 l_mo_hdr_rec.ship_to_location_id := p_old_mo_hdr_rec.ship_to_location_id;
205 END IF;
206
207 RETURN l_mo_hdr_rec;
208
209 END Complete_Record;
210
211 /* Function Convert_Miss_To_Null */
212
213 FUNCTION Convert_Miss_To_Null
214 ( p_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
215 ) RETURN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
216 IS
217 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC := p_mo_hdr_rec;
218 BEGIN
219
220 IF l_mo_hdr_rec.attribute1 = FND_API.G_MISS_CHAR THEN
221 l_mo_hdr_rec.attribute1 := NULL;
222 END IF;
223
224 IF l_mo_hdr_rec.attribute10 = FND_API.G_MISS_CHAR THEN
225 l_mo_hdr_rec.attribute10 := NULL;
226 END IF;
227
228 IF l_mo_hdr_rec.attribute11 = FND_API.G_MISS_CHAR THEN
229 l_mo_hdr_rec.attribute11 := NULL;
230 END IF;
231
232 IF l_mo_hdr_rec.attribute12 = FND_API.G_MISS_CHAR THEN
233 l_mo_hdr_rec.attribute12 := NULL;
234 END IF;
235
236 IF l_mo_hdr_rec.attribute13 = FND_API.G_MISS_CHAR THEN
237 l_mo_hdr_rec.attribute13 := NULL;
238 END IF;
239
240 IF l_mo_hdr_rec.attribute14 = FND_API.G_MISS_CHAR THEN
241 l_mo_hdr_rec.attribute14 := NULL;
242 END IF;
243
244 IF l_mo_hdr_rec.attribute15 = FND_API.G_MISS_CHAR THEN
245 l_mo_hdr_rec.attribute15 := NULL;
246 END IF;
247
248 IF l_mo_hdr_rec.attribute2 = FND_API.G_MISS_CHAR THEN
249 l_mo_hdr_rec.attribute2 := NULL;
250 END IF;
251
252 IF l_mo_hdr_rec.attribute3 = FND_API.G_MISS_CHAR THEN
253 l_mo_hdr_rec.attribute3 := NULL;
254 END IF;
255
256 IF l_mo_hdr_rec.attribute4 = FND_API.G_MISS_CHAR THEN
257 l_mo_hdr_rec.attribute4 := NULL;
258 END IF;
259
260 IF l_mo_hdr_rec.attribute5 = FND_API.G_MISS_CHAR THEN
261 l_mo_hdr_rec.attribute5 := NULL;
262 END IF;
263
264 IF l_mo_hdr_rec.attribute6 = FND_API.G_MISS_CHAR THEN
265 l_mo_hdr_rec.attribute6 := NULL;
266 END IF;
267
268 IF l_mo_hdr_rec.attribute7 = FND_API.G_MISS_CHAR THEN
269 l_mo_hdr_rec.attribute7 := NULL;
270 END IF;
271
272 IF l_mo_hdr_rec.attribute8 = FND_API.G_MISS_CHAR THEN
273 l_mo_hdr_rec.attribute8 := NULL;
274 END IF;
275
276 IF l_mo_hdr_rec.attribute9 = FND_API.G_MISS_CHAR THEN
277 l_mo_hdr_rec.attribute9 := NULL;
278 END IF;
279
280 IF l_mo_hdr_rec.attribute_category = FND_API.G_MISS_CHAR THEN
281 l_mo_hdr_rec.attribute_category := NULL;
282 END IF;
283
284 IF l_mo_hdr_rec.created_by = FND_API.G_MISS_NUM THEN
285 l_mo_hdr_rec.created_by := NULL;
286 END IF;
287
288 IF l_mo_hdr_rec.creation_date = FND_API.G_MISS_DATE THEN
289 l_mo_hdr_rec.creation_date := NULL;
290 END IF;
291
292 IF l_mo_hdr_rec.date_required = FND_API.G_MISS_DATE THEN
293 l_mo_hdr_rec.date_required := NULL;
294 END IF;
295
296 IF l_mo_hdr_rec.description = FND_API.G_MISS_CHAR THEN
297 l_mo_hdr_rec.description := NULL;
298 END IF;
299
300 IF l_mo_hdr_rec.from_subinventory_code = FND_API.G_MISS_CHAR THEN
301 l_mo_hdr_rec.from_subinventory_code := NULL;
302 END IF;
303
304 IF l_mo_hdr_rec.header_id = FND_API.G_MISS_NUM THEN
305 l_mo_hdr_rec.header_id := NULL;
306 END IF;
307
308 IF l_mo_hdr_rec.header_status = FND_API.G_MISS_NUM THEN
309 l_mo_hdr_rec.header_status := NULL;
310 END IF;
311
312 IF l_mo_hdr_rec.last_updated_by = FND_API.G_MISS_NUM THEN
313 l_mo_hdr_rec.last_updated_by := NULL;
314 END IF;
315
316 IF l_mo_hdr_rec.last_update_date = FND_API.G_MISS_DATE THEN
317 l_mo_hdr_rec.last_update_date := NULL;
318 END IF;
319
320 IF l_mo_hdr_rec.last_update_login = FND_API.G_MISS_NUM THEN
321 l_mo_hdr_rec.last_update_login := NULL;
322 END IF;
323
324 IF l_mo_hdr_rec.organization_id = FND_API.G_MISS_NUM THEN
325 l_mo_hdr_rec.organization_id := NULL;
326 END IF;
327
328 IF l_mo_hdr_rec.program_application_id = FND_API.G_MISS_NUM THEN
329 l_mo_hdr_rec.program_application_id := NULL;
330 END IF;
331
332 IF l_mo_hdr_rec.program_id = FND_API.G_MISS_NUM THEN
333 l_mo_hdr_rec.program_id := NULL;
334 END IF;
335
336 IF l_mo_hdr_rec.program_update_date = FND_API.G_MISS_DATE THEN
337 l_mo_hdr_rec.program_update_date := NULL;
338 END IF;
339
340 IF l_mo_hdr_rec.request_id = FND_API.G_MISS_NUM THEN
341 l_mo_hdr_rec.request_id := NULL;
342 END IF;
343
344 IF l_mo_hdr_rec.request_number = FND_API.G_MISS_CHAR THEN
345 l_mo_hdr_rec.request_number := NULL;
346 END IF;
347
348 IF l_mo_hdr_rec.status_date = FND_API.G_MISS_DATE THEN
349 l_mo_hdr_rec.status_date := NULL;
350 END IF;
351
352 IF l_mo_hdr_rec.to_account_id = FND_API.G_MISS_NUM THEN
353 l_mo_hdr_rec.to_account_id := NULL;
354 END IF;
355
356 IF l_mo_hdr_rec.to_subinventory_code = FND_API.G_MISS_CHAR THEN
357 l_mo_hdr_rec.to_subinventory_code := NULL;
358 END IF;
359
360 IF l_mo_hdr_rec.move_order_type = FND_API.G_MISS_NUM THEN
361 l_mo_hdr_rec.move_order_type := NULL;
362 END IF;
363
364 IF l_mo_hdr_rec.transaction_type_id = FND_API.G_MISS_NUM THEN
365 l_mo_hdr_rec.transaction_type_id := NULL;
366 END IF;
367
368 IF l_mo_hdr_rec.ship_to_location_id = FND_API.G_MISS_NUM THEN
369 l_mo_hdr_rec.ship_to_location_id := NULL;
370 END IF;
371
372 RETURN l_mo_hdr_rec;
373
374 END Convert_Miss_To_Null;
375
376 /* Procedure Update_Row */
377
378 PROCEDURE Update_Row
379 ( p_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
380 )
381 IS
382 BEGIN
383
384 UPDATE IC_TXN_REQUEST_HEADERS
385 SET ATTRIBUTE1 = p_mo_hdr_rec.attribute1
386 , ATTRIBUTE10 = p_mo_hdr_rec.attribute10
387 , ATTRIBUTE11 = p_mo_hdr_rec.attribute11
388 , ATTRIBUTE12 = p_mo_hdr_rec.attribute12
389 , ATTRIBUTE13 = p_mo_hdr_rec.attribute13
390 , ATTRIBUTE14 = p_mo_hdr_rec.attribute14
391 , ATTRIBUTE15 = p_mo_hdr_rec.attribute15
392 , ATTRIBUTE2 = p_mo_hdr_rec.attribute2
393 , ATTRIBUTE3 = p_mo_hdr_rec.attribute3
394 , ATTRIBUTE4 = p_mo_hdr_rec.attribute4
395 , ATTRIBUTE5 = p_mo_hdr_rec.attribute5
396 , ATTRIBUTE6 = p_mo_hdr_rec.attribute6
397 , ATTRIBUTE7 = p_mo_hdr_rec.attribute7
398 , ATTRIBUTE8 = p_mo_hdr_rec.attribute8
399 , ATTRIBUTE9 = p_mo_hdr_rec.attribute9
400 , ATTRIBUTE_CATEGORY = p_mo_hdr_rec.attribute_category
401 , CREATED_BY = p_mo_hdr_rec.created_by
402 , CREATION_DATE = p_mo_hdr_rec.creation_date
403 , DATE_REQUIRED = p_mo_hdr_rec.date_required
404 , DESCRIPTION = p_mo_hdr_rec.description
405 , FROM_SUBINVENTORY_CODE = p_mo_hdr_rec.from_subinventory_code
406 , HEADER_ID = p_mo_hdr_rec.header_id
407 , HEADER_STATUS = p_mo_hdr_rec.header_status
408 , LAST_UPDATED_BY = p_mo_hdr_rec.last_updated_by
409 , LAST_UPDATE_DATE = p_mo_hdr_rec.last_update_date
410 , LAST_UPDATE_LOGIN = p_mo_hdr_rec.last_update_login
411 , ORGANIZATION_ID = p_mo_hdr_rec.organization_id
412 , PROGRAM_APPLICATION_ID = p_mo_hdr_rec.program_application_id
413 , PROGRAM_ID = p_mo_hdr_rec.program_id
414 , PROGRAM_UPDATE_DATE = p_mo_hdr_rec.program_update_date
415 , REQUEST_ID = p_mo_hdr_rec.request_id
416 , REQUEST_NUMBER = p_mo_hdr_rec.request_number
417 , STATUS_DATE = p_mo_hdr_rec.status_date
418 , TO_ACCOUNT_ID = p_mo_hdr_rec.to_account_id
419 , TO_SUBINVENTORY_CODE = p_mo_hdr_rec.to_subinventory_code
420 , MOVE_ORDER_TYPE = p_mo_hdr_rec.move_order_type
421 , TRANSACTION_TYPE_ID = p_mo_hdr_rec.transaction_type_id
422 , SHIP_TO_LOCATION_ID = p_mo_hdr_rec.ship_to_location_id
423 WHERE HEADER_ID = p_mo_hdr_rec.header_id
424 ;
425
426 EXCEPTION
427
428 WHEN OTHERS THEN
429
430 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
431 THEN
432 FND_MSG_PUB.Add_Exc_Msg
433 ( G_PKG_NAME
434 , 'Update_Row'
435 );
436 END IF;
437
438 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
439
440 END Update_Row;
441
442
443 /* Procedure Insert_Row */
444
445 PROCEDURE Insert_Row
446 ( p_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
447 )
448 IS
449 BEGIN
450
451 gmi_reservation_util.println('In insert_row in GMIUMOHB.pls');
452 gmi_reservation_util.println('value of l_mo_hdr_rec.organization_id: '||p_mo_hdr_rec.organization_id);
453 gmi_reservation_util.println('Value of l_mo_hdr_rec.operation is '||p_mo_hdr_rec.request_number);
454
455 INSERT INTO IC_TXN_REQUEST_HEADERS
456 ( ATTRIBUTE1
457 , ATTRIBUTE10
458 , ATTRIBUTE11
459 , ATTRIBUTE12
460 , ATTRIBUTE13
461 , ATTRIBUTE14
462 , ATTRIBUTE15
463 , ATTRIBUTE2
464 , ATTRIBUTE3
465 , ATTRIBUTE4
466 , ATTRIBUTE5
467 , ATTRIBUTE6
468 , ATTRIBUTE7
469 , ATTRIBUTE8
470 , ATTRIBUTE9
471 , ATTRIBUTE_CATEGORY
472 , CREATED_BY
473 , CREATION_DATE
474 , DATE_REQUIRED
475 , DESCRIPTION
476 , FROM_SUBINVENTORY_CODE
477 , HEADER_ID
478 , HEADER_STATUS
479 , LAST_UPDATED_BY
480 , LAST_UPDATE_DATE
481 , LAST_UPDATE_LOGIN
482 , ORGANIZATION_ID
483 , PROGRAM_APPLICATION_ID
484 , PROGRAM_ID
485 , PROGRAM_UPDATE_DATE
486 , REQUEST_ID
487 , REQUEST_NUMBER
488 , STATUS_DATE
489 , TO_ACCOUNT_ID
490 , TO_SUBINVENTORY_CODE
491 , MOVE_ORDER_TYPE
492 , TRANSACTION_TYPE_ID
493 , GROUPING_RULE_ID
494 , SHIP_TO_LOCATION_ID
495 )
496 VALUES
497 ( p_mo_hdr_rec.attribute1
498 , p_mo_hdr_rec.attribute10
499 , p_mo_hdr_rec.attribute11
500 , p_mo_hdr_rec.attribute12
501 , p_mo_hdr_rec.attribute13
502 , p_mo_hdr_rec.attribute14
503 , p_mo_hdr_rec.attribute15
504 , p_mo_hdr_rec.attribute2
505 , p_mo_hdr_rec.attribute3
506 , p_mo_hdr_rec.attribute4
507 , p_mo_hdr_rec.attribute5
508 , p_mo_hdr_rec.attribute6
509 , p_mo_hdr_rec.attribute7
510 , p_mo_hdr_rec.attribute8
511 , p_mo_hdr_rec.attribute9
512 , p_mo_hdr_rec.attribute_category
513 , p_mo_hdr_rec.created_by
514 , p_mo_hdr_rec.creation_date
515 , p_mo_hdr_rec.date_required
516 , p_mo_hdr_rec.description
517 , p_mo_hdr_rec.from_subinventory_code
518 , p_mo_hdr_rec.header_id
519 , p_mo_hdr_rec.header_status
520 , p_mo_hdr_rec.last_updated_by
521 , p_mo_hdr_rec.last_update_date
522 , p_mo_hdr_rec.last_update_login
523 , p_mo_hdr_rec.organization_id
524 , p_mo_hdr_rec.program_application_id
525 , p_mo_hdr_rec.program_id
526 , p_mo_hdr_rec.program_update_date
527 , p_mo_hdr_rec.request_id
528 , p_mo_hdr_rec.request_number
529 , p_mo_hdr_rec.status_date
530 , p_mo_hdr_rec.to_account_id
531 , p_mo_hdr_rec.to_subinventory_code
532 , p_mo_hdr_rec.move_order_type
533 , p_mo_hdr_rec.transaction_type_id
534 , p_mo_hdr_rec.grouping_rule_id
535 , p_mo_hdr_rec.ship_to_location_id
536 );
537
538 gmi_reservation_util.println('End of isnert row');
539
540 EXCEPTION
541
542 WHEN OTHERS THEN
543 WSH_Util_Core.PrintLn('Error In Insert');
544 gmi_reservation_util.println('ERROR in INSERT');
545 gmi_reservation_util.println(' ERR NUM => ' || SQLERRM);
546 gmi_reservation_util.println(' ERR MSG => ' || SQLCODE);
547
548 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
549 THEN
550 FND_MSG_PUB.Add_Exc_Msg
551 ( G_PKG_NAME
552 , 'Insert_Row'
553 );
554 END IF;
555
556 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557
558 END Insert_Row;
559
560 /* Procedure Delete_Row */
561
562 PROCEDURE Delete_Row
563 ( p_header_id IN NUMBER
564 )
565 IS
566 BEGIN
567
568 DELETE FROM IC_TXN_REQUEST_HEADERS
569 WHERE HEADER_ID = p_header_id
570 ;
571
572 EXCEPTION
573
574 WHEN OTHERS THEN
575
576 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
577 THEN
578 FND_MSG_PUB.Add_Exc_Msg
579 ( G_PKG_NAME
580 , 'Delete_Row'
581 );
582 END IF;
583
584 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585
586 END Delete_Row;
587
588
589 /* Procedure Update_Row_Status */
590
591 PROCEDURE Update_Row_Status
592 ( p_header_id IN Number,
593 p_status IN Number
594 )
595 IS
596 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC;
597 BEGIN
598
599 /* l_mo_hdr_rec := INV_Trohdr_util.Query_Row( p_header_id ); */
600 l_mo_hdr_rec.header_Status := p_status;
601 l_mo_hdr_rec.last_update_date := SYSDATE;
602 l_mo_hdr_rec.last_updated_by := FND_GLOBAL.USER_ID;
603 l_mo_hdr_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
604
605 /* INV_Trohdr_Util.Update_Row(l_mo_hdr_rec); */
606
607 EXCEPTION
608
609 WHEN OTHERS THEN
610
611 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
612 )
613 THEN
614 FND_MSG_PUB.Add_Exc_Msg
615 ( G_PKG_NAME
616 , 'Update_Row_Status'
617 );
618 END IF;
619
620 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621
622 END Update_Row_Status;
623
624 /* Function Query_Row */
625
626 FUNCTION Query_Row
627 ( p_header_id IN NUMBER
628 ) RETURN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
629 IS
630 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC;
631 BEGIN
632
633 SELECT ATTRIBUTE1
634 , ATTRIBUTE10
635 , ATTRIBUTE11
636 , ATTRIBUTE12
637 , ATTRIBUTE13
638 , ATTRIBUTE14
639 , ATTRIBUTE15
640 , ATTRIBUTE2
641 , ATTRIBUTE3
642 , ATTRIBUTE4
643 , ATTRIBUTE5
644 , ATTRIBUTE6
645 , ATTRIBUTE7
646 , ATTRIBUTE8
647 , ATTRIBUTE9
648 , ATTRIBUTE_CATEGORY
649 , CREATED_BY
650 , CREATION_DATE
651 , DATE_REQUIRED
652 , DESCRIPTION
653 , FROM_SUBINVENTORY_CODE
654 , HEADER_ID
655 , HEADER_STATUS
656 , LAST_UPDATED_BY
657 , LAST_UPDATE_DATE
658 , LAST_UPDATE_LOGIN
659 , ORGANIZATION_ID
660 , PROGRAM_APPLICATION_ID
661 , PROGRAM_ID
662 , PROGRAM_UPDATE_DATE
663 , REQUEST_ID
664 , REQUEST_NUMBER
665 , STATUS_DATE
666 , TO_ACCOUNT_ID
667 , TO_SUBINVENTORY_CODE
668 , MOVE_ORDER_TYPE
669 , TRANSACTION_TYPE_ID
670 , GROUPING_RULE_ID
671 , SHIP_TO_LOCATION_ID
672 INTO l_mo_hdr_rec.attribute1
673 , l_mo_hdr_rec.attribute10
674 , l_mo_hdr_rec.attribute11
675 , l_mo_hdr_rec.attribute12
676 , l_mo_hdr_rec.attribute13
677 , l_mo_hdr_rec.attribute14
678 , l_mo_hdr_rec.attribute15
679 , l_mo_hdr_rec.attribute2
680 , l_mo_hdr_rec.attribute3
681 , l_mo_hdr_rec.attribute4
682 , l_mo_hdr_rec.attribute5
683 , l_mo_hdr_rec.attribute6
684 , l_mo_hdr_rec.attribute7
685 , l_mo_hdr_rec.attribute8
686 , l_mo_hdr_rec.attribute9
687 , l_mo_hdr_rec.attribute_category
688 , l_mo_hdr_rec.created_by
689 , l_mo_hdr_rec.creation_date
690 , l_mo_hdr_rec.date_required
691 , l_mo_hdr_rec.description
692 , l_mo_hdr_rec.from_subinventory_code
693 , l_mo_hdr_rec.header_id
694 , l_mo_hdr_rec.header_status
695 , l_mo_hdr_rec.last_updated_by
696 , l_mo_hdr_rec.last_update_date
697 , l_mo_hdr_rec.last_update_login
698 , l_mo_hdr_rec.organization_id
699 , l_mo_hdr_rec.program_application_id
700 , l_mo_hdr_rec.program_id
701 , l_mo_hdr_rec.program_update_date
702 , l_mo_hdr_rec.request_id
703 , l_mo_hdr_rec.request_number
704 , l_mo_hdr_rec.status_date
705 , l_mo_hdr_rec.to_account_id
706 , l_mo_hdr_rec.to_subinventory_code
707 , l_mo_hdr_rec.move_order_type
708 , l_mo_hdr_rec.transaction_type_id
709 , l_mo_hdr_rec.grouping_rule_id
710 , l_mo_hdr_rec.ship_to_location_id
711 FROM IC_TXN_REQUEST_HEADERS
712 WHERE HEADER_ID = p_header_id
713 ;
714 RETURN l_mo_hdr_rec;
715
716 EXCEPTION
717
718 WHEN OTHERS THEN
719
720 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
721 THEN
722 FND_MSG_PUB.Add_Exc_Msg
723 ( G_PKG_NAME
724 , 'Query_Row'
725 );
726 END IF;
727
728 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729
730 END Query_Row;
731
732 /* Procedure lock_Row */
733
734 PROCEDURE Lock_Row
735 ( x_return_status OUT NOCOPY VARCHAR2
736 , p_mo_hdr_rec IN GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
737 , x_mo_hdr_rec OUT NOCOPY GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC
738 )
739 IS
740 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.MO_HDR_REC;
741 BEGIN
742
743 SELECT ATTRIBUTE1
744 , ATTRIBUTE10
745 , ATTRIBUTE11
746 , ATTRIBUTE12
747 , ATTRIBUTE13
748 , ATTRIBUTE14
749 , ATTRIBUTE15
750 , ATTRIBUTE2
751 , ATTRIBUTE3
752 , ATTRIBUTE4
753 , ATTRIBUTE5
754 , ATTRIBUTE6
755 , ATTRIBUTE7
756 , ATTRIBUTE8
757 , ATTRIBUTE9
758 , ATTRIBUTE_CATEGORY
759 , CREATED_BY
760 , CREATION_DATE
761 , DATE_REQUIRED
762 , DESCRIPTION
763 , FROM_SUBINVENTORY_CODE
764 , HEADER_ID
765 , HEADER_STATUS
766 , LAST_UPDATED_BY
767 , LAST_UPDATE_DATE
768 , LAST_UPDATE_LOGIN
769 , ORGANIZATION_ID
770 , PROGRAM_APPLICATION_ID
771 , PROGRAM_ID
772 , PROGRAM_UPDATE_DATE
773 , REQUEST_ID
774 , REQUEST_NUMBER
775 , STATUS_DATE
776 , TO_ACCOUNT_ID
777 , TO_SUBINVENTORY_CODE
778 , MOVE_ORDER_TYPE
779 , TRANSACTION_TYPE_ID
780 , grouping_rule_id
781 , SHIP_TO_LOCATION_ID
782 INTO l_mo_hdr_rec.attribute1
783 , l_mo_hdr_rec.attribute10
784 , l_mo_hdr_rec.attribute11
785 , l_mo_hdr_rec.attribute12
786 , l_mo_hdr_rec.attribute13
787 , l_mo_hdr_rec.attribute14
788 , l_mo_hdr_rec.attribute15
789 , l_mo_hdr_rec.attribute2
790 , l_mo_hdr_rec.attribute3
791 , l_mo_hdr_rec.attribute4
792 , l_mo_hdr_rec.attribute5
793 , l_mo_hdr_rec.attribute6
794 , l_mo_hdr_rec.attribute7
795 , l_mo_hdr_rec.attribute8
796 , l_mo_hdr_rec.attribute9
797 , l_mo_hdr_rec.attribute_category
798 , l_mo_hdr_rec.created_by
799 , l_mo_hdr_rec.creation_date
800 , l_mo_hdr_rec.date_required
801 , l_mo_hdr_rec.description
802 , l_mo_hdr_rec.from_subinventory_code
803 , l_mo_hdr_rec.header_id
804 , l_mo_hdr_rec.header_status
805 , l_mo_hdr_rec.last_updated_by
806 , l_mo_hdr_rec.last_update_date
807 , l_mo_hdr_rec.last_update_login
808 , l_mo_hdr_rec.organization_id
809 , l_mo_hdr_rec.program_application_id
810 , l_mo_hdr_rec.program_id
811 , l_mo_hdr_rec.program_update_date
812 , l_mo_hdr_rec.request_id
813 , l_mo_hdr_rec.request_number
814 , l_mo_hdr_rec.status_date
815 , l_mo_hdr_rec.to_account_id
816 , l_mo_hdr_rec.to_subinventory_code
817 , l_mo_hdr_rec.move_order_type
818 , l_mo_hdr_rec.transaction_type_id
819 , l_mo_hdr_rec.grouping_rule_id
820 , l_mo_hdr_rec.ship_to_location_id
821 FROM IC_TXN_REQUEST_HEADERS
822 WHERE HEADER_ID = p_mo_hdr_rec.header_id
823 FOR UPDATE NOWAIT;
824
825 /* Row locked. Compare IN attributes to DB attributes. */
826
827 IF INV_GLOBALS.Equal(p_mo_hdr_rec.attribute1,
828 l_mo_hdr_rec.attribute1)
829 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute10,
830 l_mo_hdr_rec.attribute10)
831 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute11,
832 l_mo_hdr_rec.attribute11)
833 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute12,
834 l_mo_hdr_rec.attribute12)
835 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute13,
836 l_mo_hdr_rec.attribute13)
837 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute14,
838 l_mo_hdr_rec.attribute14)
839 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute15,
840 l_mo_hdr_rec.attribute15)
841 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute2,
842 l_mo_hdr_rec.attribute2)
843 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute3,
844 l_mo_hdr_rec.attribute3)
845 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute4,
846 l_mo_hdr_rec.attribute4)
847 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute5,
848 l_mo_hdr_rec.attribute5)
849 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute6,
850 l_mo_hdr_rec.attribute6)
851 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute7,
852 l_mo_hdr_rec.attribute7)
853 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute8,
854 l_mo_hdr_rec.attribute8)
855 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute9,
856 l_mo_hdr_rec.attribute9)
857 AND INV_GLOBALS.Equal(p_mo_hdr_rec.attribute_category,
858 l_mo_hdr_rec.attribute_category)
859 AND INV_GLOBALS.Equal(p_mo_hdr_rec.created_by,
860 l_mo_hdr_rec.created_by)
861 AND INV_GLOBALS.Equal(p_mo_hdr_rec.creation_date,
862 l_mo_hdr_rec.creation_date)
863 AND INV_GLOBALS.Equal(p_mo_hdr_rec.date_required,
864 l_mo_hdr_rec.date_required)
865 AND INV_GLOBALS.Equal(p_mo_hdr_rec.description,
866 l_mo_hdr_rec.description)
867 AND INV_GLOBALS.Equal(p_mo_hdr_rec.from_subinventory_code,
868 l_mo_hdr_rec.from_subinventory_code)
869 AND INV_GLOBALS.Equal(p_mo_hdr_rec.header_id,
870 l_mo_hdr_rec.header_id)
871 AND INV_GLOBALS.Equal(p_mo_hdr_rec.header_status,
872 l_mo_hdr_rec.header_status)
873 AND INV_GLOBALS.Equal(p_mo_hdr_rec.last_updated_by,
874 l_mo_hdr_rec.last_updated_by)
875 AND INV_GLOBALS.Equal(p_mo_hdr_rec.last_update_date,
876 l_mo_hdr_rec.last_update_date)
877 AND INV_GLOBALS.Equal(p_mo_hdr_rec.last_update_login,
878 l_mo_hdr_rec.last_update_login)
879 AND INV_GLOBALS.Equal(p_mo_hdr_rec.organization_id,
880 l_mo_hdr_rec.organization_id)
881 AND INV_GLOBALS.Equal(p_mo_hdr_rec.program_application_id,
882 l_mo_hdr_rec.program_application_id)
883 AND INV_GLOBALS.Equal(p_mo_hdr_rec.program_id,
884 l_mo_hdr_rec.program_id)
885 AND INV_GLOBALS.Equal(p_mo_hdr_rec.program_update_date,
886 l_mo_hdr_rec.program_update_date)
887 AND INV_GLOBALS.Equal(p_mo_hdr_rec.request_id,
888 l_mo_hdr_rec.request_id)
889 AND INV_GLOBALS.Equal(p_mo_hdr_rec.request_number,
890 l_mo_hdr_rec.request_number)
891 AND INV_GLOBALS.Equal(p_mo_hdr_rec.status_date,
892 l_mo_hdr_rec.status_date)
893 AND INV_GLOBALS.Equal(p_mo_hdr_rec.to_account_id,
894 l_mo_hdr_rec.to_account_id)
895 AND INV_GLOBALS.Equal(p_mo_hdr_rec.to_subinventory_code,
896 l_mo_hdr_rec.to_subinventory_code)
897 AND INV_GLOBALS.Equal(p_mo_hdr_rec.move_order_type,
898 l_mo_hdr_rec.move_order_type)
899 AND INV_GLOBALS.Equal(p_mo_hdr_rec.transaction_type_id,
900 l_mo_hdr_rec.transaction_type_id)
901 AND INV_GLOBALS.Equal(p_mo_hdr_rec.grouping_rule_id,
902 l_mo_hdr_rec.grouping_rule_id)
903 AND INV_GLOBALS.Equal(p_mo_hdr_rec.ship_to_location_id,
904 l_mo_hdr_rec.ship_to_location_id)
905 THEN
906
907 /* Row has not changed. Set out parameter. */
908
909 x_mo_hdr_rec := l_mo_hdr_rec;
910
911 /* Set return status */
912
913 x_return_status := FND_API.G_RET_STS_SUCCESS;
914 x_mo_hdr_rec.return_status := FND_API.G_RET_STS_SUCCESS;
915
916 ELSE
917
918 /* Row has changed by another user. */
919
920 x_return_status := FND_API.G_RET_STS_ERROR;
921 x_mo_hdr_rec.return_status := FND_API.G_RET_STS_ERROR;
922
923 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
924 THEN
925
926 FND_MESSAGE.SET_NAME('INV','OE_LOCK_ROW_CHANGED');
927 FND_MSG_PUB.Add;
928
929 END IF;
930
931 END IF;
932
933 EXCEPTION
934
935 WHEN NO_DATA_FOUND THEN
936
937 x_return_status := FND_API.G_RET_STS_ERROR;
938 x_mo_hdr_rec.return_status := FND_API.G_RET_STS_ERROR;
939
940 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
941 THEN
942
943 FND_MESSAGE.SET_NAME('INV','OE_LOCK_ROW_DELETED');
944 FND_MSG_PUB.Add;
945
946 END IF;
947 WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
948
949 x_return_status := FND_API.G_RET_STS_ERROR;
950 x_mo_hdr_rec.return_status := FND_API.G_RET_STS_ERROR;
951
952 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
953 THEN
954
955 FND_MESSAGE.SET_NAME('INV','OE_LOCK_ROW_ALREADY_LOCKED');
956 FND_MSG_PUB.Add;
957
958 END IF;
959 WHEN OTHERS THEN
960
961 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962 x_mo_hdr_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
963
964 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
965 THEN
966 FND_MSG_PUB.Add_Exc_Msg
967 ( G_PKG_NAME
968 , 'Lock_Row'
969 );
970 END IF;
971
972 END Lock_Row;
973
974 END GMI_Move_Order_Header_Util;