[Home] [Help]
1: PACKAGE BODY csd_mass_rcv_pvt AS
2: /* $Header: csdvmssb.pls 120.8.12010000.5 2008/11/18 20:45:26 swai 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;
636: BEGIN
637: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
638: THEN
639: fnd_log.STRING (fnd_log.level_procedure,
640: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO.BEGIN',
641: 'Entering Process_RO'
642: );
643: END IF;
644:
669: --
670: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
671: THEN
672: fnd_log.STRING (fnd_log.level_event,
673: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
674: '--------------Fetching repair order details for[='
675: || p_repair_line_id
676: || ']---------------'
677: );
759: --Get the repair type ref and populate product txn table
760: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
761: THEN
762: fnd_log.STRING (fnd_log.level_event,
763: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
764: '------------------Fetching repair type ref for[='
765: || l_repair_order_rec.repair_type_id
766: || ']----------------'
767: );
803: */
804: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
805: THEN
806: fnd_log.STRING (fnd_log.level_event,
807: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
808: '------------------Calling csd_repairs_pvt.create_repair_order'
809: );
810: END IF;
811:
833:
834: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
835: THEN
836: fnd_log.STRING (fnd_log.level_statement,
837: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
838: '------------------New repair order number=[' || l_repair_number || ']'
839: );
840: END IF;
841:
871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
872: )
873: THEN
874: fnd_log.STRING (fnd_log.level_statement,
875: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
876: 'Calling Create_Product_Txn for['
877: || p_prod_txn_tbl (i).source_serial_number
878: || ']'
879: );
900: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level
901: )
902: THEN
903: fnd_log.STRING (fnd_log.level_statement,
904: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
905: 'After Create_product_txn['
906: || l_repair_order_rec.serial_number
907: || ']'
908: );
926: );
927:
928: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
929: fnd_log.STRING (fnd_log.level_statement,
930: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
931: 'After Create_default_product_txn['
932: || l_repair_order_rec.serial_number|| ']');
933: END IF;
934:
951: x_msg_data => l_msg_data
952: );
953: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
954: fnd_log.STRING (fnd_log.level_statement,
955: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
956: 'After CSD_RO_BULLETINS_PVT.LINK_BULLETINS_TO_RO['
957: || x_new_repln_id || ']');
958: END IF;
959: -- ignore return status for now.
965: --Delete the processed serial number from CSD_MASS_RO_SN if exists.
966: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
967: THEN
968: fnd_log.STRING (fnd_log.level_statement,
969: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
970: 'Deleting CSD_MASS_RO_SN record sn=['
971: || NVL (l_repair_order_rec.serial_number, '')
972: || ']'
973: );
977: THEN
978: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
979: THEN
980: fnd_log.STRING (fnd_log.level_statement,
981: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Process_RO',
982: 'Deleting CSD_MASS_RO_SN record '
983: );
984: END IF;
985:
1000:
1001: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1002: THEN
1003: fnd_log.STRING (fnd_log.level_procedure,
1004: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO.END',
1005: 'Leaving Process_RO'
1006: );
1007: END IF;
1008: EXCEPTION
1016:
1017: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1018: THEN
1019: fnd_log.STRING (fnd_log.level_error,
1020: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1021: 'EXC_ERROR[' || x_msg_data || ']'
1022: );
1023: END IF;
1024: WHEN fnd_api.g_exc_unexpected_error
1031:
1032: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1033: THEN
1034: fnd_log.STRING (fnd_log.level_exception,
1035: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1036: 'EXC_UNEXP_ERROR[' || x_msg_data || ']'
1037: );
1038: END IF;
1039: WHEN OTHERS
1052:
1053: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1054: THEN
1055: fnd_log.STRING (fnd_log.level_exception,
1056: 'CSD.PLSQL.CSD_MASS_RCV_PVT.PROCESS_RO',
1057: 'SQL MEssage[' || SQLERRM || ']'
1058: );
1059: END IF;
1060: END process_ro;
1210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1211: THEN
1212: fnd_log.STRING
1213: (fnd_log.level_procedure,
1214: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN.BEGIN',
1215: 'Entered CREATE_PRODUCT_TXN'
1216: );
1217: END IF;
1218:
1218:
1219: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1220: THEN
1221: fnd_log.STRING (fnd_log.level_statement,
1222: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1223: 'Processing Serial Number:=['
1224: || p_product_txn_rec.source_serial_number
1225: || ']'
1226: );
1254: ---------------------------------------------------------------------------------1
1255: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1256: THEN
1257: fnd_log.STRING (fnd_log.level_statement,
1258: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1259: 'Before calling validate_product_txn_Rec'
1260: );
1261: END IF;
1262:
1292:
1293: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1294: THEN
1295: fnd_log.STRING (fnd_log.level_statement,
1296: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1297: 'l_incident_id =' || l_incident_id
1298: );
1299: END IF;
1300:
1305:
1306: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1307: THEN
1308: fnd_log.STRING (fnd_log.level_statement,
1309: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1310: 'l_bus_process_id =' || l_bus_process_id
1311: );
1312: END IF;
1313:
1321: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1322: THEN
1323: fnd_log.STRING
1324: (fnd_log.level_statement,
1325: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1326: 'Business process Id does not exist '
1327: );
1328: END IF;
1329:
1346: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1347: THEN
1348: fnd_log.STRING
1349: (fnd_log.level_statement,
1350: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1351: 'No Row found for the txn_billing_type_id='
1352: || TO_CHAR (p_product_txn_rec.txn_billing_type_id)
1353: );
1354: END IF;
1364:
1365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1366: THEN
1367: fnd_log.STRING (fnd_log.level_statement,
1368: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1369: 'p_product_txn_rec.transaction_type_id :'
1370: || TO_CHAR (p_product_txn_rec.transaction_type_id)
1371: );
1372: END IF;
1377: --given contract id and business process id.
1378: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1379: THEN
1380: fnd_log.STRING (fnd_log.level_statement,
1381: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1382: 'contract_line_id =' || p_product_txn_rec.contract_id
1383: );
1384: END IF;
1385:
1406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1407: THEN
1408: fnd_log.STRING
1409: (fnd_log.level_statement,
1410: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1411: 'Contract Line Id missing'
1412: );
1413: END IF;
1414:
1467:
1468: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1469: THEN
1470: fnd_log.STRING (fnd_log.level_statement,
1471: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1472: 'l_line_type_id =' || l_line_type_id
1473: );
1474: fnd_log.STRING (fnd_log.level_statement,
1475: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1471: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1472: 'l_line_type_id =' || l_line_type_id
1473: );
1474: fnd_log.STRING (fnd_log.level_statement,
1475: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1476: 'l_line_category_code ='
1477: || l_line_category_code
1478: );
1479: fnd_log.STRING (fnd_log.level_statement,
1476: 'l_line_category_code ='
1477: || l_line_category_code
1478: );
1479: fnd_log.STRING (fnd_log.level_statement,
1480: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1481: 'p_product_txn_rec.price_list_id ='
1482: || p_product_txn_rec.price_list_id
1483: );
1484: END IF;
1519: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1520: THEN
1521: fnd_log.STRING
1522: (fnd_log.level_statement,
1523: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1524: 'Serial Number missing for inventory_item_id='
1525: || p_product_txn_rec.inventory_item_id
1526: );
1527: END IF;
1558:
1559: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1560: THEN
1561: fnd_log.STRING (fnd_log.level_statement,
1562: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1563: 'l_curr_code =' || l_curr_code
1564: );
1565: END IF;
1566: END IF;
1573: -- If the source is RMA then process differently
1574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1575: THEN
1576: fnd_log.STRING (fnd_log.level_statement,
1577: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1578: 'orignal source ref=[' || l_orig_src_reference || ']'
1579: );
1580: fnd_log.STRING (fnd_log.level_statement,
1581: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1577: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1578: 'orignal source ref=[' || l_orig_src_reference || ']'
1579: );
1580: fnd_log.STRING (fnd_log.level_statement,
1581: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1582: 'l_add_to_same_order=[' || l_add_to_same_order || ']'
1583: );
1584: END IF;
1585:
1597: IF (cur_order_header%NOTFOUND)
1598: THEN
1599: fnd_log.STRING
1600: (fnd_log.level_statement,
1601: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1602: 'Getting max order header id failed '
1603: );
1604: ELSE
1605: fnd_log.STRING
1603: );
1604: ELSE
1605: fnd_log.STRING
1606: (fnd_log.level_statement,
1607: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1608: 'Order header id[' || l_order_header_id || ']'
1609: );
1610: END IF;
1611: END IF;
1641:
1642: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1643: THEN
1644: fnd_log.STRING (fnd_log.level_statement,
1645: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1646: 'Convert product txn rec to charges rec'
1647: );
1648: END IF;
1649:
1663: THEN
1664: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1665: THEN
1666: fnd_log.STRING (fnd_log.level_statement,
1667: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1668: 'sql error[' || SQLERRM || ']'
1669: );
1670: END IF;
1671:
1681: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1682: THEN
1683: fnd_log.STRING
1684: (fnd_log.level_statement,
1685: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1686: 'Calling process_charge_lines to create charge lines '
1687: );
1688: END IF;
1689:
1704: THEN
1705: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1706: THEN
1707: fnd_log.STRING (fnd_log.level_statement,
1708: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1709: 'Error[' || SUBSTR (x_msg_data, 1, 200) || ']'
1710: );
1711: END IF;
1712:
1715:
1716: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1717: THEN
1718: fnd_log.STRING (fnd_log.level_statement,
1719: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1720: 'Created charge line[' || l_estimate_detail_id || ']'
1721: );
1722: END IF;
1723:
1726: --Update product_transaction_id in the Product_Txn_Rec.
1727: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1728: THEN
1729: fnd_log.STRING (fnd_log.level_statement,
1730: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1731: 'Creating product txn rec ..'
1732: );
1733: END IF;
1734:
1795:
1796: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1797: THEN
1798: fnd_log.STRING (fnd_log.level_statement,
1799: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1800: 'PRODUCT_TRANSACTION_ID='
1801: || p_product_txn_rec.product_transaction_id
1802: );
1803: END IF;
1817: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1818: THEN
1819: fnd_log.STRING
1820: (fnd_log.level_statement,
1821: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1822: 'Call CSD_PROCESS_PVT.APPLY_CONTRACT to apply contract '
1823: );
1824: END IF;
1825:
1839: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1840: THEN
1841: fnd_log.STRING
1842: (fnd_log.level_statement,
1843: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1844: 'apply_contract failed['
1845: || SUBSTR (x_msg_data, 1, 200)
1846: || ']'
1847: );
1873:
1874: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1875: THEN
1876: fnd_log.STRING (fnd_log.level_statement,
1877: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1878: 'calling CSD_PROCESS_PVT.PROCESS_SALES_ORDER to interface '
1879: || 'Charge line without booking'
1880: );
1881: END IF;
1901: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1903: THEN
1904: fnd_log.STRING (fnd_log.level_statement,
1905: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1906: 'process_sales_order failed['||x_msg_data||']');
1907: END IF;
1908: RAISE FND_API.G_EXC_ERROR;
1909: END IF;
1915:
1916: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1917: THEN
1918: fnd_log.STRING (fnd_log.level_statement,
1919: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1920: 'Booking charge line with CSD_PROCESS_PVT.PROCESS_SALES_ORDER API');
1921: END IF;
1922:
1923:
1936: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1937: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1938: THEN
1939: fnd_log.STRING (fnd_log.level_statement,
1940: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1941: 'process_sales_order failed ['||x_msg_Data||']');
1942: END IF;
1943: RAISE FND_API.G_EXC_ERROR;
1944: END IF;
1965: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1966: THEN
1967: fnd_log.STRING
1968: (fnd_log.level_statement,
1969: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1970: 'submit_Order failed ['
1971: || SUBSTR (x_msg_data, 1, 200)
1972: || ']'
1973: );
1982:
1983: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1984: THEN
1985: fnd_log.STRING (fnd_log.level_statement,
1986: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
1987: 'Updating repair status[' || l_ro_txn_status || ']'
1988: );
1989: END IF;
1990:
2004:
2005: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2006: THEN
2007: fnd_log.STRING (fnd_log.level_statement,
2008: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2009: 'Updating prod txn status[' || l_prod_txn_status
2010: || ']'
2011: );
2012: END IF;
2041:
2042: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2043: THEN
2044: fnd_log.STRING (fnd_log.level_procedure,
2045: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN.END',
2046: 'Leaving CREATE_PRODUCT_TXN'
2047: );
2048: END IF;
2049: EXCEPTION
2058:
2059: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2060: THEN
2061: fnd_log.STRING (fnd_log.level_error,
2062: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2063: 'EXC_ERROR[' || x_msg_data || ']'
2064: );
2065: END IF;
2066: WHEN fnd_api.g_exc_unexpected_error
2073:
2074: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2075: THEN
2076: fnd_log.STRING (fnd_log.level_exception,
2077: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2078: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']'
2079: );
2080: END IF;
2081: WHEN OTHERS
2094:
2095: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2096: THEN
2097: fnd_log.STRING (fnd_log.level_unexpected,
2098: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_PRODUCT_TXN',
2099: 'SQL Error[' || SQLERRM || ']'
2100: );
2101: END IF;
2102: END create_product_txn;
2145: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2146: THEN
2147: fnd_log.STRING
2148: (fnd_log.level_procedure,
2149: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE.BEGIN',
2150: 'Entered CREATE_ITEM_INSTANCE'
2151: );
2152: END IF;
2153:
2176:
2177: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2178: THEN
2179: fnd_log.STRING (fnd_log.level_statement,
2180: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2181: 'Finding party_site_Id for party_site_use_Id=['
2182: || px_instance_rec.party_site_use_id
2183: || ']'
2184: );
2203:
2204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2205: THEN
2206: fnd_log.STRING (fnd_log.level_statement,
2207: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2208: 'party_site_Id=[' || l_party_site_id || ']'
2209: );
2210: END IF;
2211:
2267:
2268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2269: THEN
2270: fnd_log.STRING (fnd_log.level_statement,
2271: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2272: 'Calling csi_item_instance_pub.create_item_instance'
2273: );
2274: END IF;
2275:
2314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2315: THEN
2316: fnd_log.STRING
2317: (fnd_log.level_procedure,
2318: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE.END',
2319: 'Leaving CREATE_ITEM_INSTANCE'
2320: );
2321: END IF;
2322: EXCEPTION
2331: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2332: THEN
2333: fnd_log.STRING
2334: (fnd_log.level_error,
2335: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2336: 'EXC_ERROR[' || x_msg_data || ']'
2337: );
2338: END IF;
2339: WHEN fnd_api.g_exc_unexpected_error
2347: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2348: THEN
2349: fnd_log.STRING
2350: (fnd_log.level_exception,
2351: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2352: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']'
2353: );
2354: END IF;
2355: WHEN OTHERS
2369: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2370: THEN
2371: fnd_log.STRING
2372: (fnd_log.level_unexpected,
2373: 'CSD.PLSQL.CSD_MASS_RCV_PVT.CREATE_ITEM_INSTANCE',
2374: 'SQL MEssage[' || SQLERRM || ']'
2375: );
2376: END IF;
2377: END create_item_instance;
2390: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2391: THEN
2392: fnd_log.STRING
2393: (fnd_log.level_procedure,
2394: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2395: 'Entered Validate_Product_Txn_Rec'
2396: );
2397: END IF;
2398:
2399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2400: THEN
2401: fnd_log.STRING
2402: (fnd_log.level_statement,
2403: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2404: 'Checking mandatory parameters'
2405: );
2406: END IF;
2407:
2458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2459: THEN
2460: fnd_log.STRING
2461: (fnd_log.level_statement,
2462: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2463: 'Validate repair line id'
2464: );
2465: END IF;
2466:
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 action type'
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 code'
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 product txn qty'
2515: );
2516: fnd_log.STRING
2517: (fnd_log.level_statement,
2514: 'Validate product txn qty'
2515: );
2516: fnd_log.STRING
2517: (fnd_log.level_statement,
2518: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2519: 'p_product_txn_rec.quantity =' || p_product_txn_rec.quantity
2520: );
2521: END IF;
2522:
2536: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2537: THEN
2538: fnd_log.STRING
2539: (fnd_log.level_statement,
2540: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2541: 'Validate_Quantity failed '
2542: );
2543: END IF;
2544:
2549: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2550: THEN
2551: fnd_log.STRING
2552: (fnd_log.level_statement,
2553: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC',
2554: 'Validate product txn status'
2555: );
2556: fnd_log.STRING
2557: (fnd_log.level_statement,
2554: 'Validate product txn status'
2555: );
2556: fnd_log.STRING
2557: (fnd_log.level_statement,
2558: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.BEGIN',
2559: 'p_product_txn_rec.PROD_TXN_STATUS ='
2560: || p_product_txn_rec.prod_txn_status
2561: );
2562: END IF;
2583: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2584: THEN
2585: fnd_log.STRING
2586: (fnd_log.level_procedure,
2587: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_PRODUCT_TXN_REC.END',
2588: 'Leaving Validate_Product_Txn_Rec'
2589: );
2590: END IF;
2591: END validate_product_txn_rec;
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.Is_Item_Pre_serialized.BEGIN',
2605: 'Entered Is_Item_Pre_serialized'
2606: );
2607: END IF;
2608:
2622: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2623: THEN
2624: fnd_log.STRING
2625: (fnd_log.level_procedure,
2626: 'CSD.PLSQL.CSD_MASS_RCV_PVT.Is_Item_Pre_serialized.END',
2627: 'Leaving Is_Item_Pre_serialized'
2628: );
2629: END IF;
2630: EXCEPTION
2712: BEGIN
2713: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2714: THEN
2715: fnd_log.STRING (fnd_log.level_procedure,
2716: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER.BEGIN',
2717: 'Entered Validate_order'
2718: );
2719: END IF;
2720:
2736:
2737: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2738: THEN
2739: fnd_log.STRING (fnd_log.level_statement,
2740: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2741: 'Sales Order missing for estimate_detail_id ='
2742: || p_est_detail_id
2743: );
2744: END IF;
2752: THEN
2753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2754: THEN
2755: fnd_log.STRING (fnd_log.level_statement,
2756: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2757: 'Too many order header ids'
2758: );
2759: END IF;
2760: END IF;
2774:
2775: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2776: THEN
2777: fnd_log.STRING (fnd_log.level_statement,
2778: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2779: 'Sales rep missing for Line_id='
2780: || l_order_line_id
2781: );
2782: END IF;
2790: THEN
2791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2792: THEN
2793: fnd_log.STRING (fnd_log.level_statement,
2794: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2795: 'Too many order ship_from_org_id'
2796: );
2797: END IF;
2798: END IF;
2807:
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: 'Ship from Org Id missing for Line_id='
2813: || l_order_line_id
2814: );
2815: END IF;
2825:
2826: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2827: THEN
2828: fnd_log.STRING (fnd_log.level_statement,
2829: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER',
2830: 'Unit Selling price missing for Line_id='
2831: || l_order_line_id
2832: );
2833: END IF;
2857:
2858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2859: THEN
2860: fnd_log.STRING (fnd_log.level_procedure,
2861: 'CSD.PLSQL.CSD_MASS_RCV_PVT.VALIDATE_ORDER.END',
2862: 'Leaving Validate_order'
2863: );
2864: END IF;
2865: END validate_order;
2886:
2887: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
2888: THEN
2889: fnd_log.STRING (fnd_log.level_error,
2890: 'CSD.PLSQL.CSD_MASS_RCV_PVT.log_error_stack',
2891: 'error[' || l_msg || ']'
2892: );
2893: END IF;
2894: END LOOP;
2972:
2973: END upd_instance;
2974:
2975:
2976: END csd_mass_rcv_pvt;