223:
224: --
225: -- concurrent program return status
226: --
227: G_CONC_RET_STS_SUCCESS := FND_API.G_RET_STS_SUCCESS;
228: G_CONC_RET_STS_WARNING := 'W';
229: G_CONC_RET_STS_ERROR := FND_API.G_RET_STS_ERROR;
230: G_CONC_RET_STS_UNEXP_ERROR := FND_API.G_RET_STS_UNEXP_ERROR;
231:
225: -- concurrent program return status
226: --
227: G_CONC_RET_STS_SUCCESS := FND_API.G_RET_STS_SUCCESS;
228: G_CONC_RET_STS_WARNING := 'W';
229: G_CONC_RET_STS_ERROR := FND_API.G_RET_STS_ERROR;
230: G_CONC_RET_STS_UNEXP_ERROR := FND_API.G_RET_STS_UNEXP_ERROR;
231:
232: IF (G_DEBUG_LEVEL_PROCEDURE >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
233: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,G_DEBUG_LOG_HEADER||'SetGlobals','SetGlobals(-)');
226: --
227: G_CONC_RET_STS_SUCCESS := FND_API.G_RET_STS_SUCCESS;
228: G_CONC_RET_STS_WARNING := 'W';
229: G_CONC_RET_STS_ERROR := FND_API.G_RET_STS_ERROR;
230: G_CONC_RET_STS_UNEXP_ERROR := FND_API.G_RET_STS_UNEXP_ERROR;
231:
232: IF (G_DEBUG_LEVEL_PROCEDURE >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
233: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,G_DEBUG_LOG_HEADER||'SetGlobals','SetGlobals(-)');
234: END IF;
269: -- Prog Internal values
270: --
271: G_PROG_INT_VAL := -1;
272:
273: G_MISS_CHAR := FND_API.G_MISS_CHAR;
274: G_MISS_DATE := FND_API.G_MISS_DATE;
275: G_MISS_NUM := FND_API.G_MISS_NUM;
276: G_TRUE := FND_API.G_TRUE;
277: G_FALSE := FND_API.G_FALSE;
270: --
271: G_PROG_INT_VAL := -1;
272:
273: G_MISS_CHAR := FND_API.G_MISS_CHAR;
274: G_MISS_DATE := FND_API.G_MISS_DATE;
275: G_MISS_NUM := FND_API.G_MISS_NUM;
276: G_TRUE := FND_API.G_TRUE;
277: G_FALSE := FND_API.G_FALSE;
278:
271: G_PROG_INT_VAL := -1;
272:
273: G_MISS_CHAR := FND_API.G_MISS_CHAR;
274: G_MISS_DATE := FND_API.G_MISS_DATE;
275: G_MISS_NUM := FND_API.G_MISS_NUM;
276: G_TRUE := FND_API.G_TRUE;
277: G_FALSE := FND_API.G_FALSE;
278:
279: --
272:
273: G_MISS_CHAR := FND_API.G_MISS_CHAR;
274: G_MISS_DATE := FND_API.G_MISS_DATE;
275: G_MISS_NUM := FND_API.G_MISS_NUM;
276: G_TRUE := FND_API.G_TRUE;
277: G_FALSE := FND_API.G_FALSE;
278:
279: --
280: -- error flags for PTP records
273: G_MISS_CHAR := FND_API.G_MISS_CHAR;
274: G_MISS_DATE := FND_API.G_MISS_DATE;
275: G_MISS_NUM := FND_API.G_MISS_NUM;
276: G_TRUE := FND_API.G_TRUE;
277: G_FALSE := FND_API.G_FALSE;
278:
279: --
280: -- error flags for PTP records
281: --
436: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||G_PROC_NAME,G_DEBUG_STATEMENT);
437: END IF;
438:
439: -- create save point
440: IF FND_API.TO_BOOLEAN(p_commit) THEN
441: SAVEPOINT DEL_SUC_REC_SP;
442: END IF;
443:
444: DELETE zx_party_tax_profile_int
489: IF (G_DEBUG_LEVEL_STATEMENT >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
490: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||G_PROC_NAME,G_DEBUG_STATEMENT);
491: END IF;
492:
493: IF FND_API.TO_BOOLEAN(p_commit) THEN
494: COMMIT WORK;
495: END IF;
496:
497: log_now (p_log_level => FND_FILE.LOG
506: WHEN OTHERS THEN
507: log_now (p_log_level => FND_FILE.LOG
508: ,p_message => G_PROC_NAME||' Exception '|| SQLERRM
509: );
510: IF FND_API.TO_BOOLEAN(p_commit) THEN
511: ROLLBACK TO DEL_SUC_REC_SP;
512: END IF;
513: x_return_status := G_CONC_RET_STS_UNEXP_ERROR;
514: x_msg_data := SQLERRM;
661: END IF;
662:
663: x_return_status := G_CONC_RET_STS_SUCCESS;
664:
665: IF FND_API.TO_BOOLEAN(p_commit) THEN
666: SAVEPOINT IMPORT_PTP_SP;
667: END IF;
668:
669: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
665: IF FND_API.TO_BOOLEAN(p_commit) THEN
666: SAVEPOINT IMPORT_PTP_SP;
667: END IF;
668:
669: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
670: BEGIN
671: SELECT 'x'
672: INTO l_temp_char_30
673: FROM ZX_PARTY_TAX_PROFILE_INT
690: END IF;
691:
692: END IF;
693:
694: IF FND_API.TO_BOOLEAN(p_insert_only) THEN
695: BEGIN
696: SELECT 'x'
697: INTO l_temp_char_30
698: FROM ZX_PARTY_TAX_PROFILE_INT
714: END IF;
715: END IF;
716:
717: -- collect stats on the tables
718: IF FND_API.TO_BOOLEAN(p_gather_stats) THEN
719:
720: SELECT owner
721: INTO l_temp_char_30
722: FROM sys.all_objects
743:
744: -------------------------------------
745: -- PTP record processing
746: -------------------------------------
747: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
748:
749: ProcessPtyTxProfileRecord();
750:
751: G_DEBUG_STATEMENT:='Completed Processing Party Tax Profile Records';
757:
758: -------------------------------------
759: -- Registration record processing
760: -------------------------------------
761: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
762:
763: BEGIN
764: SELECT G_INTF_REG_TABLE_NAME
765: INTO l_temp_char_30
790:
791: -------------------------------------
792: -- Sync Default Registration Number onto PTP
793: -------------------------------------
794: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
795:
796: IF (l_temp_char_30 = G_INTF_REG_TABLE_NAME) THEN
797: SyncUpRegNumberToPTP();
798: END IF;
807:
808: -------------------------------------
809: -- Duplicate Tax Registration Validation
810: -------------------------------------
811: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
812:
813: DupTRNValidation();
814:
815: G_DEBUG_STATEMENT:='Completed Duplicate Tax Registration Validation';
821:
822: -------------------------------------
823: -- Exemptions record processing
824: -------------------------------------
825: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
826:
827: BEGIN
828: SELECT G_INTF_EXE_TABLE_NAME
829: INTO l_temp_char_30
854:
855: -------------------------------------
856: -- Reporting Code Association record processing
857: -------------------------------------
858: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
859:
860: BEGIN
861: SELECT G_INTF_RCA_TABLE_NAME
862: INTO l_temp_char_30
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();
894:
895: G_DEBUG_STATEMENT:='Populated Errors onto ZX_ERRORS_INT record processing';
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();
908:
909: G_DEBUG_STATEMENT:='Populated Errors onto ZX_ERRORS_INT record processing';
914: END IF;
915: -------------------------------------
916: -- Populate all production tables
917: -------------------------------------
918: IF FND_API.to_boolean(p_insert_only) THEN
919:
920: PopulateProductionTables();
921:
922: G_DEBUG_STATEMENT:='Populated all production tables';
925: END IF;
926:
927: END IF;
928:
929: IF FND_API.TO_BOOLEAN(p_commit) THEN
930:
931: COMMIT WORK;
932:
933: G_DEBUG_STATEMENT:='All Data Committed';
945: WHEN NO_ROWS_IN_INTF_TABLE THEN
946:
947: x_return_status := G_CONC_RET_STS_SUCCESS;
948: x_msg_data := NULL;
949: IF FND_API.TO_BOOLEAN(p_commit) THEN
950: ROLLBACK TO IMPORT_PTP_SP;
951: END IF;
952:
953: WHEN OTHERS THEN
953: WHEN OTHERS THEN
954: log_now (p_log_level => FND_FILE.LOG
955: ,p_message => 'IMPORT_PTP'||' : '||SQLERRM
956: );
957: IF FND_API.TO_BOOLEAN(p_commit) THEN
958: ROLLBACK TO IMPORT_PTP_SP;
959: END IF;
960: x_return_status := G_CONC_RET_STS_UNEXP_ERROR;
961: x_msg_data := SQLERRM;
5927: WHERE RepCode.Reporting_Type_Id = rca_int.Reporting_Type_Id
5928: AND RepCode.Reporting_Code_Id = rca_int.Reporting_Code_Id
5929: AND NVL(reporting_code_char_value, G_MISS_CHAR) =
5930: NVL(rca_int.reporting_code_char_value, G_MISS_CHAR)
5931: AND NVL(reporting_code_date_value, FND_API.G_MISS_DATE) =
5932: NVL(rca_int.reporting_code_date_value, FND_API.G_MISS_DATE)
5933: AND NVL(reporting_code_num_value, G_MISS_NUM) =
5934: NVL(rca_int.reporting_code_num_value, G_MISS_NUM)
5935: AND SYSDATE BETWEEN RepCode. EFFECTIVE_FROM
5928: AND RepCode.Reporting_Code_Id = rca_int.Reporting_Code_Id
5929: AND NVL(reporting_code_char_value, G_MISS_CHAR) =
5930: NVL(rca_int.reporting_code_char_value, G_MISS_CHAR)
5931: AND NVL(reporting_code_date_value, FND_API.G_MISS_DATE) =
5932: NVL(rca_int.reporting_code_date_value, FND_API.G_MISS_DATE)
5933: AND NVL(reporting_code_num_value, G_MISS_NUM) =
5934: NVL(rca_int.reporting_code_num_value, G_MISS_NUM)
5935: AND SYSDATE BETWEEN RepCode. EFFECTIVE_FROM
5936: AND NVL(RepCode. EFFECTIVE_TO,SYSDATE)
7679:
7680: IF p_interface_table_name = G_CUST_INTF_TABLE THEN
7681: -- processing data specific to customers interface table of TCA
7682: l_date1 := SYSDATE;
7683: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
7684: --
7685: -- insert data into ptp intf table for those records where in customer
7686: -- has populated into registration_number and country into
7687: -- ra_customers_interface_all
7797: END IF;
7798:
7799: END IF; -- end p_validate_only
7800: l_date5 := SYSDATE;
7801: IF FND_API.TO_BOOLEAN(p_insert_only) THEN
7802:
7803: -- sample code for p_sql_select_valid_party_id
7804: -- SELECT party_id, 'THIRD_PARTY' as party_type_code, orig_system_reference as intf_party_reference, NULL as intf_party_site_reference
7805: -- sample code for p_sql_from_valid_party_id
7974: );
7975: log_now (p_log_level => FND_FILE.LOG
7976: ,p_message => '| PERF METRICS FOR IMPORT_WRAPPER '
7977: );
7978: IF FND_API.TO_BOOLEAN(p_validate_only) THEN
7979: log_now (p_log_level => FND_FILE.LOG
7980: ,p_message => '| Time Taken to Populate PTP Table '||(l_date3-l_date2)*86400||' Secs'
7981: );
7982: log_now (p_log_level => FND_FILE.LOG
7982: log_now (p_log_level => FND_FILE.LOG
7983: ,p_message => '| Time Taken for IMPORT_PTP API '||(l_date4-l_date3)*86400||' Secs'
7984: );
7985: END IF;
7986: IF FND_API.TO_BOOLEAN(p_insert_only) THEN
7987: log_now (p_log_level => FND_FILE.LOG
7988: ,p_message => '| Time Taken to Populate Party Id '||(l_date7-l_date6)*86400||' Secs'
7989: );
7990: log_now (p_log_level => FND_FILE.LOG
8111: OR NVL(p_display_stats,G_MISS_CHAR)
8112: NOT IN (G_TRUE, G_FALSE)
8113: OR NVL(p_display_messages,G_MISS_CHAR)
8114: NOT IN (G_TRUE, G_FALSE)
8115: OR ( FND_API.to_boolean(p_display_messages)
8116: AND ( p_message_header_string_1 IS NULL
8117: OR p_message_header_string_2 IS NULL
8118: )
8119: )
8130: IF (G_DEBUG_LEVEL_STATEMENT >= G_CURRENT_DEBUG_LEVEL_SET ) THEN
8131: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,G_DEBUG_LOG_HEADER||'MESSAGE_WRAPPER',G_DEBUG_STATEMENT);
8132: END IF;
8133:
8134: IF FND_API.to_boolean (p_display_stats) THEN
8135: IF p_interface_table_name = G_CUST_INTF_TABLE THEN
8136:
8137: l_date1 := SYSDATE;
8138:
8238: END IF; -- p_interface_table_name = G_CUST_INTF_TABLE
8239:
8240: END IF; -- p_display_stats
8241:
8242: IF FND_API.to_boolean(p_display_messages) THEN
8243:
8244: BEGIN
8245: SELECT 1
8246: INTO l_num1