[Home] [Help]
1: PACKAGE BODY csd_mass_rcv_pvt AS
2: /* $Header: csdvmssb.pls 120.15.12020000.3 2013/04/14 00:10:07 takwong ship $ */
3: --
4: -- Purpose: To mass process repair orders
5: --
7: -- Person Date Comments
8: -- --------- ------ ------------------------------------------
9: -- vparvath 05/27/03 Created new package body
10: ------------------------------------------------------------------------------------
11: g_pkg_name CONSTANT VARCHAR2 (30) := 'CSD_MASS_RCV_PVT';
12: g_file_name CONSTANT VARCHAR2 (30) := 'csdvmssb.pls';
13:
14: TYPE number_arr IS TABLE OF NUMBER
15: INDEX BY BINARY_INTEGER;
100:
101: IF (fnd_log.level_procedure >= l_debug_level)
102: THEN
103: fnd_log.STRING (fnd_log.level_procedure,
104: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO.BEGIN',
105: '-------------Entered Mass_Create_RO----------------'
106: );
107: END IF;
108:
130: --Delete records from the CSD_GENRIC_ERRMSGS table.
131: IF (l_event_level >= l_debug_level)
132: THEN
133: fnd_log.STRING (l_event_level,
134: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
135: '-----purging the previous processing errors----'
136: );
137: END IF;
138:
155: IF (l_event_level >= l_debug_level)
156: THEN
157: fnd_log.STRING
158: (l_event_level,
159: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
160: '---after the call to CSD_GEN_ERRMSGS_PVT.PURGE_ENTITY_MSGS-----'
161: );
162: END IF;
163:
180:
181: IF (l_event_level >= l_debug_level)
182: THEN
183: fnd_log.STRING (l_event_level,
184: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
185: '-----------------Creating product transactions------------'
186: );
187: END IF;
188:
203:
204: IF (l_stmt_level >= l_debug_level)
205: THEN
206: fnd_log.STRING (l_stmt_level,
207: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
208: 'Count of product transactions created=['
209: || l_prod_txn_tbl.COUNT
210: || ']'
211: );
221:
222: IF (l_event_level >= l_debug_level)
223: THEN
224: fnd_log.STRING (l_event_level,
225: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
226: '---------------Start processing for repair lineid=['
227: || p_repair_order_line_id
228: || ']------------'
229: );
236:
237: IF (l_stmt_level >= l_debug_level)
238: THEN
239: fnd_log.STRING (l_stmt_level,
240: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
241: 'Serial Number=['
242: || l_repair_order_sn_rec.serial_number
243: || ']'
244: );
242: || l_repair_order_sn_rec.serial_number
243: || ']'
244: );
245: fnd_log.STRING (l_stmt_level,
246: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
247: 'Instance id=['
248: || TO_CHAR
249: (l_repair_order_sn_rec.instance_id
250: )
279: THEN
280: IF (l_event_level >= l_debug_level)
281: THEN
282: fnd_log.STRING (l_event_level,
283: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
284: 'Created the new repair order, repair line id=['
285: || l_new_repln_id
286: || ']'
287: );
326:
327: IF (l_event_level >= l_debug_level)
328: THEN
329: fnd_log.STRING (l_event_level,
330: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
331: 'No. of serial numbers processed successfully=['
332: || TO_CHAR (l_count_sn_success)
333: || ']'
334: );
346:
347: IF (l_event_level >= l_debug_level)
348: THEN
349: fnd_log.STRING (l_event_level,
350: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
351: 'Num of blank sn being added= ['
352: || TO_CHAR (l_count_sn_blank)
353: || ']'
354: );
421:
422: IF (l_event_level >= l_debug_level)
423: THEN
424: fnd_log.STRING (l_event_level,
425: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
426: 'Created the new repair order, repair line id=['
427: || l_new_repln_id
428: || ']'
429: );
444: --Delete record from CSD_REPAIRS for the input p_repair_order_line_id.
445: IF (l_event_level >= l_debug_level)
446: THEN
447: fnd_log.STRING (l_event_level,
448: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
449: 'l_count_sn_success['
450: || l_count_sn_success
451: || ']l_count_sn['
452: || l_count_sn
458: THEN
459: IF (l_event_level >= l_debug_level)
460: THEN
461: fnd_log.STRING (l_event_level,
462: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
463: 'deleting the draft repair order'
464: );
465: END IF;
466:
479: -- only some of the serial numbers are processed.
480: IF (l_event_level >= l_debug_level)
481: THEN
482: fnd_log.STRING (l_event_level,
483: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
484: 'Updating the CSD_REPAIRS table quantity'
485: );
486: END IF;
487:
507:
508: IF (fnd_log.level_procedure >= l_debug_level)
509: THEN
510: fnd_log.STRING (fnd_log.level_procedure,
511: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO.END',
512: 'Leaving Mass_Create_RO'
513: );
514: END IF;
515: EXCEPTION
524:
525: IF (fnd_log.level_error >= l_debug_level)
526: THEN
527: fnd_log.STRING (fnd_log.level_error,
528: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
529: 'EXC_ERROR[' || x_msg_data || ']'
530: );
531: END IF;
532: WHEN fnd_api.g_exc_unexpected_error
539:
540: IF (fnd_log.level_exception >= l_debug_level)
541: THEN
542: fnd_log.STRING (fnd_log.level_exception,
543: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
544: 'EXC_UNEXP_ERROR[' || x_msg_data || ']'
545: );
546: END IF;
547: WHEN OTHERS
560:
561: IF (fnd_log.level_unexpected >= l_debug_level)
562: THEN
563: fnd_log.STRING (fnd_log.level_unexpected,
564: 'CSD.PLSQL.CSD_MASS_RCV_PVT.MASS_CREATE_RO',
565: 'SQL MEssage[' || SQLERRM || ']'
566: );
567: END IF;
568: END mass_create_ro;
637: BEGIN
638: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
639: THEN
640: fnd_log.STRING (fnd_log.level_procedure,
641: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO.BEGIN',
642: 'Entering Process_RO'
643: );
644: END IF;
645:
670: --
671: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
672: THEN
673: fnd_log.STRING (fnd_log.level_event,
674: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
675: '--------------Fetching repair order details for[='
676: || p_repair_line_id
677: || ']---------------'
678: );
765: --Get the repair type ref and populate product txn table
766: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
767: THEN
768: fnd_log.STRING (fnd_log.level_event,
769: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
770: '------------------Fetching repair type ref for[='
771: || l_repair_order_rec.repair_type_id
772: || ']----------------'
773: );
809: */
810: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
811: THEN
812: fnd_log.STRING (fnd_log.level_event,
813: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
814: '------------------Calling csd_repairs_pvt.create_repair_order'
815: );
816: END IF;
817:
839:
840: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
841: THEN
842: fnd_log.STRING (fnd_log.level_statement,
843: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
844: '------------------New repair order number=[' || l_repair_number || ']'
845: );
846: END IF;
847:
877: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
878: )
879: THEN
880: fnd_log.STRING (fnd_log.level_statement,
881: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
882: 'Calling Create_Product_Txn for['
883: || p_prod_txn_tbl (i).source_serial_number
884: || ']'
885: );
906: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
907: )
908: THEN
909: fnd_log.STRING (fnd_log.level_statement,
910: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
911: 'After Create_product_txn['
912: || l_repair_order_rec.serial_number
913: || ']'
914: );
932: );
933:
934: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
935: fnd_log.STRING (fnd_log.level_statement,
936: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
937: 'After Create_default_product_txn['
938: || l_repair_order_rec.serial_number|| ']');
939: END IF;
940:
957: x_msg_data => l_msg_data
958: );
959: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
960: fnd_log.STRING (fnd_log.level_statement,
961: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
962: 'After CSD_RO_BULLETINS_PVT.LINK_BULLETINS_TO_RO['
963: || x_new_repln_id || ']');
964: END IF;
965: -- ignore return status for now.
971: --Delete the processed serial number from CSD_MASS_RO_SN if exists.
972: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
973: THEN
974: fnd_log.STRING (fnd_log.level_statement,
975: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
976: 'Deleting CSD_MASS_RO_SN record sn=['
977: || NVL (l_repair_order_rec.serial_number, '')
978: || ']'
979: );
983: THEN
984: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
985: THEN
986: fnd_log.STRING (fnd_log.level_statement,
987: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
988: 'Deleting CSD_MASS_RO_SN record '
989: );
990: END IF;
991:
1006:
1007: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1008: THEN
1009: fnd_log.STRING (fnd_log.level_procedure,
1010: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO.END',
1011: 'Leaving Process_RO'
1012: );
1013: END IF;
1014: EXCEPTION
1022:
1023: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1024: THEN
1025: fnd_log.STRING (fnd_log.level_error,
1026: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1027: 'EXC_ERROR[' || x_msg_data || ']'
1028: );
1029: END IF;
1030: WHEN fnd_api.g_exc_unexpected_error
1037:
1038: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1039: THEN
1040: fnd_log.STRING (fnd_log.level_exception,
1041: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1042: 'EXC_UNEXP_ERROR[' || x_msg_data || ']'
1043: );
1044: END IF;
1045: WHEN OTHERS
1058:
1059: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1060: THEN
1061: fnd_log.STRING (fnd_log.level_exception,
1062: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1063: 'SQL MEssage[' || SQLERRM || ']'
1064: );
1065: END IF;
1066: END process_ro;
1216: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1217: THEN
1218: fnd_log.STRING
1219: (fnd_log.level_procedure,
1220: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN.BEGIN',
1221: 'Entered CREATE_PRODUCT_TXN'
1222: );
1223: END IF;
1224:
1224:
1225: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1226: THEN
1227: fnd_log.STRING (fnd_log.level_statement,
1228: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1229: 'Processing Serial Number:=['
1230: || p_product_txn_rec.source_serial_number
1231: || ']'
1232: );
1260: ---------------------------------------------------------------------------------1
1261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1262: THEN
1263: fnd_log.STRING (fnd_log.level_statement,
1264: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1265: 'Before calling validate_product_txn_Rec'
1266: );
1267: END IF;
1268:
1298:
1299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1300: THEN
1301: fnd_log.STRING (fnd_log.level_statement,
1302: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1303: 'l_incident_id =' || l_incident_id
1304: );
1305: END IF;
1306:
1311:
1312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1313: THEN
1314: fnd_log.STRING (fnd_log.level_statement,
1315: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1316: 'l_bus_process_id =' || l_bus_process_id
1317: );
1318: END IF;
1319:
1327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1328: THEN
1329: fnd_log.STRING
1330: (fnd_log.level_statement,
1331: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1332: 'Business process Id does not exist '
1333: );
1334: END IF;
1335:
1352: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1353: THEN
1354: fnd_log.STRING
1355: (fnd_log.level_statement,
1356: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1357: 'No Row found for the txn_billing_type_id='
1358: || TO_CHAR (p_product_txn_rec.txn_billing_type_id)
1359: );
1360: END IF;
1370:
1371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1372: THEN
1373: fnd_log.STRING (fnd_log.level_statement,
1374: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1375: 'p_product_txn_rec.transaction_type_id :'
1376: || TO_CHAR (p_product_txn_rec.transaction_type_id)
1377: );
1378: END IF;
1383: --given contract id and business process id.
1384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1385: THEN
1386: fnd_log.STRING (fnd_log.level_statement,
1387: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1388: 'contract_line_id =' || p_product_txn_rec.contract_id
1389: );
1390: END IF;
1391:
1412: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1413: THEN
1414: fnd_log.STRING
1415: (fnd_log.level_statement,
1416: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1417: 'Contract Line Id missing'
1418: );
1419: END IF;
1420:
1473:
1474: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1475: THEN
1476: fnd_log.STRING (fnd_log.level_statement,
1477: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1478: 'l_line_type_id =' || l_line_type_id
1479: );
1480: fnd_log.STRING (fnd_log.level_statement,
1481: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1477: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1478: 'l_line_type_id =' || l_line_type_id
1479: );
1480: fnd_log.STRING (fnd_log.level_statement,
1481: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1482: 'l_line_category_code ='
1483: || l_line_category_code
1484: );
1485: fnd_log.STRING (fnd_log.level_statement,
1482: 'l_line_category_code ='
1483: || l_line_category_code
1484: );
1485: fnd_log.STRING (fnd_log.level_statement,
1486: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1487: 'p_product_txn_rec.price_list_id ='
1488: || p_product_txn_rec.price_list_id
1489: );
1490: END IF;
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1526: THEN
1527: fnd_log.STRING
1528: (fnd_log.level_statement,
1529: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1530: 'Serial Number missing for inventory_item_id='
1531: || p_product_txn_rec.inventory_item_id
1532: );
1533: END IF;
1564:
1565: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1566: THEN
1567: fnd_log.STRING (fnd_log.level_statement,
1568: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1569: 'l_curr_code =' || l_curr_code
1570: );
1571: END IF;
1572: END IF;
1579: -- If the source is RMA then process differently
1580: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1581: THEN
1582: fnd_log.STRING (fnd_log.level_statement,
1583: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1584: 'orignal source ref=[' || l_orig_src_reference || ']'
1585: );
1586: fnd_log.STRING (fnd_log.level_statement,
1587: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1583: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1584: 'orignal source ref=[' || l_orig_src_reference || ']'
1585: );
1586: fnd_log.STRING (fnd_log.level_statement,
1587: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1588: 'l_add_to_same_order=[' || l_add_to_same_order || ']'
1589: );
1590: END IF;
1591:
1603: IF (cur_order_header%NOTFOUND)
1604: THEN
1605: fnd_log.STRING
1606: (fnd_log.level_statement,
1607: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1608: 'Getting max order header id failed '
1609: );
1610: ELSE
1611: fnd_log.STRING
1609: );
1610: ELSE
1611: fnd_log.STRING
1612: (fnd_log.level_statement,
1613: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1614: 'Order header id[' || l_order_header_id || ']'
1615: );
1616: END IF;
1617: END IF;
1647:
1648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1649: THEN
1650: fnd_log.STRING (fnd_log.level_statement,
1651: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1652: 'Convert product txn rec to charges rec'
1653: );
1654: END IF;
1655:
1669: THEN
1670: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1671: THEN
1672: fnd_log.STRING (fnd_log.level_statement,
1673: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1674: 'sql error[' || SQLERRM || ']'
1675: );
1676: END IF;
1677:
1687: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1688: THEN
1689: fnd_log.STRING
1690: (fnd_log.level_statement,
1691: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1692: 'Calling process_charge_lines to create charge lines '
1693: );
1694: END IF;
1695:
1710: THEN
1711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1712: THEN
1713: fnd_log.STRING (fnd_log.level_statement,
1714: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1715: 'Error[' || SUBSTR (x_msg_data, 1, 200) || ']'
1716: );
1717: END IF;
1718:
1721:
1722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1723: THEN
1724: fnd_log.STRING (fnd_log.level_statement,
1725: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1726: 'Created charge line[' || l_estimate_detail_id || ']'
1727: );
1728: END IF;
1729:
1732: --Update product_transaction_id in the Product_Txn_Rec.
1733: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1734: THEN
1735: fnd_log.STRING (fnd_log.level_statement,
1736: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1737: 'Creating product txn rec ..'
1738: );
1739: END IF;
1740:
1801:
1802: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1803: THEN
1804: fnd_log.STRING (fnd_log.level_statement,
1805: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1806: 'PRODUCT_TRANSACTION_ID='
1807: || p_product_txn_rec.product_transaction_id
1808: );
1809: END IF;
1823: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1824: THEN
1825: fnd_log.STRING
1826: (fnd_log.level_statement,
1827: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1828: 'Call CSD_PROCESS_PVT.APPLY_CONTRACT to apply contract '
1829: );
1830: END IF;
1831:
1845: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1846: THEN
1847: fnd_log.STRING
1848: (fnd_log.level_statement,
1849: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1850: 'apply_contract failed['
1851: || SUBSTR (x_msg_data, 1, 200)
1852: || ']'
1853: );
1879:
1880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1881: THEN
1882: fnd_log.STRING (fnd_log.level_statement,
1883: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1884: 'calling CSD_PROCESS_PVT.PROCESS_SALES_ORDER to interface '
1885: || 'Charge line without booking'
1886: );
1887: END IF;
1907: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1908: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1909: THEN
1910: fnd_log.STRING (fnd_log.level_statement,
1911: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1912: 'process_sales_order failed['||x_msg_data||']');
1913: END IF;
1914: RAISE FND_API.G_EXC_ERROR;
1915: END IF;
1921:
1922: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1923: THEN
1924: fnd_log.STRING (fnd_log.level_statement,
1925: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1926: 'Booking charge line with CSD_PROCESS_PVT.PROCESS_SALES_ORDER API');
1927: END IF;
1928:
1929:
1942: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1944: THEN
1945: fnd_log.STRING (fnd_log.level_statement,
1946: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1947: 'process_sales_order failed ['||x_msg_Data||']');
1948: END IF;
1949: RAISE FND_API.G_EXC_ERROR;
1950: END IF;
1971: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1972: THEN
1973: fnd_log.STRING
1974: (fnd_log.level_statement,
1975: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1976: 'submit_Order failed ['
1977: || SUBSTR (x_msg_data, 1, 200)
1978: || ']'
1979: );
1988:
1989: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1990: THEN
1991: fnd_log.STRING (fnd_log.level_statement,
1992: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1993: 'Updating repair status[' || l_ro_txn_status || ']'
1994: );
1995: END IF;
1996:
2010:
2011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2012: THEN
2013: fnd_log.STRING (fnd_log.level_statement,
2014: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2015: 'Updating prod txn status[' || l_prod_txn_status
2016: || ']'
2017: );
2018: END IF;
2047:
2048: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2049: THEN
2050: fnd_log.STRING (fnd_log.level_procedure,
2051: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN.END',
2052: 'Leaving CREATE_PRODUCT_TXN'
2053: );
2054: END IF;
2055: EXCEPTION
2064:
2065: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2066: THEN
2067: fnd_log.STRING (fnd_log.level_error,
2068: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2069: 'EXC_ERROR[' || x_msg_data || ']'
2070: );
2071: END IF;
2072: WHEN fnd_api.g_exc_unexpected_error
2079:
2080: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2081: THEN
2082: fnd_log.STRING (fnd_log.level_exception,
2083: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2084: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']'
2085: );
2086: END IF;
2087: WHEN OTHERS
2100:
2101: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2102: THEN
2103: fnd_log.STRING (fnd_log.level_unexpected,
2104: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2105: 'SQL Error[' || SQLERRM || ']'
2106: );
2107: END IF;
2108: END create_product_txn;
2151: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2152: THEN
2153: fnd_log.STRING
2154: (fnd_log.level_procedure,
2155: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE.BEGIN',
2156: 'Entered CREATE_ITEM_INSTANCE'
2157: );
2158: END IF;
2159:
2182:
2183: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2184: THEN
2185: fnd_log.STRING (fnd_log.level_statement,
2186: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2187: 'Finding party_site_Id for party_site_use_Id=['
2188: || px_instance_rec.party_site_use_id
2189: || ']'
2190: );
2209:
2210: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2211: THEN
2212: fnd_log.STRING (fnd_log.level_statement,
2213: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2214: 'party_site_Id=[' || l_party_site_id || ']'
2215: );
2216: END IF;
2217:
2284:
2285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2286: THEN
2287: fnd_log.STRING (fnd_log.level_statement,
2288: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2289: 'Calling csi_item_instance_pub.create_item_instance'
2290: );
2291: END IF;
2292:
2331: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2332: THEN
2333: fnd_log.STRING
2334: (fnd_log.level_procedure,
2335: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE.END',
2336: 'Leaving CREATE_ITEM_INSTANCE'
2337: );
2338: END IF;
2339: EXCEPTION
2348: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2349: THEN
2350: fnd_log.STRING
2351: (fnd_log.level_error,
2352: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2353: 'EXC_ERROR[' || x_msg_data || ']'
2354: );
2355: END IF;
2356: WHEN fnd_api.g_exc_unexpected_error
2364: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2365: THEN
2366: fnd_log.STRING
2367: (fnd_log.level_exception,
2368: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2369: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']'
2370: );
2371: END IF;
2372: WHEN OTHERS
2386: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2387: THEN
2388: fnd_log.STRING
2389: (fnd_log.level_unexpected,
2390: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2391: 'SQL MEssage[' || SQLERRM || ']'
2392: );
2393: END IF;
2394: END create_item_instance;
2407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2408: THEN
2409: fnd_log.STRING
2410: (fnd_log.level_procedure,
2411: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2412: 'Entered Validate_Product_Txn_Rec'
2413: );
2414: END IF;
2415:
2416: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2417: THEN
2418: fnd_log.STRING
2419: (fnd_log.level_statement,
2420: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2421: 'Checking mandatory parameters'
2422: );
2423: END IF;
2424:
2475: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2476: THEN
2477: fnd_log.STRING
2478: (fnd_log.level_statement,
2479: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2480: 'Validate repair line id'
2481: );
2482: END IF;
2483:
2492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2493: THEN
2494: fnd_log.STRING
2495: (fnd_log.level_statement,
2496: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2497: 'Validate action type'
2498: );
2499: END IF;
2500:
2509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2510: THEN
2511: fnd_log.STRING
2512: (fnd_log.level_statement,
2513: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2514: 'Validate action code'
2515: );
2516: END IF;
2517:
2526: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2527: THEN
2528: fnd_log.STRING
2529: (fnd_log.level_statement,
2530: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2531: 'Validate product txn qty'
2532: );
2533: fnd_log.STRING
2534: (fnd_log.level_statement,
2531: 'Validate product txn qty'
2532: );
2533: fnd_log.STRING
2534: (fnd_log.level_statement,
2535: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2536: 'p_product_txn_rec.quantity =' || p_product_txn_rec.quantity
2537: );
2538: END IF;
2539:
2553: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2554: THEN
2555: fnd_log.STRING
2556: (fnd_log.level_statement,
2557: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2558: 'Validate_Quantity failed '
2559: );
2560: END IF;
2561:
2566: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2567: THEN
2568: fnd_log.STRING
2569: (fnd_log.level_statement,
2570: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2571: 'Validate product txn status'
2572: );
2573: fnd_log.STRING
2574: (fnd_log.level_statement,
2571: 'Validate product txn status'
2572: );
2573: fnd_log.STRING
2574: (fnd_log.level_statement,
2575: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2576: 'p_product_txn_rec.PROD_TXN_STATUS ='
2577: || p_product_txn_rec.prod_txn_status
2578: );
2579: END IF;
2600: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2601: THEN
2602: fnd_log.STRING
2603: (fnd_log.level_procedure,
2604: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.END',
2605: 'Leaving Validate_Product_Txn_Rec'
2606: );
2607: END IF;
2608: END validate_product_txn_rec;
2617: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2618: THEN
2619: fnd_log.STRING
2620: (fnd_log.level_procedure,
2621: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Is_Item_Pre_serialized.BEGIN',
2622: 'Entered Is_Item_Pre_serialized'
2623: );
2624: END IF;
2625:
2639: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2640: THEN
2641: fnd_log.STRING
2642: (fnd_log.level_procedure,
2643: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Is_Item_Pre_serialized.END',
2644: 'Leaving Is_Item_Pre_serialized'
2645: );
2646: END IF;
2647: EXCEPTION
2729: BEGIN
2730: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2731: THEN
2732: fnd_log.STRING (fnd_log.level_procedure,
2733: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER.BEGIN',
2734: 'Entered Validate_order'
2735: );
2736: END IF;
2737:
2753:
2754: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2755: THEN
2756: fnd_log.STRING (fnd_log.level_statement,
2757: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2758: 'Sales Order missing for estimate_detail_id ='
2759: || p_est_detail_id
2760: );
2761: END IF;
2769: THEN
2770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2771: THEN
2772: fnd_log.STRING (fnd_log.level_statement,
2773: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2774: 'Too many order header ids'
2775: );
2776: END IF;
2777: END IF;
2791:
2792: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2793: THEN
2794: fnd_log.STRING (fnd_log.level_statement,
2795: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2796: 'Sales rep missing for Line_id='
2797: || l_order_line_id
2798: );
2799: END IF;
2807: THEN
2808: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2809: THEN
2810: fnd_log.STRING (fnd_log.level_statement,
2811: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2812: 'Too many order ship_from_org_id'
2813: );
2814: END IF;
2815: END IF;
2824:
2825: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2826: THEN
2827: fnd_log.STRING (fnd_log.level_statement,
2828: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2829: 'Ship from Org Id missing for Line_id='
2830: || l_order_line_id
2831: );
2832: END IF;
2842:
2843: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2844: THEN
2845: fnd_log.STRING (fnd_log.level_statement,
2846: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2847: 'Unit Selling price missing for Line_id='
2848: || l_order_line_id
2849: );
2850: END IF;
2874:
2875: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2876: THEN
2877: fnd_log.STRING (fnd_log.level_procedure,
2878: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER.END',
2879: 'Leaving Validate_order'
2880: );
2881: END IF;
2882: END validate_order;
2903:
2904: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2905: THEN
2906: fnd_log.STRING (fnd_log.level_error,
2907: 'CSD.PLSQL.CSD_MASS_RCV_PVT.log_error_stack',
2908: 'error[' || l_msg || ']'
2909: );
2910: END IF;
2911: END LOOP;
2989:
2990: END upd_instance;
2991:
2992:
2993: END csd_mass_rcv_pvt;