DBA Data[Home] [Help]

APPS.ZX_TRX_DETAIL dependencies on FND_LOG

Line 5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

1: PACKAGE BODY ZX_TRX_DETAIL AS
2: /* $Header: zxritsimdetailb.pls 120.50.12010000.1 2008/07/28 13:37:16 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:

Line 6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

2: /* $Header: zxritsimdetailb.pls 120.50.12010000.1 2008/07/28 13:37:16 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: TYPE var1_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;

Line 7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: TYPE var1_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
11: trx_line_type_tab var1_tab;

Line 8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: TYPE var1_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
11: trx_line_type_tab var1_tab;
12:

Line 291: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

287: AND TRX_LEVEL_TYPE = p_trx_level_type;
288:
289: BEGIN
290:
291: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
292:
293: IF (g_level_procedure >= g_current_runtime_level ) THEN
294: FND_LOG.STRING(g_level_procedure,
295: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row.BEGIN',

Line 294: FND_LOG.STRING(g_level_procedure,

290:
291: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
292:
293: IF (g_level_procedure >= g_current_runtime_level ) THEN
294: FND_LOG.STRING(g_level_procedure,
295: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row.BEGIN',
296: 'ZX_TRX_DETAIL: Insert_Row (+)');
297: FND_LOG.STRING(g_level_procedure,
298: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row',

Line 297: FND_LOG.STRING(g_level_procedure,

293: IF (g_level_procedure >= g_current_runtime_level ) THEN
294: FND_LOG.STRING(g_level_procedure,
295: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row.BEGIN',
296: 'ZX_TRX_DETAIL: Insert_Row (+)');
297: FND_LOG.STRING(g_level_procedure,
298: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row',
299: 'Insert into ZX_TRANSACTION_LINES (+)');
300: END IF;
301:

Line 559: FND_LOG.STRING(g_level_procedure,

555: END IF;
556: CLOSE C;
557:
558: IF (g_level_procedure >= g_current_runtime_level ) THEN
559: FND_LOG.STRING(g_level_procedure,
560: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row',
561: 'Insert into ZX_TRANSACTION_LINES (-)');
562: FND_LOG.STRING(g_level_procedure,
563: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row.END',

Line 562: FND_LOG.STRING(g_level_procedure,

558: IF (g_level_procedure >= g_current_runtime_level ) THEN
559: FND_LOG.STRING(g_level_procedure,
560: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row',
561: 'Insert into ZX_TRANSACTION_LINES (-)');
562: FND_LOG.STRING(g_level_procedure,
563: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Row.END',
564: 'ZX_TRX_DETAIL: Insert_Row (-)');
565: END IF;
566:

Line 816: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

812: l_msg_data VARCHAR2(240);
813: p_error_buffer VARCHAR2(100);
814:
815: BEGIN
816: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
817:
818: IF (g_level_procedure >= g_current_runtime_level ) THEN
819: FND_LOG.STRING(g_level_procedure,
820: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row.BEGIN',

Line 819: FND_LOG.STRING(g_level_procedure,

815: BEGIN
816: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
817:
818: IF (g_level_procedure >= g_current_runtime_level ) THEN
819: FND_LOG.STRING(g_level_procedure,
820: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row.BEGIN',
821: 'ZX_TRX_DETAIL: Update_Row (+)');
822: FND_LOG.STRING(g_level_procedure,
823: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row',

Line 822: FND_LOG.STRING(g_level_procedure,

818: IF (g_level_procedure >= g_current_runtime_level ) THEN
819: FND_LOG.STRING(g_level_procedure,
820: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row.BEGIN',
821: 'ZX_TRX_DETAIL: Update_Row (+)');
822: FND_LOG.STRING(g_level_procedure,
823: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row',
824: 'Update ZX_TRANSACTION_LINES (+)');
825: END IF;
826:

Line 935: FND_LOG.STRING(g_level_procedure,

931: AND TRX_LEVEL_TYPE = p_trx_level_type
932: AND TRX_LINE_ID = p_trx_line_id;
933:
934: IF (g_level_procedure >= g_current_runtime_level ) THEN
935: FND_LOG.STRING(g_level_procedure,
936: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row',
937: 'Update ZX_TRANSACTION_LINES (-)');
938: FND_LOG.STRING(g_level_procedure,
939: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row.END',

Line 938: FND_LOG.STRING(g_level_procedure,

934: IF (g_level_procedure >= g_current_runtime_level ) THEN
935: FND_LOG.STRING(g_level_procedure,
936: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row',
937: 'Update ZX_TRANSACTION_LINES (-)');
938: FND_LOG.STRING(g_level_procedure,
939: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Row.END',
940: 'ZX_TRX_DETAIL: Update_Row (-)');
941: END IF;
942:

Line 964: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

960: l_error_buffer VARCHAR2(100);
961: l_transaction_line_rec ZX_API_PUB.transaction_line_rec_type;
962:
963: BEGIN
964: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
965:
966: IF (g_level_procedure >= g_current_runtime_level ) THEN
967: FND_LOG.STRING(g_level_procedure,
968: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row.BEGIN',

Line 967: FND_LOG.STRING(g_level_procedure,

963: BEGIN
964: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
965:
966: IF (g_level_procedure >= g_current_runtime_level ) THEN
967: FND_LOG.STRING(g_level_procedure,
968: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row.BEGIN',
969: 'ZX_TRX_DETAIL: Delete_Row (+)');
970: END IF;
971:

Line 973: FND_LOG.STRING(g_level_procedure,

969: 'ZX_TRX_DETAIL: Delete_Row (+)');
970: END IF;
971:
972: IF (g_level_procedure >= g_current_runtime_level ) THEN
973: FND_LOG.STRING(g_level_procedure,
974: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row',
975: 'Deleting ZX_TRANSACTION_LINES');
976: END IF;
977:

Line 987: FND_LOG.STRING(g_level_procedure,

983: AND TRX_LEVEL_TYPE = p_trx_level_type
984: AND TRX_LINE_ID = p_trx_line_id;
985:
986: IF (g_level_procedure >= g_current_runtime_level ) THEN
987: FND_LOG.STRING(g_level_procedure,
988: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row',
989: 'Deleted ZX_TRANSACTION_LINES');
990: FND_LOG.STRING(g_level_procedure,
991: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row',

Line 990: FND_LOG.STRING(g_level_procedure,

986: IF (g_level_procedure >= g_current_runtime_level ) THEN
987: FND_LOG.STRING(g_level_procedure,
988: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row',
989: 'Deleted ZX_TRANSACTION_LINES');
990: FND_LOG.STRING(g_level_procedure,
991: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row',
992: 'Calling ZX_API_PUB.Mark_tax_lines_deleted');
993: END IF;
994:

Line 1020: FND_LOG.STRING(g_level_procedure,

1016: RETURN;
1017: END IF;
1018:
1019: IF (g_level_procedure >= g_current_runtime_level ) THEN
1020: FND_LOG.STRING(g_level_procedure,
1021: 'ZX.PLSQL.ZX_TRX_DETAIL.Delete_Row.END',
1022: 'ZX_TRX_DETAIL: Delete_Row (-)');
1023: END IF;
1024:

Line 1395: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1391: p_error_buffer VARCHAR2(100);
1392:
1393: BEGIN
1394:
1395: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1396: IF (g_level_procedure >= g_current_runtime_level ) THEN
1397: FND_LOG.STRING(g_level_procedure,
1398: 'ZX.PLSQL.ZX_TRX_DETAIL.Lock_row.BEGIN',
1399: 'ZX_TRX_DETAIL: Lock_row (+)');

Line 1397: FND_LOG.STRING(g_level_procedure,

1393: BEGIN
1394:
1395: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1396: IF (g_level_procedure >= g_current_runtime_level ) THEN
1397: FND_LOG.STRING(g_level_procedure,
1398: 'ZX.PLSQL.ZX_TRX_DETAIL.Lock_row.BEGIN',
1399: 'ZX_TRX_DETAIL: Lock_row (+)');
1400: END IF;
1401:

Line 1715: FND_LOG.STRING(g_level_procedure,

1711: APP_EXCEPTION.Raise_Exception;
1712: END IF;
1713:
1714: IF (g_level_procedure >= g_current_runtime_level ) THEN
1715: FND_LOG.STRING(g_level_procedure,
1716: 'ZX.PLSQL.ZX_TRX_DETAIL.Lock_row.END',
1717: 'ZX_TRX_DETAIL: Lock_row (-)');
1718: END IF;
1719:

Line 1728: FND_LOG.STRING(g_level_unexpected,

1724: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
1725: FND_MSG_PUB.Add;
1726:
1727: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1728: FND_LOG.STRING(g_level_unexpected,
1729: 'ZX.PLSQL.ZX_TRX_DETAIL.Lock_Row',
1730: p_error_buffer);
1731: END IF;
1732:

Line 1795: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1791: AND TRX_LINE_TYPE <> 'TAX';
1792:
1793: BEGIN
1794:
1795: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1796:
1797: IF (g_level_procedure >= g_current_runtime_level ) THEN
1798: FND_LOG.STRING(g_level_procedure,
1799: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table.BEGIN',

Line 1798: FND_LOG.STRING(g_level_procedure,

1794:
1795: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1796:
1797: IF (g_level_procedure >= g_current_runtime_level ) THEN
1798: FND_LOG.STRING(g_level_procedure,
1799: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table.BEGIN',
1800: 'ZX_TRX_DETAIL: Insert_Temporary_Table (+)');
1801: FND_LOG.STRING(g_level_procedure,
1802: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',

Line 1801: FND_LOG.STRING(g_level_procedure,

1797: IF (g_level_procedure >= g_current_runtime_level ) THEN
1798: FND_LOG.STRING(g_level_procedure,
1799: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table.BEGIN',
1800: 'ZX_TRX_DETAIL: Insert_Temporary_Table (+)');
1801: FND_LOG.STRING(g_level_procedure,
1802: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
1803: 'Event: Event Type Code :'||p_event_type_code);
1804:
1805: END IF;

Line 1809: FND_LOG.STRING(g_level_procedure,

1805: END IF;
1806:
1807:
1808: IF (g_level_procedure >= g_current_runtime_level ) THEN
1809: FND_LOG.STRING(g_level_procedure,
1810: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Tables',
1811: 'Insert into zx_trx_headers_gt (+)');
1812: END IF;
1813:

Line 1992: FND_LOG.STRING(g_level_procedure,

1988: AND EVENT_CLASS_CODE = p_event_class_code
1989: AND TRX_ID = p_trx_id;
1990:
1991: IF (g_level_procedure >= g_current_runtime_level ) THEN
1992: FND_LOG.STRING(g_level_procedure,
1993: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
1994: 'Insert into zx_trx_headers_gt (-)');
1995: END IF;
1996:

Line 1998: FND_LOG.STRING(g_level_procedure,

1994: 'Insert into zx_trx_headers_gt (-)');
1995: END IF;
1996:
1997: IF (g_level_procedure >= g_current_runtime_level ) THEN
1998: FND_LOG.STRING(g_level_procedure,
1999: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2000: 'Insert into ZX_TRANSACTION_LINES_GT (+)');
2001: END IF;
2002:

Line 2396: FND_LOG.STRING(g_level_procedure,

2392: AND TRX_LINE_TYPE <> 'TAX';
2393:
2394:
2395: IF (g_level_procedure >= g_current_runtime_level ) THEN
2396: FND_LOG.STRING(g_level_procedure,
2397: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2398: 'Insert to ZX_TRANSACTION_LINES_GT, count : ' ||
2399: TO_CHAR(SQL%ROWCOUNT));
2400: FND_LOG.STRING(g_level_procedure,

Line 2400: FND_LOG.STRING(g_level_procedure,

2396: FND_LOG.STRING(g_level_procedure,
2397: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2398: 'Insert to ZX_TRANSACTION_LINES_GT, count : ' ||
2399: TO_CHAR(SQL%ROWCOUNT));
2400: FND_LOG.STRING(g_level_procedure,
2401: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2402: 'Insert into ZX_TRANSACTION_LINES_GT (-)');
2403: END IF;
2404:

Line 2500: FND_LOG.STRING(g_level_procedure,

2496:
2497: IF p_status = 'SIMULATOR_CONDITIONS' THEN
2498: IF (g_level_procedure >= g_current_runtime_level ) THEN
2499:
2500: FND_LOG.STRING(g_level_procedure,
2501: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2502: 'API ZX_SIM_CONDITIONS_PKG.create_sim_conditions (+)');
2503: END IF;
2504:

Line 2510: FND_LOG.STRING(g_level_procedure,

2506: p_error_buffer => l_msg_data);
2507:
2508: IF (g_level_procedure >= g_current_runtime_level ) THEN
2509:
2510: FND_LOG.STRING(g_level_procedure,
2511: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2512: 'API ZX_SIM_CONDITIONS_PKG.create_sim_conditions (-)');
2513: END IF;
2514:

Line 2520: FND_LOG.STRING(g_level_procedure,

2516: ELSIF p_event_type_code = 'STANDARD UPDATED' AND
2517: p_line_level_action = 'SYNCHRONIZE' THEN
2518:
2519: IF (g_level_procedure >= g_current_runtime_level ) THEN
2520: FND_LOG.STRING(g_level_procedure,
2521: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2522: 'API zx_api_pub.synchronize_tax_repository (+)');
2523: END IF;
2524:

Line 2555: FND_LOG.STRING(g_level_procedure,

2551: x_msg_count => l_msg_count,
2552: x_msg_data => l_msg_data);
2553:
2554: IF (g_level_procedure >= g_current_runtime_level ) THEN
2555: FND_LOG.STRING(g_level_procedure,
2556: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2557: 'After calling ZX_API_PUB.CALCULATE_TAX from 1,' ||
2558: 'l_return_status : ' || TO_CHAR(l_return_status) ||
2559: ' ' || 'l_msg_count :' || TO_CHAR(l_msg_count));

Line 2612: FND_LOG.STRING(g_level_procedure,

2608: x_msg_data => l_msg_data);
2609:
2610:
2611: IF (g_level_procedure >= g_current_runtime_level ) THEN
2612: FND_LOG.STRING(g_level_procedure,
2613: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2614: 'After calling ZX_API_PUB.CALCULATE_TAX from 2, ' ||
2615: 'l_return_status : ' || TO_CHAR(l_return_status) ||
2616: ' ' || 'l_msg_count :' || TO_CHAR(l_msg_count));

Line 2642: FND_LOG.STRING(g_level_procedure,

2638: END IF;
2639: END;
2640:
2641: IF (g_level_procedure >= g_current_runtime_level ) THEN
2642: FND_LOG.STRING(g_level_procedure,
2643: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2644: 'API zx_api_pub.synchronize_tax_repository (-)');
2645: END IF;
2646:

Line 2650: FND_LOG.STRING(g_level_procedure,

2646:
2647: ELSE
2648:
2649: IF (g_level_procedure >= g_current_runtime_level ) THEN
2650: FND_LOG.STRING(g_level_procedure,
2651: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2652: 'API zx_api_pub.calculate_tax for CREATE (+)');
2653: END IF;
2654:

Line 2665: FND_LOG.STRING(g_level_procedure,

2661: x_msg_count => l_msg_count,
2662: x_msg_data => l_msg_data);
2663:
2664: IF (g_level_procedure >= g_current_runtime_level ) THEN
2665: FND_LOG.STRING(g_level_procedure,
2666: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2667: 'After calling ZX_API_PUB.CALCULATE_TAX from 3,' ||
2668: 'l_return_status : ' || TO_CHAR(l_return_status) ||
2669: ' ' || 'l_msg_count :' || TO_CHAR(l_msg_count));

Line 2701: FND_LOG.STRING(g_level_procedure,

2697: l_error_buffer,
2698: 'N');
2699:
2700: IF (g_level_procedure >= g_current_runtime_level ) THEN
2701: FND_LOG.STRING(g_level_procedure,
2702: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2703: 'API zx_api_pub.calculate_tax for CREATE (-)');
2704: END IF;
2705:

Line 2712: FND_LOG.STRING(g_level_procedure,

2708:
2709: IF l_return_status = 'S' THEN
2710:
2711: IF (g_level_procedure >= g_current_runtime_level ) THEN
2712: FND_LOG.STRING(g_level_procedure,
2713: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2714: 'Update_Transaction_Lines (+)');
2715: END IF;
2716:

Line 2718: FND_LOG.STRING(g_level_procedure,

2714: 'Update_Transaction_Lines (+)');
2715: END IF;
2716:
2717: IF (g_level_procedure >= g_current_runtime_level ) THEN
2718: FND_LOG.STRING(g_level_procedure,
2719: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2720: 'Update_Transaction_Lines (-)');
2721: END IF;
2722:

Line 2726: FND_LOG.STRING(g_level_procedure,

2722:
2723: END IF;
2724:
2725: IF (g_level_procedure >= g_current_runtime_level ) THEN
2726: FND_LOG.STRING(g_level_procedure,
2727: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2728: 'Return Status = ' || l_return_status);
2729: END IF;
2730: END;

Line 2733: FND_LOG.STRING(g_level_procedure,

2729: END IF;
2730: END;
2731:
2732: IF (g_level_procedure >= g_current_runtime_level ) THEN
2733: FND_LOG.STRING(g_level_procedure,
2734: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table.END',
2735: 'ZX_TRX_DETAIL: Insert_Temporary_Table (-)');
2736: END IF;
2737:

Line 2747: FND_LOG.STRING(g_level_unexpected,

2743: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
2744: FND_MSG_PUB.Add;
2745:
2746: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2747: FND_LOG.STRING(g_level_unexpected,
2748: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
2749: l_error_buffer);
2750: END IF;
2751: END Insert_Temporary_Table;

Line 2782: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

2778: Recinfo TRX_LINE_TAX%ROWTYPE;
2779:
2780: BEGIN
2781:
2782: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2783: IF (g_level_procedure >= g_current_runtime_level ) THEN
2784: FND_LOG.STRING(g_level_procedure,
2785: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines.BEGIN',
2786: 'ZX_TRX_DETAIL: Update_Transaction_Lines (+)');

Line 2784: FND_LOG.STRING(g_level_procedure,

2780: BEGIN
2781:
2782: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2783: IF (g_level_procedure >= g_current_runtime_level ) THEN
2784: FND_LOG.STRING(g_level_procedure,
2785: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines.BEGIN',
2786: 'ZX_TRX_DETAIL: Update_Transaction_Lines (+)');
2787: END IF;
2788:

Line 2794: FND_LOG.STRING(g_level_procedure,

2790: OPEN TRX_LINE_TAX;
2791: debug_info := 'Fetch cursor TRX_LINE_TAX';
2792:
2793: IF (g_level_procedure >= g_current_runtime_level ) THEN
2794: FND_LOG.STRING(g_level_procedure,
2795: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2796: 'Update ZX_TRANSACTION_LINES (+)');
2797: END IF;
2798:

Line 2800: FND_LOG.STRING(g_level_procedure,

2796: 'Update ZX_TRANSACTION_LINES (+)');
2797: END IF;
2798:
2799: IF (g_level_procedure >= g_current_runtime_level ) THEN
2800: FND_LOG.STRING(g_level_procedure,
2801: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2802: 'Delete ZX_TRANSACTION_LINES (+)');
2803: END IF;
2804:

Line 2815: FND_LOG.STRING(g_level_procedure,

2811:
2812: --commit;
2813:
2814: IF (g_level_procedure >= g_current_runtime_level ) THEN
2815: FND_LOG.STRING(g_level_procedure,
2816: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2817: 'Delete ZX_TRANSACTION_LINES (-)');
2818: END IF;
2819:

Line 2832: FND_LOG.STRING(g_level_procedure,

2828: APP_EXCEPTION.Raise_Exception;
2829: END IF;
2830:
2831: IF (g_level_procedure >= g_current_runtime_level ) THEN
2832: FND_LOG.STRING(g_level_procedure,
2833: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2834: 'Insert ZX_TRANSACTION_LINES (+)');
2835: END IF;
2836:

Line 2888: FND_LOG.STRING(g_level_procedure,

2884: debug_info := 'Close cursor TRX_LINE_TAX';
2885: CLOSE TRX_LINE_TAX;
2886:
2887: IF (g_level_procedure >= g_current_runtime_level ) THEN
2888: FND_LOG.STRING(g_level_procedure,
2889: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2890: 'Insert ZX_TRANSACTION_LINES (-)');
2891: END IF;
2892:

Line 2894: FND_LOG.STRING(g_level_procedure,

2890: 'Insert ZX_TRANSACTION_LINES (-)');
2891: END IF;
2892:
2893: IF (g_level_procedure >= g_current_runtime_level ) THEN
2894: FND_LOG.STRING(g_level_procedure,
2895: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2896: 'Update ZX_TRANSACTION_LINES (-)');
2897: FND_LOG.STRING(g_level_procedure,
2898: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines.END',

Line 2897: FND_LOG.STRING(g_level_procedure,

2893: IF (g_level_procedure >= g_current_runtime_level ) THEN
2894: FND_LOG.STRING(g_level_procedure,
2895: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2896: 'Update ZX_TRANSACTION_LINES (-)');
2897: FND_LOG.STRING(g_level_procedure,
2898: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines.END',
2899: 'ZX_TRX_DETAIL: Update_Transaction_Lines (-)');
2900: END IF;
2901:

Line 2911: FND_LOG.STRING(g_level_unexpected,

2907: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
2908: FND_MSG_PUB.Add;
2909:
2910: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2911: FND_LOG.STRING(g_level_unexpected,
2912: 'ZX.PLSQL.ZX_TRX_DETAIL.Update_Transaction_Lines',
2913: p_error_buffer);
2914: END IF;
2915: END Update_Transaction_Lines;

Line 2943: FND_LOG.STRING(g_level_statement,

2939:
2940: BEGIN
2941:
2942: IF (g_level_statement >= g_current_runtime_level ) THEN
2943: FND_LOG.STRING(g_level_statement,
2944: 'ZX.PLSQL.ZX_TRX_DETAIL.mark_reporting_only_flag.BEGIN',
2945: 'ZX_TRX_DETAIL: mark_reporting_only_flag(+)');
2946: END IF;
2947:

Line 2974: FND_LOG.STRING(g_level_procedure,

2970:
2971: END IF;
2972:
2973: IF (g_level_procedure >= g_current_runtime_level ) THEN
2974: FND_LOG.STRING(g_level_procedure,
2975: 'ZX.PLSQL.ZX_TRX_DETAIL.mark_reporting_only_flag.END',
2976: 'ZX_TRX_DETAIL: mark_reporting_only_flag (-)');
2977: END IF;
2978:

Line 2987: FND_LOG.STRING(g_level_unexpected,

2983: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
2984: FND_MSG_PUB.Add;
2985:
2986: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2987: FND_LOG.STRING(g_level_unexpected,
2988: 'ZX.PLSQL.ZX_TRX_DETAIL.mark_reporting_only_flag',
2989: p_error_buffer);
2990: END IF;
2991:

Line 3016: FND_LOG.STRING(g_level_statement,

3012: IS
3013: BEGIN
3014:
3015: IF (g_level_statement >= g_current_runtime_level ) THEN
3016: FND_LOG.STRING(g_level_statement,
3017: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge.BEGIN',
3018: 'ZX_TRX_DETAIL: perform_purge(+)');
3019: END IF;
3020:

Line 3024: FND_LOG.STRING(g_level_statement,

3020:
3021: p_return_status := FND_API.G_RET_STS_SUCCESS;
3022:
3023: IF (g_level_statement >= g_current_runtime_level ) THEN
3024: FND_LOG.STRING(g_level_statement,
3025: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3026: 'Deleting rows from ZX_LINES');
3027: END IF;
3028:

Line 3037: FND_LOG.STRING(g_level_statement,

3033: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3034: AND TRX_ID = p_trx_id_tbl(i);
3035:
3036: IF (g_level_statement >= g_current_runtime_level ) THEN
3037: FND_LOG.STRING(g_level_statement,
3038: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3039: 'Deleting rows from ZX_LINES_SUMMARY');
3040: END IF;
3041:

Line 3050: FND_LOG.STRING(g_level_statement,

3046: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3047: AND TRX_ID = p_trx_id_tbl(i);
3048:
3049: IF (g_level_statement >= g_current_runtime_level ) THEN
3050: FND_LOG.STRING(g_level_statement,
3051: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3052: 'Deleting rows from ZX_REC_NREC_DIST');
3053: END IF;
3054:

Line 3063: FND_LOG.STRING(g_level_statement,

3059: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3060: AND TRX_ID = p_trx_id_tbl(i);
3061:
3062: IF (g_level_statement >= g_current_runtime_level ) THEN
3063: FND_LOG.STRING(g_level_statement,
3064: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3065: 'Deleting rows from ZX_LINES_DET_FACTORS');
3066: END IF;
3067:

Line 3076: FND_LOG.STRING(g_level_statement,

3072: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3073: AND TRX_ID = p_trx_id_tbl(i);
3074:
3075: IF (g_level_statement >= g_current_runtime_level ) THEN
3076: FND_LOG.STRING(g_level_statement,
3077: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3078: 'Deleting rows from ZX_TRANSACTION');
3079: END IF;
3080:

Line 3089: FND_LOG.STRING(g_level_statement,

3085: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3086: AND TRX_ID = p_trx_id_tbl(i);
3087:
3088: IF (g_level_statement >= g_current_runtime_level ) THEN
3089: FND_LOG.STRING(g_level_statement,
3090: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3091: 'Deleting rows from ZX_TRANSACTION_LINES');
3092: END IF;
3093:

Line 3102: FND_LOG.STRING(g_level_statement,

3098: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3099: AND TRX_ID = p_trx_id_tbl(i);
3100:
3101: IF (g_level_statement >= g_current_runtime_level ) THEN
3102: FND_LOG.STRING(g_level_statement,
3103: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3104: 'Deleting rows from ZX_SIM_TRX_DISTS');
3105: END IF;
3106:

Line 3115: FND_LOG.STRING(g_level_procedure,

3111: AND EVENT_CLASS_CODE = p_event_class_code_tbl(i)
3112: AND TRX_ID = p_trx_id_tbl(i);
3113:
3114: IF (g_level_procedure >= g_current_runtime_level ) THEN
3115: FND_LOG.STRING(g_level_procedure,
3116: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge.END',
3117: 'ZX_TRX_DETAIL: perform_purge (-)');
3118: END IF;
3119:

Line 3128: FND_LOG.STRING(g_level_unexpected,

3124: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3125: FND_MSG_PUB.Add;
3126:
3127: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3128: FND_LOG.STRING(g_level_unexpected,
3129: 'ZX.PLSQL.ZX_TRX_DETAIL.perform_purge',
3130: p_error_buffer);
3131: END IF;
3132:

Line 3169: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

3165: WHERE TRX_ID = c_trx_id;
3166:
3167: BEGIN
3168:
3169: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3170:
3171: IF (g_level_statement >= g_current_runtime_level ) THEN
3172: FND_LOG.STRING(g_level_statement,
3173: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.BEGIN',

Line 3172: FND_LOG.STRING(g_level_statement,

3168:
3169: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3170:
3171: IF (g_level_statement >= g_current_runtime_level ) THEN
3172: FND_LOG.STRING(g_level_statement,
3173: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.BEGIN',
3174: 'ZX_TRX_DETAIL: process_purge(+)');
3175: FND_LOG.STRING(g_level_statement,
3176: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',

Line 3175: FND_LOG.STRING(g_level_statement,

3171: IF (g_level_statement >= g_current_runtime_level ) THEN
3172: FND_LOG.STRING(g_level_statement,
3173: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.BEGIN',
3174: 'ZX_TRX_DETAIL: process_purge(+)');
3175: FND_LOG.STRING(g_level_statement,
3176: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3177: 'p_trx_id = ' || TO_CHAR(p_trx_id));
3178: END IF;
3179:

Line 3205: FND_LOG.STRING(g_level_procedure,

3201: --
3202: -- delete row from ZX_SIM_PURGE table
3203: --
3204: IF (g_level_procedure >= g_current_runtime_level ) THEN
3205: FND_LOG.STRING(g_level_procedure,
3206: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3207: 'Deleting from ZX_SIM_PURGE table');
3208: END IF;
3209:

Line 3215: FND_LOG.STRING(g_level_procedure,

3211: WHERE TRX_ID = p_trx_id;
3212: END IF;
3213:
3214: IF (g_level_procedure >= g_current_runtime_level ) THEN
3215: FND_LOG.STRING(g_level_procedure,
3216: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.END',
3217: 'ZX_TRX_DETAIL: process_purge (-)');
3218: END IF;
3219:

Line 3228: FND_LOG.STRING(g_level_unexpected,

3224: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3225: FND_MSG_PUB.Add;
3226:
3227: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3228: FND_LOG.STRING(g_level_unexpected,
3229: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3230: l_error_buffer);
3231: END IF;
3232:

Line 3267: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

3263: FROM ZX_SIM_PURGE;
3264:
3265: BEGIN
3266:
3267: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3268:
3269: IF (g_level_statement >= g_current_runtime_level ) THEN
3270: FND_LOG.STRING(g_level_statement,
3271: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.BEGIN',

Line 3270: FND_LOG.STRING(g_level_statement,

3266:
3267: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3268:
3269: IF (g_level_statement >= g_current_runtime_level ) THEN
3270: FND_LOG.STRING(g_level_statement,
3271: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.BEGIN',
3272: 'ZX_TRX_DETAIL: process_purge(+)');
3273: END IF;
3274:

Line 3289: FND_LOG.STRING(g_level_statement,

3285:
3286: l_count := l_trx_id_tbl.COUNT;
3287:
3288: IF (g_level_statement >= g_current_runtime_level ) THEN
3289: FND_LOG.STRING(g_level_statement,
3290: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3291: 'l_count = ' || TO_CHAR(l_count));
3292: END IF;
3293:

Line 3323: FND_LOG.STRING(g_level_procedure,

3319: --
3320: -- delete ZX_SIM_PURGE table
3321: --
3322: IF (g_level_procedure >= g_current_runtime_level ) THEN
3323: FND_LOG.STRING(g_level_procedure,
3324: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3325: 'Deleting ZX_SIM_PURGE table');
3326: END IF;
3327:

Line 3333: FND_LOG.STRING(g_level_procedure,

3329:
3330: END IF;
3331:
3332: IF (g_level_procedure >= g_current_runtime_level ) THEN
3333: FND_LOG.STRING(g_level_procedure,
3334: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge.END',
3335: 'ZX_TRX_DETAIL: process_purge (-)');
3336: END IF;
3337:

Line 3346: FND_LOG.STRING(g_level_unexpected,

3342: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3343: FND_MSG_PUB.Add;
3344:
3345: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3346: FND_LOG.STRING(g_level_unexpected,
3347: 'ZX.PLSQL.ZX_TRX_DETAIL.process_purge',
3348: l_error_buffer);
3349: END IF;
3350:

Line 3375: FND_LOG.STRING(g_level_procedure,

3371: l_msg_data VARCHAR2(1000);
3372:
3373: BEGIN
3374: IF (g_level_procedure >= g_current_runtime_level ) THEN
3375: FND_LOG.STRING(g_level_procedure,
3376: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax.BEGIN',
3377: 'ZX_TRX_DETAIL: process_import_doc_with_tax(+)');
3378: FND_LOG.STRING(g_level_procedure,
3379: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',

Line 3378: FND_LOG.STRING(g_level_procedure,

3374: IF (g_level_procedure >= g_current_runtime_level ) THEN
3375: FND_LOG.STRING(g_level_procedure,
3376: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax.BEGIN',
3377: 'ZX_TRX_DETAIL: process_import_doc_with_tax(+)');
3378: FND_LOG.STRING(g_level_procedure,
3379: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3380: 'Inserting into ZX_IMPORT_TAX_LINES_GT (+)');
3381: END IF;
3382:

Line 3421: FND_LOG.STRING(g_level_procedure,

3417: AND TRL.TRX_LINE_TYPE = 'TAX';
3418:
3419: IF (g_level_procedure >= g_current_runtime_level ) THEN
3420:
3421: FND_LOG.STRING(g_level_procedure,
3422: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3423: 'Inserted into ZX_IMPORT_TAX_LINES_GT (-)');
3424: FND_LOG.STRING(g_level_procedure,
3425: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',

Line 3424: FND_LOG.STRING(g_level_procedure,

3420:
3421: FND_LOG.STRING(g_level_procedure,
3422: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3423: 'Inserted into ZX_IMPORT_TAX_LINES_GT (-)');
3424: FND_LOG.STRING(g_level_procedure,
3425: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3426: 'calling ZX_API_PUB.IMPORT_DOCUMENT_WITH_TAX (+)');
3427: END IF;
3428:

Line 3439: FND_LOG.STRING(g_level_procedure,

3435: x_return_status => l_return_status,
3436: x_msg_count => l_msg_count,
3437: x_msg_data => l_msg_data);
3438: IF (g_level_procedure >= g_current_runtime_level ) THEN
3439: FND_LOG.STRING(g_level_procedure,
3440: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3441: 'calling ZX_API_PUB.IMPORT_DOCUMENT_WITH_TAX (-)');
3442:
3443: FND_LOG.STRING(g_level_procedure,

Line 3443: FND_LOG.STRING(g_level_procedure,

3439: FND_LOG.STRING(g_level_procedure,
3440: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3441: 'calling ZX_API_PUB.IMPORT_DOCUMENT_WITH_TAX (-)');
3442:
3443: FND_LOG.STRING(g_level_procedure,
3444: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax.END',
3445: 'ZX_TRX_DETAIL: process_import_doc_with_tax(-)');
3446: END IF;
3447:

Line 3457: FND_LOG.STRING(g_level_unexpected,

3453: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3454: FND_MSG_PUB.Add;
3455:
3456: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3457: FND_LOG.STRING(g_level_unexpected,
3458: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax',
3459: l_error_buffer);
3460: END IF;
3461:

Line 3509: FND_LOG.STRING(g_level_procedure,

3505:
3506:
3507: BEGIN
3508: IF (g_level_procedure >= g_current_runtime_level ) THEN
3509: FND_LOG.STRING(g_level_procedure,
3510: 'ZX.PLSQL.ZX_TRX_DETAIL.get_error_msg.BEGIN',
3511: 'ZX_TRX_DETAIL: get_error_msg(+)');
3512: END IF;
3513:

Line 3549: FND_LOG.STRING(g_level_procedure,

3545:
3546: l_count := l_msg_string_tbl.COUNT;
3547:
3548: IF (g_level_procedure >= g_current_runtime_level ) THEN
3549: FND_LOG.STRING(g_level_procedure,
3550: 'ZX.PLSQL.ZX_TRX_DETAIL.get_error_msg',
3551: 'Count in zx_errors_gt: ' ||
3552: TO_CHAR(l_count));
3553: END IF;

Line 3571: FND_LOG.STRING(g_level_procedure,

3567: END LOOP;
3568: END IF;
3569:
3570: IF (g_level_procedure >= g_current_runtime_level ) THEN
3571: FND_LOG.STRING(g_level_procedure,
3572: 'ZX.PLSQL.ZX_TRX_DETAIL.get_error_msg.END',
3573: 'ZX_TRX_DETAIL: get_error_msg(-)');
3574: END IF;
3575:

Line 3579: FND_LOG.STRING(g_level_unexpected,

3575:
3576: EXCEPTION
3577: WHEN OTHERS THEN
3578: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3579: FND_LOG.STRING(g_level_unexpected,
3580: 'ZX.PLSQL.ZX_TRX_DETAIL.get_error_msg',
3581: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3582: END IF;
3583: