[Home] [Help]
731: ,tabname => G_INTF_EXE_TABLE_NAME);
732: FND_STATS.gather_table_stats(ownname => l_temp_char_30
733: ,tabname => G_INTF_RCA_TABLE_NAME);
734: FND_STATS.gather_table_stats(ownname => l_temp_char_30
735: ,tabname => 'ZX_ERRORS_INT');
736:
737: G_DEBUG_STATEMENT:='Completed Gathering Stats on interface tables';
738: IF (G_DEBUG_LEVEL_STATEMENT >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
739: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||'IMPORT_PTP',G_DEBUG_STATEMENT);
885:
886: END IF;
887:
888: -------------------------------------
889: -- Populate Errors onto ZX_ERRORS_INT record processing
890: -------------------------------------
891: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
892:
893: LogErrorToTable();
891: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
892:
893: LogErrorToTable();
894:
895: G_DEBUG_STATEMENT:='Populated Errors onto ZX_ERRORS_INT record processing';
896: IF (G_DEBUG_LEVEL_STATEMENT >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
897: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||'IMPORT_PTP',G_DEBUG_STATEMENT);
898: END IF;
899:
899:
900: END IF;
901:
902: -------------------------------------
903: -- Populate Errors onto ZX_ERRORS_INT record processing
904: -------------------------------------
905: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
906:
907: ResetRecStatusForChildTables();
905: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
906:
907: ResetRecStatusForChildTables();
908:
909: G_DEBUG_STATEMENT:='Populated Errors onto ZX_ERRORS_INT record processing';
910: IF (G_DEBUG_LEVEL_STATEMENT >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
911: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||'IMPORT_PTP',G_DEBUG_STATEMENT);
912: END IF;
913:
6522: l_msg_mand_param VARCHAR2(4000);
6523:
6524: TYPE ERR_REC_TYPE IS RECORD
6525: (
6526: intf_ptp_reference zx_errors_int.intf_ptp_reference%TYPE
6527: ,party_type_code zx_errors_int.party_type_code%TYPE
6528: ,message_text zx_errors_int.message_text%TYPE
6529: ,prog_int_record_ref zx_errors_int.prog_int_record_ref%TYPE
6530: ,party_id zx_errors_int.party_id%TYPE
6523:
6524: TYPE ERR_REC_TYPE IS RECORD
6525: (
6526: intf_ptp_reference zx_errors_int.intf_ptp_reference%TYPE
6527: ,party_type_code zx_errors_int.party_type_code%TYPE
6528: ,message_text zx_errors_int.message_text%TYPE
6529: ,prog_int_record_ref zx_errors_int.prog_int_record_ref%TYPE
6530: ,party_id zx_errors_int.party_id%TYPE
6531: );
6524: TYPE ERR_REC_TYPE IS RECORD
6525: (
6526: intf_ptp_reference zx_errors_int.intf_ptp_reference%TYPE
6527: ,party_type_code zx_errors_int.party_type_code%TYPE
6528: ,message_text zx_errors_int.message_text%TYPE
6529: ,prog_int_record_ref zx_errors_int.prog_int_record_ref%TYPE
6530: ,party_id zx_errors_int.party_id%TYPE
6531: );
6532:
6525: (
6526: intf_ptp_reference zx_errors_int.intf_ptp_reference%TYPE
6527: ,party_type_code zx_errors_int.party_type_code%TYPE
6528: ,message_text zx_errors_int.message_text%TYPE
6529: ,prog_int_record_ref zx_errors_int.prog_int_record_ref%TYPE
6530: ,party_id zx_errors_int.party_id%TYPE
6531: );
6532:
6533: TYPE error_table_type IS TABLE OF ERR_REC_TYPE INDEX BY BINARY_INTEGER;
6526: intf_ptp_reference zx_errors_int.intf_ptp_reference%TYPE
6527: ,party_type_code zx_errors_int.party_type_code%TYPE
6528: ,message_text zx_errors_int.message_text%TYPE
6529: ,prog_int_record_ref zx_errors_int.prog_int_record_ref%TYPE
6530: ,party_id zx_errors_int.party_id%TYPE
6531: );
6532:
6533: TYPE error_table_type IS TABLE OF ERR_REC_TYPE INDEX BY BINARY_INTEGER;
6534: l_error_table error_table_type;
6729: l_error_table(l_rec_index).message_text := fnd_message.get();
6730: END IF;
6731:
6732: FOR loop_index IN NVL(l_error_table.FIRST,0)..NVL(l_error_table.LAST,-1) LOOP
6733: INSERT INTO zx_errors_int
6734: (request_id
6735: ,error_table_name
6736: ,intf_ptp_reference
6737: ,party_type_code
6754: END LOOP;
6755: l_error_table.DELETE();
6756:
6757: --
6758: -- end of inserting ptp error records into zx_errors_int
6759: --
6760: --
6761: -- start of inserting errors for registration validations
6762: --
7038: l_error_table(l_rec_index).message_text := fnd_message.get();
7039: END IF;
7040:
7041: FOR loop_index IN NVL(l_error_table.FIRST,0)..NVL(l_error_table.LAST,-1) LOOP
7042: INSERT INTO zx_errors_int
7043: (request_id
7044: ,error_table_name
7045: ,intf_ptp_reference
7046: ,party_type_code
7063:
7064: END LOOP;
7065: l_error_table.DELETE();
7066: --
7067: -- end of inserting registration error records into zx_errors_int
7068: --
7069:
7070: --
7071: -- start of inserting errors for exemption validations
7359: l_error_table(l_rec_index).message_text := fnd_message.get();
7360: END IF;
7361:
7362: FOR loop_index IN NVL(l_error_table.FIRST,0)..NVL(l_error_table.LAST,-1) LOOP
7363: INSERT INTO zx_errors_int
7364: (request_id
7365: ,error_table_name
7366: ,intf_ptp_reference
7367: ,party_type_code
7382: l_error_table.DELETE();
7383: l_rec_index := 0;
7384: END LOOP;
7385: --
7386: -- end of inserting exemption error records into zx_errors_int
7387: --
7388: l_error_table.DELETE();
7389: --
7390: -- start of inserting errors for RCA validations
7506: l_error_table(l_rec_index).message_text := fnd_message.get();
7507: END IF;
7508:
7509: FOR loop_index IN NVL(l_error_table.FIRST,0)..NVL(l_error_table.LAST,-1) LOOP
7510: INSERT INTO zx_errors_int
7511: (request_id
7512: ,error_table_name
7513: ,intf_ptp_reference
7514: ,party_type_code
7531:
7532: END LOOP;
7533:
7534: --
7535: -- end of inserting RCA error records into zx_errors_int
7536: --
7537: l_error_table.DELETE();
7538:
7539: IF (G_DEBUG_LEVEL_PROCEDURE >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
7781: SELECT G_CONC_RET_STS_WARNING
7782: INTO x_return_status
7783: FROM DUAL
7784: WHERE EXISTS (SELECT /*+ FIRST_ROWS(1) */ 1
7785: FROM zx_errors_int
7786: WHERE request_id = G_REQUEST_ID
7787: AND ROWNUM=1);
7788: EXCEPTION
7789: WHEN OTHERS THEN
8070: ,G_INTF_REG_TABLE_NAME,cp_msg_reg_table
8071: ,G_INTF_RCA_TABLE_NAME,cp_msg_rca_table
8072: ,' ') AS user_table_name
8073: ,err_int.message_text
8074: FROM zx_errors_int err_int, zx_party_tax_profile_int ptp_int
8075: WHERE err_int.request_id = G_REQUEST_ID
8076: AND err_int.request_id = ptp_int.request_id
8077: AND err_int.intf_ptp_reference = ptp_int.intf_ptp_reference
8078: ORDER BY intf_party_reference, intf_party_site_reference NULLS FIRST,
8245: SELECT 1
8246: INTO l_num1
8247: FROM DUAL
8248: WHERE EXISTS (SELECT /*+ FIRST_ROWS(1) */ 1
8249: FROM zx_errors_int
8250: WHERE request_id = G_REQUEST_ID
8251: AND ROWNUM=1);
8252: EXCEPTION
8253: WHEN OTHERS THEN