[Home] [Help]
774: l_api_name VARCHAR2(30) := 'OKL_INSURANCE_PARTY_MERGE';
775: l_count NUMBER(10) := 0;
776: BEGIN
777: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_MERGE');
778: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_MERGE()+');
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: select merge_reason_code
782: into l_merge_reason_code
806: -- not transfer and return the id of the duplicate record as the Merged To Id
807:
808: if p_from_fk_id <> p_to_fk_id then
809: begin
810: arp_message.set_name('AR','AR_UPDATING_TABLE');
811: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
812:
813: UPDATE OKL_INS_POLICIES_ALL_B IPYB
814: SET IPYB.ISU_ID = p_to_fk_id
807:
808: if p_from_fk_id <> p_to_fk_id then
809: begin
810: arp_message.set_name('AR','AR_UPDATING_TABLE');
811: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
812:
813: UPDATE OKL_INS_POLICIES_ALL_B IPYB
814: SET IPYB.ISU_ID = p_to_fk_id
815: , IPYB.object_version_number = IPYB.object_version_number + 1
820: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
821:
822: x_to_id := p_from_id;
823: l_count := sql%rowcount;
824: arp_message.set_name('AR','AR_ROWS_UPDATED');
825: arp_message.set_token('NUM_ROWS',to_char(l_count));
826:
827: exception
828: when others then
821:
822: x_to_id := p_from_id;
823: l_count := sql%rowcount;
824: arp_message.set_name('AR','AR_ROWS_UPDATED');
825: arp_message.set_token('NUM_ROWS',to_char(l_count));
826:
827: exception
828: when others then
829: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
825: arp_message.set_token('NUM_ROWS',to_char(l_count));
826:
827: exception
828: when others then
829: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
830: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
831: 'OKL_INS_POLICIES for = '|| p_from_id));
832: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
833: x_return_status := FND_API.G_RET_STS_ERROR;
860: l_api_name VARCHAR2(30) := 'OKL_INSURANCE_PARTY_SITE_MERGE';
861: l_count NUMBER(10) := 0;
862: BEGIN
863: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_SITE_MERGE');
864: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_SITE_MERGE()+');
865: x_return_status := FND_API.G_RET_STS_SUCCESS;
866:
867: select merge_reason_code
868: into l_merge_reason_code
892: -- not transfer and return the id of the duplicate record as the Merged To Id
893:
894: if p_from_fk_id <> p_to_fk_id then
895: begin
896: arp_message.set_name('AR','AR_UPDATING_TABLE');
897: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
898:
899: UPDATE OKL_INS_POLICIES_ALL_B IPYB
900: SET IPYB.AGENCY_SITE_ID = p_to_fk_id
893:
894: if p_from_fk_id <> p_to_fk_id then
895: begin
896: arp_message.set_name('AR','AR_UPDATING_TABLE');
897: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
898:
899: UPDATE OKL_INS_POLICIES_ALL_B IPYB
900: SET IPYB.AGENCY_SITE_ID = p_to_fk_id
901: , IPYB.object_version_number = IPYB.object_version_number + 1
905: WHERE IPYB.AGENCY_SITE_ID = p_from_fk_id
906: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
907:
908: l_count := sql%rowcount;
909: arp_message.set_name('AR','AR_ROWS_UPDATED');
910: arp_message.set_token('NUM_ROWS',to_char(l_count));
911:
912: exception
913: when others then
906: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
907:
908: l_count := sql%rowcount;
909: arp_message.set_name('AR','AR_ROWS_UPDATED');
910: arp_message.set_token('NUM_ROWS',to_char(l_count));
911:
912: exception
913: when others then
914: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
910: arp_message.set_token('NUM_ROWS',to_char(l_count));
911:
912: exception
913: when others then
914: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
915: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
916: 'OKL_INS_POLICIES for = '|| p_from_id));
917: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
918: x_return_status := FND_API.G_RET_STS_ERROR;
945: l_api_name VARCHAR2(30) := 'OKL_INSURANCE_AGENT_MERGE';
946: l_count NUMBER(10) := 0;
947: BEGIN
948: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_MERGE');
949: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_MERGE()+');
950: x_return_status := FND_API.G_RET_STS_SUCCESS;
951:
952: select merge_reason_code
953: into l_merge_reason_code
977: -- not transfer and return the id of the duplicate record as the Merged To Id
978:
979: if p_from_fk_id <> p_to_fk_id then
980: begin
981: arp_message.set_name('AR','AR_UPDATING_TABLE');
982: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
983:
984: UPDATE OKL_INS_POLICIES_ALL_B IPYB
985: SET IPYB.INT_ID = p_to_fk_id
978:
979: if p_from_fk_id <> p_to_fk_id then
980: begin
981: arp_message.set_name('AR','AR_UPDATING_TABLE');
982: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
983:
984: UPDATE OKL_INS_POLICIES_ALL_B IPYB
985: SET IPYB.INT_ID = p_to_fk_id
986: , IPYB.object_version_number = IPYB.object_version_number + 1
990: WHERE IPYB.INT_ID = p_from_fk_id
991: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
992:
993: l_count := sql%rowcount;
994: arp_message.set_name('AR','AR_ROWS_UPDATED');
995: arp_message.set_token('NUM_ROWS',to_char(l_count));
996:
997: exception
998: when others then
991: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
992:
993: l_count := sql%rowcount;
994: arp_message.set_name('AR','AR_ROWS_UPDATED');
995: arp_message.set_token('NUM_ROWS',to_char(l_count));
996:
997: exception
998: when others then
999: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
995: arp_message.set_token('NUM_ROWS',to_char(l_count));
996:
997: exception
998: when others then
999: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1000: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1001: 'OKL_INS_POLICIES for = '|| p_from_id));
1002: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1003: x_return_status := FND_API.G_RET_STS_ERROR;
1030: l_api_name VARCHAR2(30) := 'OKL_INSURANCE_AGENT_SITE_MERGE';
1031: l_count NUMBER(10) := 0;
1032: BEGIN
1033: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_SITE_MERGE');
1034: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_SITE_MERGE()+');
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: select merge_reason_code
1038: into l_merge_reason_code
1061: -- dependent record exists on the new parent. If a duplicate exists then do
1062: -- not transfer and return the id of the duplicate record as the Merged To Id
1063: if p_from_fk_id <> p_to_fk_id then
1064: begin
1065: arp_message.set_name('AR','AR_UPDATING_TABLE');
1066: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
1067:
1068: UPDATE OKL_INS_POLICIES_ALL_B IPYB
1069: SET IPYB.AGENT_SITE_ID = p_to_fk_id
1062: -- not transfer and return the id of the duplicate record as the Merged To Id
1063: if p_from_fk_id <> p_to_fk_id then
1064: begin
1065: arp_message.set_name('AR','AR_UPDATING_TABLE');
1066: arp_message.set_token('TABLE_NAME','OKL_INS_POLICIES',FALSE);
1067:
1068: UPDATE OKL_INS_POLICIES_ALL_B IPYB
1069: SET IPYB.AGENT_SITE_ID = p_to_fk_id
1070: , IPYB.object_version_number = IPYB.object_version_number + 1
1074: WHERE IPYB.AGENT_SITE_ID = p_from_fk_id
1075: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
1076:
1077: l_count := sql%rowcount;
1078: arp_message.set_name('AR','AR_ROWS_UPDATED');
1079: arp_message.set_token('NUM_ROWS',to_char(l_count));
1080:
1081: exception
1082: when others then
1075: AND IPY_TYPE = 'THIRD_PARTY_POLICY';
1076:
1077: l_count := sql%rowcount;
1078: arp_message.set_name('AR','AR_ROWS_UPDATED');
1079: arp_message.set_token('NUM_ROWS',to_char(l_count));
1080:
1081: exception
1082: when others then
1083: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1079: arp_message.set_token('NUM_ROWS',to_char(l_count));
1080:
1081: exception
1082: when others then
1083: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1084: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1085: 'OKL_INS_POLICIES for = '|| p_from_id));
1086: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1108: l_api_name VARCHAR2(30) := 'OKL_OPEN_INT_PARTY_MERGE';
1109: l_count NUMBER(10) := 0;
1110: BEGIN
1111: fnd_file.put_line(fnd_file.log, 'OKL_PARTY_MERGE_PUB.OKL_OPEN_INT_PARTY_MERGE');
1112: arp_message.set_line('OKL_PARTY_MERGE_PUB.OKL_OPEN_INT_PARTY_MERGE()+');
1113: x_return_status := FND_API.G_RET_STS_SUCCESS;
1114:
1115: select merge_reason_code
1116: into l_merge_reason_code
1138: -- dependent record exists on the new parent. If a duplicate exists then do
1139: -- not transfer and return the id of the duplicate record as the Merged To Id
1140: if p_from_fk_id <> p_to_fk_id then
1141: begin
1142: arp_message.set_name('AR','AR_UPDATING_TABLE');
1143: arp_message.set_token('TABLE_NAME','OKL_OPEN_INT_ALL',FALSE);
1144:
1145: UPDATE OKL_OPEN_INT_ALL opi
1146: SET opi.party_ID = p_to_fk_id
1139: -- not transfer and return the id of the duplicate record as the Merged To Id
1140: if p_from_fk_id <> p_to_fk_id then
1141: begin
1142: arp_message.set_name('AR','AR_UPDATING_TABLE');
1143: arp_message.set_token('TABLE_NAME','OKL_OPEN_INT_ALL',FALSE);
1144:
1145: UPDATE OKL_OPEN_INT_ALL opi
1146: SET opi.party_ID = p_to_fk_id
1147: ,opi.party_name = (select party_name from hz_parties where party_id = p_to_fk_id)
1152: ,opi.last_update_login = arp_standard.profile.last_update_login
1153: WHERE opi.party_ID = p_from_fk_id ;
1154:
1155: l_count := sql%rowcount;
1156: arp_message.set_name('AR','AR_ROWS_UPDATED');
1157: arp_message.set_token('NUM_ROWS',to_char(l_count));
1158:
1159: exception
1160: when others then
1153: WHERE opi.party_ID = p_from_fk_id ;
1154:
1155: l_count := sql%rowcount;
1156: arp_message.set_name('AR','AR_ROWS_UPDATED');
1157: arp_message.set_token('NUM_ROWS',to_char(l_count));
1158:
1159: exception
1160: when others then
1161: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1157: arp_message.set_token('NUM_ROWS',to_char(l_count));
1158:
1159: exception
1160: when others then
1161: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1162: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1163: 'OKL_OPEN_INT_ALL for = '|| p_from_id));
1164: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1165: x_return_status := FND_API.G_RET_STS_ERROR;
1192: l_count NUMBER(10) := 0;
1193: l_api_name VARCHAR2(30) := 'PARTY_MERGE_PAC_ID';
1194: BEGIN
1195: FND_FILE.put_line(fnd_file.log, 'OKL_AM_SHIPPING_INSTR_PVT.PARTY_MERGE_PAC_ID');
1196: ARP_MESSAGE.set_line('OKL_AM_SHIPPING_INSTR_PVT.PARTY_MERGE_PAC_ID()+');
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1198:
1199: SELECT merge_reason_code
1200: INTO l_merge_reason_code
1223: -- exists then do not transfer and return the id of the duplicate record
1224: -- as the Merged To Id
1225: IF p_from_fk_id <> p_to_fk_id THEN
1226: BEGIN
1227: ARP_MESSAGE.set_name('AR','AR_UPDATING_TABLE');
1228: ARP_MESSAGE.set_token('TABLE_NAME','OKL_RELOCATE_ASTS_ALL_B',FALSE);
1229: UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
1230: SET RAB.PAC_ID = p_to_fk_id,
1231: RAB.object_version_number = RAB.object_version_number + 1,
1224: -- as the Merged To Id
1225: IF p_from_fk_id <> p_to_fk_id THEN
1226: BEGIN
1227: ARP_MESSAGE.set_name('AR','AR_UPDATING_TABLE');
1228: ARP_MESSAGE.set_token('TABLE_NAME','OKL_RELOCATE_ASTS_ALL_B',FALSE);
1229: UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
1230: SET RAB.PAC_ID = p_to_fk_id,
1231: RAB.object_version_number = RAB.object_version_number + 1,
1232: RAB.last_update_date = SYSDATE,
1233: RAB.last_updated_by = arp_standard.profile.user_id,
1234: RAB.last_update_login = arp_standard.profile.last_update_login
1235: WHERE RAB.PAC_ID = p_from_fk_id ;
1236: l_count := sql%rowcount;
1237: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1238: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1239: EXCEPTION
1240: WHEN OTHERS THEN
1241: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1234: RAB.last_update_login = arp_standard.profile.last_update_login
1235: WHERE RAB.PAC_ID = p_from_fk_id ;
1236: l_count := sql%rowcount;
1237: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1238: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1239: EXCEPTION
1240: WHEN OTHERS THEN
1241: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1242: FND_FILE.put_line(FND_FILE.log,
1237: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1238: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1239: EXCEPTION
1240: WHEN OTHERS THEN
1241: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1242: FND_FILE.put_line(FND_FILE.log,
1243: (G_PKG_NAME|| '.'||l_api_name ||'OKL_RELOCATE_ASTS_ALL_B for = '|| p_from_id));
1244: FND_FILE.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1245: x_return_status := FND_API.G_RET_STS_ERROR;
1270: l_count NUMBER(10) := 0;
1271: l_api_name VARCHAR2(30) := 'PARTY_MERGE_IST_ID';
1272: BEGIN
1273: FND_FILE.put_line(fnd_file.log, 'OKL_AM_SHIPPING_INSTR_PVT.PARTY_MERGE_IST_ID');
1274: ARP_MESSAGE.set_line('OKL_AM_SHIPPING_INSTR_PVT.PARTY_MERGE_IST_ID()+');
1275: x_return_status := FND_API.G_RET_STS_SUCCESS;
1276:
1277: SELECT merge_reason_code
1278: INTO l_merge_reason_code
1302: -- exists then do not transfer and return the id of the duplicate record
1303: -- as the Merged To Id
1304: IF p_from_fk_id <> p_to_fk_id THEN
1305: BEGIN
1306: ARP_MESSAGE.set_name('AR','AR_UPDATING_TABLE');
1307: ARP_MESSAGE.set_token('TABLE_NAME','OKL_RELOCATE_ASTS_ALL_B',FALSE);
1308: UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
1309: SET RAB.IST_ID = p_to_fk_id,
1310: RAB.object_version_number = RAB.object_version_number + 1,
1303: -- as the Merged To Id
1304: IF p_from_fk_id <> p_to_fk_id THEN
1305: BEGIN
1306: ARP_MESSAGE.set_name('AR','AR_UPDATING_TABLE');
1307: ARP_MESSAGE.set_token('TABLE_NAME','OKL_RELOCATE_ASTS_ALL_B',FALSE);
1308: UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
1309: SET RAB.IST_ID = p_to_fk_id,
1310: RAB.object_version_number = RAB.object_version_number + 1,
1311: RAB.last_update_date = SYSDATE,
1312: RAB.last_updated_by = arp_standard.profile.user_id,
1313: RAB.last_update_login = arp_standard.profile.last_update_login
1314: WHERE RAB.IST_ID = p_from_fk_id ;
1315: l_count := sql%rowcount;
1316: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1317: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1318: EXCEPTION
1319: WHEN OTHERS THEN
1320: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1313: RAB.last_update_login = arp_standard.profile.last_update_login
1314: WHERE RAB.IST_ID = p_from_fk_id ;
1315: l_count := sql%rowcount;
1316: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1317: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1318: EXCEPTION
1319: WHEN OTHERS THEN
1320: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1321: FND_FILE.put_line(FND_FILE.log,
1316: ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
1317: ARP_MESSAGE.set_token('NUM_ROWS',to_char(l_count));
1318: EXCEPTION
1319: WHEN OTHERS THEN
1320: ARP_MESSAGE.set_line(G_PKG_NAME|| '.' ||l_api_name||': '|| sqlerrm);
1321: FND_FILE.put_line(FND_FILE.log,
1322: (G_PKG_NAME|| '.'||l_api_name ||'OKL_RELOCATE_ASTS_ALL_B for = '|| p_from_id));
1323: FND_FILE.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1341: IS
1342: l_api_name VARCHAR2(30) := 'okl_cnr_party_merge';
1343: BEGIN
1344: fnd_file.put_line(fnd_file.log, 'okl_cnr_pvt.okl_cnr_party_merge');
1345: arp_message.set_line('okl_cnr_pvt.okl_cnr_party_merge()+');
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347:
1348: --OKL_CNSLD_AR_HDRS_ALL_B stores reference to Customer Account Site Usage in column IBT_ID
1349: --Account Merge logic is moved to CNR_ACCOUNT_MERGE API which is called during
1350: --Account Merge process
1351:
1352: exception
1353: when others then
1354: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1355: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1356: 'OKL_CNR_PVT for = '|| p_from_id));
1357: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1371: IS
1372: l_api_name VARCHAR2(30) := 'OKL_XSI_PARTY_MERGE';
1373: BEGIN
1374: fnd_file.put_line(fnd_file.log, 'Okl_Xsi_Pvt.OKL_XSI_PARTY_MERGE');
1375: arp_message.set_line('Okl_Xsi_Pvt.OKL_XSI_PARTY_MERGE()+');
1376: x_return_status := FND_API.G_RET_STS_SUCCESS;
1377:
1378: --OKL_EXT_SELL_INVS_ALL_B stores reference to Customer Account in column CUSTOMER_ID
1379: --Account Merge logic is moved to XSI_ACCOUNT_MERGE API which is called during
1380: --Account Merge process
1381:
1382: exception
1383: when others then
1384: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1385: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1386: 'OKL_XSI_PARTY_MERGE for = '|| p_from_id));
1387: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1388: x_return_status := FND_API.G_RET_STS_ERROR;
1401: IS
1402: l_api_name VARCHAR2(30) := 'OKL_TAI_PARTY_MERGE';
1403: BEGIN
1404: fnd_file.put_line(fnd_file.log, 'Okl_Tai_Pvt.OKL_TAI_PARTY_MERGE');
1405: arp_message.set_line('Okl_Tai_Pvt.OKL_TAI_PARTY_MERGE()+');
1406: x_return_status := FND_API.G_RET_STS_SUCCESS;
1407:
1408: --OKL_TRX_AR_INVOICES_B stores reference to Customer Account Site Use in column IBT_ID
1409: --Account Merge logic is moved to TAI_ACCOUNT_MERGE API which is called during
1410: --Account Merge process
1411:
1412: exception
1413: when others then
1414: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1415: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1416: 'OKL_TAI_PARTY_MERGE for = '|| p_from_id));
1417: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1418: x_return_status := FND_API.G_RET_STS_ERROR;
1436: l_api_name VARCHAR2(30) := 'OKL_INSTALL_SITE_MERGE';
1437: l_count NUMBER(10) := 0;
1438: BEGIN
1439: fnd_file.put_line(fnd_file.log, 'OKL_LLA_UTIL_PVT.INSTALL_AT_SITE_MERGE');
1440: arp_message.set_line('OKL_LLA_UTIL_PVT.INSTALL_AT_SITE_MERGE()+');
1441: x_return_status := FND_API.G_RET_STS_SUCCESS;
1442:
1443: select merge_reason_code
1444: into l_merge_reason_code
1467: -- dependent record exists on the new parent. If a duplicate exists then do
1468: -- not transfer and return the id of the duplicate record as the Merged To Id
1469: if p_from_fk_id <> p_to_fk_id then
1470: begin
1471: arp_message.set_name('AR','AR_UPDATING_TABLE');
1472: arp_message.set_token('TABLE_NAME','OKL_TXL_ITM_INSTS',FALSE);
1473:
1474: UPDATE okl_txl_itm_insts iti
1475: SET iti.object_id1_old = p_to_fk_id
1468: -- not transfer and return the id of the duplicate record as the Merged To Id
1469: if p_from_fk_id <> p_to_fk_id then
1470: begin
1471: arp_message.set_name('AR','AR_UPDATING_TABLE');
1472: arp_message.set_token('TABLE_NAME','OKL_TXL_ITM_INSTS',FALSE);
1473:
1474: UPDATE okl_txl_itm_insts iti
1475: SET iti.object_id1_old = p_to_fk_id
1476: , iti.object_version_number = iti.object_version_number + 1
1480: WHERE iti.object_id1_old = p_from_fk_id
1481: AND JTOT_OBJECT_CODE_OLD = 'OKX_PARTSITE';
1482:
1483: l_count := sql%rowcount;
1484: arp_message.set_name('AR','AR_ROWS_UPDATED');
1485: arp_message.set_token('NUM_ROWS',to_char(l_count));
1486: exception
1487: when others then
1488: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1481: AND JTOT_OBJECT_CODE_OLD = 'OKX_PARTSITE';
1482:
1483: l_count := sql%rowcount;
1484: arp_message.set_name('AR','AR_ROWS_UPDATED');
1485: arp_message.set_token('NUM_ROWS',to_char(l_count));
1486: exception
1487: when others then
1488: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1489: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1484: arp_message.set_name('AR','AR_ROWS_UPDATED');
1485: arp_message.set_token('NUM_ROWS',to_char(l_count));
1486: exception
1487: when others then
1488: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1489: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1490: 'OKL_INSTALL_SITE_MERGE for = '|| p_from_id));
1491: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1528: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
1529: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
1530: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
1531:
1532: arp_message.set_line('OKL_PARTY_MERGE_PUB.ITI_OBJECT_ID1_NEW()+');
1533: x_return_status := FND_API.G_RET_STS_SUCCESS;
1534:
1535: select merge_reason_code into l_merge_reason_code
1536: from hz_merge_batch
1559: -- not transfer and return the id of the duplicate record as the Merged To Id
1560: if p_from_fk_id <> p_to_fk_id
1561: then
1562: begin
1563: arp_message.set_name('AR','AR_UPDATING_TABLE');
1564: arp_message.set_token('TABLE_NAME','OKL_TXL_ITM_INSTS',FALSE);
1565:
1566: IF p_parent_entity_name = 'HZ_PARTY_SITE_USES'
1567: THEN
1560: if p_from_fk_id <> p_to_fk_id
1561: then
1562: begin
1563: arp_message.set_name('AR','AR_UPDATING_TABLE');
1564: arp_message.set_token('TABLE_NAME','OKL_TXL_ITM_INSTS',FALSE);
1565:
1566: IF p_parent_entity_name = 'HZ_PARTY_SITE_USES'
1567: THEN
1568: --updating the OKL_TXL_ITM_INSTS table for column references PROSPECT_ID
1575: WHERE TAB.object_id1_new = p_from_fk_id
1576: AND JTOT_OBJECT_CODE_NEW = 'OKX_PARTSITE';
1577: END IF;
1578: l_count := sql%rowcount;
1579: arp_message.set_name('AR','AR_ROWS_UPDATED');
1580: arp_message.set_token('NUM_ROWS',to_char(l_count));
1581: EXCEPTION
1582: when others
1583: then
1576: AND JTOT_OBJECT_CODE_NEW = 'OKX_PARTSITE';
1577: END IF;
1578: l_count := sql%rowcount;
1579: arp_message.set_name('AR','AR_ROWS_UPDATED');
1580: arp_message.set_token('NUM_ROWS',to_char(l_count));
1581: EXCEPTION
1582: when others
1583: then
1584: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1580: arp_message.set_token('NUM_ROWS',to_char(l_count));
1581: EXCEPTION
1582: when others
1583: then
1584: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1585: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1586: 'OKL_TXL_ITM_INSTS for = '|| p_from_id));
1587: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1604: IS
1605: l_api_name VARCHAR2(30) := 'OKL_RCA_PARTY_MERGE';
1606: BEGIN
1607: fnd_file.put_line(fnd_file.log, 'OKL_RCA_PVT.OKL_RCA_PARTY_MERGE');
1608: arp_message.set_line('OKL_RCA_PVT.OKL_RCA_PARTY_MERGE()+');
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: --OKL_TXL_RCPT_APPS_ALL_B stores reference to Customer Account in column ILE_ID
1612: --Account Merge logic is moved to RCA_ACCOUNT_MERGE API which is called during
1613: --Account Merge process
1614:
1615: exception
1616: when others then
1617: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1618: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1619: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
1620: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1621: x_return_status := FND_API.G_RET_STS_ERROR;
1656: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
1657: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
1658: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
1659:
1660: arp_message.set_line('OKL_PARTY_MERGE_PUB.ASS_INSTALL_SITE_ID()+');
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1662:
1663: select merge_reason_code
1664: into l_merge_reason_code
1688: -- not transfer and return the id of the duplicate record as the Merged To Id
1689:
1690: if p_from_fk_id <> p_to_fk_id then
1691: begin
1692: arp_message.set_name('AR','AR_UPDATING_TABLE');
1693: arp_message.set_token('TABLE_NAME','OKL_ASSETS_B',FALSE);
1694:
1695: --updating the OKL_ASSETS_B table for column references INSTALL_SITE_ID
1696:
1689:
1690: if p_from_fk_id <> p_to_fk_id then
1691: begin
1692: arp_message.set_name('AR','AR_UPDATING_TABLE');
1693: arp_message.set_token('TABLE_NAME','OKL_ASSETS_B',FALSE);
1694:
1695: --updating the OKL_ASSETS_B table for column references INSTALL_SITE_ID
1696:
1697: UPDATE OKL_ASSETS_B TAB
1702: ,TAB.last_update_login = arp_standard.profile.last_update_login
1703: WHERE TAB.INSTALL_SITE_ID = p_from_fk_id ;
1704:
1705: l_count := sql%rowcount;
1706: arp_message.set_name('AR','AR_ROWS_UPDATED');
1707: arp_message.set_token('NUM_ROWS',to_char(l_count));
1708:
1709: exception
1710: when others then
1703: WHERE TAB.INSTALL_SITE_ID = p_from_fk_id ;
1704:
1705: l_count := sql%rowcount;
1706: arp_message.set_name('AR','AR_ROWS_UPDATED');
1707: arp_message.set_token('NUM_ROWS',to_char(l_count));
1708:
1709: exception
1710: when others then
1711: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1707: arp_message.set_token('NUM_ROWS',to_char(l_count));
1708:
1709: exception
1710: when others then
1711: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1712: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1713: 'OKL_ASSETS_B for INSTALL_SITE_ID = '|| p_from_id));
1714: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1715: x_return_status := FND_API.G_RET_STS_ERROR;
1753: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
1754: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
1755: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
1756:
1757: arp_message.set_line('OKL_PARTY_MERGE_PUB.LAP_PROSPECT_ID()+');
1758:
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760:
1761: select merge_reason_code into l_merge_reason_code
1786: -- not transfer and return the id of the duplicate record as the Merged To Id
1787: if p_from_fk_id <> p_to_fk_id
1788: then
1789: begin
1790: arp_message.set_name('AR','AR_UPDATING_TABLE');
1791: arp_message.set_token('TABLE_NAME','OKL_LEASE_APPS_ALL_B',FALSE);
1792:
1793: IF p_parent_entity_name = 'HZ_PARTIES'
1794: THEN
1787: if p_from_fk_id <> p_to_fk_id
1788: then
1789: begin
1790: arp_message.set_name('AR','AR_UPDATING_TABLE');
1791: arp_message.set_token('TABLE_NAME','OKL_LEASE_APPS_ALL_B',FALSE);
1792:
1793: IF p_parent_entity_name = 'HZ_PARTIES'
1794: THEN
1795: --updating the OKL_LEASE_APPS_ALL_B table for column references PROSPECT_ID
1811: , TAB.last_update_login = arp_standard.profile.last_update_login
1812: WHERE TAB.PROSPECT_ADDRESS_ID = p_from_fk_id ;
1813: END IF;
1814: l_count := sql%rowcount;
1815: arp_message.set_name('AR','AR_ROWS_UPDATED');
1816: arp_message.set_token('NUM_ROWS',to_char(l_count));
1817: EXCEPTION
1818: when others
1819: then
1812: WHERE TAB.PROSPECT_ADDRESS_ID = p_from_fk_id ;
1813: END IF;
1814: l_count := sql%rowcount;
1815: arp_message.set_name('AR','AR_ROWS_UPDATED');
1816: arp_message.set_token('NUM_ROWS',to_char(l_count));
1817: EXCEPTION
1818: when others
1819: then
1820: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1816: arp_message.set_token('NUM_ROWS',to_char(l_count));
1817: EXCEPTION
1818: when others
1819: then
1820: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1821: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1822: 'OKL_LEASE_APPS_ALL_B for = '|| p_from_id));
1823: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1824: x_return_status := FND_API.G_RET_STS_ERROR;
1862: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
1863: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
1864: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
1865:
1866: arp_message.set_line('OKL_PARTY_MERGE_PUB.LOP_PARTY_MERGE()+');
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: select merge_reason_code into l_merge_reason_code
1870: from hz_merge_batch
1894: -- not transfer and return the id of the duplicate record as the Merged To Id
1895: if p_from_fk_id <> p_to_fk_id
1896: then
1897: begin
1898: arp_message.set_name('AR','AR_UPDATING_TABLE');
1899: arp_message.set_token('TABLE_NAME','OKL_LEASE_OPPS_ALL_B',FALSE);
1900:
1901: IF p_parent_entity_name = 'HZ_PARTIES'
1902: THEN
1895: if p_from_fk_id <> p_to_fk_id
1896: then
1897: begin
1898: arp_message.set_name('AR','AR_UPDATING_TABLE');
1899: arp_message.set_token('TABLE_NAME','OKL_LEASE_OPPS_ALL_B',FALSE);
1900:
1901: IF p_parent_entity_name = 'HZ_PARTIES'
1902: THEN
1903: --updating the OKL_LEASE_OPPS_ALL_B table for column references PROSPECT_ID
1930: WHERE TAB.INSTALL_SITE_ID = p_from_fk_id ;
1931: END IF;
1932:
1933: l_count := sql%rowcount;
1934: arp_message.set_name('AR','AR_ROWS_UPDATED');
1935: arp_message.set_token('NUM_ROWS',to_char(l_count));
1936: exception
1937: when others
1938: then
1931: END IF;
1932:
1933: l_count := sql%rowcount;
1934: arp_message.set_name('AR','AR_ROWS_UPDATED');
1935: arp_message.set_token('NUM_ROWS',to_char(l_count));
1936: exception
1937: when others
1938: then
1939: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1935: arp_message.set_token('NUM_ROWS',to_char(l_count));
1936: exception
1937: when others
1938: then
1939: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
1940: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
1941: 'OKL_LEASE_OPPS_ALL_B for = '|| p_from_id));
1942: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1981: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
1982: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
1983: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
1984:
1985: arp_message.set_line('OKL_PARTY_MERGE_PUB.LOP_USAGE_LOCATION()+');
1986: x_return_status := FND_API.G_RET_STS_SUCCESS;
1987:
1988: select merge_reason_code into l_merge_reason_code
1989: from hz_merge_batch
2013: -- not transfer and return the id of the duplicate record as the Merged To Id
2014: if p_from_fk_id <> p_to_fk_id
2015: then
2016: begin
2017: arp_message.set_name('AR','AR_UPDATING_TABLE');
2018: arp_message.set_token('TABLE_NAME','OKL_LEASE_OPPS_ALL_B',FALSE);
2019:
2020: IF p_parent_entity_name = 'HZ_PARTY_SITE_USES'
2021: THEN
2014: if p_from_fk_id <> p_to_fk_id
2015: then
2016: begin
2017: arp_message.set_name('AR','AR_UPDATING_TABLE');
2018: arp_message.set_token('TABLE_NAME','OKL_LEASE_OPPS_ALL_B',FALSE);
2019:
2020: IF p_parent_entity_name = 'HZ_PARTY_SITE_USES'
2021: THEN
2022: --updating the OKL_LEASE_OPPS_ALL_B table for column references USAGE_LOCATION_ID
2029: WHERE TAB.USAGE_LOCATION_ID = p_from_fk_id ;
2030: END IF;
2031:
2032: l_count := sql%rowcount;
2033: arp_message.set_name('AR','AR_ROWS_UPDATED');
2034: arp_message.set_token('NUM_ROWS',to_char(l_count));
2035: exception
2036: when others
2037: then
2030: END IF;
2031:
2032: l_count := sql%rowcount;
2033: arp_message.set_name('AR','AR_ROWS_UPDATED');
2034: arp_message.set_token('NUM_ROWS',to_char(l_count));
2035: exception
2036: when others
2037: then
2038: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2034: arp_message.set_token('NUM_ROWS',to_char(l_count));
2035: exception
2036: when others
2037: then
2038: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2039: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2040: 'OKL_LEASE_OPPS_ALL_B for = '|| p_from_id));
2041: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2042: x_return_status := FND_API.G_RET_STS_ERROR;
2080: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2081: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2082: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2083:
2084: arp_message.set_line('OKL_PARTY_MERGE_PUB.TXS_BILL_TO_PARTY_MERGE()+');
2085: x_return_status := FND_API.G_RET_STS_SUCCESS;
2086:
2087: select merge_reason_code
2088: into l_merge_reason_code
2110: -- dependent record exists on the new parent. If a duplicate exists then do
2111: -- not transfer and return the id of the duplicate record as the Merged To Id
2112: if p_from_fk_id <> p_to_fk_id then
2113: begin
2114: arp_message.set_name('AR','AR_UPDATING_TABLE');
2115: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
2116:
2117: IF p_parent_entity_name = 'HZ_PARTIES'
2118: THEN
2111: -- not transfer and return the id of the duplicate record as the Merged To Id
2112: if p_from_fk_id <> p_to_fk_id then
2113: begin
2114: arp_message.set_name('AR','AR_UPDATING_TABLE');
2115: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
2116:
2117: IF p_parent_entity_name = 'HZ_PARTIES'
2118: THEN
2119: --updating the OKL_TAX_SOURCES table for column references BILL_TO_PARTY_ID
2136: WHERE TAB.BILL_TO_PARTY_SITE_ID = p_from_fk_id ;
2137: END IF;
2138:
2139: l_count := sql%rowcount;
2140: arp_message.set_name('AR','AR_ROWS_UPDATED');
2141: arp_message.set_token('NUM_ROWS',to_char(l_count));
2142:
2143: exception
2144: when others then
2137: END IF;
2138:
2139: l_count := sql%rowcount;
2140: arp_message.set_name('AR','AR_ROWS_UPDATED');
2141: arp_message.set_token('NUM_ROWS',to_char(l_count));
2142:
2143: exception
2144: when others then
2145: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2141: arp_message.set_token('NUM_ROWS',to_char(l_count));
2142:
2143: exception
2144: when others then
2145: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2146: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2147: 'OKL_TAX_SOURCES for = '|| p_from_id));
2148: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2149: x_return_status := FND_API.G_RET_STS_ERROR;
2187: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2188: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2189: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2190:
2191: arp_message.set_line('OKL_PARTY_MERGE_PUB.TXS_SHIP_TO_PARTY_MERGE()+');
2192: x_return_status := FND_API.G_RET_STS_SUCCESS;
2193:
2194: select merge_reason_code
2195: into l_merge_reason_code
2219: -- not transfer and return the id of the duplicate record as the Merged To Id
2220:
2221: if p_from_fk_id <> p_to_fk_id then
2222: begin
2223: arp_message.set_name('AR','AR_UPDATING_TABLE');
2224: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
2225:
2226: IF p_parent_entity_name = 'HZ_PARTIES'
2227: THEN
2220:
2221: if p_from_fk_id <> p_to_fk_id then
2222: begin
2223: arp_message.set_name('AR','AR_UPDATING_TABLE');
2224: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
2225:
2226: IF p_parent_entity_name = 'HZ_PARTIES'
2227: THEN
2228: --updating the OKL_TAX_SOURCES table for column references SHIP_TO_PARTY_ID
2245: WHERE TAB.SHIP_TO_PARTY_SITE_ID = p_from_fk_id ;
2246: END IF;
2247:
2248: l_count := sql%rowcount;
2249: arp_message.set_name('AR','AR_ROWS_UPDATED');
2250: arp_message.set_token('NUM_ROWS',to_char(l_count));
2251:
2252: exception
2253: when others then
2246: END IF;
2247:
2248: l_count := sql%rowcount;
2249: arp_message.set_name('AR','AR_ROWS_UPDATED');
2250: arp_message.set_token('NUM_ROWS',to_char(l_count));
2251:
2252: exception
2253: when others then
2254: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2250: arp_message.set_token('NUM_ROWS',to_char(l_count));
2251:
2252: exception
2253: when others then
2254: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2255: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2256: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2257: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2297: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2298: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2299: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2300:
2301: arp_message.set_line('OKL_PARTY_MERGE_PUB.TXST_BILL_TO_PARTY_MERGE()+');
2302: x_return_status := FND_API.G_RET_STS_SUCCESS;
2303:
2304: select merge_reason_code
2305: into l_merge_reason_code
2329: -- not transfer and return the id of the duplicate record as the Merged To Id
2330:
2331: if p_from_fk_id <> p_to_fk_id then
2332: begin
2333: arp_message.set_name('AR','AR_UPDATING_TABLE');
2334: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
2335:
2336: IF p_parent_entity_name = 'HZ_PARTIES'
2337: THEN
2330:
2331: if p_from_fk_id <> p_to_fk_id then
2332: begin
2333: arp_message.set_name('AR','AR_UPDATING_TABLE');
2334: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
2335:
2336: IF p_parent_entity_name = 'HZ_PARTIES'
2337: THEN
2338: --updating the OKL_TAX_SOURCES_T table for column references BILL_TO_PARTY_ID
2355: WHERE TAB.BILL_TO_PARTY_SITE_ID = p_from_fk_id ;
2356: END IF;
2357:
2358: l_count := sql%rowcount;
2359: arp_message.set_name('AR','AR_ROWS_UPDATED');
2360: arp_message.set_token('NUM_ROWS',to_char(l_count));
2361:
2362: exception
2363: when others then
2356: END IF;
2357:
2358: l_count := sql%rowcount;
2359: arp_message.set_name('AR','AR_ROWS_UPDATED');
2360: arp_message.set_token('NUM_ROWS',to_char(l_count));
2361:
2362: exception
2363: when others then
2364: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2360: arp_message.set_token('NUM_ROWS',to_char(l_count));
2361:
2362: exception
2363: when others then
2364: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2365: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2366: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2367: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2368: x_return_status := FND_API.G_RET_STS_ERROR;
2406: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2407: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2408: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2409:
2410: arp_message.set_line('OKL_PARTY_MERGE_PUB.TXST_SHIP_TO_PARTY_MERGE()+');
2411: x_return_status := FND_API.G_RET_STS_SUCCESS;
2412:
2413: select merge_reason_code
2414: into l_merge_reason_code
2438: -- not transfer and return the id of the duplicate record as the Merged To Id
2439:
2440: if p_from_fk_id <> p_to_fk_id then
2441: begin
2442: arp_message.set_name('AR','AR_UPDATING_TABLE');
2443: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
2444:
2445: IF p_parent_entity_name = 'HZ_PARTIES'
2446: THEN
2439:
2440: if p_from_fk_id <> p_to_fk_id then
2441: begin
2442: arp_message.set_name('AR','AR_UPDATING_TABLE');
2443: arp_message.set_token('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
2444:
2445: IF p_parent_entity_name = 'HZ_PARTIES'
2446: THEN
2447: --updating the OKL_TAX_SOURCES_T table for column references SHIP_TO_PARTY_ID
2464: WHERE TAB.SHIP_TO_PARTY_SITE_ID = p_from_fk_id;
2465: END IF;
2466:
2467: l_count := sql%rowcount;
2468: arp_message.set_name('AR','AR_ROWS_UPDATED');
2469: arp_message.set_token('NUM_ROWS',to_char(l_count));
2470:
2471: exception
2472: when others then
2465: END IF;
2466:
2467: l_count := sql%rowcount;
2468: arp_message.set_name('AR','AR_ROWS_UPDATED');
2469: arp_message.set_token('NUM_ROWS',to_char(l_count));
2470:
2471: exception
2472: when others then
2473: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2469: arp_message.set_token('NUM_ROWS',to_char(l_count));
2470:
2471: exception
2472: when others then
2473: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2474: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2475: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2476: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2477: x_return_status := FND_API.G_RET_STS_ERROR;
2515: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2516: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2517: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2518:
2519: arp_message.set_line('OKL_PARTY_MERGE_PUB.TCN_PARTY_REL_ID2_NEW()+');
2520: x_return_status := FND_API.G_RET_STS_SUCCESS;
2521:
2522: select merge_reason_code
2523: into l_merge_reason_code
2547: -- not transfer and return the id of the duplicate record as the Merged To Id
2548:
2549: if p_from_fk_id <> p_to_fk_id then
2550: begin
2551: arp_message.set_name('AR','AR_UPDATING_TABLE');
2552: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
2553:
2554: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID2_NEW
2555:
2548:
2549: if p_from_fk_id <> p_to_fk_id then
2550: begin
2551: arp_message.set_name('AR','AR_UPDATING_TABLE');
2552: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
2553:
2554: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID2_NEW
2555:
2556: UPDATE OKL_TRX_CONTRACTS_ALL TAB
2564: --AND TAB.REPRESENTATION_TYPE = 'PRIMARY' ;
2565: --
2566:
2567: l_count := sql%rowcount;
2568: arp_message.set_name('AR','AR_ROWS_UPDATED');
2569: arp_message.set_token('NUM_ROWS',to_char(l_count));
2570:
2571: exception
2572: when others then
2565: --
2566:
2567: l_count := sql%rowcount;
2568: arp_message.set_name('AR','AR_ROWS_UPDATED');
2569: arp_message.set_token('NUM_ROWS',to_char(l_count));
2570:
2571: exception
2572: when others then
2573: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2569: arp_message.set_token('NUM_ROWS',to_char(l_count));
2570:
2571: exception
2572: when others then
2573: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2574: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2575: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2576: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2577: x_return_status := FND_API.G_RET_STS_ERROR;
2615: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2616: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2617: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2618:
2619: arp_message.set_line('OKL_PARTY_MERGE_PUB.QPY_PARTY_OBJECT1_ID1()+');
2620: x_return_status := FND_API.G_RET_STS_SUCCESS;
2621:
2622: select merge_reason_code
2623: into l_merge_reason_code
2645: -- dependent record exists on the new parent. If a duplicate exists then do
2646: -- not transfer and return the id of the duplicate record as the Merged To Id
2647: if p_from_fk_id <> p_to_fk_id then
2648: begin
2649: arp_message.set_name('AR','AR_UPDATING_TABLE');
2650: arp_message.set_token('TABLE_NAME','OKL_QUOTE_PARTIES',FALSE);
2651:
2652: --updating the OKL_QUOTE_PARTIES table for column references PARTY_OBJECT1_ID1
2653:
2646: -- not transfer and return the id of the duplicate record as the Merged To Id
2647: if p_from_fk_id <> p_to_fk_id then
2648: begin
2649: arp_message.set_name('AR','AR_UPDATING_TABLE');
2650: arp_message.set_token('TABLE_NAME','OKL_QUOTE_PARTIES',FALSE);
2651:
2652: --updating the OKL_QUOTE_PARTIES table for column references PARTY_OBJECT1_ID1
2653:
2654: UPDATE OKL_QUOTE_PARTIES TAB
2660: WHERE TAB.PARTY_OBJECT1_ID1 = to_char(p_from_fk_id)
2661: AND PARTY_JTOT_OBJECT1_CODE = 'OKX_PARTY';
2662:
2663: l_count := sql%rowcount;
2664: arp_message.set_name('AR','AR_ROWS_UPDATED');
2665: arp_message.set_token('NUM_ROWS',to_char(l_count));
2666:
2667: exception
2668: when others then
2661: AND PARTY_JTOT_OBJECT1_CODE = 'OKX_PARTY';
2662:
2663: l_count := sql%rowcount;
2664: arp_message.set_name('AR','AR_ROWS_UPDATED');
2665: arp_message.set_token('NUM_ROWS',to_char(l_count));
2666:
2667: exception
2668: when others then
2669: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2665: arp_message.set_token('NUM_ROWS',to_char(l_count));
2666:
2667: exception
2668: when others then
2669: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2670: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2671: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2672: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2673: x_return_status := FND_API.G_RET_STS_ERROR;
2711: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2712: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2713: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2714:
2715: arp_message.set_line('OKL_PARTY_MERGE_PUB.QPY_CONTACT_OBJECT1_ID1()+');
2716: x_return_status := FND_API.G_RET_STS_SUCCESS;
2717:
2718: select merge_reason_code
2719: into l_merge_reason_code
2741: -- dependent record exists on the new parent. If a duplicate exists then do
2742: -- not transfer and return the id of the duplicate record as the Merged To Id
2743: if p_from_fk_id <> p_to_fk_id then
2744: begin
2745: arp_message.set_name('AR','AR_UPDATING_TABLE');
2746: arp_message.set_token('TABLE_NAME','OKL_QUOTE_PARTIES',FALSE);
2747:
2748: --updating the OKL_QUOTE_PARTIES table for column references CONTACT_OBJECT1_ID1
2749:
2742: -- not transfer and return the id of the duplicate record as the Merged To Id
2743: if p_from_fk_id <> p_to_fk_id then
2744: begin
2745: arp_message.set_name('AR','AR_UPDATING_TABLE');
2746: arp_message.set_token('TABLE_NAME','OKL_QUOTE_PARTIES',FALSE);
2747:
2748: --updating the OKL_QUOTE_PARTIES table for column references CONTACT_OBJECT1_ID1
2749:
2750: UPDATE OKL_QUOTE_PARTIES TAB
2756: WHERE TAB.CONTACT_OBJECT1_ID1 = to_char(p_from_fk_id)
2757: AND CONTACT_JTOT_OBJECT1_CODE = 'OKX_PARTY';
2758:
2759: l_count := sql%rowcount;
2760: arp_message.set_name('AR','AR_ROWS_UPDATED');
2761: arp_message.set_token('NUM_ROWS',to_char(l_count));
2762:
2763: exception
2764: when others then
2757: AND CONTACT_JTOT_OBJECT1_CODE = 'OKX_PARTY';
2758:
2759: l_count := sql%rowcount;
2760: arp_message.set_name('AR','AR_ROWS_UPDATED');
2761: arp_message.set_token('NUM_ROWS',to_char(l_count));
2762:
2763: exception
2764: when others then
2765: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2761: arp_message.set_token('NUM_ROWS',to_char(l_count));
2762:
2763: exception
2764: when others then
2765: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2766: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2767: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2768: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2769: x_return_status := FND_API.G_RET_STS_ERROR;
2807: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2808: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2809: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2810:
2811: arp_message.set_line('OKL_PARTY_MERGE_PUB.TIN_PARTY_OBJECT_ID1()+');
2812: x_return_status := FND_API.G_RET_STS_SUCCESS;
2813:
2814: select merge_reason_code
2815: into l_merge_reason_code
2837: -- dependent record exists on the new parent. If a duplicate exists then do
2838: -- not transfer and return the id of the duplicate record as the Merged To Id
2839: if p_from_fk_id <> p_to_fk_id then
2840: begin
2841: arp_message.set_name('AR','AR_UPDATING_TABLE');
2842: arp_message.set_token('TABLE_NAME','OKL_TERMNT_INTF_PTY',FALSE);
2843:
2844: --updating the OKL_TERMNT_INTF_PTY table for column references PARTY_OBJECT_ID1
2845:
2838: -- not transfer and return the id of the duplicate record as the Merged To Id
2839: if p_from_fk_id <> p_to_fk_id then
2840: begin
2841: arp_message.set_name('AR','AR_UPDATING_TABLE');
2842: arp_message.set_token('TABLE_NAME','OKL_TERMNT_INTF_PTY',FALSE);
2843:
2844: --updating the OKL_TERMNT_INTF_PTY table for column references PARTY_OBJECT_ID1
2845:
2846: UPDATE OKL_TERMNT_INTF_PTY TAB
2851: WHERE TAB.PARTY_OBJECT_ID1 = to_char(p_from_fk_id)
2852: AND PARTY_OBJECT_CODE = 'OKX_PARTY';
2853:
2854: l_count := sql%rowcount;
2855: arp_message.set_name('AR','AR_ROWS_UPDATED');
2856: arp_message.set_token('NUM_ROWS',to_char(l_count));
2857:
2858: exception
2859: when others then
2852: AND PARTY_OBJECT_CODE = 'OKX_PARTY';
2853:
2854: l_count := sql%rowcount;
2855: arp_message.set_name('AR','AR_ROWS_UPDATED');
2856: arp_message.set_token('NUM_ROWS',to_char(l_count));
2857:
2858: exception
2859: when others then
2860: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2856: arp_message.set_token('NUM_ROWS',to_char(l_count));
2857:
2858: exception
2859: when others then
2860: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
2861: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
2862: 'OKL_TXL_RCPT_APPS_B for = '|| p_from_id));
2863: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
2864: x_return_status := FND_API.G_RET_STS_ERROR;
2993: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
2994: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
2995: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
2996:
2997: arp_message.set_line('OKL_PARTY_MERGE_PUB.CPL_PARTY_MERGE()+');
2998:
2999: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
3000: okl_debug_pub.log_debug(fnd_log.level_procedure
3001: ,l_module
3047: -- dependent record exists on the new parent. If a duplicate exists then do
3048: -- not transfer and return the id of the duplicate record as the Merged To Id
3049: if p_from_fk_id <> p_to_fk_id
3050: then
3051: arp_message.set_name('AR','AR_UPDATING_TABLE');
3052: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES_B',FALSE);
3053:
3054: IF p_parent_entity_name = 'HZ_PARTIES'
3055: THEN
3048: -- not transfer and return the id of the duplicate record as the Merged To Id
3049: if p_from_fk_id <> p_to_fk_id
3050: then
3051: arp_message.set_name('AR','AR_UPDATING_TABLE');
3052: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES_B',FALSE);
3053:
3054: IF p_parent_entity_name = 'HZ_PARTIES'
3055: THEN
3056: --Check if the parties to be merged are part of same type of contract
3207:
3208: EXCEPTION
3209: WHEN OKL_API.G_EXCEPTION_ERROR
3210: THEN
3211: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3212: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3213: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3214: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3215: IF chk_vendor_chr_csr%ISOPEN
3232: x_msg_data => p_msg_data,
3233: p_api_type => G_API_TYPE);
3234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3235: THEN
3236: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3237: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3238: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3239: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3240: IF chk_vendor_chr_csr%ISOPEN
3257: x_msg_data => p_msg_data,
3258: p_api_type => G_API_TYPE);
3259: WHEN OTHERS
3260: THEN
3261: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3262: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3263: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3264: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3265: IF chk_vendor_chr_csr%ISOPEN
3318: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
3319: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
3320: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
3321:
3322: arp_message.set_line('OKL_PARTY_MERGE_PUB.CPL_PARTY_SITE_MERGE()+');
3323:
3324: x_return_status := FND_API.G_RET_STS_SUCCESS;
3325:
3326: select merge_reason_code into l_merge_reason_code
3351: -- not transfer and return the id of the duplicate record as the Merged To Id
3352: if p_from_fk_id <> p_to_fk_id
3353: then
3354: begin
3355: arp_message.set_name('AR','AR_UPDATING_TABLE');
3356: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES_B',FALSE);
3357:
3358: IF p_parent_entity_name = 'HZ_PARTY_SITES'
3359: THEN
3352: if p_from_fk_id <> p_to_fk_id
3353: then
3354: begin
3355: arp_message.set_name('AR','AR_UPDATING_TABLE');
3356: arp_message.set_token('TABLE_NAME','OKC_K_PARTY_ROLES_B',FALSE);
3357:
3358: IF p_parent_entity_name = 'HZ_PARTY_SITES'
3359: THEN
3360: --updating the OKC_K_PARTY_ROLES_B table for column references OBJECT1_ID1
3369: AND JTOT_OBJECT1_CODE = 'OKL_PARTYSITE'
3370: AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
3371: END IF;
3372: l_count := sql%rowcount;
3373: arp_message.set_name('AR','AR_ROWS_UPDATED');
3374: arp_message.set_token('NUM_ROWS',to_char(l_count));
3375: EXCEPTION
3376: when others
3377: then
3370: AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
3371: END IF;
3372: l_count := sql%rowcount;
3373: arp_message.set_name('AR','AR_ROWS_UPDATED');
3374: arp_message.set_token('NUM_ROWS',to_char(l_count));
3375: EXCEPTION
3376: when others
3377: then
3378: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3374: arp_message.set_token('NUM_ROWS',to_char(l_count));
3375: EXCEPTION
3376: when others
3377: then
3378: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3379: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3380: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3381: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3382: x_return_status := FND_API.G_RET_STS_ERROR;
3481: l_count := 0;
3482: IF process_mode='LOCK' THEN
3483: NULL;
3484: ELSE
3485: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3486: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_LEASE_OPPORTUNITIES_B',FALSE);
3487: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3488: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3489:
3482: IF process_mode='LOCK' THEN
3483: NULL;
3484: ELSE
3485: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
3486: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_LEASE_OPPORTUNITIES_B',FALSE);
3487: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
3488: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
3489:
3490: OPEN merged_records;
3881: EXIT;
3882: END IF;
3883: END LOOP;
3884:
3885: arp_message.set_name('AR','AR_ROWS_UPDATED');
3886: arp_message.set_token('NUM_ROWS',to_char(l_count));
3887: END IF;
3888:
3889: OKL_API.END_ACTIVITY(
3882: END IF;
3883: END LOOP;
3884:
3885: arp_message.set_name('AR','AR_ROWS_UPDATED');
3886: arp_message.set_token('NUM_ROWS',to_char(l_count));
3887: END IF;
3888:
3889: OKL_API.END_ACTIVITY(
3890: x_msg_count => x_msg_count
3891: ,x_msg_data => x_msg_data);
3892: EXCEPTION
3893: WHEN OKL_API.G_EXCEPTION_ERROR
3894: THEN
3895: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3896: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3897: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3898: p_api_name => l_api_name,
3899: p_pkg_name => G_PKG_NAME,
3903: p_api_type => G_API_TYPE);
3904: RAISE;
3905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3906: THEN
3907: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3908: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3909: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3910: p_api_name => l_api_name,
3911: p_pkg_name => G_PKG_NAME,
3915: p_api_type => G_API_TYPE);
3916: RAISE;
3917: WHEN OTHERS
3918: THEN
3919: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3920: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3921: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3922: p_api_name => l_api_name,
3923: p_pkg_name => G_PKG_NAME,
4011: l_count := 0;
4012: IF process_mode='LOCK' THEN
4013: NULL;
4014: ELSE
4015: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4016: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_LEASE_APPLICATIONS_B',FALSE);
4017: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4018: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4019:
4012: IF process_mode='LOCK' THEN
4013: NULL;
4014: ELSE
4015: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4016: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_LEASE_APPLICATIONS_B',FALSE);
4017: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4018: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4019:
4020: OPEN merged_records;
4200: EXIT;
4201: END IF;
4202: END LOOP;
4203:
4204: arp_message.set_name('AR','AR_ROWS_UPDATED');
4205: arp_message.set_token('NUM_ROWS',to_char(l_count));
4206: END IF;
4207:
4208: OKL_API.END_ACTIVITY(
4201: END IF;
4202: END LOOP;
4203:
4204: arp_message.set_name('AR','AR_ROWS_UPDATED');
4205: arp_message.set_token('NUM_ROWS',to_char(l_count));
4206: END IF;
4207:
4208: OKL_API.END_ACTIVITY(
4209: x_msg_count => x_msg_count
4210: ,x_msg_data => x_msg_data);
4211: EXCEPTION
4212: WHEN OKL_API.G_EXCEPTION_ERROR
4213: THEN
4214: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4215: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4216: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4217: p_api_name => l_api_name,
4218: p_pkg_name => G_PKG_NAME,
4222: p_api_type => G_API_TYPE);
4223: RAISE;
4224: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4225: THEN
4226: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4227: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4228: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4229: p_api_name => l_api_name,
4230: p_pkg_name => G_PKG_NAME,
4234: p_api_type => G_API_TYPE);
4235: RAISE;
4236: WHEN OTHERS
4237: THEN
4238: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4239: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4240: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4241: p_api_name => l_api_name,
4242: p_pkg_name => G_PKG_NAME,
4301: l_count := 0;
4302: IF process_mode='LOCK' THEN
4303: NULL;
4304: ELSE
4305: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4306: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_EXT_SELL_INVS_B',FALSE);
4307: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4308: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4309:
4302: IF process_mode='LOCK' THEN
4303: NULL;
4304: ELSE
4305: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4306: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_EXT_SELL_INVS_B',FALSE);
4307: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4308: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4309:
4310: open merged_records;
4380: EXIT;
4381: END IF;
4382: END LOOP;
4383:
4384: arp_message.set_name('AR','AR_ROWS_UPDATED');
4385: arp_message.set_token('NUM_ROWS',to_char(l_count));
4386: END IF;
4387: EXCEPTION
4388: WHEN OTHERS THEN
4381: END IF;
4382: END LOOP;
4383:
4384: arp_message.set_name('AR','AR_ROWS_UPDATED');
4385: arp_message.set_token('NUM_ROWS',to_char(l_count));
4386: END IF;
4387: EXCEPTION
4388: WHEN OTHERS THEN
4389: arp_message.set_line( 'XSI_ACCOUNT_MERGE');
4385: arp_message.set_token('NUM_ROWS',to_char(l_count));
4386: END IF;
4387: EXCEPTION
4388: WHEN OTHERS THEN
4389: arp_message.set_line( 'XSI_ACCOUNT_MERGE');
4390: RAISE;
4391: END XSI_ACCOUNT_MERGE;
4392:
4393: /*-------------------------------------------------------------
4506: l_count := 0;
4507: IF process_mode='LOCK' THEN
4508: NULL;
4509: ELSE
4510: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4511: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
4512: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4513: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4514:
4507: IF process_mode='LOCK' THEN
4508: NULL;
4509: ELSE
4510: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4511: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TAX_SOURCES_T',FALSE);
4512: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4513: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4514:
4515: open merged_records;
4645: EXIT;
4646: END IF;
4647: END LOOP;
4648:
4649: arp_message.set_name('AR','AR_ROWS_UPDATED');
4650: arp_message.set_token('NUM_ROWS',to_char(l_count));
4651: END IF;
4652: EXCEPTION
4653: WHEN OTHERS THEN
4646: END IF;
4647: END LOOP;
4648:
4649: arp_message.set_name('AR','AR_ROWS_UPDATED');
4650: arp_message.set_token('NUM_ROWS',to_char(l_count));
4651: END IF;
4652: EXCEPTION
4653: WHEN OTHERS THEN
4654: IF merged_records%ISOPEN
4662: IF bt_st_dtls_csr%ISOPEN
4663: THEN
4664: CLOSE bt_st_dtls_csr;
4665: END IF;
4666: arp_message.set_line( 'TXST_ACCOUNT_MERGE');
4667: RAISE;
4668: END TXST_ACCOUNT_MERGE;
4669:
4670: /*-------------------------------------------------------------
4783: l_count := 0;
4784: IF process_mode='LOCK' THEN
4785: NULL;
4786: ELSE
4787: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4788: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
4789: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4790: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4791:
4784: IF process_mode='LOCK' THEN
4785: NULL;
4786: ELSE
4787: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
4788: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TAX_SOURCES',FALSE);
4789: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
4790: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
4791:
4792: open merged_records;
4922: EXIT;
4923: END IF;
4924: END LOOP;
4925:
4926: arp_message.set_name('AR','AR_ROWS_UPDATED');
4927: arp_message.set_token('NUM_ROWS',to_char(l_count));
4928: END IF;
4929: EXCEPTION
4930: WHEN OTHERS THEN
4923: END IF;
4924: END LOOP;
4925:
4926: arp_message.set_name('AR','AR_ROWS_UPDATED');
4927: arp_message.set_token('NUM_ROWS',to_char(l_count));
4928: END IF;
4929: EXCEPTION
4930: WHEN OTHERS THEN
4931: IF merged_records%ISOPEN
4939: IF bt_st_dtls_csr%ISOPEN
4940: THEN
4941: CLOSE bt_st_dtls_csr;
4942: END IF;
4943: arp_message.set_line( 'TXS_ACCOUNT_MERGE');
4944: RAISE;
4945: END TXS_ACCOUNT_MERGE;
4946:
4947: /*-------------------------------------------------------------
4998: l_count := 0;
4999: IF process_mode='LOCK' THEN
5000: NULL;
5001: ELSE
5002: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5003: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TRX_AR_INVOICES_B',FALSE);
5004: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5005: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5006:
4999: IF process_mode='LOCK' THEN
5000: NULL;
5001: ELSE
5002: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5003: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TRX_AR_INVOICES_B',FALSE);
5004: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5005: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5006:
5007: open merged_records;
5076: EXIT;
5077: END IF;
5078: END LOOP;
5079:
5080: arp_message.set_name('AR','AR_ROWS_UPDATED');
5081: arp_message.set_token('NUM_ROWS',to_char(l_count));
5082: END IF;
5083: EXCEPTION
5084: WHEN OTHERS THEN
5077: END IF;
5078: END LOOP;
5079:
5080: arp_message.set_name('AR','AR_ROWS_UPDATED');
5081: arp_message.set_token('NUM_ROWS',to_char(l_count));
5082: END IF;
5083: EXCEPTION
5084: WHEN OTHERS THEN
5085: arp_message.set_line( 'TAI_ACCOUNT_MERGE');
5081: arp_message.set_token('NUM_ROWS',to_char(l_count));
5082: END IF;
5083: EXCEPTION
5084: WHEN OTHERS THEN
5085: arp_message.set_line( 'TAI_ACCOUNT_MERGE');
5086: RAISE;
5087: END TAI_ACCOUNT_MERGE;
5088:
5089: /*-------------------------------------------------------------
5132: l_count := 0;
5133: IF process_mode='LOCK' THEN
5134: NULL;
5135: ELSE
5136: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5137: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TXL_RCPT_APPS_B',FALSE);
5138: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5139: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5140:
5133: IF process_mode='LOCK' THEN
5134: NULL;
5135: ELSE
5136: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5137: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_TXL_RCPT_APPS_B',FALSE);
5138: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5139: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5140:
5141: open merged_records;
5203: EXIT;
5204: END IF;
5205: END LOOP;
5206:
5207: arp_message.set_name('AR','AR_ROWS_UPDATED');
5208: arp_message.set_token('NUM_ROWS',to_char(l_count));
5209: END IF;
5210: EXCEPTION
5211: WHEN OTHERS THEN
5204: END IF;
5205: END LOOP;
5206:
5207: arp_message.set_name('AR','AR_ROWS_UPDATED');
5208: arp_message.set_token('NUM_ROWS',to_char(l_count));
5209: END IF;
5210: EXCEPTION
5211: WHEN OTHERS THEN
5212: arp_message.set_line( 'RCA_ACCOUNT_MERGE');
5208: arp_message.set_token('NUM_ROWS',to_char(l_count));
5209: END IF;
5210: EXCEPTION
5211: WHEN OTHERS THEN
5212: arp_message.set_line( 'RCA_ACCOUNT_MERGE');
5213: RAISE;
5214: END RCA_ACCOUNT_MERGE;
5215:
5216: /*-------------------------------------------------------------
5267: l_count := 0;
5268: IF process_mode='LOCK' THEN
5269: NULL;
5270: ELSE
5271: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5272: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_CNSLD_AR_HDRS_B',FALSE);
5273: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5274: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5275:
5268: IF process_mode='LOCK' THEN
5269: NULL;
5270: ELSE
5271: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5272: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_CNSLD_AR_HDRS_B',FALSE);
5273: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5274: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5275:
5276: open merged_records;
5345: EXIT;
5346: END IF;
5347: END LOOP;
5348:
5349: arp_message.set_name('AR','AR_ROWS_UPDATED');
5350: arp_message.set_token('NUM_ROWS',to_char(l_count));
5351: END IF;
5352: EXCEPTION
5353: WHEN OTHERS THEN
5346: END IF;
5347: END LOOP;
5348:
5349: arp_message.set_name('AR','AR_ROWS_UPDATED');
5350: arp_message.set_token('NUM_ROWS',to_char(l_count));
5351: END IF;
5352: EXCEPTION
5353: WHEN OTHERS THEN
5354: arp_message.set_line( 'CNR_ACCOUNT_MERGE');
5350: arp_message.set_token('NUM_ROWS',to_char(l_count));
5351: END IF;
5352: EXCEPTION
5353: WHEN OTHERS THEN
5354: arp_message.set_line( 'CNR_ACCOUNT_MERGE');
5355: RAISE;
5356: END CNR_ACCOUNT_MERGE;
5357:
5358: /*-------------------------------------------------------------
5401: l_count := 0;
5402: IF process_mode='LOCK' THEN
5403: NULL;
5404: ELSE
5405: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5406: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_CNTR_LVLNG_GRPS_B',FALSE);
5407: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5408: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5409:
5402: IF process_mode='LOCK' THEN
5403: NULL;
5404: ELSE
5405: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5406: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_CNTR_LVLNG_GRPS_B',FALSE);
5407: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5408: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5409:
5410: open merged_records;
5468: EXIT;
5469: END IF;
5470: END LOOP;
5471:
5472: arp_message.set_name('AR','AR_ROWS_UPDATED');
5473: arp_message.set_token('NUM_ROWS',to_char(l_count));
5474: END IF;
5475: EXCEPTION
5476: WHEN OTHERS THEN
5469: END IF;
5470: END LOOP;
5471:
5472: arp_message.set_name('AR','AR_ROWS_UPDATED');
5473: arp_message.set_token('NUM_ROWS',to_char(l_count));
5474: END IF;
5475: EXCEPTION
5476: WHEN OTHERS THEN
5477: arp_message.set_line( 'CLG_ACCOUNT_MERGE');
5473: arp_message.set_token('NUM_ROWS',to_char(l_count));
5474: END IF;
5475: EXCEPTION
5476: WHEN OTHERS THEN
5477: arp_message.set_line( 'CLG_ACCOUNT_MERGE');
5478: RAISE;
5479: END CLG_ACCOUNT_MERGE;
5480:
5481: /*-------------------------------------------------------------
5521: BEGIN
5522: IF process_mode='LOCK' THEN
5523: NULL;
5524: ELSE
5525: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5526: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_ACCT_SOURCES',FALSE);
5527: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5528: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5529:
5522: IF process_mode='LOCK' THEN
5523: NULL;
5524: ELSE
5525: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5526: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_ACCT_SOURCES',FALSE);
5527: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5528: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5529:
5530: open merged_records;
5591: EXIT;
5592: END IF;
5593: END LOOP;
5594:
5595: arp_message.set_name('AR','AR_ROWS_UPDATED');
5596: arp_message.set_token('NUM_ROWS',to_char(l_count));
5597: END IF;
5598: EXCEPTION
5599: WHEN OTHERS THEN
5592: END IF;
5593: END LOOP;
5594:
5595: arp_message.set_name('AR','AR_ROWS_UPDATED');
5596: arp_message.set_token('NUM_ROWS',to_char(l_count));
5597: END IF;
5598: EXCEPTION
5599: WHEN OTHERS THEN
5600: arp_message.set_line( 'ASE_ACCOUNT_MERGE');
5596: arp_message.set_token('NUM_ROWS',to_char(l_count));
5597: END IF;
5598: EXCEPTION
5599: WHEN OTHERS THEN
5600: arp_message.set_line( 'ASE_ACCOUNT_MERGE');
5601: RAISE;
5602: END ASE_ACCOUNT_MERGE;
5603:
5604: /*-------------------------------------------------------------
5644: BEGIN
5645: IF process_mode='LOCK' THEN
5646: NULL;
5647: ELSE
5648: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5649: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_SUPP_INVOICE_DTLS',FALSE);
5650: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5651: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5652:
5645: IF process_mode='LOCK' THEN
5646: NULL;
5647: ELSE
5648: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5649: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_SUPP_INVOICE_DTLS',FALSE);
5650: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5651: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5652:
5653: open merged_records;
5711: EXIT;
5712: END IF;
5713: END LOOP;
5714:
5715: arp_message.set_name('AR','AR_ROWS_UPDATED');
5716: arp_message.set_token('NUM_ROWS',to_char(l_count));
5717: END IF;
5718: EXCEPTION
5719: WHEN OTHERS THEN
5712: END IF;
5713: END LOOP;
5714:
5715: arp_message.set_name('AR','AR_ROWS_UPDATED');
5716: arp_message.set_token('NUM_ROWS',to_char(l_count));
5717: END IF;
5718: EXCEPTION
5719: WHEN OTHERS THEN
5720: arp_message.set_line( 'SID_ACCOUNT_MERGE');
5716: arp_message.set_token('NUM_ROWS',to_char(l_count));
5717: END IF;
5718: EXCEPTION
5719: WHEN OTHERS THEN
5720: arp_message.set_line( 'SID_ACCOUNT_MERGE');
5721: RAISE;
5722: END SID_ACCOUNT_MERGE;
5723:
5724: /*-------------------------------------------------------------
5764: BEGIN
5765: IF process_mode='LOCK' THEN
5766: NULL;
5767: ELSE
5768: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5769: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_SUPP_INVOICE_DTLS_H',FALSE);
5770: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5771: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5772:
5765: IF process_mode='LOCK' THEN
5766: NULL;
5767: ELSE
5768: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
5769: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKL_SUPP_INVOICE_DTLS_H',FALSE);
5770: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
5771: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
5772:
5773: open merged_records;
5831: EXIT;
5832: END IF;
5833: END LOOP;
5834:
5835: arp_message.set_name('AR','AR_ROWS_UPDATED');
5836: arp_message.set_token('NUM_ROWS',to_char(l_count));
5837: END IF;
5838: EXCEPTION
5839: WHEN OTHERS THEN
5832: END IF;
5833: END LOOP;
5834:
5835: arp_message.set_name('AR','AR_ROWS_UPDATED');
5836: arp_message.set_token('NUM_ROWS',to_char(l_count));
5837: END IF;
5838: EXCEPTION
5839: WHEN OTHERS THEN
5840: arp_message.set_line( 'SIDH_ACCOUNT_MERGE');
5836: arp_message.set_token('NUM_ROWS',to_char(l_count));
5837: END IF;
5838: EXCEPTION
5839: WHEN OTHERS THEN
5840: arp_message.set_line( 'SIDH_ACCOUNT_MERGE');
5841: RAISE;
5842: END SIDH_ACCOUNT_MERGE;
5843:
5844: ----------------------------------------------------------------------------------------------------------
5876: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
5877: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
5878: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
5879:
5880: arp_message.set_line('OKL_PARTY_MERGE_PUB.TCN_PARTY_REL_ID1_NEW()+');
5881: x_return_status := FND_API.G_RET_STS_SUCCESS;
5882:
5883: select merge_reason_code
5884: into l_merge_reason_code
5908: -- not transfer and return the id of the duplicate record as the Merged To Id
5909:
5910: if p_from_fk_id <> p_to_fk_id then
5911: begin
5912: arp_message.set_name('AR','AR_UPDATING_TABLE');
5913: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
5914:
5915: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID1_NEW
5916:
5909:
5910: if p_from_fk_id <> p_to_fk_id then
5911: begin
5912: arp_message.set_name('AR','AR_UPDATING_TABLE');
5913: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
5914:
5915: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID1_NEW
5916:
5917: UPDATE OKL_TRX_CONTRACTS_ALL TAB
5925: --AND TAB.REPRESENTATION_TYPE = 'PRIMARY' ;
5926: --
5927:
5928: l_count := sql%rowcount;
5929: arp_message.set_name('AR','AR_ROWS_UPDATED');
5930: arp_message.set_token('NUM_ROWS',to_char(l_count));
5931:
5932: exception
5933: when others then
5926: --
5927:
5928: l_count := sql%rowcount;
5929: arp_message.set_name('AR','AR_ROWS_UPDATED');
5930: arp_message.set_token('NUM_ROWS',to_char(l_count));
5931:
5932: exception
5933: when others then
5934: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
5930: arp_message.set_token('NUM_ROWS',to_char(l_count));
5931:
5932: exception
5933: when others then
5934: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
5935: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
5936: 'TCN_PARTY_REL_ID1_NEW for = '|| p_from_id));
5937: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
5938: x_return_status := FND_API.G_RET_STS_ERROR;
5975: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
5976: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
5977: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
5978:
5979: arp_message.set_line('OKL_PARTY_MERGE_PUB.TCN_PARTY_REL_ID1_OLD()+');
5980: x_return_status := FND_API.G_RET_STS_SUCCESS;
5981:
5982: select merge_reason_code
5983: into l_merge_reason_code
6007: -- not transfer and return the id of the duplicate record as the Merged To Id
6008:
6009: if p_from_fk_id <> p_to_fk_id then
6010: begin
6011: arp_message.set_name('AR','AR_UPDATING_TABLE');
6012: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
6013:
6014: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID1_OLD
6015:
6008:
6009: if p_from_fk_id <> p_to_fk_id then
6010: begin
6011: arp_message.set_name('AR','AR_UPDATING_TABLE');
6012: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
6013:
6014: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID1_OLD
6015:
6016: UPDATE OKL_TRX_CONTRACTS_ALL TAB
6024: --AND REPRESENTATION_TYPE = 'PRIMARY' ;
6025: --
6026:
6027: l_count := sql%rowcount;
6028: arp_message.set_name('AR','AR_ROWS_UPDATED');
6029: arp_message.set_token('NUM_ROWS',to_char(l_count));
6030:
6031: exception
6032: when others then
6025: --
6026:
6027: l_count := sql%rowcount;
6028: arp_message.set_name('AR','AR_ROWS_UPDATED');
6029: arp_message.set_token('NUM_ROWS',to_char(l_count));
6030:
6031: exception
6032: when others then
6033: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6029: arp_message.set_token('NUM_ROWS',to_char(l_count));
6030:
6031: exception
6032: when others then
6033: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6034: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
6035: 'TCN_PARTY_REL_ID1_OLD for = '|| p_from_id));
6036: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
6037: x_return_status := FND_API.G_RET_STS_ERROR;
6074: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
6075: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
6076: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
6077:
6078: arp_message.set_line('OKL_PARTY_MERGE_PUB.TCN_PARTY_REL_ID2_OLD()+');
6079: x_return_status := FND_API.G_RET_STS_SUCCESS;
6080:
6081: select merge_reason_code
6082: into l_merge_reason_code
6106: -- not transfer and return the id of the duplicate record as the Merged To Id
6107:
6108: if p_from_fk_id <> p_to_fk_id then
6109: begin
6110: arp_message.set_name('AR','AR_UPDATING_TABLE');
6111: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
6112:
6113: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID2_OLD
6114:
6107:
6108: if p_from_fk_id <> p_to_fk_id then
6109: begin
6110: arp_message.set_name('AR','AR_UPDATING_TABLE');
6111: arp_message.set_token('TABLE_NAME','OKL_TRX_CONTRACTS_ALL',FALSE);
6112:
6113: --updating the OKL_TRX_CONTRACTS_ALL table for column references PARTY_REL_ID2_OLD
6114:
6115: UPDATE OKL_TRX_CONTRACTS_ALL TAB
6123: --AND REPRESENTATION_TYPE = 'PRIMARY';
6124: --
6125:
6126: l_count := sql%rowcount;
6127: arp_message.set_name('AR','AR_ROWS_UPDATED');
6128: arp_message.set_token('NUM_ROWS',to_char(l_count));
6129:
6130: exception
6131: when others then
6124: --
6125:
6126: l_count := sql%rowcount;
6127: arp_message.set_name('AR','AR_ROWS_UPDATED');
6128: arp_message.set_token('NUM_ROWS',to_char(l_count));
6129:
6130: exception
6131: when others then
6132: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6128: arp_message.set_token('NUM_ROWS',to_char(l_count));
6129:
6130: exception
6131: when others then
6132: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6133: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
6134: 'TCN_PARTY_REL_ID2_OLD for = '|| p_from_id));
6135: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
6136: x_return_status := FND_API.G_RET_STS_ERROR;
6173: fnd_file.put_line(fnd_file.log, 'p_parent_entity_name : '||p_parent_entity_name);
6174: fnd_file.put_line(fnd_file.log, 'p_batch_id : '||p_batch_id);
6175: fnd_file.put_line(fnd_file.log, 'p_batch_party_id : '||p_batch_party_id);
6176:
6177: arp_message.set_line('OKL_PARTY_MERGE_PUB.RUL_PARTY_SITE_MERGE()+');
6178: x_return_status := FND_API.G_RET_STS_SUCCESS;
6179:
6180: select merge_reason_code into l_merge_reason_code
6181: from hz_merge_batch
6205: -- not transfer and return the id of the duplicate record as the Merged To Id
6206: if p_from_fk_id <> p_to_fk_id
6207: then
6208: begin
6209: arp_message.set_name('AR','AR_UPDATING_TABLE');
6210: arp_message.set_token('TABLE_NAME','OKC_RULES_B',FALSE);
6211:
6212: IF p_parent_entity_name = 'HZ_PARTY_SITES'
6213: THEN
6206: if p_from_fk_id <> p_to_fk_id
6207: then
6208: begin
6209: arp_message.set_name('AR','AR_UPDATING_TABLE');
6210: arp_message.set_token('TABLE_NAME','OKC_RULES_B',FALSE);
6211:
6212: IF p_parent_entity_name = 'HZ_PARTY_SITES'
6213: THEN
6214: --updating the OKC_RULES_B table for column references OBJECT1_ID1
6223: AND JTOT_OBJECT1_CODE = 'OKL_PARTYSITE'
6224: AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
6225: END IF;
6226: l_count := sql%rowcount;
6227: arp_message.set_name('AR','AR_ROWS_UPDATED');
6228: arp_message.set_token('NUM_ROWS',to_char(l_count));
6229: EXCEPTION
6230: when others
6231: then
6224: AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
6225: END IF;
6226: l_count := sql%rowcount;
6227: arp_message.set_name('AR','AR_ROWS_UPDATED');
6228: arp_message.set_token('NUM_ROWS',to_char(l_count));
6229: EXCEPTION
6230: when others
6231: then
6232: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6228: arp_message.set_token('NUM_ROWS',to_char(l_count));
6229: EXCEPTION
6230: when others
6231: then
6232: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
6233: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
6234: 'OKC_RULES_B for = '|| p_from_id));
6235: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
6236: x_return_status := FND_API.G_RET_STS_ERROR;
6308: BEGIN
6309: IF process_mode='LOCK' THEN
6310: NULL;
6311: ELSE
6312: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
6313: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKC_RULES_B',FALSE);
6314: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
6315: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
6316:
6309: IF process_mode='LOCK' THEN
6310: NULL;
6311: ELSE
6312: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
6313: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','OKC_RULES_B',FALSE);
6314: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
6315: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
6316:
6317: OPEN merged_records;
6382: EXIT;
6383: END IF;
6384: END LOOP;
6385:
6386: arp_message.set_name('AR','AR_ROWS_UPDATED');
6387: arp_message.set_token('NUM_ROWS',to_char(l_count));
6388: END IF;
6389: EXCEPTION
6390: WHEN OTHERS
6383: END IF;
6384: END LOOP;
6385:
6386: arp_message.set_name('AR','AR_ROWS_UPDATED');
6387: arp_message.set_token('NUM_ROWS',to_char(l_count));
6388: END IF;
6389: EXCEPTION
6390: WHEN OTHERS
6391: THEN
6388: END IF;
6389: EXCEPTION
6390: WHEN OTHERS
6391: THEN
6392: arp_message.set_line('RUL_ACCOUNT_MERGE');
6393: RAISE;
6394: END RUL_ACCOUNT_MERGE;
6395:
6396: END OKL_PARTY_MERGE_PUB;