73: l_msg_data VARCHAR2(2000);
74: l_batch_status VARCHAR2(30);
75: BEGIN
76: IF OZF_DEBUG_HIGH_ON THEN
77: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
78: END IF;
79:
80: IF (funcmode = 'RUN') THEN
81:
93:
94: END IF;
95:
96: IF OZF_DEBUG_LOW_ON THEN
97: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
98: END IF;
99:
100: IF l_batch_id IS NOT NULL THEN
101:
112: x_msg_data => l_msg_data
113: );
114:
115: IF OZF_DEBUG_LOW_ON THEN
116: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
117: END IF;
118:
119: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
120: l_resultout := 'COMPLETE:ERROR';
202: where batch_number = pc_batch_no;
203:
204: BEGIN
205: IF OZF_DEBUG_HIGH_ON THEN
206: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
207: END IF;
208:
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210: IF p_batch_number IS NOT NULL THEN
228: x_msg_data => l_msg_data
229: );
230:
231: IF OZF_DEBUG_LOW_ON THEN
232: ozf_utility_pvt.debug_message('Pre Process is complete '|| x_return_status);
233: END IF;
234:
235: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
236: RAISE FND_API.G_EXC_ERROR;
263:
264: END IF; -- p_batch_number is not null
265:
266: IF OZF_DEBUG_HIGH_ON THEN
267: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
268: END IF;
269:
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN
354: FND_MSG_PUB.initialize;
355: END IF;
356:
357: IF OZF_DEBUG_HIGH_ON THEN
358: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
359: END IF;
360:
361: -- Initialize API return status to SUCCESS
362: x_return_status := FND_API.G_RET_STS_SUCCESS;
495: END IF;
496:
497: -- Debug Message
498: IF OZF_DEBUG_HIGH_ON THEN
499: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
500: END IF;
501:
502: -- Standard call to get message count and if count is 1, get message info.
503: FND_MSG_PUB.Count_And_Get
573: l_batch_status VARCHAR2(30);
574:
575: BEGIN
576: IF OZF_DEBUG_HIGH_ON THEN
577: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
578: END IF;
579:
580: x_return_status := FND_API.G_RET_STS_SUCCESS;
581: --
608: x_msg_count => l_msg_count,
609: x_msg_data => l_msg_data
610: );
611: IF OZF_DEBUG_LOW_ON THEN
612: ozf_utility_pvt.debug_message('Batch Status from Validate Batch ' || l_batch_status);
613: END IF;
614: --
615: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
616: RAISE FND_API.G_EXC_ERROR;
652: x_resale_batch_rec := NULL;
653: END IF;
654:
655: IF OZF_DEBUG_HIGH_ON THEN
656: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
657: END IF;
658: EXCEPTION
659: WHEN FND_API.G_EXC_ERROR THEN
660: x_return_status := FND_API.G_RET_STS_ERROR;
706: l_admin_email VARCHAR2(3000);
707:
708: BEGIN
709: IF OZF_DEBUG_HIGH_ON THEN
710: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
711: END IF;
712:
713: x_return_status := FND_API.G_RET_STS_SUCCESS;
714:
713: x_return_status := FND_API.G_RET_STS_SUCCESS;
714:
715: -- Fetch the batch record
716: IF OZF_DEBUG_LOW_ON THEN
717: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id );
718: END IF;
719:
720: OPEN csr_get_batch_info ( p_batch_id);
721: FETCH csr_get_batch_info INTO x_resale_batch_rec;
720: OPEN csr_get_batch_info ( p_batch_id);
721: FETCH csr_get_batch_info INTO x_resale_batch_rec;
722:
723: IF OZF_DEBUG_LOW_ON THEN
724: ozf_utility_pvt.debug_message('after batch fetch');
725: END IF;
726:
727: IF csr_get_batch_info%NOTFOUND THEN
728: IF OZF_DEBUG_LOW_ON THEN
725: END IF;
726:
727: IF csr_get_batch_info%NOTFOUND THEN
728: IF OZF_DEBUG_LOW_ON THEN
729: ozf_utility_pvt.debug_message('No records found');
730: END IF;
731:
732: insert_resale_log(
733: p_id_value => p_batch_id,
737: p_column_value => NULL,
738: x_return_status => x_return_status
739: );
740: IF OZF_DEBUG_LOW_ON THEN
741: ozf_utility_pvt.debug_message('x_return_status from insert resale log' ||x_return_status );
742: END IF;
743:
744: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
745: RAISE FND_API.G_EXC_ERROR;
755: -- OR it could be User defined Location Code, in that case based on
756: -- location code trading partner party id and party site id are retrieved from
757: -- Trading Partner Header
758: IF OZF_DEBUG_LOW_ON THEN
759: ozf_utility_pvt.debug_message('ECX fetch');
760: ozf_utility_pvt.debug_message('x_resale_batch_rec.partner_site_id'||x_resale_batch_rec.partner_site_id);
761: END IF;
762:
763: -- bug fix 13769840
756: -- location code trading partner party id and party site id are retrieved from
757: -- Trading Partner Header
758: IF OZF_DEBUG_LOW_ON THEN
759: ozf_utility_pvt.debug_message('ECX fetch');
760: ozf_utility_pvt.debug_message('x_resale_batch_rec.partner_site_id'||x_resale_batch_rec.partner_site_id);
761: END IF;
762:
763: -- bug fix 13769840
764: -- execute cursor get_ecx_party_id only if partner_party_id is null.
770: INTO l_partner_party_id,l_party_site_id, l_admin_email;
771: CLOSE get_ecx_party_id;
772:
773: IF OZF_DEBUG_LOW_ON THEN
774: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
775: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
776: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
777: END IF;
778:
771: CLOSE get_ecx_party_id;
772:
773: IF OZF_DEBUG_LOW_ON THEN
774: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
775: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
776: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
777: END IF;
778:
779: --IF x_resale_batch_rec.partner_party_id IS NULL THEN
772:
773: IF OZF_DEBUG_LOW_ON THEN
774: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
775: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
776: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
777: END IF;
778:
779: --IF x_resale_batch_rec.partner_party_id IS NULL THEN
780: x_resale_batch_rec.partner_party_id := l_partner_party_id;
782: G_ADMIN_EMAIL := l_admin_email;
783: END IF;
784:
785: IF OZF_DEBUG_LOW_ON THEN
786: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
787: END IF;
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
823: l_chk_flag VARCHAR2(1) := NULL;
824: time NUMBER;
825: BEGIN
826: IF OZF_DEBUG_LOW_ON THEN
827: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
828: END IF;
829:
830: -- ========================================================================
831: -- NULL Checks
833:
834: -- Partner id is null
835: IF OZF_DEBUG_LOW_ON THEN
836: time := DBMS_UTILITY.GET_TIME;
837: ozf_utility_pvt.debug_message('Start Time (in Seconds) in '|| l_api_name || ' '|| time/100);
838: END IF;
839:
840: IF p_resale_batch_rec.partner_party_id IS NULL THEN
841: IF p_resale_batch_rec.partner_cust_account_id IS NULL THEN
840: IF p_resale_batch_rec.partner_party_id IS NULL THEN
841: IF p_resale_batch_rec.partner_cust_account_id IS NULL THEN
842:
843: IF OZF_DEBUG_LOW_ON THEN
844: ozf_utility_pvt.debug_message ( 'Partner Party ID is null ');
845: END IF;
846:
847: insert_resale_log
848: (p_id_value => p_resale_batch_rec.resale_batch_id,
863: END IF; -- l_partner_party_id is null
864:
865: -- Report Start Date is null
866: IF OZF_DEBUG_LOW_ON THEN
867: ozf_utility_pvt.debug_message ( 'Report Start Date '||p_resale_batch_rec.report_start_date);
868: END IF;
869:
870: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
871: AND p_resale_batch_rec.report_start_date IS NULL THEN
870: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
871: AND p_resale_batch_rec.report_start_date IS NULL THEN
872:
873: IF OZF_DEBUG_LOW_ON THEN
874: ozf_utility_pvt.debug_message ( 'Report Start Date is null ');
875: END IF;
876:
877: insert_resale_log
878: ( p_id_value => p_resale_batch_rec.resale_batch_id,
893: END IF; -- Report Start Date null
894:
895: -- Report End Date is null
896: IF OZF_DEBUG_LOW_ON THEN
897: ozf_utility_pvt.debug_message ( 'Report End Date '||p_resale_batch_rec.report_end_date);
898: END IF;
899:
900: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
901: AND p_resale_batch_rec.report_end_date IS NULL THEN
900: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
901: AND p_resale_batch_rec.report_end_date IS NULL THEN
902:
903: IF OZF_DEBUG_LOW_ON THEN
904: ozf_utility_pvt.debug_message ( 'Report End Date is null ');
905: END IF;
906:
907: insert_resale_log
908: (p_id_value => p_resale_batch_rec.resale_batch_id,
928: AND p_resale_batch_rec.report_end_date IS NOT NULL
929: AND p_resale_batch_rec.report_start_date > p_resale_batch_rec.report_end_date
930: THEN
931: IF OZF_DEBUG_LOW_ON THEN
932: ozf_utility_pvt.debug_message ( 'Report start date is less than Report end date ');
933: END IF;
934: insert_resale_log
935: (p_id_value => p_resale_batch_rec.resale_batch_id,
936: p_id_type => 'BATCH',
964: CLOSE chk_cust_account;
965:
966: IF l_chk_flag IS NULL THEN
967: IF OZF_DEBUG_LOW_ON THEN
968: ozf_utility_pvt.debug_message ( 'Partner Customer Account ID is invalid ');
969: END IF;
970:
971: insert_resale_log
972: (p_id_value => p_resale_batch_rec.resale_batch_id,
993: AND p_resale_batch_rec.transaction_type_code IS NULL
994: AND p_resale_batch_rec.batch_type IS NULL THEN
995: --
996: IF OZF_DEBUG_LOW_ON THEN
997: ozf_utility_pvt.debug_message ( 'Batch Type and transaction_type_code is null ');
998: END IF;
999:
1000: insert_resale_log
1001: (p_id_value => p_resale_batch_rec.resale_batch_id,
1020: END IF;
1021:
1022: -- Debug Message
1023: IF OZF_DEBUG_LOW_ON THEN
1024: ozf_utility_pvt.debug_message('End Time (in Seconds) in '|| l_api_name || ' '|| (DBMS_UTILITY.GET_TIME - time)/100);
1025: END IF;
1026: IF OZF_DEBUG_HIGH_ON THEN
1027: ozf_utility_pvt.debug_message(l_api_name||': End');
1028: END IF;
1023: IF OZF_DEBUG_LOW_ON THEN
1024: ozf_utility_pvt.debug_message('End Time (in Seconds) in '|| l_api_name || ' '|| (DBMS_UTILITY.GET_TIME - time)/100);
1025: END IF;
1026: IF OZF_DEBUG_HIGH_ON THEN
1027: ozf_utility_pvt.debug_message(l_api_name||': End');
1028: END IF;
1029: EXCEPTION
1030: WHEN FND_API.G_EXC_ERROR THEN
1031: x_return_status := FND_API.G_RET_STS_ERROR;
1074: l_dqm_contact_rule VARCHAR2(100);
1075:
1076: BEGIN
1077: IF OZF_DEBUG_HIGH_ON THEN
1078: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
1079: END IF;
1080: --
1081: -- Transaction Type Defaulting
1082: -- -----------------------------------------------------------------
1091: l_resale_batch_rec.transaction_type_code := g_product_transfer;
1092: END IF;
1093: END IF;
1094: IF OZF_DEBUG_LOW_ON THEN
1095: ozf_utility_pvt.debug_message ( 'Batch Type is '|| l_resale_batch_rec.batch_type);
1096: END IF;
1097: ELSE
1098: --
1099: -- Batch Type Defaulting
1107: l_resale_batch_rec.batch_type := OZF_RESALE_COMMON_PVT.G_TRACING;
1108: END IF;
1109: END IF;
1110: IF OZF_DEBUG_LOW_ON THEN
1111: ozf_utility_pvt.debug_message ( 'transaction_type_code is '|| l_resale_batch_rec.transaction_type_code);
1112: END IF;
1113: END IF;
1114:
1115: --
1118: IF px_resale_batch_rec.report_date IS NULL THEN
1119: l_resale_batch_rec.report_date := TO_DATE(TO_CHAR(SYSDATE,'MM/DD/YYYY'),'MM/DD/YYYY');
1120: END IF;
1121: IF OZF_DEBUG_LOW_ON THEN
1122: ozf_utility_pvt.debug_message ( 'Report Date is '|| l_resale_batch_rec.report_date);
1123: END IF;
1124: --
1125: -- Transaction Purpose Code Defaulting
1126: -- -----------------------------------------------------------------
1127: IF px_resale_batch_rec.transaction_purpose_code IS NULL THEN
1128: l_resale_batch_rec.transaction_purpose_code := g_original;
1129: END IF;
1130: IF OZF_DEBUG_LOW_ON THEN
1131: ozf_utility_pvt.debug_message ( 'transaction_purpose_code is '|| l_resale_batch_rec.transaction_purpose_code);
1132: END IF;
1133: --
1134: -- Partner Type Defaulting
1135: -- -----------------------------------------------------------------
1136: IF px_resale_batch_rec.partner_type IS NULL THEN
1137: l_resale_batch_rec.partner_type := g_distributor;
1138: END IF;
1139: IF OZF_DEBUG_LOW_ON THEN
1140: ozf_utility_pvt.debug_message ( 'partner_type is '|| l_resale_batch_rec.partner_type);
1141: END IF;
1142:
1143: IF px_resale_batch_rec.batch_count IS NULL THEN
1144: l_resale_batch_rec.batch_count := 0;
1161: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1163: END IF;
1164: IF OZF_DEBUG_LOW_ON THEN
1165: ozf_utility_pvt.debug_message ( 'partner_cust_account_id is '|| l_resale_batch_rec.partner_cust_account_id);
1166: END IF;
1167: END IF;
1168:
1169: ELSE
1178: FETCH get_partner_id INTO l_resale_batch_rec.partner_id;
1179: CLOSE get_partner_id;
1180:
1181: IF OZF_DEBUG_LOW_ON THEN
1182: ozf_utility_pvt.debug_message ( 'partner_id is '|| l_resale_batch_rec.partner_id);
1183: END IF;
1184: --
1185: -- Contact Party ID derivation from DQM
1186: -- -----------------------------------------------------------------
1204: l_partner_cntct_rec.party_phone := px_resale_batch_rec.partner_phone;
1205: l_partner_cntct_rec.party_fax := px_resale_batch_rec.partner_fax;
1206: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
1207: IF OZF_DEBUG_LOW_ON THEN
1208: ozf_utility_pvt.debug_message ( 'DQM Contact Rule '|| l_dqm_contact_rule);
1209: END IF;
1210: IF l_dqm_contact_rule IS NOT NULL THEN
1211:
1212: l_partner_cntct_rec.contact_rule_name := l_dqm_contact_rule;
1210: IF l_dqm_contact_rule IS NOT NULL THEN
1211:
1212: l_partner_cntct_rec.contact_rule_name := l_dqm_contact_rule;
1213: IF OZF_DEBUG_LOW_ON THEN
1214: ozf_utility_pvt.debug_message ( 'DQM Contact Rule '|| l_partner_cntct_rec.contact_rule_name);
1215: END IF;
1216: IF l_partner_cntct_rec.contact_name IS NOT NULL THEN
1217:
1218: DQM_Processing (
1252: IF l_party_contact_id IS NULL THEN
1253: l_resale_batch_rec.partner_contact_party_id := l_party_contact_id;
1254: ELSE
1255: IF OZF_DEBUG_LOW_ON THEN
1256: ozf_utility_pvt.debug_message('DQM did not return any contacts ' );
1257: END IF;
1258: END IF;
1259:
1260: ELSE
1258: END IF;
1259:
1260: ELSE
1261: IF OZF_DEBUG_LOW_ON THEN
1262: ozf_utility_pvt.debug_message('Partner Contact name is null ' );
1263: END IF;
1264: END IF; --l_partner_cntct_rec.contact_name
1265: ELSE
1266: IF OZF_DEBUG_LOW_ON THEN
1263: END IF;
1264: END IF; --l_partner_cntct_rec.contact_name
1265: ELSE
1266: IF OZF_DEBUG_LOW_ON THEN
1267: ozf_utility_pvt.debug_message('DQM rules are not setup ' );
1268: END IF;
1269: END IF;
1270: END IF; -- px_resale_batch_rec.partner_contact_party_id
1271:
1276: OR l_resale_batch_rec.status_code IS NULL THEN
1277: l_resale_batch_rec.status_code := 'OPEN';
1278: END IF;
1279: IF OZF_DEBUG_LOW_ON THEN
1280: ozf_utility_pvt.debug_message ( 'Status Code '|| l_resale_batch_rec.status_code);
1281: END IF;
1282:
1283: --
1284: -- Org ID Defaulting
1287: IF l_resale_batch_rec.org_id IS NULL THEN
1288: l_resale_batch_rec.org_id := G_DEFAULT_ORG_ID; --FND_PROFILE.value('DEFAULT_ORG_ID');
1289: END IF;
1290: IF OZF_DEBUG_LOW_ON THEN
1291: ozf_utility_pvt.debug_message ( 'Org ID '|| l_resale_batch_rec.org_id);
1292: END IF;
1293: -- Derived Record Assignment
1294: -- -----------------------------------------------------------------
1295: px_resale_batch_rec := l_resale_batch_rec;
1297: g_batch_currency_code := l_resale_batch_rec.currency_code;
1298:
1299: -- Debug Message
1300: IF OZF_DEBUG_HIGH_ON THEN
1301: ozf_utility_pvt.debug_message(l_api_name||': End');
1302: END IF;
1303:
1304: --Standard call to get message count AND IF count=1, get the message
1305: FND_MSG_PUB.Count_And_Get (
1490: l_line_count NUMBER;
1491:
1492: BEGIN
1493: IF OZF_DEBUG_HIGH_ON THEN
1494: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
1495: END IF;
1496: x_return_status := FND_API.G_RET_STS_SUCCESS;
1497: OPEN csr_get_line_info ( p_batch_id);
1498: LOOP
1712: IF G_LINES_PROCESSED = l_cnt THEN
1713: px_batch_record.status_code := g_batch_open;
1714: END IF; */
1715: IF OZF_DEBUG_LOW_ON THEN
1716: ozf_utility_pvt.debug_message('Total Line Count '|| l_cnt);
1717: END IF;
1718: IF OZF_DEBUG_HIGH_ON THEN
1719: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
1720: END IF;
1715: IF OZF_DEBUG_LOW_ON THEN
1716: ozf_utility_pvt.debug_message('Total Line Count '|| l_cnt);
1717: END IF;
1718: IF OZF_DEBUG_HIGH_ON THEN
1719: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
1720: END IF;
1721: EXCEPTION
1722: WHEN FND_API.G_EXC_ERROR THEN
1723: x_return_status := FND_API.G_RET_STS_ERROR;
1764: l_api_version_number CONSTANT NUMBER := 1.0;
1765:
1766: BEGIN
1767: IF OZF_DEBUG_HIGH_ON THEN
1768: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
1769: END IF;
1770: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1771: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'ozf.idsm.workflow.preprocess.lines_process',
1772: 'Private API: ' || l_api_name || ' start');
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818: END IF;
1819:
1820: IF OZF_DEBUG_HIGH_ON THEN
1821: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
1822: END IF;
1823:
1824: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1825: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'ozf.idsm.workflow.preprocess.lines_process',
1871: cnt NUMBER := 0;
1872:
1873: BEGIN
1874: IF OZF_DEBUG_LOW_ON THEN
1875: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
1876: END IF;
1877:
1878: x_return_status := FND_API.G_RET_STS_SUCCESS;
1879:
1877:
1878: x_return_status := FND_API.G_RET_STS_SUCCESS;
1879:
1880: IF OZF_DEBUG_LOW_ON THEN
1881: ozf_utility_pvt.debug_message('Batch ID ' || p_batch_id);
1882: ozf_utility_pvt.debug_message('Line Count in line bulk update ' || p_line_record.resale_line_int_id.COUNT);
1883: END IF;
1884:
1885: FORALL i IN 1 .. p_line_record.resale_line_int_id.COUNT
1878: x_return_status := FND_API.G_RET_STS_SUCCESS;
1879:
1880: IF OZF_DEBUG_LOW_ON THEN
1881: ozf_utility_pvt.debug_message('Batch ID ' || p_batch_id);
1882: ozf_utility_pvt.debug_message('Line Count in line bulk update ' || p_line_record.resale_line_int_id.COUNT);
1883: END IF;
1884:
1885: FORALL i IN 1 .. p_line_record.resale_line_int_id.COUNT
1886: UPDATE ozf_resale_lines_int_all
2019: WHERE resale_batch_id = p_batch_id
2020: AND resale_line_int_id = p_line_record.resale_line_int_id(i);
2021:
2022: IF OZF_DEBUG_HIGH_ON THEN
2023: ozf_utility_pvt.debug_message('SQL%RowCount ' || SQL%ROWCOUNT);
2024: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
2025: END IF;
2026: EXCEPTION
2027: WHEN FND_API.G_EXC_ERROR THEN
2020: AND resale_line_int_id = p_line_record.resale_line_int_id(i);
2021:
2022: IF OZF_DEBUG_HIGH_ON THEN
2023: ozf_utility_pvt.debug_message('SQL%RowCount ' || SQL%ROWCOUNT);
2024: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
2025: END IF;
2026: EXCEPTION
2027: WHEN FND_API.G_EXC_ERROR THEN
2028: x_return_status := FND_API.G_RET_STS_ERROR;
2074:
2075:
2076: BEGIN
2077: IF OZF_DEBUG_HIGH_ON THEN
2078: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
2079: END IF;
2080:
2081: x_return_status := FND_API.G_RET_STS_SUCCESS;
2082:
2089: g_inventory_tracking_flag := 'F';
2090: END IF;
2091:
2092: IF OZF_DEBUG_LOW_ON THEN
2093: ozf_utility_pvt.debug_message('Inventory Tracking Flag ' || g_inventory_tracking_flag);
2094: END IF;
2095: -- Derive the currency from batch if the line currency is null
2096: -- and the purchase price and selling price is dervied by applying the
2097: -- currency conversion if the currencies are different for purchase, agreement and selling price
2152: END IF; -- sign(p_quantity(i)) = -1
2153: END IF;
2154: END IF;
2155: IF OZF_DEBUG_LOW_ON THEN
2156: ozf_utility_pvt.debug_message('Movement Type ' || px_line_record.product_transfer_movement_type(i));
2157: END IF;
2158:
2159: -- Derive Resale Transfer Type
2160:
2195: -- For Bug#9447673 SSD IDSM ER(-)
2196: END IF; -- px_line_record.resale_transfer_type(i) IS NULL
2197:
2198: IF OZF_DEBUG_LOW_ON THEN
2199: ozf_utility_pvt.debug_message('resale_transfer_type' || px_line_record.resale_transfer_type(i));
2200: END IF;
2201:
2202: -- Derive Order Category
2203:
2210:
2211: END IF;
2212:
2213: IF OZF_DEBUG_LOW_ON THEN
2214: ozf_utility_pvt.debug_message('order_category' || px_line_record.order_category(i));
2215: END IF;
2216:
2217: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(px_line_record.resale_batch_id(i));
2218: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr INTO l_batch_type;
2233: px_line_record.agreement_type(i) = 'PL' THEN
2234: px_line_record.price_list_id(i) := px_line_record.agreement_id(i);
2235: END IF;
2236: IF OZF_DEBUG_LOW_ON THEN
2237: ozf_utility_pvt.debug_message('agreement_id' || px_line_record.agreement_id(i));
2238: END IF;
2239:
2240: -- Derive Tracing flag
2241: IF px_line_record.tracing_flag(i) IS NULL THEN
2249: px_line_record.tracing_flag(i) := 'F';
2250: END IF;
2251: END IF;
2252: IF OZF_DEBUG_LOW_ON THEN
2253: ozf_utility_pvt.debug_message('tracing_flag' || px_line_record.tracing_flag(i));
2254: END IF;
2255: END LOOP;
2256:
2257: END IF;
2256:
2257: END IF;
2258:
2259: IF OZF_DEBUG_HIGH_ON THEN
2260: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
2261: END IF;
2262: EXCEPTION
2263: WHEN FND_API.G_EXC_ERROR THEN
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2362: l_agreement_org_id NUMBER;
2363:
2364: BEGIN
2365: IF OZF_DEBUG_HIGH_ON THEN
2366: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
2367: END IF;
2368:
2369: x_return_status := FND_API.G_RET_STS_SUCCESS;
2370:
2383:
2384:
2385: FOR i IN 1 .. p_line_count LOOP
2386: IF OZF_DEBUG_LOW_ON THEN
2387: ozf_utility_pvt.debug_message('Direct Customer Flag ('||i||')'|| px_line_record.direct_customer_flag(i));
2388: END IF;
2389:
2390: IF px_line_record.sold_from_cust_account_id(i) IS NULL THEN
2391: px_line_record.sold_from_cust_account_id(i) := px_batch_record.partner_cust_account_id;
2778: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
2779: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO px_line_record.exchange_rate_type(i);
2780: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
2781: END IF;
2782: OZF_UTILITY_PVT.Convert_Currency(
2783: p_from_currency => px_line_record.currency_code(i)
2784: ,p_to_currency => l_functional_currency
2785: ,p_conv_type => px_line_record.exchange_rate_type(i)
2786: ,p_conv_rate => px_line_record.exchange_rate(i)
2797: END IF;
2798: px_line_record.acctd_purchase_price(i) := l_new_converted_amount;
2799: ELSE
2800: px_line_record.acctd_purchase_price(i)
2801: := OZF_UTILITY_PVT.CurrRound(px_line_record.purchase_price(i)*px_line_record.exchange_rate(i), l_functional_currency);
2802: END IF; -- px_line_record.exchange_rate(i) IS NULL
2803: ELSE
2804: px_line_record.acctd_purchase_price(i) := px_line_record.purchase_price(i);
2805: END IF; -- l_functional_currency <> px_line_record.currency_code(i)
3027:
3028: END LOOP;
3029:
3030: IF OZF_DEBUG_HIGH_ON THEN
3031: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
3032: END IF;
3033: EXCEPTION
3034: WHEN FND_API.G_EXC_ERROR THEN
3035: x_return_status := FND_API.G_RET_STS_ERROR;
3115:
3116:
3117: BEGIN
3118: IF OZF_DEBUG_HIGH_ON THEN
3119: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
3120: END IF;
3121: x_return_status := FND_API.G_RET_STS_SUCCESS;
3122:
3123: OPEN end_cust_relation_flag_csr;
3157: CLOSE get_site_use_id;
3158: END IF;
3159:
3160: IF OZF_DEBUG_LOW_ON THEN
3161: ozf_utility_pvt.debug_message('Code Conversion done already !');
3162: ozf_utility_pvt.debug_message('Internal Code: ' ||l_party_site_tbl(i));
3163: END IF;
3164: ELSE
3165: OZF_CODE_CONVERSION_PVT.convert_code
3158: END IF;
3159:
3160: IF OZF_DEBUG_LOW_ON THEN
3161: ozf_utility_pvt.debug_message('Code Conversion done already !');
3162: ozf_utility_pvt.debug_message('Internal Code: ' ||l_party_site_tbl(i));
3163: END IF;
3164: ELSE
3165: OZF_CODE_CONVERSION_PVT.convert_code
3166: (p_cust_account_id => p_cust_account_id,
3178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3179: END IF;
3180:
3181: IF OZF_DEBUG_LOW_ON THEN
3182: ozf_utility_pvt.debug_message('Code Conversion Completed');
3183: ozf_utility_pvt.debug_message('Internal Code'|| l_party_site_tbl(i));
3184: END IF;
3185:
3186: IF l_party_site_tbl.EXISTS(i) AND l_party_site_tbl(i) IS NOT NULL THEN
3179: END IF;
3180:
3181: IF OZF_DEBUG_LOW_ON THEN
3182: ozf_utility_pvt.debug_message('Code Conversion Completed');
3183: ozf_utility_pvt.debug_message('Internal Code'|| l_party_site_tbl(i));
3184: END IF;
3185:
3186: IF l_party_site_tbl.EXISTS(i) AND l_party_site_tbl(i) IS NOT NULL THEN
3187: l_temp_code_tbl(idx) := l_party_site_tbl(i);
3251: IF l_temp_code_tbl.exists(idx) AND l_temp_code_tbl(idx) IS NOT NULL THEN
3252: l_party_tbl(i) := l_temp_code_tbl(idx);
3253: px_party_id_tbl(i) := TO_NUMBER(l_party_tbl(i));
3254: IF OZF_DEBUG_LOW_ON THEN
3255: ozf_utility_pvt.debug_message('Internal Code: ' || l_party_tbl(i));
3256: END IF;
3257: ELSE
3258: OZF_CODE_CONVERSION_PVT.convert_code
3259: (p_cust_account_id => p_cust_account_id,
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: END IF;
3273:
3274: IF OZF_DEBUG_LOW_ON THEN
3275: ozf_utility_pvt.debug_message('Internal Code'||l_party_tbl(i));
3276: END IF;
3277:
3278: IF l_party_tbl.EXISTS(i) AND l_party_tbl(i) IS NOT NULL THEN
3279: l_temp_code_tbl(idx) := l_party_tbl(i);
3311: END IF;
3312:
3313:
3314: IF OZF_DEBUG_HIGH_ON THEN
3315: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
3316: END IF;
3317: EXCEPTION
3318: WHEN FND_API.G_EXC_ERROR THEN
3319: x_return_status := FND_API.G_RET_STS_ERROR;
3340: l_api_version_number CONSTANT NUMBER := 1.0;
3341:
3342: BEGIN
3343: IF OZF_DEBUG_HIGH_ON THEN
3344: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
3345: END IF;
3346:
3347: x_return_status := FND_API.G_RET_STS_SUCCESS;
3348: Agreement_Default
3552: END IF;
3553: --//End Bugfix : 12649013
3554: -- end
3555: IF OZF_DEBUG_HIGH_ON THEN
3556: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
3557: END IF;
3558:
3559: EXCEPTION
3560: WHEN FND_API.G_EXC_ERROR THEN
3606: l_null_flag_tb VARCHAR2_TABLE;
3607:
3608: BEGIN
3609: IF OZF_DEBUG_HIGH_ON THEN
3610: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3611: END IF;
3612:
3613: x_return_status := FND_API.G_RET_STS_SUCCESS;
3614:
3615: -- ----------------------------------------------------------
3616: -- SHIP_FROM Customer
3617: -- ----------------------------------------------------------
3618: IF OZF_DEBUG_LOW_ON THEN
3619: ozf_utility_pvt.debug_message('++++++++++++++ SHIP FROM Customer ++++++++++++++ (+)');
3620: END IF;
3621: Party_Validations
3622: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3623: , p_location => px_line_record.ship_from_location
3645: , x_return_status => x_return_status
3646: );
3647: IF OZF_DEBUG_LOW_ON THEN
3648: FOR i IN 1..px_line_record.ship_from_cust_account_id.count LOOP
3649: ozf_utility_pvt.debug_message ('ship_from_cust_account_id ('||i||')'||px_line_record.ship_from_cust_account_id(i));
3650: ozf_utility_pvt.debug_message ('ship_from_site_id ('||i||')'||px_line_record.ship_from_site_id(i));
3651: END LOOP;
3652: END IF;
3653: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3646: );
3647: IF OZF_DEBUG_LOW_ON THEN
3648: FOR i IN 1..px_line_record.ship_from_cust_account_id.count LOOP
3649: ozf_utility_pvt.debug_message ('ship_from_cust_account_id ('||i||')'||px_line_record.ship_from_cust_account_id(i));
3650: ozf_utility_pvt.debug_message ('ship_from_site_id ('||i||')'||px_line_record.ship_from_site_id(i));
3651: END LOOP;
3652: END IF;
3653: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3654: RAISE FND_API.G_EXC_ERROR;
3657: END IF;
3658: l_party_site_id.delete;
3659: l_party_id.delete;
3660: IF OZF_DEBUG_LOW_ON THEN
3661: ozf_utility_pvt.debug_message('++++++++++++++ SHIP FROM Customer ++++++++++++++ (-)');
3662: END IF;
3663:
3664:
3665: -- ----------------------------------------------------------
3666: -- SOLD_FROM Customer
3667: -- Derive from ship_from if null
3668: -- ----------------------------------------------------------
3669: IF OZF_DEBUG_LOW_ON THEN
3670: ozf_utility_pvt.debug_message('++++++++++++++ SOLD FROM Customer ++++++++++++++ (+)');
3671: END IF;
3672: --l_null_flag := NULL;
3673: chk_party_record_null
3674: ( p_line_count => p_line_count
3743: END IF;
3744:
3745: IF OZF_DEBUG_LOW_ON THEN
3746: FOR i IN 1..px_line_record.sold_from_cust_account_id.count LOOP
3747: ozf_utility_pvt.debug_message ('sold_from_cust_account_id ('||i||')'||px_line_record.sold_from_cust_account_id(i));
3748: ozf_utility_pvt.debug_message ('sold_from_site_id ('||i||')'||px_line_record.sold_from_site_id(i));
3749: END LOOP;
3750: END IF;
3751: l_party_site_id.delete;
3744:
3745: IF OZF_DEBUG_LOW_ON THEN
3746: FOR i IN 1..px_line_record.sold_from_cust_account_id.count LOOP
3747: ozf_utility_pvt.debug_message ('sold_from_cust_account_id ('||i||')'||px_line_record.sold_from_cust_account_id(i));
3748: ozf_utility_pvt.debug_message ('sold_from_site_id ('||i||')'||px_line_record.sold_from_site_id(i));
3749: END LOOP;
3750: END IF;
3751: l_party_site_id.delete;
3752: l_party_id.delete;
3751: l_party_site_id.delete;
3752: l_party_id.delete;
3753: l_null_flag_tb.delete;
3754: IF OZF_DEBUG_LOW_ON THEN
3755: ozf_utility_pvt.debug_message('++++++++++++++ SOLD FROM Customer ++++++++++++++ (-)');
3756: END IF;
3757:
3758:
3759: -- ----------------------------------------------------------
3759: -- ----------------------------------------------------------
3760: -- SHIP_TO Customer
3761: -- ----------------------------------------------------------
3762: IF OZF_DEBUG_LOW_ON THEN
3763: ozf_utility_pvt.debug_message('++++++++++++++ SHIP TO Customer ++++++++++++++ (+)');
3764: END IF;
3765: Party_Validations
3766: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3767: , p_location => px_line_record.ship_to_location
3789: , x_return_status => x_return_status
3790: );
3791: IF OZF_DEBUG_LOW_ON THEN
3792: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3793: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3794: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3795: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3796: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3797: END LOOP;
3790: );
3791: IF OZF_DEBUG_LOW_ON THEN
3792: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3793: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3794: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3795: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3796: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3797: END LOOP;
3798: END IF;
3791: IF OZF_DEBUG_LOW_ON THEN
3792: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3793: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3794: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3795: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3796: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3797: END LOOP;
3798: END IF;
3799: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3792: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3793: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3794: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3795: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3796: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3797: END LOOP;
3798: END IF;
3799: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3800: RAISE FND_API.G_EXC_ERROR;
3801: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3803: END IF;
3804: IF OZF_DEBUG_LOW_ON THEN
3805: ozf_utility_pvt.debug_message('++++++++++++++ SHIP TO Customer ++++++++++++++ (-)');
3806: END IF;
3807:
3808: -- ----------------------------------------------------------
3809: -- BILL_TO Customer
3809: -- BILL_TO Customer
3810: -- Derive from ship_from if null
3811: -- ----------------------------------------------------------
3812: IF OZF_DEBUG_LOW_ON THEN
3813: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (+)');
3814: END IF;
3815: l_null_flag := NULL;
3816: chk_party_record_null
3817: ( p_line_count => p_line_count
3825: , x_null_flag => l_null_flag_tb
3826: , x_return_status => x_return_status
3827: );
3828: IF OZF_DEBUG_LOW_ON THEN
3829: ozf_utility_pvt.debug_message ('Null Flag '||l_null_flag);
3830: END IF;
3831: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3832: RAISE FND_API.G_EXC_ERROR;
3833: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3890:
3891: IF OZF_DEBUG_LOW_ON THEN
3892: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3893: LOOP
3894: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3895: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3896: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3897: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3898: END LOOP;
3891: IF OZF_DEBUG_LOW_ON THEN
3892: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3893: LOOP
3894: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3895: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3896: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3897: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3898: END LOOP;
3899: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3892: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3893: LOOP
3894: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3895: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3896: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3897: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3898: END LOOP;
3899: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3900: END IF;
3893: LOOP
3894: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3895: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3896: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3897: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3898: END LOOP;
3899: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3900: END IF;
3901:
3895: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3896: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3897: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3898: END LOOP;
3899: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3900: END IF;
3901:
3902:
3903: -- ----------------------------------------------------------
3903: -- ----------------------------------------------------------
3904: -- END Customer
3905: -- ----------------------------------------------------------
3906: IF OZF_DEBUG_LOW_ON THEN
3907: ozf_utility_pvt.debug_message('++++++++++++++ END Customer ++++++++++++++ (+)');
3908: END IF;
3909: Party_Validations
3910: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3911: , p_location => px_line_record.end_cust_location
3933: , x_return_status => x_return_status
3934: );
3935: IF OZF_DEBUG_LOW_ON THEN
3936: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3937: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3938: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3939: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3940: END LOOP;
3941: END IF;
3934: );
3935: IF OZF_DEBUG_LOW_ON THEN
3936: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3937: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3938: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3939: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3940: END LOOP;
3941: END IF;
3942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3935: IF OZF_DEBUG_LOW_ON THEN
3936: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3937: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3938: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3939: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3940: END LOOP;
3941: END IF;
3942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3943: RAISE FND_API.G_EXC_ERROR;
3944: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3946: END IF;
3947: IF OZF_DEBUG_LOW_ON THEN
3948: ozf_utility_pvt.debug_message('++++++++++++++ END Customer ++++++++++++++ (-)');
3949: END IF;
3950:
3951:
3952: EXCEPTION
3977: l_acctd_price_tbl NUMBER_TABLE;
3978:
3979: BEGIN
3980: IF OZF_DEBUG_HIGH_ON THEN
3981: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3982: END IF;
3983: x_return_status := FND_API.G_RET_STS_SUCCESS;
3984:
3985: -- Selling Price and Currency Derivation
4052: RAISE FND_API.g_exc_unexpected_error;
4053: END IF;
4054:
4055: IF OZF_DEBUG_HIGH_ON THEN
4056: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
4057: END IF;
4058: EXCEPTION
4059: WHEN FND_API.G_EXC_ERROR THEN
4060: x_return_status := FND_API.G_RET_STS_ERROR;
4117: l_converted_amount NUMBER;
4118:
4119: BEGIN
4120: IF OZF_DEBUG_HIGH_ON THEN
4121: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4122: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
4123: END IF;
4124: x_return_status := FND_API.G_RET_STS_SUCCESS;
4125:
4118:
4119: BEGIN
4120: IF OZF_DEBUG_HIGH_ON THEN
4121: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4122: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
4123: END IF;
4124: x_return_status := FND_API.G_RET_STS_SUCCESS;
4125:
4126: OPEN get_functional_currency;
4141: END IF;
4142: END IF;
4143:
4144: IF OZF_DEBUG_LOW_ON THEN
4145: ozf_utility_pvt.debug_message('Internal Price Tbl ('|| i ||') '|| px_internal_price_tbl(i));
4146: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
4147: END IF;
4148: IF px_internal_price_tbl(i) IS NOT NULL THEN
4149: NULL;
4142: END IF;
4143:
4144: IF OZF_DEBUG_LOW_ON THEN
4145: ozf_utility_pvt.debug_message('Internal Price Tbl ('|| i ||') '|| px_internal_price_tbl(i));
4146: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
4147: END IF;
4148: IF px_internal_price_tbl(i) IS NOT NULL THEN
4149: NULL;
4150: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
4148: IF px_internal_price_tbl(i) IS NOT NULL THEN
4149: NULL;
4150: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
4151: IF OZF_DEBUG_LOW_ON THEN
4152: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
4153: ozf_utility_pvt.debug_message('External Currency Tbl ('|| i ||') '|| p_ext_currency_tbl(i));
4154: END IF;
4155: IF p_conversion_type = 'ORIG_SYSTEM' THEN
4156: px_internal_price_tbl(i) := p_external_price_tbl(i);
4149: NULL;
4150: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
4151: IF OZF_DEBUG_LOW_ON THEN
4152: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
4153: ozf_utility_pvt.debug_message('External Currency Tbl ('|| i ||') '|| p_ext_currency_tbl(i));
4154: END IF;
4155: IF p_conversion_type = 'ORIG_SYSTEM' THEN
4156: px_internal_price_tbl(i) := p_external_price_tbl(i);
4157: ELSE
4178: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
4179: END IF;
4180:
4181: IF OZF_DEBUG_LOW_ON THEN
4182: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
4183: ozf_utility_pvt.debug_message('Calling convert currency');
4184: END IF;
4185:
4186: OZF_UTILITY_PVT.Convert_Currency(
4179: END IF;
4180:
4181: IF OZF_DEBUG_LOW_ON THEN
4182: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
4183: ozf_utility_pvt.debug_message('Calling convert currency');
4184: END IF;
4185:
4186: OZF_UTILITY_PVT.Convert_Currency(
4187: p_from_currency => l_converted_currency
4182: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
4183: ozf_utility_pvt.debug_message('Calling convert currency');
4184: END IF;
4185:
4186: OZF_UTILITY_PVT.Convert_Currency(
4187: p_from_currency => l_converted_currency
4188: ,p_to_currency => px_currency_tbl(i)
4189: ,p_conv_type => px_rate_type_tbl(i)
4190: ,p_conv_rate => NULL
4194: ,x_to_amount => l_converted_amount
4195: ,x_rate => l_exchange_rate);
4196:
4197: IF OZF_DEBUG_LOW_ON THEN
4198: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
4199: END IF;
4200:
4201: IF x_return_status <> FND_API.g_ret_sts_success THEN
4202: IF px_status_tbl(i) <> 'DISPUTED' THEN
4222: px_exchange_rate_tbl(i) := l_exchange_rate;
4223: END IF;
4224: px_internal_price_tbl(i) := l_converted_amount;
4225: ELSE
4226: px_internal_price_tbl(i) := OZF_UTILITY_PVT.CurrRound(p_external_price_tbl(i)*px_exchange_rate_tbl(i), px_currency_tbl(i));
4227: END IF; -- px_exchange_rate_tbl(i) IS NULL
4228: ELSE
4229: px_internal_price_tbl(i) :=p_external_price_tbl(i);
4230: END IF; -- l_convert_currency = internal currency
4233: END IF; -- p_conversion_type = 'ORIG_SYSTEM'
4234: END IF; -- p_external_price_tbl(i)
4235:
4236: IF OZF_DEBUG_LOW_ON THEN
4237: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4234: END IF; -- p_external_price_tbl(i)
4235:
4236: IF OZF_DEBUG_LOW_ON THEN
4237: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4235:
4236: IF OZF_DEBUG_LOW_ON THEN
4237: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4236: IF OZF_DEBUG_LOW_ON THEN
4237: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4244: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
4237: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4244: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
4245: END IF;
4238: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4244: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
4245: END IF;
4246:
4239: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4244: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
4245: END IF;
4246:
4247: --
4240: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
4241: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
4242: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
4243: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
4244: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
4245: END IF;
4246:
4247: --
4248: -- --------------------- Accounted Price Calculations -------------------------
4254: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
4255: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO px_rate_type_tbl(i);
4256: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
4257: END IF;
4258: OZF_UTILITY_PVT.Convert_Currency(
4259: p_from_currency => px_currency_tbl(i)
4260: ,p_to_currency => l_functional_currency
4261: ,p_conv_type => px_rate_type_tbl(i)
4262: ,p_conv_rate => px_exchange_rate_tbl(i)
4285: END IF;
4286: END IF;
4287: x_accounted_price_tbl(i) := l_converted_amount;
4288: ELSE
4289: x_accounted_price_tbl(i) := OZF_UTILITY_PVT.CurrRound(px_internal_price_tbl(i)*px_exchange_rate_tbl(i), l_functional_currency);
4290: END IF;
4291: ELSE
4292: x_accounted_price_tbl(i) := px_internal_price_tbl(i);
4293: END IF;
4296: END IF;
4297: END LOOP;
4298:
4299: IF OZF_DEBUG_HIGH_ON THEN
4300: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
4301: END IF;
4302:
4303: EXCEPTION
4304: WHEN FND_API.G_EXC_ERROR THEN
4354: x_agreement_name := NULL;
4355:
4356: -- Debug Message
4357: IF OZF_DEBUG_HIGH_ON THEN
4358: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
4359: END IF;
4360:
4361: -- ??? What to do if no name is found.
4362: IF p_type = 'PL' THEN
4468: -- [END OF BUG 4237990 FIXING]
4469:
4470: BEGIN
4471: IF OZF_DEBUG_HIGH_ON THEN
4472: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4473: END IF;
4474:
4475: x_return_status := FND_API.G_RET_STS_SUCCESS;
4476:
4665: END LOOP;
4666: END IF; -- px_int_agreement_type.COUNT > 0
4667: -- Debug Message
4668: IF OZF_DEBUG_HIGH_ON THEN
4669: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
4670: END IF;
4671: -- Standard call to get message count and if count is 1, get message info.
4672: FND_MSG_PUB.Count_And_Get
4673: (p_count => x_msg_count,
4725: WHERE inventory_item_id = pc_item_id;
4726:
4727: BEGIN
4728: IF OZF_DEBUG_HIGH_ON THEN
4729: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4730: END IF;
4731: x_return_status := FND_API.G_RET_STS_SUCCESS;
4732:
4733: IF px_item_id_tbl.COUNT > 0 THEN
4748: END LOOP;
4749: END IF;
4750:
4751: IF OZF_DEBUG_HIGH_ON THEN
4752: ozf_utility_pvt.debug_message('Mapping Flag ' || l_mapping_flag);
4753: END IF;
4754:
4755: IF l_mapping_flag = 'Y' AND
4756: p_ext_item_number_tbl.COUNT > 0 THEN
4775: FOR i IN 1..p_item_number_tbl.COUNT LOOP
4776: IF p_item_number_tbl(i) IS NOT NULL THEN
4777: l_org_id := G_ITEM_ORG_ID; --FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
4778: IF OZF_DEBUG_LOW_ON THEN
4779: ozf_utility_pvt.debug_message('p_item_number_tbl(i) ' || p_item_number_tbl(i));
4780: END IF;
4781: OPEN get_inventory_item_id(p_item_number_tbl(i),
4782: l_org_id);
4783: FETCH get_inventory_item_id INTO px_item_id_tbl(i);
4782: l_org_id);
4783: FETCH get_inventory_item_id INTO px_item_id_tbl(i);
4784: CLOSE get_inventory_item_id;
4785: IF OZF_DEBUG_LOW_ON THEN
4786: ozf_utility_pvt.debug_message('px_item_id_tbl(i) ' || px_item_id_tbl(i));
4787: END IF;
4788:
4789: ELSIF px_item_id_tbl(i) IS NOT NULL THEN
4790: OPEN chk_inventory_item_id( px_item_id_tbl(i));
4862: END IF;
4863:
4864: -- Debug Message
4865: IF OZF_DEBUG_HIGH_ON THEN
4866: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
4867: END IF;
4868:
4869: -- Standard call to get message count and if count is 1, get message info.
4870: FND_MSG_PUB.Count_And_Get(
4910: l_temp_code_tbl VARCHAR2_TABLE;
4911:
4912: BEGIN
4913: IF OZF_DEBUG_HIGH_ON THEN
4914: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
4915: END IF;
4916: x_return_status := FND_API.G_RET_STS_SUCCESS;
4917:
4918: l_mapping_flag := 'N';
4966: END IF;
4967: END LOOP;
4968: ELSE
4969: IF OZF_DEBUG_LOW_ON THEN
4970: ozf_utility_pvt.debug_message('External purchase uom might be null ');
4971: END IF;
4972: END IF;
4973: END IF;
4974:
5024: END IF;
5025: END LOOP;
5026: ELSE
5027: IF OZF_DEBUG_HIGH_ON THEN
5028: ozf_utility_pvt.debug_message('External uom might be null ');
5029: END IF;
5030: END IF;
5031: END IF;
5032:
5082: END IF;
5083: END LOOP;
5084: ELSE
5085: IF OZF_DEBUG_LOW_ON THEN
5086: ozf_utility_pvt.debug_message('External uom might be null ');
5087: END IF;
5088: END IF;
5089:
5090: END IF;
5088: END IF;
5089:
5090: END IF;
5091: IF OZF_DEBUG_HIGH_ON THEN
5092: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
5093: END IF;
5094:
5095: EXCEPTION
5096: WHEN FND_API.G_EXC_ERROR THEN
5201:
5202:
5203: BEGIN
5204: IF OZF_DEBUG_HIGH_ON THEN
5205: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
5206: END IF;
5207: x_return_status := FND_API.G_RET_STS_SUCCESS;
5208:
5209:
5207: x_return_status := FND_API.G_RET_STS_SUCCESS;
5208:
5209:
5210: --IF OZF_DEBUG_LOW_ON THEN
5211: ozf_utility_pvt.debug_message ( 'Mandate Party Mapping '|| G_MANDATE_PARTY_MAPPING);
5212: --END IF;
5213:
5214:
5215: -- -----------
5215: -- -----------
5216: -- Party Site
5217: -- -----------
5218: IF OZF_DEBUG_LOW_ON THEN
5219: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
5220: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5217: -- -----------
5218: IF OZF_DEBUG_LOW_ON THEN
5219: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
5220: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5218: IF OZF_DEBUG_LOW_ON THEN
5219: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
5220: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5219: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
5220: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5220: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5221: OZF_UTILITY_PVT.DEBUG_MESSAGE('All IN OUT Parameters Again');
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5229: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_dispute_code_tbl :'|| px_dispute_code_tbl(i));
5222: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_party_name_tbl :'|| p_party_name_tbl(i));
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5229: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_dispute_code_tbl :'|| px_dispute_code_tbl(i));
5230: END LOOP;
5223: OZF_UTILITY_PVT.DEBUG_MESSAGE('p_location_tbl :'|| p_location_tbl(i));
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5229: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_dispute_code_tbl :'|| px_dispute_code_tbl(i));
5230: END LOOP;
5231: END IF;
5224: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_cust_account_id_tbl :'|| px_cust_account_id_tbl(i));
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5229: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_dispute_code_tbl :'|| px_dispute_code_tbl(i));
5230: END LOOP;
5231: END IF;
5232:
5225: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_site_use_id_tbl :'|| px_site_use_id_tbl(i));
5226: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_id_tbl :'|| px_party_id_tbl(i));
5227: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_party_site_id_tbl :'|| px_party_site_id_tbl(i));
5228: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_status_tbl :'|| px_status_tbl(i));
5229: OZF_UTILITY_PVT.DEBUG_MESSAGE('px_dispute_code_tbl :'|| px_dispute_code_tbl(i));
5230: END LOOP;
5231: END IF;
5232:
5233: IF p_location_tbl.COUNT > 0 THEN
5264: END IF;
5265:
5266:
5267: IF OZF_DEBUG_LOW_ON THEN
5268: ozf_utility_pvt.debug_message('Code Conversion done already !');
5269: ozf_utility_pvt.debug_message('Internal Code: ' ||l_party_site_tbl(i));
5270: END IF;
5271: ELSE
5272: OZF_CODE_CONVERSION_PVT.convert_code
5265:
5266:
5267: IF OZF_DEBUG_LOW_ON THEN
5268: ozf_utility_pvt.debug_message('Code Conversion done already !');
5269: ozf_utility_pvt.debug_message('Internal Code: ' ||l_party_site_tbl(i));
5270: END IF;
5271: ELSE
5272: OZF_CODE_CONVERSION_PVT.convert_code
5273: (p_cust_account_id => p_cust_account_id,
5285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5286: END IF;
5287:
5288: IF OZF_DEBUG_LOW_ON THEN
5289: ozf_utility_pvt.debug_message('Code Conversion Completed');
5290: ozf_utility_pvt.debug_message('Internal Code'|| l_party_site_tbl(i));
5291: END IF;
5292:
5293: IF l_party_site_tbl.EXISTS(i) AND l_party_site_tbl(i) IS NOT NULL THEN
5286: END IF;
5287:
5288: IF OZF_DEBUG_LOW_ON THEN
5289: ozf_utility_pvt.debug_message('Code Conversion Completed');
5290: ozf_utility_pvt.debug_message('Internal Code'|| l_party_site_tbl(i));
5291: END IF;
5292:
5293: IF l_party_site_tbl.EXISTS(i) AND l_party_site_tbl(i) IS NOT NULL THEN
5294: l_temp_code_tbl(idx) := l_party_site_tbl(i);
5345: -- ------
5346: -- Party
5347: -- ------
5348: IF OZF_DEBUG_LOW_ON THEN
5349: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
5350: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
5351: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
5352: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
5353: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
5347: -- ------
5348: IF OZF_DEBUG_LOW_ON THEN
5349: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
5350: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
5351: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
5352: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
5353: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
5354: END LOOP;
5355: END IF;
5348: IF OZF_DEBUG_LOW_ON THEN
5349: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
5350: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
5351: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
5352: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
5353: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
5354: END LOOP;
5355: END IF;
5356:
5349: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
5350: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
5351: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
5352: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
5353: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
5354: END LOOP;
5355: END IF;
5356:
5357: IF p_party_name_tbl.COUNT > 0 THEN
5375: FETCH get_account_id INTO px_cust_account_id_tbl(i);
5376: CLOSE get_account_id;
5377:
5378: IF OZF_DEBUG_LOW_ON THEN
5379: ozf_utility_pvt.debug_message('Internal Code Before Conversion: ' || l_party_tbl(i));
5380: END IF;
5381: ELSE
5382: OZF_CODE_CONVERSION_PVT.convert_code
5383: (p_cust_account_id => p_cust_account_id,
5395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5396: END IF;
5397:
5398: IF OZF_DEBUG_LOW_ON THEN
5399: ozf_utility_pvt.debug_message('Internal Code After Conversion '||l_party_tbl(i));
5400: END IF;
5401:
5402: IF l_party_tbl.EXISTS(i) AND l_party_tbl(i) IS NOT NULL THEN
5403: l_temp_code_tbl(idx) := l_party_tbl(i);
5442:
5443:
5444:
5445: IF OZF_DEBUG_HIGH_ON THEN
5446: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
5447: END IF;
5448: EXCEPTION
5449: WHEN FND_API.G_EXC_ERROR THEN
5450: x_return_status := FND_API.G_RET_STS_ERROR;
5786:
5787:
5788: BEGIN
5789: IF OZF_DEBUG_HIGH_ON THEN
5790: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
5791: END IF;
5792:
5793: -- Site Use Code Defaulting
5794: IF p_party_type IN ('BILL_TO', 'SHIP_TO') THEN
5801: l_site_use_code := NULL;
5802: END IF;
5803:
5804: IF OZF_DEBUG_LOW_ON THEN
5805: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
5806: END IF;
5807:
5808: IF p_line_count > 0 THEN
5809:
5809:
5810: FOR i IN 1 .. p_line_count
5811: LOOP
5812: IF OZF_DEBUG_LOW_ON THEN
5813: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i) || ' for '||p_party_type);
5814: END IF;
5815: l_run_dqm_flag := NULL;
5816: l_cust_account_id := NULL;
5817: l_party_site_id := NULL;
5822: END IF;
5823: IF px_cust_account_id.exists(i) AND px_cust_account_id(i) IS NOT NULL THEN
5824:
5825: IF OZF_DEBUG_LOW_ON THEN
5826: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5827: END IF;
5828: OPEN get_party_id (px_cust_account_id(i));
5829: FETCH get_party_id INTO l_party_rec.party_id,
5830: px_party_name(i);
5855: OPEN get_site_from_acct (px_cust_account_id(i), p_location(i),l_site_use_code );
5856: FETCH get_site_from_acct INTO px_site_use_id(i);
5857: CLOSE get_site_from_acct;
5858: IF OZF_DEBUG_LOW_ON THEN
5859: ozf_utility_pvt.debug_message('getting ship from information ');
5860: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5861: END IF;
5862: ELSE
5863: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5856: FETCH get_site_from_acct INTO px_site_use_id(i);
5857: CLOSE get_site_from_acct;
5858: IF OZF_DEBUG_LOW_ON THEN
5859: ozf_utility_pvt.debug_message('getting ship from information ');
5860: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5861: END IF;
5862: ELSE
5863: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5864: IF OZF_DEBUG_LOW_ON THEN
5861: END IF;
5862: ELSE
5863: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5864: IF OZF_DEBUG_LOW_ON THEN
5865: ozf_utility_pvt.debug_message('Site Use Information is not present for bill to and ship to ');
5866: END IF;
5867: ELSE
5868: OPEN get_site_use_from_acct (px_cust_account_id(i), p_location(i),l_site_use_code );
5869: FETCH get_site_use_from_acct INTO px_site_use_id(i) , px_party_site_id(i), px_party_id(i);
5913: END IF;
5914: END IF; -- get_acct_from_site_use%NOTFOUND
5915: CLOSE get_acct_from_site_use;
5916: IF OZF_DEBUG_LOW_ON THEN
5917: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5918: END IF;
5919: END IF;
5920: IF px_party_id.exists(i) AND px_party_id(i) IS NULL THEN
5921: px_party_id(i) := l_party_rec.party_id;
5933: ELSE
5934: l_no_loc_run_flag := 'Y';
5935: END IF;
5936: IF OZF_DEBUG_LOW_ON THEN
5937: ozf_utility_pvt.debug_message('Location ('||i||')' || p_location(i));
5938: END IF;
5939: IF l_no_loc_run_flag = 'Y' THEN
5940:
5941: Get_party_site_from_ECX
5943: x_party_site_id => l_party_site_id,
5944: x_return_status => x_return_status
5945: );
5946: IF OZF_DEBUG_LOW_ON THEN
5947: ozf_utility_pvt.debug_message('Party Site ID from ECX API ' || l_party_site_id);
5948: END IF;
5949: IF l_party_site_id IS NOT NULL THEN
5950: IF p_party_type IN ('SHIP_FROM', 'SOLD_FROM') THEN
5951:
5993: IF px_cust_account_id(i) IS NULL THEN
5994: px_cust_account_id(i) := l_cust_account_id;
5995: END IF;
5996: IF OZF_DEBUG_LOW_ON THEN
5997: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5998: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5999: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
6000: END IF;
6001: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5994: px_cust_account_id(i) := l_cust_account_id;
5995: END IF;
5996: IF OZF_DEBUG_LOW_ON THEN
5997: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5998: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5999: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
6000: END IF;
6001: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
6002: l_party_rec.party_id := px_party_id(i);
5995: END IF;
5996: IF OZF_DEBUG_LOW_ON THEN
5997: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5998: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5999: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
6000: END IF;
6001: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
6002: l_party_rec.party_id := px_party_id(i);
6003: END IF;
6030: CLOSE get_location_details;
6031: END IF;
6032:
6033: IF OZF_DEBUG_LOW_ON THEN
6034: ozf_utility_pvt.debug_message('l_site_use_code '||l_site_use_code);
6035: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i));
6036: END IF;
6037: IF l_cust_account_id IS NULL THEN
6038: OPEN get_location( p_location(i)
6031: END IF;
6032:
6033: IF OZF_DEBUG_LOW_ON THEN
6034: ozf_utility_pvt.debug_message('l_site_use_code '||l_site_use_code);
6035: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i));
6036: END IF;
6037: IF l_cust_account_id IS NULL THEN
6038: OPEN get_location( p_location(i)
6039: , l_site_use_code
6073:
6074: IF l_run_dqm_flag IS NULL OR l_run_dqm_flag = 'Y' THEN
6075: IF px_cust_account_id.exists(i) AND px_cust_account_id(i) IS NOT NULL THEN
6076: IF OZF_DEBUG_LOW_ON THEN
6077: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
6078: END IF;
6079: IF px_party_id.exists(i) AND px_party_id(i) IS NULL THEN
6080: OPEN get_party_id (px_cust_account_id(i));
6081: FETCH get_party_id INTO l_party_rec.party_id,
6081: FETCH get_party_id INTO l_party_rec.party_id,
6082: l_party_rec.party_name;
6083: CLOSE get_party_id;
6084: IF OZF_DEBUG_LOW_ON THEN
6085: ozf_utility_pvt.debug_message('l_party_rec.party_id '||l_party_rec.party_id);
6086: ozf_utility_pvt.debug_message('l_party_rec.party_name '||l_party_rec.party_name);
6087: END IF;
6088: END IF;
6089: ELSIF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
6082: l_party_rec.party_name;
6083: CLOSE get_party_id;
6084: IF OZF_DEBUG_LOW_ON THEN
6085: ozf_utility_pvt.debug_message('l_party_rec.party_id '||l_party_rec.party_id);
6086: ozf_utility_pvt.debug_message('l_party_rec.party_name '||l_party_rec.party_name);
6087: END IF;
6088: END IF;
6089: ELSIF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
6090: l_party_rec.party_id := px_party_id(i);
6094: CLOSE get_party_name;
6095: -- [END OF BUG 4186465 FIXING]
6096: ELSIF px_party_name(i) IS NOT NULL THEN
6097: IF OZF_DEBUG_LOW_ON THEN
6098: ozf_utility_pvt.debug_message('px_party_name('||i||') '||px_party_name(i));
6099: END IF;
6100: l_party_rec.party_id := NULL;
6101: l_party_rec.party_name := px_party_name(i);
6102:
6106: l_party_site_rec.postal_code := p_postal_code(i);
6107: l_party_site_rec.country := p_country(i);
6108: ELSE
6109: IF OZF_DEBUG_LOW_ON THEN
6110: ozf_utility_pvt.debug_message('party record is null ');
6111: ozf_utility_pvt.debug_message('px_party_name('||i||') for '||l_site_use_code||' '||px_party_name(i));
6112: END IF;
6113: l_party_rec.party_name := NULL;
6114: l_party_rec.party_id := NULL;
6107: l_party_site_rec.country := p_country(i);
6108: ELSE
6109: IF OZF_DEBUG_LOW_ON THEN
6110: ozf_utility_pvt.debug_message('party record is null ');
6111: ozf_utility_pvt.debug_message('px_party_name('||i||') for '||l_site_use_code||' '||px_party_name(i));
6112: END IF;
6113: l_party_rec.party_name := NULL;
6114: l_party_rec.party_id := NULL;
6115: END IF;
6113: l_party_rec.party_name := NULL;
6114: l_party_rec.party_id := NULL;
6115: END IF;
6116: IF OZF_DEBUG_LOW_ON THEN
6117: ozf_utility_pvt.debug_message('Address starting .......................');
6118: END IF;
6119: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
6120: l_party_site_rec.party_site_id := px_party_site_id(i);
6121: IF OZF_DEBUG_LOW_ON THEN
6118: END IF;
6119: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
6120: l_party_site_rec.party_site_id := px_party_site_id(i);
6121: IF OZF_DEBUG_LOW_ON THEN
6122: ozf_utility_pvt.debug_message('px_party_site_id('||i||') '||px_party_site_id(i));
6123: END IF;
6124: ELSIF px_site_use_id.exists(i) AND px_site_use_id(i) IS NOT NULL THEN
6125:
6126:
6129: CLOSE get_party_site_id;
6130: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
6131: l_party_site_rec.party_site_id := px_party_site_id(i);
6132: IF OZF_DEBUG_LOW_ON THEN
6133: ozf_utility_pvt.debug_message('px_party_site_id('||i||') '||px_party_site_id(i));
6134: END IF;
6135: ELSE
6136: px_party_site_id(i) := NULL;
6137: END IF;
6136: px_party_site_id(i) := NULL;
6137: END IF;
6138: ELSIF p_address(i) IS NOT NULL THEN
6139: IF OZF_DEBUG_LOW_ON THEN
6140: ozf_utility_pvt.debug_message('p_address('||i||') '||p_address(i));
6141: END IF;
6142: l_party_site_rec.party_site_id := null;
6143: l_party_site_rec.address := p_address(i);
6144: l_party_site_rec.city := p_city(i);
6146: l_party_site_rec.postal_code := p_postal_code(i);
6147: l_party_site_rec.country := p_country(i);
6148: ELSE
6149: IF OZF_DEBUG_LOW_ON THEN
6150: ozf_utility_pvt.debug_message('Address is null ');
6151: END IF;
6152: END IF;
6153:
6154: IF px_contact_party_id.exists(i) AND px_contact_party_id(i) IS NULL THEN
6195: l_dqm_party_site_rule := G_DQM_PARTY_SITE_RULE; --fnd_profile.value('OZF_RESALE_PARTY_SITE_DQM_RULE');
6196: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
6197:
6198: IF OZF_DEBUG_LOW_ON THEN
6199: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
6200: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
6201: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
6202: END IF;
6203: -- Rules
6196: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
6197:
6198: IF OZF_DEBUG_LOW_ON THEN
6199: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
6200: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
6201: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
6202: END IF;
6203: -- Rules
6204: --
6197:
6198: IF OZF_DEBUG_LOW_ON THEN
6199: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
6200: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
6201: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
6202: END IF;
6203: -- Rules
6204: --
6205: IF l_party_rec.party_id IS NULL THEN
6204: --
6205: IF l_party_rec.party_id IS NULL THEN
6206: IF l_dqm_party_rule IS NULL THEN
6207: IF OZF_DEBUG_LOW_ON THEN
6208: ozf_utility_pvt.debug_message('Party DQM Search Rule cannot be null,please set OZF:Resale DQM Party Rule profile with a valid value');
6209: END IF;
6210: l_dispute_code := 'OZF_NO_PARTY_DQM_RULE';
6211: END IF ;
6212: END IF;
6213: IF l_party_site_rec.party_site_id IS NULL THEN
6214: IF l_dispute_code IS NULL AND l_dqm_party_site_rule IS NULL
6215: AND l_party_site_rec.address IS NOT NULL THEN
6216: IF OZF_DEBUG_LOW_ON THEN
6217: ozf_utility_pvt.debug_message('Party Site DQM Search Rule cannot be null,please set OZF:Resale DQM Party Site Rule profile with a valid value');
6218: END IF;
6219: l_dispute_code := 'OZF_NO_SITE_DQM_RULE';
6220: END IF ;
6221: END IF;
6221: END IF;
6222: IF l_party_cntct_rec.contact_name IS NOT NULL AND
6223: l_dispute_code IS NULL AND l_dqm_contact_rule IS NULL THEN
6224: IF OZF_DEBUG_LOW_ON THEN
6225: ozf_utility_pvt.debug_message('Contact DQM Search Rule cannot be null,please set OZF:Resale DQM Contact Rule profile with a valid value');
6226: END IF;
6227: l_dispute_code := 'OZF_NO_CONTACT_DQM_RULE';
6228: END IF ;
6229:
6234: l_party_site_rec.party_site_rule_name := l_dqm_party_site_rule;
6235: l_party_cntct_rec.contact_rule_name := l_dqm_contact_rule;
6236: --
6237: IF OZF_DEBUG_LOW_ON THEN
6238: ozf_utility_pvt.debug_message('DQM Process started ........');
6239: END IF;
6240: l_party_id := NULL;
6241: l_party_site_id := NULL;
6242: l_party_contact_id:= NULL;
6262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6263: END IF;
6264: px_contact_party_id(i) := NVL( l_party_contact_id,'');
6265: IF OZF_DEBUG_LOW_ON THEN
6266: ozf_utility_pvt.debug_message( 'Party ID '|| l_party_id );
6267: ozf_utility_pvt.debug_message( 'Party Site ID '|| l_party_site_id );
6268: END IF;
6269: IF l_party_site_rec.party_site_id IS NULL THEN
6270: IF l_party_id IS NOT NULL AND l_party_site_id IS NOT NULL THEN
6263: END IF;
6264: px_contact_party_id(i) := NVL( l_party_contact_id,'');
6265: IF OZF_DEBUG_LOW_ON THEN
6266: ozf_utility_pvt.debug_message( 'Party ID '|| l_party_id );
6267: ozf_utility_pvt.debug_message( 'Party Site ID '|| l_party_site_id );
6268: END IF;
6269: IF l_party_site_rec.party_site_id IS NULL THEN
6270: IF l_party_id IS NOT NULL AND l_party_site_id IS NOT NULL THEN
6271: IF p_party_type IN ('SOLD_FROM','SHIP_FROM','BILL_TO','SHIP_TO') THEN
6286: , l_p_party_id ;
6287: CLOSE get_acct_site_use_id;
6288:
6289: IF OZF_DEBUG_LOW_ON THEN
6290: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
6291: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
6292: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
6293: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
6294: END IF;
6287: CLOSE get_acct_site_use_id;
6288:
6289: IF OZF_DEBUG_LOW_ON THEN
6290: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
6291: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
6292: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
6293: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
6294: END IF;
6295:
6288:
6289: IF OZF_DEBUG_LOW_ON THEN
6290: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
6291: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
6292: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
6293: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
6294: END IF;
6295:
6296: IF l_cust_account_id IS NOT NULL THEN
6289: IF OZF_DEBUG_LOW_ON THEN
6290: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
6291: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
6292: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
6293: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
6294: END IF;
6295:
6296: IF l_cust_account_id IS NOT NULL THEN
6297: px_cust_account_id(i) := l_cust_account_id;
6335: END IF;
6336: END IF;
6337: END IF; -- l_run_dqm_flag = 'Y'
6338: IF OZF_DEBUG_LOW_ON THEN
6339: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
6340: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6336: END IF;
6337: END IF; -- l_run_dqm_flag = 'Y'
6338: IF OZF_DEBUG_LOW_ON THEN
6339: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
6340: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6344: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
6338: IF OZF_DEBUG_LOW_ON THEN
6339: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
6340: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6344: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
6345: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
6346:
6339: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
6340: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6344: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
6345: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
6346:
6347: IF l_dispute_code IS NOT NULL THEN
6340: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6344: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
6345: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
6346:
6347: IF l_dispute_code IS NOT NULL THEN
6348: IF px_status_code_tbl(i) <> 'DISPUTED' THEN
6341: END IF;
6342: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
6343: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
6344: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
6345: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
6346:
6347: IF l_dispute_code IS NOT NULL THEN
6348: IF px_status_code_tbl(i) <> 'DISPUTED' THEN
6349: px_status_code_tbl(i) := 'DISPUTED';
6367: END LOOP;
6368: END IF; -- p_line_count > 0
6369: -- Debug Message
6370: IF OZF_DEBUG_HIGH_ON THEN
6371: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6372: END IF;
6373:
6374: EXCEPTION
6375: WHEN FND_API.G_EXC_ERROR THEN
6495: END IF;
6496:
6497: -- Debug Message
6498: IF OZF_DEBUG_HIGH_ON THEN
6499: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6500: END IF;
6501: -- Initialize API return status to SUCCESS
6502: x_return_status := FND_API.G_RET_STS_SUCCESS;
6503:
6547: l_index := l_index+1;
6548: END IF;
6549:
6550: IF OZF_DEBUG_LOW_ON THEN
6551: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6552: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6553: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6554: END IF;
6555: --
6548: END IF;
6549:
6550: IF OZF_DEBUG_LOW_ON THEN
6551: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6552: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6553: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6554: END IF;
6555: --
6556: -- Party DQM Search
6549:
6550: IF OZF_DEBUG_LOW_ON THEN
6551: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6552: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6553: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6554: END IF;
6555: --
6556: -- Party DQM Search
6557: -- -------------------------------------------------------------------------------
6564: IF p_party_rec.party_name IS NOT NULL
6565: OR p_party_rec.duns_number IS NOT NULL
6566: THEN
6567: IF OZF_DEBUG_LOW_ON THEN
6568: ozf_utility_pvt.debug_message ('calling find parties ');
6569: END IF;
6570: HZ_PARTY_SEARCH.find_parties
6571: (p_init_msg_list => 'T',
6572: x_rule_id => l_rule_id,
6587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6589: END IF;
6590: IF OZF_DEBUG_LOW_ON THEN
6591: ozf_utility_pvt.debug_message('Number of matches'|| l_num_matches);
6592: END IF;
6593: IF l_num_matches >= 1 THEN
6594:
6595: OPEN C_matched_party(l_search_context_id);
6599: l_highest_score_cnt := l_highest_score_cnt +1;
6600: END LOOP;
6601: CLOSE C_matched_party;
6602: IF OZF_DEBUG_LOW_ON THEN
6603: ozf_utility_pvt.debug_message('Matched party - '||to_char(l_party_id)||' score '||to_char(l_score));
6604: END IF;
6605: x_party_id := l_party_id; --assign the matched party_id
6606:
6607: ELSIF l_num_matches = 0 AND p_party_rec.party_id IS NULL THEN
6605: x_party_id := l_party_id; --assign the matched party_id
6606:
6607: ELSIF l_num_matches = 0 AND p_party_rec.party_id IS NULL THEN
6608: IF OZF_DEBUG_LOW_ON THEN
6609: ozf_utility_pvt.debug_message('No party match found !');
6610: END IF;
6611: END IF; -- l_num_matches >= 1
6612:
6613: ELSE
6611: END IF; -- l_num_matches >= 1
6612:
6613: ELSE
6614: IF OZF_DEBUG_LOW_ON THEN
6615: ozf_utility_pvt.debug_message('Party Name/DUNS Number is not supplied. DQM Search cannot be performed');
6616: END IF;
6617:
6618: END IF; -- p_party_rec.party_name IS NOT NULL
6619:
6618: END IF; -- p_party_rec.party_name IS NOT NULL
6619:
6620: ELSE
6621: IF OZF_DEBUG_LOW_ON THEN
6622: ozf_utility_pvt.debug_message('Match Rule for Party Search is not active or uncompiled. Check the match rule');
6623: END IF;
6624: RAISE FND_API.g_exc_error;
6625: END IF; -- l_rule_id IS NOT NULL
6626:
6640: IF p_party_site_rec.party_site_id IS NULL THEN
6641:
6642: IF l_party_id IS NOT NULL AND p_party_site_rec.address IS NOT NULL THEN
6643: IF OZF_DEBUG_LOW_ON THEN
6644: ozf_utility_pvt.debug_message ('Site Rule name '|| p_party_site_rec.party_site_rule_name);
6645: END IF;
6646: l_rule_id := p_party_site_rec.party_site_rule_name;
6647:
6648: IF l_rule_id IS NOT NULL THEN
6681: IF l_party_site_id IS NOT NULL THEN
6682: x_party_site_id := l_party_site_id;
6683: ELSE
6684: IF OZF_DEBUG_LOW_ON THEN
6685: ozf_utility_pvt.debug_message('No party site found !');
6686: END IF;
6687: l_create_party_site := 'Y';
6688: END IF;
6689: ELSE
6687: l_create_party_site := 'Y';
6688: END IF;
6689: ELSE
6690: IF OZF_DEBUG_LOW_ON THEN
6691: ozf_utility_pvt.debug_message('Required parameters are missing. DQM Search for party site cannot be performed');
6692: END IF;
6693:
6694: END IF; -- party site check
6695:
6694: END IF; -- party site check
6695:
6696: ELSE --if rule_id is null then
6697: IF OZF_DEBUG_LOW_ON THEN
6698: ozf_utility_pvt.debug_message('Match Rule for Party Site is not active or uncompiled. Check the match rule');
6699: END IF;
6700: RAISE FND_API.g_exc_error;
6701: END IF;
6702:
6711: END IF; -- p_party_site_rec.party_site_id IS NULL
6712:
6713: -- ------------------------------------------ End Party Site Search --------------------------------
6714: IF OZF_DEBUG_LOW_ON THEN
6715: ozf_utility_pvt.debug_message ('Contact Rule name '|| p_contact_rec.contact_rule_name);
6716: END IF;
6717:
6718: l_rule_id := null;
6719:
6729: IF l_party_id IS NOT NULL THEN
6730:
6731: IF l_rule_id IS NOT NULL THEN
6732: IF OZF_DEBUG_LOW_ON THEN
6733: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6734: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6735: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6736: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6737: END IF;
6730:
6731: IF l_rule_id IS NOT NULL THEN
6732: IF OZF_DEBUG_LOW_ON THEN
6733: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6734: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6735: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6736: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6737: END IF;
6738:
6731: IF l_rule_id IS NOT NULL THEN
6732: IF OZF_DEBUG_LOW_ON THEN
6733: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6734: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6735: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6736: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6737: END IF;
6738:
6739: IF p_contact_rec.contact_name IS NOT NULL THEN
6732: IF OZF_DEBUG_LOW_ON THEN
6733: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6734: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6735: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6736: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6737: END IF;
6738:
6739: IF p_contact_rec.contact_name IS NOT NULL THEN
6740:
6754: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6756: END IF;
6757: IF OZF_DEBUG_LOW_ON THEN
6758: ozf_utility_pvt.debug_message('l_search_context_id ........'|| l_search_context_id );
6759: END IF;
6760:
6761:
6762: OPEN C_matched_contacts(l_search_context_id);
6762: OPEN C_matched_contacts(l_search_context_id);
6763: FETCH C_matched_contacts INTO l_party_id, l_org_contact_id, l_score;
6764: CLOSE C_matched_contacts;
6765: IF OZF_DEBUG_LOW_ON THEN
6766: ozf_utility_pvt.debug_message('contact info from DQM ........'|| l_party_id || ' : '||l_org_contact_id);
6767: END IF;
6768:
6769: IF l_org_contact_id is not null THEN
6770: x_party_contact_id := l_org_contact_id;
6769: IF l_org_contact_id is not null THEN
6770: x_party_contact_id := l_org_contact_id;
6771: ELSE
6772: IF OZF_DEBUG_LOW_ON THEN
6773: ozf_utility_pvt.debug_message('No contact match found !');
6774: END IF;
6775: END IF;
6776: ELSE
6777: IF OZF_DEBUG_LOW_ON THEN
6774: END IF;
6775: END IF;
6776: ELSE
6777: IF OZF_DEBUG_LOW_ON THEN
6778: ozf_utility_pvt.debug_message('DQM Search for contact cannot be performed');
6779: END IF;
6780: END IF; --p_contact_rec.contact_name IS NOT NULL
6781:
6782:
6781:
6782:
6783: ELSE
6784: IF OZF_DEBUG_LOW_ON THEN
6785: ozf_utility_pvt.debug_message('Match Rule for Party Contact is not active or uncompiled. Check the match rule');
6786: END IF;
6787: RAISE FND_API.g_exc_error;
6788: END IF; -- l_rule_id IS NOT NULL
6789:
6794:
6795:
6796: -- Debug Message
6797: IF OZF_DEBUG_LOW_ON THEN
6798: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6799: END IF;
6800:
6801: -- Standard call to get message count and if count is 1, get message info.
6802: FND_MSG_PUB.Count_And_Get
6846: BEGIN
6847:
6848: -- Debug Message
6849: IF OZF_DEBUG_HIGH_ON THEN
6850: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6851: END IF;
6852:
6853: -- Initialize API return status to SUCCESS
6854: x_return_status := FND_API.G_RET_STS_SUCCESS;
6859: FOR i IN 1 .. p_external_code_tbl.COUNT
6860: LOOP
6861: IF p_external_code_tbl(i) IS NOT NULL THEN
6862: IF OZF_DEBUG_LOW_ON THEN
6863: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6864: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6865: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6866: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6867: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6860: LOOP
6861: IF p_external_code_tbl(i) IS NOT NULL THEN
6862: IF OZF_DEBUG_LOW_ON THEN
6863: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6864: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6865: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6866: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6867: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6868: END IF;
6861: IF p_external_code_tbl(i) IS NOT NULL THEN
6862: IF OZF_DEBUG_LOW_ON THEN
6863: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6864: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6865: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6866: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6867: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6868: END IF;
6869: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, power(2,30)) --ninarasi fix for bug 12977180
6862: IF OZF_DEBUG_LOW_ON THEN
6863: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6864: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6865: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6866: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6867: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6868: END IF;
6869: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, power(2,30)) --ninarasi fix for bug 12977180
6870: INTO idx
6863: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6864: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6865: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6866: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6867: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6868: END IF;
6869: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, power(2,30)) --ninarasi fix for bug 12977180
6870: INTO idx
6871: FROM DUAL;
6871: FROM DUAL;
6872: IF l_temp_code_tbl.exists(idx) THEN
6873: x_internal_code_tbl(i) := l_temp_code_tbl(idx);
6874: IF OZF_DEBUG_LOW_ON THEN
6875: ozf_utility_pvt.debug_message('Internal Code: ' || x_internal_code_tbl(i));
6876: END IF;
6877:
6878: ELSE
6879: OZF_CODE_CONVERSION_PVT.convert_code
6891: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6893: END IF;
6894: IF OZF_DEBUG_LOW_ON THEN
6895: ozf_utility_pvt.debug_message('Internal Code'||x_internal_code_tbl(i));
6896: END IF;
6897:
6898: IF x_internal_code_tbl(i) IS NOT NULL THEN
6899: l_temp_code_tbl(idx) := x_internal_code_tbl(i);
6902: END IF;
6903: END IF;
6904: ELSE
6905: IF OZF_DEBUG_LOW_ON THEN
6906: ozf_utility_pvt.debug_message('Code Conversion cannot be performed ');
6907: END IF;
6908: x_internal_code_tbl(i) := NULL;
6909: END IF; -- p_external_code_tbl(i) IS NOT NULL
6910: END LOOP;
6912: END IF; -- p_external_code_tbl.COUNT > 0
6913:
6914: -- Debug Message
6915: IF OZF_DEBUG_HIGH_ON THEN
6916: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6917: END IF;
6918: -- Standard call to get message count and if count is 1, get message info.
6919: FND_MSG_PUB.Count_And_Get
6920: (p_count => x_msg_count,
7061: END IF;
7062: END IF;
7063:
7064: IF x_cust_acct_id IS NULL THEN
7065: ozf_utility_pvt.error_message('OZF_BATCH_PARTNER_NULL');
7066: END IF;
7067:
7068: EXCEPTION
7069: WHEN FND_API.G_EXC_ERROR THEN
7094: l_return_message VARCHAR2(32000);
7095:
7096: BEGIN
7097: IF OZF_DEBUG_HIGH_ON THEN
7098: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7099: END IF;
7100:
7101: x_return_status := FND_API.G_RET_STS_SUCCESS;
7102:
7109: retcode => l_return_code,
7110: retmsg => l_return_message
7111: );
7112: IF OZF_DEBUG_LOW_ON THEN
7113: ozf_utility_pvt.debug_message('Address ID '|| l_address_id || 'Return Code '|| l_return_code);
7114: END IF;
7115:
7116: IF l_return_code = 0 THEN
7117: x_party_site_id := l_address_id;
7118: ELSE
7119: x_party_site_id := NULL;
7120: END IF;
7121: IF OZF_DEBUG_HIGH_ON THEN
7122: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' End');
7123: END IF;
7124: EXCEPTION
7125: WHEN FND_API.G_EXC_ERROR THEN
7126: x_return_status := FND_API.G_RET_STS_ERROR;
7153:
7154: BEGIN
7155:
7156: IF OZF_DEBUG_HIGH_ON THEN
7157: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7158: END IF;
7159:
7160: x_return_status := FND_API.G_RET_STS_SUCCESS;
7161:
7163: IF p_line_count > 0 THEN
7164: FOR i IN 1 .. p_line_count LOOP
7165: IF OZF_DEBUG_LOW_ON THEN
7166: IF p_cust_account_id.exists(i) THEN
7167: ozf_utility_pvt.debug_message('p_cust_account_id = '||p_cust_account_id(i));
7168: END IF;
7169: IF p_acct_site_id.exists(i) THEN
7170: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
7171: END IF;
7166: IF p_cust_account_id.exists(i) THEN
7167: ozf_utility_pvt.debug_message('p_cust_account_id = '||p_cust_account_id(i));
7168: END IF;
7169: IF p_acct_site_id.exists(i) THEN
7170: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
7171: END IF;
7172: IF p_party_id.exists(i) THEN
7173: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
7174: END IF;
7169: IF p_acct_site_id.exists(i) THEN
7170: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
7171: END IF;
7172: IF p_party_id.exists(i) THEN
7173: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
7174: END IF;
7175: IF p_party_site_id.exists(i) THEN
7176: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
7177: END IF;
7172: IF p_party_id.exists(i) THEN
7173: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
7174: END IF;
7175: IF p_party_site_id.exists(i) THEN
7176: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
7177: END IF;
7178: IF p_location.exists(i) THEN
7179: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
7180: END IF;
7175: IF p_party_site_id.exists(i) THEN
7176: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
7177: END IF;
7178: IF p_location.exists(i) THEN
7179: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
7180: END IF;
7181: IF p_party_name.exists(i) THEN
7182: ozf_utility_pvt.debug_message('p_party_name = '||p_party_name(i));
7183: END IF;
7178: IF p_location.exists(i) THEN
7179: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
7180: END IF;
7181: IF p_party_name.exists(i) THEN
7182: ozf_utility_pvt.debug_message('p_party_name = '||p_party_name(i));
7183: END IF;
7184: END IF;
7185:
7186:
7219: END LOOP;
7220: END IF;
7221:
7222: IF OZF_DEBUG_HIGH_ON THEN
7223: --ozf_utility_pvt.debug_message('x_null_flag in check party record: ' || x_null_flag);
7224: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7225: END IF;
7226: EXCEPTION
7227: WHEN FND_API.G_EXC_ERROR THEN
7220: END IF;
7221:
7222: IF OZF_DEBUG_HIGH_ON THEN
7223: --ozf_utility_pvt.debug_message('x_null_flag in check party record: ' || x_null_flag);
7224: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7225: END IF;
7226: EXCEPTION
7227: WHEN FND_API.G_EXC_ERROR THEN
7228: x_return_status := FND_API.G_RET_STS_ERROR;
7376: l_party_name VARCHAR2(1000);
7377:
7378: BEGIN
7379: IF OZF_DEBUG_HIGH_ON THEN
7380: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7381: END IF;
7382:
7383: -- Initialize API return status to SUCCESS
7384: x_return_status := FND_API.G_RET_STS_SUCCESS;
7385:
7386: IF p_line_count > 0 THEN
7387: IF OZF_DEBUG_LOW_ON THEN
7388: FOR i IN 1 .. p_line_count LOOP
7389: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
7390: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
7391: END LOOP;
7392: END IF;
7393:
7386: IF p_line_count > 0 THEN
7387: IF OZF_DEBUG_LOW_ON THEN
7388: FOR i IN 1 .. p_line_count LOOP
7389: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
7390: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
7391: END LOOP;
7392: END IF;
7393:
7394: FOR i IN 1 .. p_line_count LOOP
7400: x_site_use_id(i) := NULL;
7401: x_party_id(i) := NULL;
7402: END IF;
7403: IF OZF_DEBUG_LOW_ON THEN
7404: ozf_utility_pvt.debug_message('px_status_code_tbl('||i||')'||px_status_code_tbl(i));
7405: ozf_utility_pvt.debug_message('px_dispute_code_tbl('||i||')'||px_dispute_code_tbl(i));
7406: END IF;
7407:
7408: IF p_party_type = 'SOLD_FROM' AND
7401: x_party_id(i) := NULL;
7402: END IF;
7403: IF OZF_DEBUG_LOW_ON THEN
7404: ozf_utility_pvt.debug_message('px_status_code_tbl('||i||')'||px_status_code_tbl(i));
7405: ozf_utility_pvt.debug_message('px_dispute_code_tbl('||i||')'||px_dispute_code_tbl(i));
7406: END IF;
7407:
7408: IF p_party_type = 'SOLD_FROM' AND
7409: px_status_code_tbl(i) = 'DISPUTED' AND
7410: px_dispute_code_tbl(i) = 'OZF_SHIP_FROM_ACCOUNT_NULL' THEN
7411: EXIT;
7412: ELSE
7413: IF OZF_DEBUG_LOW_ON THEN
7414: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
7415: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
7416: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
7417: END IF;
7418:
7411: EXIT;
7412: ELSE
7413: IF OZF_DEBUG_LOW_ON THEN
7414: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
7415: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
7416: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
7417: END IF;
7418:
7419: IF p_cust_account_id.exists(i) AND
7412: ELSE
7413: IF OZF_DEBUG_LOW_ON THEN
7414: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
7415: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
7416: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
7417: END IF;
7418:
7419: IF p_cust_account_id.exists(i) AND
7420: p_cust_account_id(i) IS NOT NULL THEN
7481: END IF;
7482: END IF;
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: ozf_utility_pvt.debug_message('-------');
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7482: END IF;
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: ozf_utility_pvt.debug_message('-------');
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7490: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: ozf_utility_pvt.debug_message('-------');
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7490: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7491: END IF;
7484: IF OZF_DEBUG_LOW_ON THEN
7485: ozf_utility_pvt.debug_message('-------');
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7490: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7491: END IF;
7492:
7485: ozf_utility_pvt.debug_message('-------');
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7490: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7491: END IF;
7492:
7493: END IF;
7486: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7487: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7488: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7489: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7490: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7491: END IF;
7492:
7493: END IF;
7494: END LOOP;
7494: END LOOP;
7495: END IF; -- end of if p_line_count > 0
7496:
7497: IF OZF_DEBUG_HIGH_ON THEN
7498: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7499: END IF;
7500:
7501: EXCEPTION
7502: WHEN FND_API.G_EXC_ERROR THEN
7530:
7531: BEGIN
7532: IF OZF_DEBUG_HIGH_ON THEN
7533: -- Debug Message
7534: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7535: END IF;
7536:
7537: -- Initialize API return status to SUCCESS
7538: x_return_status := FND_API.G_RET_STS_SUCCESS;
7542:
7543: FOR l_count in p_int_line_tbl.FIRST .. p_int_line_tbl.LAST
7544: LOOP
7545: IF OZF_DEBUG_LOW_ON THEN
7546: ozf_utility_pvt.debug_message('p_int_line_tbl(l_count).resale_line_int_id ' || p_int_line_tbl(l_count).resale_line_int_id );
7547: END IF;
7548:
7549: OZF_RESALE_LINES_INT_PKG.Update_Row(
7550: p_resale_line_int_id => p_int_line_tbl(l_count).resale_line_int_id,
7785: END IF;
7786: EXCEPTION
7787:
7788: WHEN OTHERS THEN
7789: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT','Problem with updating line record'||sqlcode ||' '||sqlerrm);
7790: RAISE FND_API.G_EXC_ERROR;
7791:
7792: END;
7793:
7798: END IF;
7799:
7800: -- Debug Message
7801: IF OZF_DEBUG_HIGH_ON THEN
7802: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7803: END IF;
7804:
7805: -- Standard call to get message count and if count is 1, get message info.
7806: FND_MSG_PUB.Count_And_Get
7857: l_api_version_number CONSTANT NUMBER := 1.0;
7858: BEGIN
7859: -- Debug Message
7860: IF OZF_DEBUG_HIGH_ON THEN
7861: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7862: END IF;
7863:
7864: -- Initialize API return status to SUCCESS
7865: x_return_status := FND_API.G_RET_STS_SUCCESS;
7863:
7864: -- Initialize API return status to SUCCESS
7865: x_return_status := FND_API.G_RET_STS_SUCCESS;
7866: IF OZF_DEBUG_HIGH_ON THEN
7867: ozf_utility_pvt.debug_message('x_return_status '||x_return_status);
7868: END IF;
7869:
7870: BEGIN
7871: IF OZF_DEBUG_LOW_ON THEN
7868: END IF;
7869:
7870: BEGIN
7871: IF OZF_DEBUG_LOW_ON THEN
7872: ozf_utility_pvt.debug_message('Resale Batch ID ' || p_int_batch_rec.resale_batch_id);
7873: END IF;
7874: OZF_RESALE_BATCHES_PKG.Update_Row(
7875: p_resale_batch_id => p_int_batch_rec.resale_batch_id,
7876: p_object_version_number => p_int_batch_rec.object_version_number ,
7947:
7948: EXCEPTION
7949:
7950: WHEN OTHERS THEN
7951: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT','Problem with updating batch record'||sqlcode ||' '||sqlerrm);
7952: RAISE FND_API.G_EXC_ERROR;
7953:
7954: END;
7955:
7959: COMMIT WORK;
7960: END IF;
7961: -- Debug Message
7962: IF OZF_DEBUG_HIGH_ON THEN
7963: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7964: END IF;
7965:
7966: -- Standard call to get message count and if count is 1, get message info.
7967: FND_MSG_PUB.Count_And_Get
8050:
8051:
8052: BEGIN
8053: IF OZF_DEBUG_HIGH_ON THEN
8054: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
8055: END IF;
8056:
8057: IF (funcmode = 'RUN') THEN
8058:
8155: l_return_status VARCHAR2(1);
8156:
8157: BEGIN
8158: IF OZF_DEBUG_HIGH_ON THEN
8159: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
8160: END IF;
8161: IF( funcmode = 'RUN' ) THEN
8162:
8163: l_event_key := wf_engine.GetItemAttrText(itemtype => itemtype,
8231: l_msg_data VARCHAR2(2000);
8232: l_batch_status VARCHAR2(30);
8233: BEGIN
8234: IF OZF_DEBUG_HIGH_ON THEN
8235: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
8236: END IF;
8237:
8238: IF (funcmode = 'RUN') THEN
8239:
8250: aname => 'OZF_RESALE_BATCH_ID');
8251:
8252: END IF;
8253: IF OZF_DEBUG_LOW_ON THEN
8254: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
8255: END IF;
8256: IF l_batch_id IS NOT NULL THEN
8257:
8258: raise_event
8261: p_event_name => g_xml_outbound_event ,
8262: x_return_status => l_return_status
8263: );
8264: IF OZF_DEBUG_LOW_ON THEN
8265: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
8266: END IF;
8267:
8268: END IF;
8269:
8328: l_msg_data VARCHAR2(2000);
8329: l_batch_status VARCHAR2(30);
8330: BEGIN
8331: IF OZF_DEBUG_HIGH_ON THEN
8332: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
8333: END IF;
8334:
8335: IF (funcmode = 'RUN') THEN
8336:
8337: l_batch_id := wf_engine.GetItemAttrText(itemtype => itemtype,
8338: itemkey => itemkey,
8339: aname => 'PARAMETER1');
8340: IF OZF_DEBUG_LOW_ON THEN
8341: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
8342: END IF;
8343:
8344: IF l_batch_id IS NOT NULL THEN
8345:
8349: p_event_name => g_xml_data_process_event ,
8350: x_return_status => l_return_status
8351: );
8352: IF OZF_DEBUG_LOW_ON THEN
8353: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
8354: END IF;
8355:
8356: END IF;
8357:
8438: FROM ozf_resale_batches_all
8439: WHERE resale_batch_id = p_batch_id;
8440: BEGIN
8441: IF OZF_DEBUG_HIGH_ON THEN
8442: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
8443: END IF;
8444:
8445: -- Initialize API return status to SUCCESS
8446: x_return_status := FND_API.G_RET_STS_SUCCESS;
8450: l_resp_id := FND_GLOBAL.resp_id;
8451: l_appl_id := 682;
8452:
8453: IF OZF_DEBUG_LOW_ON THEN
8454: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id);
8455: ozf_utility_pvt.debug_message('Event : ' || p_event_name || ' start');
8456: END IF;
8457:
8458: IF p_batch_id IS NOT NULL THEN
8451: l_appl_id := 682;
8452:
8453: IF OZF_DEBUG_LOW_ON THEN
8454: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id);
8455: ozf_utility_pvt.debug_message('Event : ' || p_event_name || ' start');
8456: END IF;
8457:
8458: IF p_batch_id IS NOT NULL THEN
8459: -- XML Outbound Event
8603: p_parameters => l_msg_parameter_list );
8604:
8605: END IF;
8606: IF OZF_DEBUG_HIGH_ON THEN
8607: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
8608: END IF;
8609: EXCEPTION
8610: WHEN FND_API.G_EXC_ERROR THEN
8611: x_return_status := FND_API.G_RET_STS_ERROR;
8612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8614: WHEN OTHERS THEN
8615:
8616: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT',sqlcode ||' '||sqlerrm);
8617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8618: END raise_event;
8619:
8620:
8631: l_log_id NUMBER;
8632: l_org_id NUMBER;
8633: BEGIN
8634: IF OZF_DEBUG_HIGH_ON THEN
8635: ozf_utility_pvt.debug_message(l_api_name||': Start');
8636: END IF;
8637: --
8638: IF p_error_code IS NOT NULL THEN
8639: BEGIN
8667: px_org_id => l_org_id
8668: );
8669: EXCEPTION
8670: WHEN OTHERS THEN
8671: OZF_UTILITY_PVT.error_message('OZF_INS_RESALE_LOG_WRG');
8672: RAISE FND_API.g_exc_unexpected_error;
8673: END;
8674: END IF;
8675: --
8673: END;
8674: END IF;
8675: --
8676: IF OZF_DEBUG_HIGH_ON THEN
8677: ozf_utility_pvt.debug_message(l_api_name||': End');
8678: END IF;
8679: EXCEPTION
8680: WHEN FND_API.G_EXC_ERROR THEN
8681: x_return_status := FND_API.G_RET_STS_ERROR;