1: package body csd_depot_repair_cntr as
2: /* $Header: csddrclb.pls 115.36 2003/05/01 23:00:05 sangigup ship $ */
3:
4: -- ---------------------------------------------------------
5: -- Define global variables
4: -- ---------------------------------------------------------
5: -- Define global variables
6: -- ---------------------------------------------------------
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_DEPOT_REPAIR_CNTR';
9: G_FILE_NAME CONSTANT VARCHAR2(30) := 'csddrclb.pls';
10: g_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
11: -------------------------------------------
12: -- Get txn billing type
352:
353: BEGIN
354:
355: IF (g_debug > 0 ) THEN
356: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_serial_num : repair_line_id '||to_char(l_repair_line_id));
357: END IF;
358:
359:
360: if (l_quantity = 1) then
358:
359:
360: if (l_quantity = 1) then
361: IF (g_debug > 0 ) THEN
362: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_serial_num : qty '||to_char(l_quantity));
363: END IF;
364:
365:
366: open c_prd_txn_serial_num ( l_repair_line_id );
371:
372: IF (g_debug > 0 ) THEN
373: csd_gen_utility_pvt.add('pt_serial_num '||l_dr_serial_num);
374: csd_gen_utility_pvt.add('pt_Item_id '||to_char(l_dr_item_id));
375: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_serial_num : pt_serial_num '||l_pt_serial_num||' dr_serial_num '||l_dr_serial_num);
376: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_item_id : pt_item_id '||to_char(l_pt_item_id)||' dr_item_id '||to_char(l_dr_item_id));
377: END IF;
378:
379:
372: IF (g_debug > 0 ) THEN
373: csd_gen_utility_pvt.add('pt_serial_num '||l_dr_serial_num);
374: csd_gen_utility_pvt.add('pt_Item_id '||to_char(l_dr_item_id));
375: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_serial_num : pt_serial_num '||l_pt_serial_num||' dr_serial_num '||l_dr_serial_num);
376: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - prd_txn_item_id : pt_item_id '||to_char(l_pt_item_id)||' dr_item_id '||to_char(l_dr_item_id));
377: END IF;
378:
379:
380: if (l_pt_item_id <> l_dr_item_id) then
379:
380: if (l_pt_item_id <> l_dr_item_id) then
381:
382: IF (g_debug > 0 ) THEN
383: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - l_pt_item_id <> l_dr_item_id ');
384: END IF;
385:
386: l_pt_serial_num := l_dr_serial_num;
387:
387:
388: end if;
389:
390: IF (g_debug > 0 ) THEN
391: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - transaction_id '||to_char(i.transaction_id));
392: END IF;
393:
394:
395: open c_rcv_slnum_txn ( i.transaction_id );
396:
397: fetch c_rcv_slnum_txn into l_sl_txn_id;
398:
399: IF (g_debug > 0 ) THEN
400: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - parent_transaction_id '||to_char(l_sl_txn_id));
401: END IF;
402:
403:
404: if (l_sl_txn_id is not null) then
407: fetch c_rcv_txn_serial_num into l_st_serial_num;
408:
409: if (c_rcv_txn_serial_num%FOUND) then
410: IF (g_debug > 0 ) THEN
411: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - rcv_txn_serial_num'||l_st_serial_num);
412: END IF;
413:
414:
415: IF (g_debug > 0 ) THEN
420:
421:
422: if(l_pt_serial_num <> l_st_serial_num) then
423: IF (g_debug > 0 ) THEN
424: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - l_pt_serial_num <> l_st_serial_num ');
425: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for RSC event');
426: csd_gen_utility_pvt.add('Calling CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write ');
427: END IF;
428:
421:
422: if(l_pt_serial_num <> l_st_serial_num) then
423: IF (g_debug > 0 ) THEN
424: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - l_pt_serial_num <> l_st_serial_num ');
425: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for RSC event');
426: csd_gen_utility_pvt.add('Calling CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write ');
427: END IF;
428:
429:
499: X_Msg_Data => l_msg_data
500: );
501:
502: IF (g_debug > 0 ) THEN
503: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write l_return_status'||l_return_status);
504: END IF;
505:
506: v_total_records := v_total_records + 1;
507:
512: -- travi comment to concurrent log
513: fnd_file.put_line(fnd_file.log, 'Successfully updated the history');
514:
515: IF (g_debug > 0 ) THEN
516: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS - Repair Line ID : '||to_char(l_repair_line_id));
517: csd_gen_utility_pvt.add('Inserted into Repairs History Table for Serial number Change');
518: csd_gen_utility_pvt.add('Product Txn Serial number : '||l_pt_serial_num||' Recv Ser Txn Serial number : '||l_st_serial_num);
519: END IF;
520:
547: -- travi 012502
548:
549: if not v_skip_record then
550:
551: csd_depot_repair_cntr.convert_to_primary_uom
552: (i.inventory_item_id,
553: i.organization_id,
554: i.unit_of_measure,
555: i.received_quantity,
582: END IF;
583:
584:
585: IF (g_debug > 0 ) THEN
586: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for RR event');
587: END IF;
588:
589:
590: IF (g_debug > 0 ) THEN
665: );
666:
667:
668: IF (g_debug > 0 ) THEN
669: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write l_return_status'||l_return_status);
670: END IF;
671:
672:
673: IF (g_debug > 0 ) THEN
694:
695: -- travi check for call from tools
696: if ( p_repair_line_id is not null ) then
697: IF (g_debug > 0 ) THEN
698: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_RMA_RECEIPTS : Call from Depot Repair Form Tools Menu');
699: END IF;
700:
701: IF (g_debug > 0 ) THEN
702: csd_gen_utility_pvt.add('Repair Line ID ='||to_char(p_repair_line_id));
988: END IF;
989:
990:
991: IF (g_debug > 0 ) THEN
992: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_wip_update before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for JC event');
993: END IF;
994:
995:
996: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write (
1065: X_Msg_Data => l_msg_data
1066: );
1067:
1068: IF (g_debug > 0 ) THEN
1069: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_wip_update after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write l_return_status'||l_return_status);
1070: END IF;
1071:
1072:
1073:
1093:
1094:
1095: if ( p_repair_line_id is not null ) then
1096: IF (g_debug > 0 ) THEN
1097: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_WIP_UPDATE : Call from Depot Repair Form Tools Menu');
1098: END IF;
1099:
1100: IF (g_debug > 0 ) THEN
1101: csd_gen_utility_pvt.add('Repair Line ID ='||to_char(p_repair_line_id));
1310: if(l_pt_serial_num <> i.sl_number) then
1311:
1312:
1313: IF (g_debug > 0 ) THEN
1314: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_shipment_update before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for SSC event');
1315: csd_gen_utility_pvt.add('Calling CSD_TO_FORM_REPAIR_HISTORY');
1316: END IF;
1317:
1318:
1388: X_Msg_Data => l_msg_data
1389: );
1390:
1391: IF (g_debug > 0 ) THEN
1392: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_shipment_update after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write l_return_status'||l_return_status);
1393: END IF;
1394:
1395: v_total_records := v_total_records + 1;
1396:
1399: END IF;
1400:
1401:
1402: IF (g_debug > 0 ) THEN
1403: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_SHIPMENT_UPDATE - Repair Line ID : '||to_char(i.repair_line_id));
1404: csd_gen_utility_pvt.add('Inserted into Repairs History Table for Serial number Change');
1405: csd_gen_utility_pvt.add('Product Txn Serial number : '||l_pt_serial_num||' Ship Serial number : '||i.sl_number);
1406: END IF;
1407:
1432: csd_gen_utility_pvt.add('Calling the convert to primary uom ');
1433: END IF;
1434:
1435:
1436: csd_depot_repair_cntr.convert_to_primary_uom
1437: (i.inventory_item_id,
1438: i.organization_id,
1439: i.shipped_uom,
1440: i.shipped_quantity,
1463: fnd_message.set_token('REP_NO',i.repair_number);
1464: fnd_message.set_token('QTY_SHIP',to_char(p_result_ship_quantity));
1465: IF (g_debug > 0 ) THEN
1466: csd_gen_utility_pvt.add(fnd_message.get);
1467: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_shipment_update before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for PS event');
1468: csd_gen_utility_pvt.add('Calling CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write');
1469: END IF;
1470:
1471:
1541: X_Msg_Data => l_msg_data
1542: );
1543:
1544: IF (g_debug > 0 ) THEN
1545: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_shipment_update after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write l_return_status'||l_return_status);
1546: csd_gen_utility_pvt.add('Successfully completed Depot repair Shipping Update');
1547: END IF;
1548:
1549: commit;
1562:
1563:
1564: if ( p_repair_line_id is not null ) then
1565: IF (g_debug > 0 ) THEN
1566: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_SHIPMENT_UPDATE : Call from Depot Repair Form Tools Menu');
1567: csd_gen_utility_pvt.add('Repair Line ID ='||to_char(p_repair_line_id));
1568: csd_gen_utility_pvt.add('Total Records inserted into Repairs History Table ='||to_char(v_total_records));
1569: END IF;
1570:
1757: -- ---------------
1758: -- Api body starts
1759: -- ---------------
1760: IF (g_debug > 0 ) THEN
1761: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_update_task_hist before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call for TOC or TSC event');
1762: END IF;
1763:
1764:
1765: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1834: X_Msg_Data => x_msg_data
1835: );
1836: --
1837: IF (g_debug > 0 ) THEN
1838: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.depot_update_task_hist after CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write x_return_status'||x_return_status);
1839: END IF;
1840:
1841: -- -------------------
1842: -- Api body ends here
1873:
1874: -- travi check for call from tools
1875: if ( p_repair_line_id is not null ) then
1876: IF (g_debug > 0 ) THEN
1877: csd_gen_utility_pvt.add('CSD_DEPOT_REPAIR_CNTR.DEPOT_UPDATE_TASK_HIST : Call from Depot Repair Form Tools Menu');
1878: END IF;
1879:
1880: IF (g_debug > 0 ) THEN
1881: csd_gen_utility_pvt.add('Repair Line ID ='||to_char(p_repair_line_id));
1937:
1938:
1939: END depot_update_task_hist;
1940:
1941: end CSD_DEPOT_REPAIR_CNTR;