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;
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',
299: 'Insert into ZX_TRANSACTION_LINES (+)');
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',
299: 'Insert into ZX_TRANSACTION_LINES (+)');
300: END IF;
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:
302: --IF p_trx_line_number IS NOT NULL THEN
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',
564: 'ZX_TRX_DETAIL: Insert_Row (-)');
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:
567: END Insert_row;
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:
567: END Insert_row;
568:
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',
824: 'Update ZX_TRANSACTION_LINES (+)');
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',
824: 'Update ZX_TRANSACTION_LINES (+)');
825: END IF;
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:
827:
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',
940: 'ZX_TRX_DETAIL: Update_Row (-)');
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:
943: END Update_row;
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:
943: END Update_row;
944:
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:
972: IF (g_level_procedure >= g_current_runtime_level ) THEN
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:
972: IF (g_level_procedure >= g_current_runtime_level ) THEN
973: FND_LOG.STRING(g_level_procedure,
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:
978: DELETE ZX_TRANSACTION_LINES
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',
992: 'Calling ZX_API_PUB.Mark_tax_lines_deleted');
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:
995: l_transaction_line_rec.INTERNAL_ORGANIZATION_ID := p_internal_organization_id;
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:
1025: END Delete_row;
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:
1025: END Delete_row;
1026:
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:
1402: debug_info := 'Open cursor C';
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:
1402: debug_info := 'Open cursor C';
1403: OPEN C;
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:
1720: EXCEPTION
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:
1720: EXCEPTION
1721: WHEN OTHERS THEN
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:
1733: END Lock_Row;
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',
1803: 'Event: Event Type Code :'||p_event_type_code);
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',
1803: 'Event: Event Type Code :'||p_event_type_code);
1804:
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;
1806:
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:
1814: INSERT INTO ZX_TRX_HEADERS_GT (INTERNAL_ORGANIZATION_ID,
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:
1997: IF (g_level_procedure >= g_current_runtime_level ) THEN
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:
2003: INSERT INTO ZX_TRANSACTION_LINES_GT (APPLICATION_ID,
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,
2401: 'ZX.PLSQL.ZX_TRX_DETAIL.Insert_Temporary_Table',
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:
2405: IF p_status = 'SIMULATOR_IMPORT' THEN
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:
2505: ZX_SIM_CONDITIONS_PKG.create_sim_conditions(p_return_status => l_return_status,
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:
2515:
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:
2525: BEGIN
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));
2560: END IF;
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));
2617: 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:
2647: ELSE
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:
2655:
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));
2670: END IF;
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:
2706:
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:
2717: IF (g_level_procedure >= g_current_runtime_level ) THEN
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:
2723: END IF;
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;
2731:
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:
2738: EXCEPTION
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:
2738: EXCEPTION
2739: WHEN OTHERS THEN
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;
2752:
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:
2789: debug_info := 'Open cursor TRX_LINE_TAX';
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:
2789: debug_info := 'Open cursor TRX_LINE_TAX';
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:
2799: IF (g_level_procedure >= g_current_runtime_level ) THEN
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:
2805: DELETE FROM ZX_TRANSACTION_LINES
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:
2820: LOOP
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:
2837: INSERT INTO ZX_TRANSACTION_LINES (APPLICATION_ID,
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:
2893: IF (g_level_procedure >= g_current_runtime_level ) THEN
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',
2899: 'ZX_TRX_DETAIL: Update_Transaction_Lines (-)');
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:
2902: EXCEPTION
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:
2902: EXCEPTION
2903: WHEN OTHERS THEN
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;
2916: ************************************************************/
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:
2948: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2948: p_return_status := FND_API.G_RET_STS_SUCCESS;
2949:
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:
2979: EXCEPTION
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:
2979: EXCEPTION
2980: WHEN OTHERS THEN
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:
2992: END mark_reporting_only_flag;
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:
3021: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3021: p_return_status := FND_API.G_RET_STS_SUCCESS;
3022:
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:
3029: FORALL i IN 1 .. p_count
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:
3042: FORALL i IN 1 .. p_count
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:
3055: FORALL i IN 1 .. p_count
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:
3068: FORALL i IN 1 .. p_count
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:
3081: FORALL i IN 1 .. p_count
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:
3094: FORALL i IN 1 .. p_count
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:
3107: FORALL i IN 1 .. p_count
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:
3120: EXCEPTION
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:
3120: EXCEPTION
3121: WHEN OTHERS THEN
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:
3133: END perform_purge;
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',
3177: 'p_trx_id = ' || TO_CHAR(p_trx_id));
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',
3177: 'p_trx_id = ' || TO_CHAR(p_trx_id));
3178: END IF;
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:
3180: l_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3210: DELETE ZX_SIM_PURGE
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:
3220: EXCEPTION
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:
3220: EXCEPTION
3221: WHEN OTHERS THEN
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:
3233: END process_purge;
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:
3275: l_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3275: l_return_status := FND_API.G_RET_STS_SUCCESS;
3276:
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:
3294: IF l_count > 0 THEN
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:
3328: DELETE ZX_SIM_PURGE;
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:
3338: EXCEPTION
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:
3338: EXCEPTION
3339: WHEN OTHERS THEN
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:
3351: END process_purge;
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',
3380: 'Inserting into ZX_IMPORT_TAX_LINES_GT (+)');
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',
3380: 'Inserting into ZX_IMPORT_TAX_LINES_GT (+)');
3381: END IF;
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:
3383: INSERT INTO ZX_IMPORT_TAX_LINES_GT (
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',
3426: 'calling ZX_API_PUB.IMPORT_DOCUMENT_WITH_TAX (+)');
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:
3429:
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,
3444: 'ZX.PLSQL.ZX_TRX_DETAIL.process_import_doc_with_tax.END',
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:
3448:
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:
3448:
3449: EXCEPTION
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:
3462: END process_import_doc_with_tax;
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:
3514: x_msg_data := NULL;
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:
3514: x_msg_data := NULL;
3515:
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;
3554:
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:
3576: EXCEPTION
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:
3576: EXCEPTION
3577: WHEN OTHERS THEN
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:
3584: END get_error_msg;
3583:
3584: END get_error_msg;
3585:
3586:
3587: END ZX_TRX_DETAIL;