DBA Data[Home] [Help]

PACKAGE BODY: APPS.MSC_RESTORE_FIRM_PO

Source


1 PACKAGE BODY MSC_RESTORE_FIRM_PO AS
2 /* $Header: MSCRFPOB.pls 120.0.12010000.1 2008/05/02 19:07:30 appldev ship $ */
3 
4   -- =========== Private Functions =============
5 
6    PROCEDURE LOG_MESSAGE( pBUFF                     IN  VARCHAR2)
7    IS
8    BEGIN
9      IF fnd_global.conc_request_id > 0  THEN
10          FND_FILE.PUT_LINE( FND_FILE.LOG, pBUFF);
11         null;
12      ELSE
13          null;
14          --DBMS_OUTPUT.PUT_LINE( pBUFF);
15      END IF;
16    EXCEPTION
17      WHEN OTHERS THEN
18         RETURN;
19    END LOG_MESSAGE;
20 
21 
22 PROCEDURE RESTORE_FIRM_PO (
23 				errbuf                  OUT NOCOPY VARCHAR2,
24                                 retcode                 OUT NOCOPY NUMBER,
25                                 arg_plan_id             IN         NUMBER
26 				)
27 IS
28 	lv_plan_id       NUMBER := arg_plan_id;
29 
30 BEGIN
31 
32     BEGIN
33             DELETE FROM MSC_RESOURCE_REQUIREMENTS
34 	     WHERE (PLAN_ID, TRANSACTION_ID, SR_INSTANCE_ID) IN
35 	          (SELECT PLAN_ID, TRANSACTION_ID, SR_INSTANCE_ID
36 		  FROM   MSC_STORE_RESOURCE_REQS
37 		  WHERE  plan_id = lv_plan_id)
38 	     AND plan_id = lv_plan_id;
39 	     LOG_MESSAGE('Deleted Resource Requirements : ' || SQL%ROWCOUNT);
40 
41 	    INSERT INTO MSC_RESOURCE_REQUIREMENTS(
42 			     TRANSACTION_ID
43 			    ,PLAN_ID
44 			    ,SUPPLY_ID
45 			    ,ORGANIZATION_ID
46 			    ,SR_INSTANCE_ID
47 			    ,ROUTING_SEQUENCE_ID
48 			    ,OPERATION_SEQUENCE_ID
49 			    ,RESOURCE_SEQ_NUM
50 			    ,RESOURCE_ID
51 			    ,DEPARTMENT_ID
52 			    ,ALTERNATE_NUM
53 			    ,START_DATE
54 			    ,END_DATE
55 			    ,BKT_START_DATE
56 			    ,RESOURCE_HOURS
57 			    ,SET_UP
58 			    ,BKT_END_DATE
59 			    ,TEAR_DOWN
60 			    ,AGGREGATE_RESOURCE_ID
61 			    ,SCHEDULE_FLAG
62 			    ,PARENT_ID
63 			    ,STD_OP_CODE
64 			    ,WIP_ENTITY_ID
65 			    ,ASSIGNED_UNITS
66 			    ,BASIS_TYPE
67 			    ,OPERATION_SEQ_NUM
68 			    ,LOAD_RATE
69 			    ,DAILY_RESOURCE_HOURS
70 			    ,STATUS
71 			    ,APPLIED
72 			    ,UPDATED
73 			    ,SUBST_RES_FLAG
74 			    ,REFRESH_NUMBER
75 			    ,LAST_UPDATED_BY
76 			    ,LAST_UPDATE_DATE
77 			    ,CREATED_BY
78 			    ,CREATION_DATE
79 			    ,LAST_UPDATE_LOGIN
80 			    ,REQUEST_ID
81 			    ,PROGRAM_APPLICATION_ID
82 			    ,PROGRAM_ID
83 			    ,PROGRAM_UPDATE_DATE
84 			    ,SOURCE_ITEM_ID
85 			    ,ASSEMBLY_ITEM_ID
86 			    ,SUPPLY_TYPE
87 			    ,FIRM_START_DATE
88 			    ,FIRM_END_DATE
89 			    ,FIRM_FLAG
90 			    ,CUMMULATIVE_QUANTITY
91 			    ,YIELD
92 			    ,REVERSE_CUMULATIVE_YIELD
93 			    ,BATCH_NUMBER
94 			    ,MINIMUM_TRANSFER_QUANTITY
95 			    ,REMAINING_CAPACITY
96 			    ,OVERLOADED_CAPACITY
97 			    ,EARLIEST_START_DATE
98 			    ,EARLIEST_COMPLETION_DATE
99 			    ,SCHEDULED_DEMAND_ID
100 			    ,PARENT_SEQ_NUM
101 			    ,SETUP_ID
102 			    ,ULPSD
103 			    ,ULPCD
104 			    ,UEPSD
105 			    ,UEPCD
106 			    ,EACD
107 			    ,QUANTITY_IN_QUEUE
108 			    ,QUANTITY_RUNNING
109 			    ,QUANTITY_WAITING_TO_MOVE
110 			    ,QUANTITY_COMPLETED
111 			    ,USAGE_RATE
112 			    ,HOURS_EXPENDED
113 			    ,RECORD_SOURCE
114 			    ,ACTIVITY_GROUP_ID
115 			    ,PRINCIPAL_FLAG
116 			    ,ORIG_RESOURCE_SEQ_NUM
117 			    ,GROUP_SEQUENCE_ID
118 			    ,GROUP_SEQUENCE_NUMBER
119 			    ,MAXIMUM_ASSIGNED_UNITS
120 			    ,MINIMUM_CAPACITY
121 			    ,MAXIMUM_CAPACITY
122 			    ,BREAKABLE_ACTIVITY_FLAG
123 			    ,CAPACITY_CONSUMED_RATIO
124 			    ,FROM_SETUP_ID
125 			    ,STEP_QUANTITY
126 			    ,STEP_QUANTITY_UOM
127 			    ,UNADJUSTED_RESOURCE_HOURS
128 			    ,TOUCH_TIME
129 			    ,JIT_END_DATE
130 			    ,UNBUCKETED_START_DATE
131 			    ,UNBUCKETED_END_DATE
132 			    ,ACTUAL_START_DATE
133 			    ,TOTAL_RESOURCE_HOURS
134 			    )
135 		SELECT
136 			     res.TRANSACTION_ID
137 			    ,res.PLAN_ID
138 			    ,res.SUPPLY_ID
139 			    ,res.ORGANIZATION_ID
140 			    ,res.SR_INSTANCE_ID
141 			    ,res.ROUTING_SEQUENCE_ID
142 			    ,res.OPERATION_SEQUENCE_ID
143 			    ,res.RESOURCE_SEQ_NUM
144 			    ,res.RESOURCE_ID
145 			    ,res.DEPARTMENT_ID
146 			    ,res.ALTERNATE_NUM
147 			    ,res.START_DATE
148 			    ,res.END_DATE
149 			    ,res.BKT_START_DATE
150 			    ,res.RESOURCE_HOURS
151 			    ,res.SET_UP
152 			    ,res.BKT_END_DATE
153 			    ,res.TEAR_DOWN
154 			    ,res.AGGREGATE_RESOURCE_ID
155 			    ,res.SCHEDULE_FLAG
156 			    ,res.PARENT_ID
157 			    ,res.STD_OP_CODE
158 			    ,res.WIP_ENTITY_ID
159 			    ,res.ASSIGNED_UNITS
160 			    ,res.BASIS_TYPE
161 			    ,res.OPERATION_SEQ_NUM
162 			    ,res.LOAD_RATE
163 			    ,res.DAILY_RESOURCE_HOURS
164 			    ,res.STATUS
165 			    ,res.APPLIED
166 			    ,res.UPDATED
167 			    ,res.SUBST_RES_FLAG
168 			    ,res.REFRESH_NUMBER
169 			    ,res.LAST_UPDATED_BY
170 			    ,res.LAST_UPDATE_DATE
171 			    ,res.CREATED_BY
172 			    ,res.CREATION_DATE
173 			    ,res.LAST_UPDATE_LOGIN
174 			    ,res.REQUEST_ID
175 			    ,res.PROGRAM_APPLICATION_ID
176 			    ,res.PROGRAM_ID
177 			    ,res.PROGRAM_UPDATE_DATE
178 			    ,res.SOURCE_ITEM_ID
179 			    ,res.ASSEMBLY_ITEM_ID
180 			    ,res.SUPPLY_TYPE
181 			    ,res.FIRM_START_DATE
182 			    ,res.FIRM_END_DATE
183 			    ,res.FIRM_FLAG
184 			    ,res.CUMMULATIVE_QUANTITY
185 			    ,res.YIELD
186 			    ,res.REVERSE_CUMULATIVE_YIELD
187 			    ,res.BATCH_NUMBER
188 			    ,res.MINIMUM_TRANSFER_QUANTITY
189 			    ,res.REMAINING_CAPACITY
190 			    ,res.OVERLOADED_CAPACITY
191 			    ,res.EARLIEST_START_DATE
192 			    ,res.EARLIEST_COMPLETION_DATE
193 			    ,res.SCHEDULED_DEMAND_ID
194 			    ,res.PARENT_SEQ_NUM
195 			    ,res.SETUP_ID
196 			    ,res.ULPSD
197 			    ,res.ULPCD
198 			    ,res.UEPSD
199 			    ,res.UEPCD
200 			    ,res.EACD
201 			    ,res.QUANTITY_IN_QUEUE
202 			    ,res.QUANTITY_RUNNING
203 			    ,res.QUANTITY_WAITING_TO_MOVE
204 			    ,res.QUANTITY_COMPLETED
205 			    ,res.USAGE_RATE
206 			    ,res.HOURS_EXPENDED
207 			    ,res.RECORD_SOURCE
208 			    ,res.ACTIVITY_GROUP_ID
209 			    ,res.PRINCIPAL_FLAG
210 			    ,res.ORIG_RESOURCE_SEQ_NUM
211 			    ,res.GROUP_SEQUENCE_ID
212 			    ,res.GROUP_SEQUENCE_NUMBER
213 			    ,res.MAXIMUM_ASSIGNED_UNITS
214 			    ,res.MINIMUM_CAPACITY
215 			    ,res.MAXIMUM_CAPACITY
216 			    ,res.BREAKABLE_ACTIVITY_FLAG
217 			    ,res.CAPACITY_CONSUMED_RATIO
218 			    ,res.FROM_SETUP_ID
219 			    ,res.STEP_QUANTITY
220 			    ,res.STEP_QUANTITY_UOM
221 			    ,res.UNADJUSTED_RESOURCE_HOURS
222 			    ,res.TOUCH_TIME
223 			    ,res.JIT_END_DATE
224 			    ,res.UNBUCKETED_START_DATE
225 			    ,res.UNBUCKETED_END_DATE
226 			    ,res.ACTUAL_START_DATE
227 			    ,res.TOTAL_RESOURCE_HOURS
228 	    FROM   MSC_STORE_RESOURCE_REQS res
229 	    WHERE  res.PLAN_ID = lv_plan_id;
230 
231 	    LOG_MESSAGE('Inserted Resource Requirements : ' || SQL%ROWCOUNT);
232     EXCEPTION
233 	WHEN OTHERS THEN
234 	   msc_util.msc_debug('Error in Restoring Firm Resource Requirements.');
235 	   msc_util.msc_debug(SQLERRM);
236 
237 	   RETCODE := G_ERROR;
238 	   ERRBUF  := SQLERRM;
239         RETURN;
240     END;
241 
242     COMMIT;
243 
244     BEGIN
245             DELETE FROM MSC_SUPPLIES
246 	     WHERE (PLAN_ID, TRANSACTION_ID, SR_INSTANCE_ID) IN
247 	          (SELECT PLAN_ID, TRANSACTION_ID, SR_INSTANCE_ID
248 		  FROM   MSC_STORE_SUPPLIES
249 		  WHERE  plan_id = lv_plan_id)
250 	     AND plan_id = lv_plan_id;
251 	    LOG_MESSAGE('Deleted Supplies  : ' || SQL%ROWCOUNT);
252 
253 	    INSERT INTO MSC_SUPPLIES(
254 		     PLAN_ID
255 		    ,TRANSACTION_ID
256 		    ,ORGANIZATION_ID
257 		    ,SR_INSTANCE_ID
258 		    ,INVENTORY_ITEM_ID
259 		    ,SCHEDULE_DESIGNATOR_ID
260 		    ,REVISION
261 		    ,UNIT_NUMBER
262 		    ,NEW_SCHEDULE_DATE
263 		    ,OLD_SCHEDULE_DATE
264 		    ,NEW_WIP_START_DATE
265 		    ,OLD_WIP_START_DATE
266 		    ,FIRST_UNIT_COMPLETION_DATE
267 		    ,LAST_UNIT_COMPLETION_DATE
268 		    ,FIRST_UNIT_START_DATE
269 		    ,LAST_UNIT_START_DATE
270 		    ,DISPOSITION_ID
271 		    ,DISPOSITION_STATUS_TYPE
272 		    ,ORDER_TYPE
273 		    ,SUPPLIER_ID
274 		    ,SUPPLIER_SITE_ID
275 		    ,NEW_ORDER_QUANTITY
276 		    ,OLD_ORDER_QUANTITY
277 		    ,NEW_ORDER_PLACEMENT_DATE
278 		    ,OLD_ORDER_PLACEMENT_DATE
279 		    ,RESCHEDULE_DAYS
280 		    ,RESCHEDULE_FLAG
281 		    ,SCHEDULE_COMPRESS_DAYS
282 		    ,NEW_PROCESSING_DAYS
283 		    ,PURCH_LINE_NUM
284 		    ,QUANTITY_IN_PROCESS
285 		    ,IMPLEMENTED_QUANTITY
286 		    ,FIRM_PLANNED_TYPE
287 		    ,FIRM_QUANTITY
288 		    ,FIRM_DATE
289 		    ,IMPLEMENT_DEMAND_CLASS
290 		    ,IMPLEMENT_DATE
291 		    ,IMPLEMENT_QUANTITY
292 		    ,IMPLEMENT_FIRM
293 		    ,IMPLEMENT_WIP_CLASS_CODE
294 		    ,IMPLEMENT_JOB_NAME
295 		    ,IMPLEMENT_DOCK_DATE
296 		    ,IMPLEMENT_STATUS_CODE
297 		    ,IMPLEMENT_EMPLOYEE_ID
298 		    ,IMPLEMENT_UOM_CODE
299 		    ,IMPLEMENT_LOCATION_ID
300 		    ,IMPLEMENT_SOURCE_ORG_ID
301 		    ,IMPLEMENT_SR_INSTANCE_ID
302 		    ,IMPLEMENT_SUPPLIER_ID
303 		    ,IMPLEMENT_SUPPLIER_SITE_ID
304 		    ,IMPLEMENT_AS
305 		    ,RELEASE_STATUS
306 		    ,LOAD_TYPE
307 		    ,PROCESS_SEQ_ID
308 		    ,SCO_SUPPLY_FLAG
309 		    ,ALTERNATE_BOM_DESIGNATOR
310 		    ,ALTERNATE_ROUTING_DESIGNATOR
311 		    ,OPERATION_SEQ_NUM
312 		    ,BY_PRODUCT_USING_ASSY_ID
313 		    ,SOURCE_ORGANIZATION_ID
314 		    ,SOURCE_SR_INSTANCE_ID
315 		    ,SOURCE_SUPPLIER_SITE_ID
316 		    ,SOURCE_SUPPLIER_ID
317 		    ,SHIP_METHOD
318 		    ,WEIGHT_CAPACITY_USED
319 		    ,VOLUME_CAPACITY_USED
320 		    ,NEW_SHIP_DATE
321 		    ,NEW_DOCK_DATE
322 		    ,OLD_DOCK_DATE
323 		    ,LINE_ID
324 		    ,PROJECT_ID
325 		    ,TASK_ID
326 		    ,PLANNING_GROUP
327 		    ,IMPLEMENT_PROJECT_ID
328 		    ,IMPLEMENT_TASK_ID
329 		    ,IMPLEMENT_SCHEDULE_GROUP_ID
330 		    ,IMPLEMENT_BUILD_SEQUENCE
331 		    ,IMPLEMENT_ALTERNATE_BOM
332 		    ,IMPLEMENT_ALTERNATE_ROUTING
333 		    ,IMPLEMENT_UNIT_NUMBER
334 		    ,IMPLEMENT_LINE_ID
335 		    ,RELEASE_ERRORS
336 		    ,NUMBER1
337 		    ,SOURCE_ITEM_ID
338 		    ,ORDER_NUMBER
339 		    ,SCHEDULE_GROUP_ID
340 		    ,BUILD_SEQUENCE
341 		    ,WIP_ENTITY_NAME
342 		    ,IMPLEMENT_PROCESSING_DAYS
343 		    ,DELIVERY_PRICE
344 		    ,LATE_SUPPLY_DATE
345 		    ,LATE_SUPPLY_QTY
346 		    ,LOT_NUMBER
347 		    ,SUBINVENTORY_CODE
348 		    ,QTY_SCRAPPED
349 		    ,EXPECTED_SCRAP_QTY
350 		    ,QTY_COMPLETED
351 		    ,DAILY_RATE
352 		    ,SCHEDULE_GROUP_NAME
353 		    ,UPDATED
354 		    ,SUBST_ITEM_FLAG
355 		    ,STATUS
356 		    ,APPLIED
357 		    ,EXPIRATION_QUANTITY
358 		    ,EXPIRATION_DATE
359 		    ,NON_NETTABLE_QTY
360 		    ,IMPLEMENT_WIP_START_DATE
361 		    ,REFRESH_NUMBER
362 		    ,LAST_UPDATE_DATE
363 		    ,LAST_UPDATED_BY
364 		    ,CREATION_DATE
365 		    ,CREATED_BY
366 		    ,LAST_UPDATE_LOGIN
367 		    ,REQUEST_ID
368 		    ,PROGRAM_APPLICATION_ID
369 		    ,PROGRAM_ID
370 		    ,PROGRAM_UPDATE_DATE
371 		    ,IMPLEMENT_DAILY_RATE
372 		    ,NEED_BY_DATE
373 		    ,SOURCE_SUPPLY_ID
374 		    ,SR_MTL_SUPPLY_ID
375 		    ,WIP_STATUS_CODE
376 		    ,DEMAND_CLASS
377 		    ,FROM_ORGANIZATION_ID
378 		    ,WIP_SUPPLY_TYPE
379 		    ,PO_LINE_ID
380 		    ,LOAD_FACTOR_RATE
381 		    ,ROUTING_SEQUENCE_ID
382 		    ,BILL_SEQUENCE_ID
383 		    ,COPRODUCTS_SUPPLY
384 		    ,CFM_ROUTING_FLAG
385 		    ,CUSTOMER_ID
386 		    ,SHIP_TO_SITE_ID
387 		    ,OLD_NEED_BY_DATE
388 		    ,OLD_DAILY_RATE
389 		    ,OLD_FIRST_UNIT_START_DATE
390 		    ,OLD_LAST_UNIT_COMPLETION_DATE
391 		    ,OLD_NEW_SCHEDULE_DATE
392 		    ,OLD_QTY_COMPLETED
393 		    ,OLD_NEW_ORDER_QUANTITY
394 		    ,OLD_FIRM_QUANTITY
398 		    ,OWNING_PARTNER_SITE_ID
395 		    ,OLD_FIRM_DATE
396 		    ,PLANNING_PARTNER_SITE_ID
397 		    ,PLANNING_TP_TYPE
399 		    ,OWNING_TP_TYPE
400 		    ,VMI_FLAG
401 		    ,EARLIEST_START_DATE
402 		    ,EARLIEST_COMPLETION_DATE
403 		    ,MIN_START_DATE
404 		    ,SCHEDULED_DEMAND_ID
405 		    ,EXPLOSION_DATE
406 		    ,SCO_SUPPLY_DATE
407 		    ,RECORD_SOURCE
408 		    ,SUPPLY_IS_SHARED
409 		    ,ULPSD
410 		    ,ULPCD
411 		    ,UEPSD
412 		    ,UEPCD
413 		    ,EACD
414 		    ,ORIGINAL_NEED_BY_DATE
415 		    ,ORIGINAL_QUANTITY
416 		    ,ACCEPTANCE_REQUIRED_FLAG
417 		    ,PROMISED_DATE
418 		    ,WIP_START_QUANTITY
419 		    ,END_ORDER_NUMBER
420 		    ,END_ORDER_LINE_NUMBER
421 		    ,ORDER_LINE_NUMBER
422 		    ,UNBUCKETED_DEMAND_DATE
423 		    ,QUANTITY_PER_ASSEMBLY
424 		    ,QUANTITY_ISSUED
425 		    ,SHIPMENT_ID
426 		    ,JOB_OP_SEQ_NUM
427 		    ,JUMP_OP_SEQ_NUM
428 		    ,SHIP_CALENDAR
432 		    ,OLD_SHIP_DATE
429 		    ,RECEIVING_CALENDAR
430 		    ,INTRANSIT_CALENDAR
431 		    ,INTRANSIT_LEAD_TIME
433 		    ,IMPLEMENT_SHIP_DATE
434 		    ,ORIG_SHIP_METHOD
435 		    ,ORIG_INTRANSIT_LEAD_TIME
436 		    ,PARENT_ID
437 		    ,DAYS_LATE
438 		    ,SCHEDULE_PRIORITY
439 		    ,PO_LINE_LOCATION_ID
440 		    ,PO_DISTRIBUTION_ID
441 		    ,WSM_FAULTY_NETWORK
442 		    ,IMPLEMENT_DEST_ORG_ID
443 		    ,IMPLEMENT_DEST_INST_ID
444 		    ,REQUESTED_START_DATE
445 		    ,REQUESTED_COMPLETION_DATE
446 		    ,ASSET_SERIAL_NUMBER
447 		    ,ASSET_ITEM_ID
448 		    ,TOP_TRANSACTION_ID
449 		    ,UNBUCKETED_NEW_SCHED_DATE
450 		    ,IMPLEMENT_SHIP_METHOD
451 		    ,ACTUAL_START_DATE
452 		    )
453 	    SELECT
454 		     sup.PLAN_ID
455 		    ,sup.TRANSACTION_ID
456 		    ,sup.ORGANIZATION_ID
457 		    ,sup.SR_INSTANCE_ID
458 		    ,sup.INVENTORY_ITEM_ID
459 		    ,sup.SCHEDULE_DESIGNATOR_ID
460 		    ,sup.REVISION
461 		    ,sup.UNIT_NUMBER
462 		    ,sup.NEW_SCHEDULE_DATE
463 		    ,sup.OLD_SCHEDULE_DATE
464 		    ,sup.NEW_WIP_START_DATE
465 		    ,sup.OLD_WIP_START_DATE
466 		    ,sup.FIRST_UNIT_COMPLETION_DATE
467 		    ,sup.LAST_UNIT_COMPLETION_DATE
468 		    ,sup.FIRST_UNIT_START_DATE
469 		    ,sup.LAST_UNIT_START_DATE
470 		    ,sup.DISPOSITION_ID
471 		    ,sup.DISPOSITION_STATUS_TYPE
472 		    ,sup.ORDER_TYPE
473 		    ,sup.SUPPLIER_ID
474 		    ,sup.SUPPLIER_SITE_ID
475 		    ,sup.NEW_ORDER_QUANTITY
476 		    ,sup.OLD_ORDER_QUANTITY
477 		    ,sup.NEW_ORDER_PLACEMENT_DATE
478 		    ,sup.OLD_ORDER_PLACEMENT_DATE
479 		    ,sup.RESCHEDULE_DAYS
480 		    ,sup.RESCHEDULE_FLAG
481 		    ,sup.SCHEDULE_COMPRESS_DAYS
482 		    ,sup.NEW_PROCESSING_DAYS
483 		    ,sup.PURCH_LINE_NUM
484 		    ,sup.QUANTITY_IN_PROCESS
485 		    ,sup.IMPLEMENTED_QUANTITY
486 		    ,sup.FIRM_PLANNED_TYPE
487 		    ,sup.FIRM_QUANTITY
488 		    ,sup.FIRM_DATE
489 		    ,sup.IMPLEMENT_DEMAND_CLASS
490 		    ,sup.IMPLEMENT_DATE
491 		    ,sup.IMPLEMENT_QUANTITY
492 		    ,sup.IMPLEMENT_FIRM
493 		    ,sup.IMPLEMENT_WIP_CLASS_CODE
494 		    ,sup.IMPLEMENT_JOB_NAME
495 		    ,sup.IMPLEMENT_DOCK_DATE
496 		    ,sup.IMPLEMENT_STATUS_CODE
497 		    ,sup.IMPLEMENT_EMPLOYEE_ID
498 		    ,sup.IMPLEMENT_UOM_CODE
499 		    ,sup.IMPLEMENT_LOCATION_ID
500 		    ,sup.IMPLEMENT_SOURCE_ORG_ID
501 		    ,sup.IMPLEMENT_SR_INSTANCE_ID
502 		    ,sup.IMPLEMENT_SUPPLIER_ID
503 		    ,sup.IMPLEMENT_SUPPLIER_SITE_ID
504 		    ,sup.IMPLEMENT_AS
505 		    ,sup.RELEASE_STATUS
506 		    ,sup.LOAD_TYPE
507 		    ,sup.PROCESS_SEQ_ID
508 		    ,sup.SCO_SUPPLY_FLAG
509 		    ,sup.ALTERNATE_BOM_DESIGNATOR
510 		    ,sup.ALTERNATE_ROUTING_DESIGNATOR
511 		    ,sup.OPERATION_SEQ_NUM
512 		    ,sup.BY_PRODUCT_USING_ASSY_ID
513 		    ,sup.SOURCE_ORGANIZATION_ID
514 		    ,sup.SOURCE_SR_INSTANCE_ID
515 		    ,sup.SOURCE_SUPPLIER_SITE_ID
516 		    ,sup.SOURCE_SUPPLIER_ID
517 		    ,sup.SHIP_METHOD
518 		    ,sup.WEIGHT_CAPACITY_USED
519 		    ,sup.VOLUME_CAPACITY_USED
520 		    ,sup.NEW_SHIP_DATE
521 		    ,sup.NEW_DOCK_DATE
522 		    ,sup.OLD_DOCK_DATE
523 		    ,sup.LINE_ID
524 		    ,sup.PROJECT_ID
525 		    ,sup.TASK_ID
526 		    ,sup.PLANNING_GROUP
527 		    ,sup.IMPLEMENT_PROJECT_ID
528 		    ,sup.IMPLEMENT_TASK_ID
529 		    ,sup.IMPLEMENT_SCHEDULE_GROUP_ID
530 		    ,sup.IMPLEMENT_BUILD_SEQUENCE
531 		    ,sup.IMPLEMENT_ALTERNATE_BOM
532 		    ,sup.IMPLEMENT_ALTERNATE_ROUTING
533 		    ,sup.IMPLEMENT_UNIT_NUMBER
534 		    ,sup.IMPLEMENT_LINE_ID
535 		    ,sup.RELEASE_ERRORS
536 		    ,sup.NUMBER1
537 		    ,sup.SOURCE_ITEM_ID
538 		    ,sup.ORDER_NUMBER
539 		    ,sup.SCHEDULE_GROUP_ID
540 		    ,sup.BUILD_SEQUENCE
541 		    ,sup.WIP_ENTITY_NAME
542 		    ,sup.IMPLEMENT_PROCESSING_DAYS
543 		    ,sup.DELIVERY_PRICE
544 		    ,sup.LATE_SUPPLY_DATE
545 		    ,sup.LATE_SUPPLY_QTY
546 		    ,sup.LOT_NUMBER
547 		    ,sup.SUBINVENTORY_CODE
548 		    ,sup.QTY_SCRAPPED
549 		    ,sup.EXPECTED_SCRAP_QTY
550 		    ,sup.QTY_COMPLETED
551 		    ,sup.DAILY_RATE
552 		    ,sup.SCHEDULE_GROUP_NAME
553 		    ,sup.UPDATED
554 		    ,sup.SUBST_ITEM_FLAG
555 		    ,sup.STATUS
556 		    ,sup.APPLIED
557 		    ,sup.EXPIRATION_QUANTITY
558 		    ,sup.EXPIRATION_DATE
559 		    ,sup.NON_NETTABLE_QTY
560 		    ,sup.IMPLEMENT_WIP_START_DATE
561 		    ,sup.REFRESH_NUMBER
562 		    ,sup.LAST_UPDATE_DATE
563 		    ,sup.LAST_UPDATED_BY
564 		    ,sup.CREATION_DATE
565 		    ,sup.CREATED_BY
566 		    ,sup.LAST_UPDATE_LOGIN
567 		    ,sup.REQUEST_ID
568 		    ,sup.PROGRAM_APPLICATION_ID
569 		    ,sup.PROGRAM_ID
570 		    ,sup.PROGRAM_UPDATE_DATE
574 		    ,sup.SR_MTL_SUPPLY_ID
571 		    ,sup.IMPLEMENT_DAILY_RATE
572 		    ,sup.NEED_BY_DATE
573 		    ,sup.SOURCE_SUPPLY_ID
575 		    ,sup.WIP_STATUS_CODE
576 		    ,sup.DEMAND_CLASS
577 		    ,sup.FROM_ORGANIZATION_ID
578 		    ,sup.WIP_SUPPLY_TYPE
579 		    ,sup.PO_LINE_ID
580 		    ,sup.LOAD_FACTOR_RATE
581 		    ,sup.ROUTING_SEQUENCE_ID
582 		    ,sup.BILL_SEQUENCE_ID
583 		    ,sup.COPRODUCTS_SUPPLY
584 		    ,sup.CFM_ROUTING_FLAG
585 		    ,sup.CUSTOMER_ID
586 		    ,sup.SHIP_TO_SITE_ID
587 		    ,sup.OLD_NEED_BY_DATE
588 		    ,sup.OLD_DAILY_RATE
589 		    ,sup.OLD_FIRST_UNIT_START_DATE
590 		    ,sup.OLD_LAST_UNIT_COMPLETION_DATE
591 		    ,sup.OLD_NEW_SCHEDULE_DATE
592 		    ,sup.OLD_QTY_COMPLETED
593 		    ,sup.OLD_NEW_ORDER_QUANTITY
594 		    ,sup.OLD_FIRM_QUANTITY
595 		    ,sup.OLD_FIRM_DATE
596 		    ,sup.PLANNING_PARTNER_SITE_ID
597 		    ,sup.PLANNING_TP_TYPE
598 		    ,sup.OWNING_PARTNER_SITE_ID
599 		    ,sup.OWNING_TP_TYPE
600 		    ,sup.VMI_FLAG
601 		    ,sup.EARLIEST_START_DATE
602 		    ,sup.EARLIEST_COMPLETION_DATE
603 		    ,sup.MIN_START_DATE
604 		    ,sup.SCHEDULED_DEMAND_ID
605 		    ,sup.EXPLOSION_DATE
606 		    ,sup.SCO_SUPPLY_DATE
607 		    ,sup.RECORD_SOURCE
608 		    ,sup.SUPPLY_IS_SHARED
609 		    ,sup.ULPSD
610 		    ,sup.ULPCD
611 		    ,sup.UEPSD
612 		    ,sup.UEPCD
613 		    ,sup.EACD
614 		    ,sup.ORIGINAL_NEED_BY_DATE
615 		    ,sup.ORIGINAL_QUANTITY
616 		    ,sup.ACCEPTANCE_REQUIRED_FLAG
617 		    ,sup.PROMISED_DATE
618 		    ,sup.WIP_START_QUANTITY
619 		    ,sup.END_ORDER_NUMBER
620 		    ,sup.END_ORDER_LINE_NUMBER
621 		    ,sup.ORDER_LINE_NUMBER
622 		    ,sup.UNBUCKETED_DEMAND_DATE
623 		    ,sup.QUANTITY_PER_ASSEMBLY
624 		    ,sup.QUANTITY_ISSUED
625 		    ,sup.SHIPMENT_ID
626 		    ,sup.JOB_OP_SEQ_NUM
630 		    ,sup.INTRANSIT_CALENDAR
627 		    ,sup.JUMP_OP_SEQ_NUM
628 		    ,sup.SHIP_CALENDAR
629 		    ,sup.RECEIVING_CALENDAR
631 		    ,sup.INTRANSIT_LEAD_TIME
632 		    ,sup.OLD_SHIP_DATE
633 		    ,sup.IMPLEMENT_SHIP_DATE
634 		    ,sup.ORIG_SHIP_METHOD
635 		    ,sup.ORIG_INTRANSIT_LEAD_TIME
636 		    ,sup.PARENT_ID
637 		    ,sup.DAYS_LATE
638 		    ,sup.SCHEDULE_PRIORITY
639 		    ,sup.PO_LINE_LOCATION_ID
640 		    ,sup.PO_DISTRIBUTION_ID
641 		    ,sup.WSM_FAULTY_NETWORK
642 		    ,sup.IMPLEMENT_DEST_ORG_ID
643 		    ,sup.IMPLEMENT_DEST_INST_ID
644 		    ,sup.REQUESTED_START_DATE
645 		    ,sup.REQUESTED_COMPLETION_DATE
646 		    ,sup.ASSET_SERIAL_NUMBER
647 		    ,sup.ASSET_ITEM_ID
648 		    ,sup.TOP_TRANSACTION_ID
649 		    ,sup.UNBUCKETED_NEW_SCHED_DATE
650 		    ,sup.IMPLEMENT_SHIP_METHOD
651 		    ,sup.ACTUAL_START_DATE
652 	    FROM   MSC_STORE_SUPPLIES              sup
653 	    WHERE  sup.PLAN_ID = lv_plan_id;
654 	    LOG_MESSAGE('Inserted Supplies : ' || SQL%ROWCOUNT);
655 
656     EXCEPTION
657 	WHEN OTHERS THEN
658 	   msc_util.msc_debug('Error in Restoring Firm Supplies.');
659 	   msc_util.msc_debug(SQLERRM);
660 
661 	   RETCODE := G_ERROR;
662 	   ERRBUF  := SQLERRM;
663         RETURN;
664     END;
665 
666     COMMIT;
667 
668     RETCODE := G_SUCCESS;
669 
670 EXCEPTION
671    when OTHERS THEN
672         msc_util.msc_debug(SQLERRM);
673 	ERRBUF  := SQLERRM;
674 	RETCODE := G_ERROR;
675 
676 END RESTORE_FIRM_PO;
677 
678 END MSC_RESTORE_FIRM_PO; -- package