[Home] [Help]
64: l_msg_data VARCHAR2(2000);
65: l_batch_status VARCHAR2(30);
66: BEGIN
67: IF OZF_DEBUG_HIGH_ON THEN
68: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
69: END IF;
70:
71: IF (funcmode = 'RUN') THEN
72:
84:
85: END IF;
86:
87: IF OZF_DEBUG_LOW_ON THEN
88: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
89: END IF;
90:
91: IF l_batch_id IS NOT NULL THEN
92:
103: x_msg_data => l_msg_data
104: );
105:
106: IF OZF_DEBUG_LOW_ON THEN
107: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
108: END IF;
109:
110: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
111: l_resultout := 'COMPLETE:ERROR';
193: where batch_number = pc_batch_no;
194:
195: BEGIN
196: IF OZF_DEBUG_HIGH_ON THEN
197: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
198: END IF;
199:
200: x_return_status := FND_API.G_RET_STS_SUCCESS;
201: IF p_batch_number IS NOT NULL THEN
219: x_msg_data => l_msg_data
220: );
221:
222: IF OZF_DEBUG_LOW_ON THEN
223: ozf_utility_pvt.debug_message('Pre Process is complete '|| x_return_status);
224: END IF;
225:
226: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
227: RAISE FND_API.G_EXC_ERROR;
250:
251: END IF; -- p_batch_number is not null
252:
253: IF OZF_DEBUG_HIGH_ON THEN
254: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
255: END IF;
256:
257: EXCEPTION
258: WHEN FND_API.G_EXC_ERROR THEN
341: FND_MSG_PUB.initialize;
342: END IF;
343:
344: IF OZF_DEBUG_HIGH_ON THEN
345: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
346: END IF;
347:
348: -- Initialize API return status to SUCCESS
349: x_return_status := FND_API.G_RET_STS_SUCCESS;
481: END IF;
482:
483: -- Debug Message
484: IF OZF_DEBUG_HIGH_ON THEN
485: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
486: END IF;
487:
488: -- Standard call to get message count and if count is 1, get message info.
489: FND_MSG_PUB.Count_And_Get
559: l_batch_status VARCHAR2(30);
560:
561: BEGIN
562: IF OZF_DEBUG_HIGH_ON THEN
563: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
564: END IF;
565:
566: x_return_status := FND_API.G_RET_STS_SUCCESS;
567: --
594: x_msg_count => l_msg_count,
595: x_msg_data => l_msg_data
596: );
597: IF OZF_DEBUG_LOW_ON THEN
598: ozf_utility_pvt.debug_message('Batch Status from Validate Batch ' || l_batch_status);
599: END IF;
600: --
601: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
638: x_resale_batch_rec := NULL;
639: END IF;
640:
641: IF OZF_DEBUG_HIGH_ON THEN
642: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
643: END IF;
644: EXCEPTION
645: WHEN FND_API.G_EXC_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_ERROR;
692: l_admin_email VARCHAR2(3000);
693:
694: BEGIN
695: IF OZF_DEBUG_HIGH_ON THEN
696: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
697: END IF;
698:
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
699: x_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: -- Fetch the batch record
702: IF OZF_DEBUG_LOW_ON THEN
703: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id );
704: END IF;
705:
706: OPEN csr_get_batch_info ( p_batch_id);
707: FETCH csr_get_batch_info INTO x_resale_batch_rec;
706: OPEN csr_get_batch_info ( p_batch_id);
707: FETCH csr_get_batch_info INTO x_resale_batch_rec;
708:
709: IF OZF_DEBUG_LOW_ON THEN
710: ozf_utility_pvt.debug_message('after batch fetch');
711: END IF;
712:
713: IF csr_get_batch_info%NOTFOUND THEN
714: IF OZF_DEBUG_LOW_ON THEN
711: END IF;
712:
713: IF csr_get_batch_info%NOTFOUND THEN
714: IF OZF_DEBUG_LOW_ON THEN
715: ozf_utility_pvt.debug_message('No records found');
716: END IF;
717:
718: insert_resale_log(
719: p_id_value => p_batch_id,
723: p_column_value => NULL,
724: x_return_status => x_return_status
725: );
726: IF OZF_DEBUG_LOW_ON THEN
727: ozf_utility_pvt.debug_message('x_return_status from insert resale log' ||x_return_status );
728: END IF;
729:
730: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
731: RAISE FND_API.G_EXC_ERROR;
741: -- OR it could be User defined Location Code, in that case based on
742: -- location code trading partner party id and party site id are retrieved from
743: -- Trading Partner Header
744: IF OZF_DEBUG_LOW_ON THEN
745: ozf_utility_pvt.debug_message('ECX fetch');
746: ozf_utility_pvt.debug_message('x_resale_batch_rec.partner_site_id'||x_resale_batch_rec.partner_site_id);
747: END IF;
748:
749: OPEN get_ecx_party_id (x_resale_batch_rec.partner_site_id);
742: -- location code trading partner party id and party site id are retrieved from
743: -- Trading Partner Header
744: IF OZF_DEBUG_LOW_ON THEN
745: ozf_utility_pvt.debug_message('ECX fetch');
746: ozf_utility_pvt.debug_message('x_resale_batch_rec.partner_site_id'||x_resale_batch_rec.partner_site_id);
747: END IF;
748:
749: OPEN get_ecx_party_id (x_resale_batch_rec.partner_site_id);
750: FETCH get_ecx_party_id
751: INTO l_partner_party_id,l_party_site_id, l_admin_email;
752: CLOSE get_ecx_party_id;
753:
754: IF OZF_DEBUG_LOW_ON THEN
755: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
756: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
757: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
758: END IF;
759:
752: CLOSE get_ecx_party_id;
753:
754: IF OZF_DEBUG_LOW_ON THEN
755: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
756: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
757: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
758: END IF;
759:
760: IF x_resale_batch_rec.partner_party_id IS NULL THEN
753:
754: IF OZF_DEBUG_LOW_ON THEN
755: ozf_utility_pvt.debug_message('Trading Partner Party ID'||l_partner_party_id);
756: ozf_utility_pvt.debug_message('Trading Partner Site ID'||l_party_site_id);
757: ozf_utility_pvt.debug_message('Admin Email'||l_admin_email);
758: END IF;
759:
760: IF x_resale_batch_rec.partner_party_id IS NULL THEN
761: x_resale_batch_rec.partner_party_id := l_partner_party_id;
763: G_ADMIN_EMAIL := l_admin_email;
764: END IF;
765:
766: IF OZF_DEBUG_LOW_ON THEN
767: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
768: END IF;
769:
770: EXCEPTION
771: WHEN FND_API.G_EXC_ERROR THEN
804: l_chk_flag VARCHAR2(1) := NULL;
805: time NUMBER;
806: BEGIN
807: IF OZF_DEBUG_LOW_ON THEN
808: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
809: END IF;
810:
811: -- ========================================================================
812: -- NULL Checks
814:
815: -- Partner id is null
816: IF OZF_DEBUG_LOW_ON THEN
817: time := DBMS_UTILITY.GET_TIME;
818: ozf_utility_pvt.debug_message('Start Time (in Seconds) in '|| l_api_name || ' '|| time/100);
819: END IF;
820:
821: IF p_resale_batch_rec.partner_party_id IS NULL THEN
822: IF p_resale_batch_rec.partner_cust_account_id IS NULL THEN
821: IF p_resale_batch_rec.partner_party_id IS NULL THEN
822: IF p_resale_batch_rec.partner_cust_account_id IS NULL THEN
823:
824: IF OZF_DEBUG_LOW_ON THEN
825: ozf_utility_pvt.debug_message ( 'Partner Party ID is null ');
826: END IF;
827:
828: insert_resale_log
829: (p_id_value => p_resale_batch_rec.resale_batch_id,
844: END IF; -- l_partner_party_id is null
845:
846: -- Report Start Date is null
847: IF OZF_DEBUG_LOW_ON THEN
848: ozf_utility_pvt.debug_message ( 'Report Start Date '||p_resale_batch_rec.report_start_date);
849: END IF;
850:
851: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
852: AND p_resale_batch_rec.report_start_date IS NULL THEN
851: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
852: AND p_resale_batch_rec.report_start_date IS NULL THEN
853:
854: IF OZF_DEBUG_LOW_ON THEN
855: ozf_utility_pvt.debug_message ( 'Report Start Date is null ');
856: END IF;
857:
858: insert_resale_log
859: ( p_id_value => p_resale_batch_rec.resale_batch_id,
874: END IF; -- Report Start Date null
875:
876: -- Report End Date is null
877: IF OZF_DEBUG_LOW_ON THEN
878: ozf_utility_pvt.debug_message ( 'Report End Date '||p_resale_batch_rec.report_end_date);
879: END IF;
880:
881: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
882: AND p_resale_batch_rec.report_end_date IS NULL THEN
881: IF (x_batch_status IS NULL OR x_batch_status <> G_BATCH_REJECTED )
882: AND p_resale_batch_rec.report_end_date IS NULL THEN
883:
884: IF OZF_DEBUG_LOW_ON THEN
885: ozf_utility_pvt.debug_message ( 'Report End Date is null ');
886: END IF;
887:
888: insert_resale_log
889: (p_id_value => p_resale_batch_rec.resale_batch_id,
909: AND p_resale_batch_rec.report_end_date IS NOT NULL
910: AND p_resale_batch_rec.report_start_date > p_resale_batch_rec.report_end_date
911: THEN
912: IF OZF_DEBUG_LOW_ON THEN
913: ozf_utility_pvt.debug_message ( 'Report start date is less than Report end date ');
914: END IF;
915: insert_resale_log
916: (p_id_value => p_resale_batch_rec.resale_batch_id,
917: p_id_type => 'BATCH',
945: CLOSE chk_cust_account;
946:
947: IF l_chk_flag IS NULL THEN
948: IF OZF_DEBUG_LOW_ON THEN
949: ozf_utility_pvt.debug_message ( 'Partner Customer Account ID is invalid ');
950: END IF;
951:
952: insert_resale_log
953: (p_id_value => p_resale_batch_rec.resale_batch_id,
974: AND p_resale_batch_rec.transaction_type_code IS NULL
975: AND p_resale_batch_rec.batch_type IS NULL THEN
976: --
977: IF OZF_DEBUG_LOW_ON THEN
978: ozf_utility_pvt.debug_message ( 'Batch Type and transaction_type_code is null ');
979: END IF;
980:
981: insert_resale_log
982: (p_id_value => p_resale_batch_rec.resale_batch_id,
1001: END IF;
1002:
1003: -- Debug Message
1004: IF OZF_DEBUG_LOW_ON THEN
1005: ozf_utility_pvt.debug_message('End Time (in Seconds) in '|| l_api_name || ' '|| (DBMS_UTILITY.GET_TIME - time)/100);
1006: END IF;
1007: IF OZF_DEBUG_HIGH_ON THEN
1008: ozf_utility_pvt.debug_message(l_api_name||': End');
1009: END IF;
1004: IF OZF_DEBUG_LOW_ON THEN
1005: ozf_utility_pvt.debug_message('End Time (in Seconds) in '|| l_api_name || ' '|| (DBMS_UTILITY.GET_TIME - time)/100);
1006: END IF;
1007: IF OZF_DEBUG_HIGH_ON THEN
1008: ozf_utility_pvt.debug_message(l_api_name||': End');
1009: END IF;
1010: EXCEPTION
1011: WHEN FND_API.G_EXC_ERROR THEN
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1055: l_dqm_contact_rule VARCHAR2(100);
1056:
1057: BEGIN
1058: IF OZF_DEBUG_HIGH_ON THEN
1059: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
1060: END IF;
1061: --
1062: -- Transaction Type Defaulting
1063: -- -----------------------------------------------------------------
1072: l_resale_batch_rec.transaction_type_code := g_product_transfer;
1073: END IF;
1074: END IF;
1075: IF OZF_DEBUG_LOW_ON THEN
1076: ozf_utility_pvt.debug_message ( 'Batch Type is '|| l_resale_batch_rec.batch_type);
1077: END IF;
1078: ELSE
1079: --
1080: -- Batch Type Defaulting
1088: l_resale_batch_rec.batch_type := OZF_RESALE_COMMON_PVT.G_TRACING;
1089: END IF;
1090: END IF;
1091: IF OZF_DEBUG_LOW_ON THEN
1092: ozf_utility_pvt.debug_message ( 'transaction_type_code is '|| l_resale_batch_rec.transaction_type_code);
1093: END IF;
1094: END IF;
1095:
1096: --
1099: IF px_resale_batch_rec.report_date IS NULL THEN
1100: l_resale_batch_rec.report_date := TO_DATE(TO_CHAR(SYSDATE,'MM/DD/YYYY'),'MM/DD/YYYY');
1101: END IF;
1102: IF OZF_DEBUG_LOW_ON THEN
1103: ozf_utility_pvt.debug_message ( 'Report Date is '|| l_resale_batch_rec.report_date);
1104: END IF;
1105: --
1106: -- Transaction Purpose Code Defaulting
1107: -- -----------------------------------------------------------------
1108: IF px_resale_batch_rec.transaction_purpose_code IS NULL THEN
1109: l_resale_batch_rec.transaction_purpose_code := g_original;
1110: END IF;
1111: IF OZF_DEBUG_LOW_ON THEN
1112: ozf_utility_pvt.debug_message ( 'transaction_purpose_code is '|| l_resale_batch_rec.transaction_purpose_code);
1113: END IF;
1114: --
1115: -- Partner Type Defaulting
1116: -- -----------------------------------------------------------------
1117: IF px_resale_batch_rec.partner_type IS NULL THEN
1118: l_resale_batch_rec.partner_type := g_distributor;
1119: END IF;
1120: IF OZF_DEBUG_LOW_ON THEN
1121: ozf_utility_pvt.debug_message ( 'partner_type is '|| l_resale_batch_rec.partner_type);
1122: END IF;
1123:
1124: IF px_resale_batch_rec.batch_count IS NULL THEN
1125: l_resale_batch_rec.batch_count := 0;
1142: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144: END IF;
1145: IF OZF_DEBUG_LOW_ON THEN
1146: ozf_utility_pvt.debug_message ( 'partner_cust_account_id is '|| l_resale_batch_rec.partner_cust_account_id);
1147: END IF;
1148: END IF;
1149:
1150: ELSE
1159: FETCH get_partner_id INTO l_resale_batch_rec.partner_id;
1160: CLOSE get_partner_id;
1161:
1162: IF OZF_DEBUG_LOW_ON THEN
1163: ozf_utility_pvt.debug_message ( 'partner_id is '|| l_resale_batch_rec.partner_id);
1164: END IF;
1165: --
1166: -- Contact Party ID derivation from DQM
1167: -- -----------------------------------------------------------------
1185: l_partner_cntct_rec.party_phone := px_resale_batch_rec.partner_phone;
1186: l_partner_cntct_rec.party_fax := px_resale_batch_rec.partner_fax;
1187: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
1188: IF OZF_DEBUG_LOW_ON THEN
1189: ozf_utility_pvt.debug_message ( 'DQM Contact Rule '|| l_dqm_contact_rule);
1190: END IF;
1191: IF l_dqm_contact_rule IS NOT NULL THEN
1192:
1193: l_partner_cntct_rec.contact_rule_name := l_dqm_contact_rule;
1191: IF l_dqm_contact_rule IS NOT NULL THEN
1192:
1193: l_partner_cntct_rec.contact_rule_name := l_dqm_contact_rule;
1194: IF OZF_DEBUG_LOW_ON THEN
1195: ozf_utility_pvt.debug_message ( 'DQM Contact Rule '|| l_partner_cntct_rec.contact_rule_name);
1196: END IF;
1197: IF l_partner_cntct_rec.contact_name IS NOT NULL THEN
1198:
1199: DQM_Processing (
1233: IF l_party_contact_id IS NULL THEN
1234: l_resale_batch_rec.partner_contact_party_id := l_party_contact_id;
1235: ELSE
1236: IF OZF_DEBUG_LOW_ON THEN
1237: ozf_utility_pvt.debug_message('DQM did not return any contacts ' );
1238: END IF;
1239: END IF;
1240:
1241: ELSE
1239: END IF;
1240:
1241: ELSE
1242: IF OZF_DEBUG_LOW_ON THEN
1243: ozf_utility_pvt.debug_message('Partner Contact name is null ' );
1244: END IF;
1245: END IF; --l_partner_cntct_rec.contact_name
1246: ELSE
1247: IF OZF_DEBUG_LOW_ON THEN
1244: END IF;
1245: END IF; --l_partner_cntct_rec.contact_name
1246: ELSE
1247: IF OZF_DEBUG_LOW_ON THEN
1248: ozf_utility_pvt.debug_message('DQM rules are not setup ' );
1249: END IF;
1250: END IF;
1251: END IF; -- px_resale_batch_rec.partner_contact_party_id
1252:
1257: OR l_resale_batch_rec.status_code IS NULL THEN
1258: l_resale_batch_rec.status_code := 'OPEN';
1259: END IF;
1260: IF OZF_DEBUG_LOW_ON THEN
1261: ozf_utility_pvt.debug_message ( 'Status Code '|| l_resale_batch_rec.status_code);
1262: END IF;
1263:
1264: --
1265: -- Org ID Defaulting
1268: IF l_resale_batch_rec.org_id IS NULL THEN
1269: l_resale_batch_rec.org_id := G_DEFAULT_ORG_ID; --FND_PROFILE.value('DEFAULT_ORG_ID');
1270: END IF;
1271: IF OZF_DEBUG_LOW_ON THEN
1272: ozf_utility_pvt.debug_message ( 'Org ID '|| l_resale_batch_rec.org_id);
1273: END IF;
1274: -- Derived Record Assignment
1275: -- -----------------------------------------------------------------
1276: px_resale_batch_rec := l_resale_batch_rec;
1278: g_batch_currency_code := l_resale_batch_rec.currency_code;
1279:
1280: -- Debug Message
1281: IF OZF_DEBUG_HIGH_ON THEN
1282: ozf_utility_pvt.debug_message(l_api_name||': End');
1283: END IF;
1284:
1285: --Standard call to get message count AND IF count=1, get the message
1286: FND_MSG_PUB.Count_And_Get (
1466: l_line_count NUMBER;
1467:
1468: BEGIN
1469: IF OZF_DEBUG_HIGH_ON THEN
1470: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': Start');
1471: END IF;
1472: x_return_status := FND_API.G_RET_STS_SUCCESS;
1473: OPEN csr_get_line_info ( p_batch_id);
1474: LOOP
1683: IF G_LINES_PROCESSED = l_cnt THEN
1684: px_batch_record.status_code := g_batch_open;
1685: END IF; */
1686: IF OZF_DEBUG_LOW_ON THEN
1687: ozf_utility_pvt.debug_message('Total Line Count '|| l_cnt);
1688: END IF;
1689: IF OZF_DEBUG_HIGH_ON THEN
1690: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
1691: END IF;
1686: IF OZF_DEBUG_LOW_ON THEN
1687: ozf_utility_pvt.debug_message('Total Line Count '|| l_cnt);
1688: END IF;
1689: IF OZF_DEBUG_HIGH_ON THEN
1690: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
1691: END IF;
1692: EXCEPTION
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1735: l_api_version_number CONSTANT NUMBER := 1.0;
1736:
1737: BEGIN
1738: IF OZF_DEBUG_HIGH_ON THEN
1739: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
1740: END IF;
1741: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'ozf.idsm.workflow.preprocess.lines_process',
1743: 'Private API: ' || l_api_name || ' start');
1785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1786: END IF;
1787:
1788: IF OZF_DEBUG_HIGH_ON THEN
1789: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
1790: END IF;
1791: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1792: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'ozf.idsm.workflow.preprocess.lines_process',
1793: 'Private API: ' || l_api_name || ' end');
1838: cnt NUMBER := 0;
1839:
1840: BEGIN
1841: IF OZF_DEBUG_LOW_ON THEN
1842: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
1843: END IF;
1844:
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1844:
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1847: IF OZF_DEBUG_LOW_ON THEN
1848: ozf_utility_pvt.debug_message('Batch ID ' || p_batch_id);
1849: ozf_utility_pvt.debug_message('Line Count in line bulk update ' || p_line_record.resale_line_int_id.COUNT);
1850: END IF;
1851:
1852: FORALL i IN 1 .. p_line_record.resale_line_int_id.COUNT
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1847: IF OZF_DEBUG_LOW_ON THEN
1848: ozf_utility_pvt.debug_message('Batch ID ' || p_batch_id);
1849: ozf_utility_pvt.debug_message('Line Count in line bulk update ' || p_line_record.resale_line_int_id.COUNT);
1850: END IF;
1851:
1852: FORALL i IN 1 .. p_line_record.resale_line_int_id.COUNT
1853: UPDATE ozf_resale_lines_int_all
1985: WHERE resale_batch_id = p_batch_id
1986: AND resale_line_int_id = p_line_record.resale_line_int_id(i);
1987:
1988: IF OZF_DEBUG_HIGH_ON THEN
1989: ozf_utility_pvt.debug_message('SQL%RowCount ' || SQL%ROWCOUNT);
1990: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
1991: END IF;
1992: EXCEPTION
1993: WHEN FND_API.G_EXC_ERROR THEN
1986: AND resale_line_int_id = p_line_record.resale_line_int_id(i);
1987:
1988: IF OZF_DEBUG_HIGH_ON THEN
1989: ozf_utility_pvt.debug_message('SQL%RowCount ' || SQL%ROWCOUNT);
1990: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
1991: END IF;
1992: EXCEPTION
1993: WHEN FND_API.G_EXC_ERROR THEN
1994: x_return_status := FND_API.G_RET_STS_ERROR;
2015: l_batch_type VARCHAR2(30);
2016:
2017: BEGIN
2018: IF OZF_DEBUG_HIGH_ON THEN
2019: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
2020: END IF;
2021:
2022: x_return_status := FND_API.G_RET_STS_SUCCESS;
2023:
2030: g_inventory_tracking_flag := 'F';
2031: END IF;
2032:
2033: IF OZF_DEBUG_LOW_ON THEN
2034: ozf_utility_pvt.debug_message('Inventory Tracking Flag ' || g_inventory_tracking_flag);
2035: END IF;
2036: -- Derive the currency from batch if the line currency is null
2037: -- and the purchase price and selling price is dervied by applying the
2038: -- currency conversion if the currencies are different for purchase, agreement and selling price
2084: END IF;
2085: END IF; -- sign(p_quantity(i)) = -1
2086: END IF;
2087: IF OZF_DEBUG_LOW_ON THEN
2088: ozf_utility_pvt.debug_message('Movement Type ' || px_line_record.product_transfer_movement_type(i));
2089: END IF;
2090:
2091: -- Derive Resale Transfer Type
2092:
2113: END IF;
2114: END IF; -- px_line_record.resale_transfer_type(i) IS NULL
2115:
2116: IF OZF_DEBUG_LOW_ON THEN
2117: ozf_utility_pvt.debug_message('resale_transfer_type' || px_line_record.resale_transfer_type(i));
2118: END IF;
2119:
2120: -- Derive Order Category
2121:
2128:
2129: END IF;
2130:
2131: IF OZF_DEBUG_LOW_ON THEN
2132: ozf_utility_pvt.debug_message('order_category' || px_line_record.order_category(i));
2133: END IF;
2134:
2135: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(px_line_record.resale_batch_id(i));
2136: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr INTO l_batch_type;
2151: px_line_record.agreement_type(i) = 'PL' THEN
2152: px_line_record.price_list_id(i) := px_line_record.agreement_id(i);
2153: END IF;
2154: IF OZF_DEBUG_LOW_ON THEN
2155: ozf_utility_pvt.debug_message('agreement_id' || px_line_record.agreement_id(i));
2156: END IF;
2157:
2158: -- Derive Tracing flag
2159: IF px_line_record.tracing_flag(i) IS NULL THEN
2167: px_line_record.tracing_flag(i) := 'F';
2168: END IF;
2169: END IF;
2170: IF OZF_DEBUG_LOW_ON THEN
2171: ozf_utility_pvt.debug_message('tracing_flag' || px_line_record.tracing_flag(i));
2172: END IF;
2173: END LOOP;
2174:
2175: END IF;
2174:
2175: END IF;
2176:
2177: IF OZF_DEBUG_HIGH_ON THEN
2178: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
2179: END IF;
2180: EXCEPTION
2181: WHEN FND_API.G_EXC_ERROR THEN
2182: x_return_status := FND_API.G_RET_STS_ERROR;
2258: l_agreement_org_id NUMBER;
2259:
2260: BEGIN
2261: IF OZF_DEBUG_HIGH_ON THEN
2262: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
2263: END IF;
2264:
2265: x_return_status := FND_API.G_RET_STS_SUCCESS;
2266:
2278: END IF;
2279:
2280: FOR i IN 1 .. p_line_count LOOP
2281: IF OZF_DEBUG_LOW_ON THEN
2282: ozf_utility_pvt.debug_message('Direct Customer Flag ('||i||')'|| px_line_record.direct_customer_flag(i));
2283: END IF;
2284:
2285: IF px_line_record.sold_from_cust_account_id(i) IS NULL THEN
2286: px_line_record.sold_from_cust_account_id(i) := px_batch_record.partner_cust_account_id;
2643: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
2644: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO px_line_record.exchange_rate_type(i);
2645: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
2646: END IF;
2647: OZF_UTILITY_PVT.Convert_Currency(
2648: p_from_currency => px_line_record.currency_code(i)
2649: ,p_to_currency => l_functional_currency
2650: ,p_conv_type => px_line_record.exchange_rate_type(i)
2651: ,p_conv_rate => px_line_record.exchange_rate(i)
2662: END IF;
2663: px_line_record.acctd_purchase_price(i) := l_new_converted_amount;
2664: ELSE
2665: px_line_record.acctd_purchase_price(i)
2666: := OZF_UTILITY_PVT.CurrRound(px_line_record.purchase_price(i)*px_line_record.exchange_rate(i), l_functional_currency);
2667: END IF; -- px_line_record.exchange_rate(i) IS NULL
2668: ELSE
2669: px_line_record.acctd_purchase_price(i) := px_line_record.purchase_price(i);
2670: END IF; -- l_functional_currency <> px_line_record.currency_code(i)
2857:
2858: END LOOP;
2859:
2860: IF OZF_DEBUG_HIGH_ON THEN
2861: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
2862: END IF;
2863: EXCEPTION
2864: WHEN FND_API.G_EXC_ERROR THEN
2865: x_return_status := FND_API.G_RET_STS_ERROR;
2930:
2931:
2932: BEGIN
2933: IF OZF_DEBUG_HIGH_ON THEN
2934: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
2935: END IF;
2936: x_return_status := FND_API.G_RET_STS_SUCCESS;
2937:
2938: -- Party Site Code Conversions
2955: END LOOP;
2956: END IF;
2957:
2958: IF OZF_DEBUG_LOW_ON THEN
2959: ozf_utility_pvt.debug_message('Mapping Flag ' || l_mapping_flag);
2960: END IF;
2961:
2962: IF l_site_mapping_flag = 'Y' AND p_location_tbl.COUNT > 0 THEN
2963:
3021: END LOOP;
3022: END IF;
3023:
3024: IF OZF_DEBUG_LOW_ON THEN
3025: ozf_utility_pvt.debug_message('Mapping Flag ' || l_mapping_flag);
3026: END IF;
3027:
3028: IF l_mapping_flag = 'Y' AND p_party_name_tbl.COUNT > 0 THEN
3029:
3058: END IF;
3059: END IF;
3060:
3061: IF OZF_DEBUG_HIGH_ON THEN
3062: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
3063: END IF;
3064: EXCEPTION
3065: WHEN FND_API.G_EXC_ERROR THEN
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3087: l_api_version_number CONSTANT NUMBER := 1.0;
3088:
3089: BEGIN
3090: IF OZF_DEBUG_HIGH_ON THEN
3091: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
3092: END IF;
3093:
3094: x_return_status := FND_API.G_RET_STS_SUCCESS;
3095: Agreement_Default
3223:
3224:
3225: -- end
3226: IF OZF_DEBUG_HIGH_ON THEN
3227: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': End');
3228: END IF;
3229:
3230: EXCEPTION
3231: WHEN FND_API.G_EXC_ERROR THEN
3277:
3278:
3279: BEGIN
3280: IF OZF_DEBUG_HIGH_ON THEN
3281: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3282: END IF;
3283:
3284: x_return_status := FND_API.G_RET_STS_SUCCESS;
3285:
3286: -- ----------------------------------------------------------
3287: -- SHIP_FROM Customer
3288: -- ----------------------------------------------------------
3289: IF OZF_DEBUG_LOW_ON THEN
3290: ozf_utility_pvt.debug_message('++++++++++++++ SHIP FROM Customer ++++++++++++++ (+)');
3291: END IF;
3292: Party_Validations
3293: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3294: , p_location => px_line_record.ship_from_location
3316: , x_return_status => x_return_status
3317: );
3318: IF OZF_DEBUG_LOW_ON THEN
3319: FOR i IN 1..px_line_record.ship_from_cust_account_id.count LOOP
3320: ozf_utility_pvt.debug_message ('ship_from_cust_account_id ('||i||')'||px_line_record.ship_from_cust_account_id(i));
3321: ozf_utility_pvt.debug_message ('ship_from_site_id ('||i||')'||px_line_record.ship_from_site_id(i));
3322: END LOOP;
3323: END IF;
3324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3317: );
3318: IF OZF_DEBUG_LOW_ON THEN
3319: FOR i IN 1..px_line_record.ship_from_cust_account_id.count LOOP
3320: ozf_utility_pvt.debug_message ('ship_from_cust_account_id ('||i||')'||px_line_record.ship_from_cust_account_id(i));
3321: ozf_utility_pvt.debug_message ('ship_from_site_id ('||i||')'||px_line_record.ship_from_site_id(i));
3322: END LOOP;
3323: END IF;
3324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3325: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: l_party_site_id.delete;
3330: l_party_id.delete;
3331: IF OZF_DEBUG_LOW_ON THEN
3332: ozf_utility_pvt.debug_message('++++++++++++++ SHIP FROM Customer ++++++++++++++ (-)');
3333: END IF;
3334:
3335:
3336: -- ----------------------------------------------------------
3337: -- SOLD_FROM Customer
3338: -- Derive from ship_from if null
3339: -- ----------------------------------------------------------
3340: IF OZF_DEBUG_LOW_ON THEN
3341: ozf_utility_pvt.debug_message('++++++++++++++ SOLD FROM Customer ++++++++++++++ (+)');
3342: END IF;
3343: l_null_flag := NULL;
3344: chk_party_record_null
3345: ( p_line_count => p_line_count
3415: END IF;
3416: END IF;
3417: IF OZF_DEBUG_LOW_ON THEN
3418: FOR i IN 1..px_line_record.sold_from_cust_account_id.count LOOP
3419: ozf_utility_pvt.debug_message ('sold_from_cust_account_id ('||i||')'||px_line_record.sold_from_cust_account_id(i));
3420: ozf_utility_pvt.debug_message ('sold_from_site_id ('||i||')'||px_line_record.sold_from_site_id(i));
3421: END LOOP;
3422: END IF;
3423: l_party_site_id.delete;
3416: END IF;
3417: IF OZF_DEBUG_LOW_ON THEN
3418: FOR i IN 1..px_line_record.sold_from_cust_account_id.count LOOP
3419: ozf_utility_pvt.debug_message ('sold_from_cust_account_id ('||i||')'||px_line_record.sold_from_cust_account_id(i));
3420: ozf_utility_pvt.debug_message ('sold_from_site_id ('||i||')'||px_line_record.sold_from_site_id(i));
3421: END LOOP;
3422: END IF;
3423: l_party_site_id.delete;
3424: l_party_id.delete;
3422: END IF;
3423: l_party_site_id.delete;
3424: l_party_id.delete;
3425: IF OZF_DEBUG_LOW_ON THEN
3426: ozf_utility_pvt.debug_message('++++++++++++++ SOLD FROM Customer ++++++++++++++ (-)');
3427: END IF;
3428:
3429:
3430: -- ----------------------------------------------------------
3430: -- ----------------------------------------------------------
3431: -- SHIP_TO Customer
3432: -- ----------------------------------------------------------
3433: IF OZF_DEBUG_LOW_ON THEN
3434: ozf_utility_pvt.debug_message('++++++++++++++ SHIP TO Customer ++++++++++++++ (+)');
3435: END IF;
3436: Party_Validations
3437: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3438: , p_location => px_line_record.ship_to_location
3460: , x_return_status => x_return_status
3461: );
3462: IF OZF_DEBUG_LOW_ON THEN
3463: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3464: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3465: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3466: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3467: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3468: END LOOP;
3461: );
3462: IF OZF_DEBUG_LOW_ON THEN
3463: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3464: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3465: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3466: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3467: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3468: END LOOP;
3469: END IF;
3462: IF OZF_DEBUG_LOW_ON THEN
3463: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3464: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3465: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3466: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3467: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3468: END LOOP;
3469: END IF;
3470: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3463: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3464: ozf_utility_pvt.debug_message ('ship_to_cust_account_id ('||i||')'||px_line_record.ship_to_cust_account_id(i));
3465: ozf_utility_pvt.debug_message ('ship_to_site_use_id ('||i||')'||px_line_record.ship_to_site_use_id(i));
3466: ozf_utility_pvt.debug_message ('ship_to_party_id ('||i||')'||px_line_record.ship_to_party_id(i));
3467: ozf_utility_pvt.debug_message ('ship_to_party_site_id ('||i||')'||px_line_record.ship_to_party_site_id(i));
3468: END LOOP;
3469: END IF;
3470: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3471: RAISE FND_API.G_EXC_ERROR;
3472: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3474: END IF;
3475: IF OZF_DEBUG_LOW_ON THEN
3476: ozf_utility_pvt.debug_message('++++++++++++++ SHIP TO Customer ++++++++++++++ (-)');
3477: END IF;
3478:
3479: -- ----------------------------------------------------------
3480: -- BILL_TO Customer
3480: -- BILL_TO Customer
3481: -- Derive from ship_from if null
3482: -- ----------------------------------------------------------
3483: IF OZF_DEBUG_LOW_ON THEN
3484: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (+)');
3485: END IF;
3486: l_null_flag := NULL;
3487: chk_party_record_null
3488: ( p_line_count => p_line_count
3496: , x_null_flag => l_null_flag
3497: , x_return_status => x_return_status
3498: );
3499: IF OZF_DEBUG_LOW_ON THEN
3500: ozf_utility_pvt.debug_message ('Null Flag '||l_null_flag);
3501: END IF;
3502: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3503: RAISE FND_API.G_EXC_ERROR;
3504: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3562: END IF;
3563: IF OZF_DEBUG_LOW_ON THEN
3564: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3565: LOOP
3566: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3567: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3568: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3569: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3570: END LOOP;
3563: IF OZF_DEBUG_LOW_ON THEN
3564: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3565: LOOP
3566: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3567: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3568: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3569: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3570: END LOOP;
3571: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3564: FOR i IN 1 .. px_line_record.ship_to_cust_account_id.count
3565: LOOP
3566: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3567: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3568: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3569: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3570: END LOOP;
3571: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3572: END IF;
3565: LOOP
3566: ozf_utility_pvt.debug_message ('bill_to_cust_account_id ('||i||')'||px_line_record.bill_to_cust_account_id(i));
3567: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3568: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3569: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3570: END LOOP;
3571: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3572: END IF;
3573:
3567: ozf_utility_pvt.debug_message ('bill_to_site_use_id ('||i||')'||px_line_record.bill_to_site_use_id(i));
3568: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3569: ozf_utility_pvt.debug_message ('bill_to_party_site_id ('||i||')'||px_line_record.bill_to_party_site_id(i));
3570: END LOOP;
3571: ozf_utility_pvt.debug_message('++++++++++++++ BILL TO Customer ++++++++++++++ (-)');
3572: END IF;
3573:
3574:
3575: -- ----------------------------------------------------------
3575: -- ----------------------------------------------------------
3576: -- END Customer
3577: -- ----------------------------------------------------------
3578: IF OZF_DEBUG_LOW_ON THEN
3579: ozf_utility_pvt.debug_message('++++++++++++++ END Customer ++++++++++++++ (+)');
3580: END IF;
3581: Party_Validations
3582: ( p_resale_line_int_id => px_line_record.resale_line_int_id
3583: , p_location => px_line_record.end_cust_location
3605: , x_return_status => x_return_status
3606: );
3607: IF OZF_DEBUG_LOW_ON THEN
3608: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3609: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3610: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3611: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3612: END LOOP;
3613: END IF;
3606: );
3607: IF OZF_DEBUG_LOW_ON THEN
3608: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3609: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3610: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3611: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3612: END LOOP;
3613: END IF;
3614: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3607: IF OZF_DEBUG_LOW_ON THEN
3608: FOR i IN 1..px_line_record.ship_to_cust_account_id.count LOOP
3609: ozf_utility_pvt.debug_message ('end_cust_party_id ('||i||')'||px_line_record.end_cust_party_id(i));
3610: ozf_utility_pvt.debug_message ('end_cust_site_use_id ('||i||')'||px_line_record.end_cust_site_use_id(i));
3611: ozf_utility_pvt.debug_message ('bill_to_party_id ('||i||')'||px_line_record.bill_to_party_id(i));
3612: END LOOP;
3613: END IF;
3614: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3615: RAISE FND_API.G_EXC_ERROR;
3616: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3618: END IF;
3619: IF OZF_DEBUG_LOW_ON THEN
3620: ozf_utility_pvt.debug_message('++++++++++++++ END Customer ++++++++++++++ (-)');
3621: END IF;
3622:
3623:
3624: EXCEPTION
3649: l_acctd_price_tbl NUMBER_TABLE;
3650:
3651: BEGIN
3652: IF OZF_DEBUG_HIGH_ON THEN
3653: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3654: END IF;
3655: x_return_status := FND_API.G_RET_STS_SUCCESS;
3656:
3657: -- Selling Price and Currency Derivation
3724: RAISE FND_API.g_exc_unexpected_error;
3725: END IF;
3726:
3727: IF OZF_DEBUG_HIGH_ON THEN
3728: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
3729: END IF;
3730: EXCEPTION
3731: WHEN FND_API.G_EXC_ERROR THEN
3732: x_return_status := FND_API.G_RET_STS_ERROR;
3789: l_converted_amount NUMBER;
3790:
3791: BEGIN
3792: IF OZF_DEBUG_HIGH_ON THEN
3793: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3794: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
3795: END IF;
3796: x_return_status := FND_API.G_RET_STS_SUCCESS;
3797:
3790:
3791: BEGIN
3792: IF OZF_DEBUG_HIGH_ON THEN
3793: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
3794: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
3795: END IF;
3796: x_return_status := FND_API.G_RET_STS_SUCCESS;
3797:
3798: OPEN get_functional_currency;
3813: END IF;
3814: END IF;
3815:
3816: IF OZF_DEBUG_LOW_ON THEN
3817: ozf_utility_pvt.debug_message('Internal Price Tbl ('|| i ||') '|| px_internal_price_tbl(i));
3818: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
3819: END IF;
3820: IF px_internal_price_tbl(i) IS NOT NULL THEN
3821: NULL;
3814: END IF;
3815:
3816: IF OZF_DEBUG_LOW_ON THEN
3817: ozf_utility_pvt.debug_message('Internal Price Tbl ('|| i ||') '|| px_internal_price_tbl(i));
3818: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
3819: END IF;
3820: IF px_internal_price_tbl(i) IS NOT NULL THEN
3821: NULL;
3822: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
3820: IF px_internal_price_tbl(i) IS NOT NULL THEN
3821: NULL;
3822: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
3823: IF OZF_DEBUG_LOW_ON THEN
3824: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
3825: ozf_utility_pvt.debug_message('External Currency Tbl ('|| i ||') '|| p_ext_currency_tbl(i));
3826: END IF;
3827: IF p_conversion_type = 'ORIG_SYSTEM' THEN
3828: px_internal_price_tbl(i) := p_external_price_tbl(i);
3821: NULL;
3822: ELSIF p_external_price_tbl(i) IS NOT NULL THEN
3823: IF OZF_DEBUG_LOW_ON THEN
3824: ozf_utility_pvt.debug_message('External Price Tbl ('|| i ||') '|| p_external_price_tbl(i));
3825: ozf_utility_pvt.debug_message('External Currency Tbl ('|| i ||') '|| p_ext_currency_tbl(i));
3826: END IF;
3827: IF p_conversion_type = 'ORIG_SYSTEM' THEN
3828: px_internal_price_tbl(i) := p_external_price_tbl(i);
3829: ELSE
3850: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
3851: END IF;
3852:
3853: IF OZF_DEBUG_LOW_ON THEN
3854: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
3855: ozf_utility_pvt.debug_message('Calling convert currency');
3856: END IF;
3857:
3858: OZF_UTILITY_PVT.Convert_Currency(
3851: END IF;
3852:
3853: IF OZF_DEBUG_LOW_ON THEN
3854: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
3855: ozf_utility_pvt.debug_message('Calling convert currency');
3856: END IF;
3857:
3858: OZF_UTILITY_PVT.Convert_Currency(
3859: p_from_currency => l_converted_currency
3854: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
3855: ozf_utility_pvt.debug_message('Calling convert currency');
3856: END IF;
3857:
3858: OZF_UTILITY_PVT.Convert_Currency(
3859: p_from_currency => l_converted_currency
3860: ,p_to_currency => px_currency_tbl(i)
3861: ,p_conv_type => px_rate_type_tbl(i)
3862: ,p_conv_rate => NULL
3866: ,x_to_amount => l_converted_amount
3867: ,x_rate => l_exchange_rate);
3868:
3869: IF OZF_DEBUG_LOW_ON THEN
3870: ozf_utility_pvt.debug_message('Exchange Rate Type ('|| i ||') '|| px_rate_type_tbl(i));
3871: END IF;
3872:
3873: IF x_return_status <> FND_API.g_ret_sts_success THEN
3874: IF px_status_tbl(i) <> 'DISPUTED' THEN
3894: px_exchange_rate_tbl(i) := l_exchange_rate;
3895: END IF;
3896: px_internal_price_tbl(i) := l_converted_amount;
3897: ELSE
3898: px_internal_price_tbl(i) := OZF_UTILITY_PVT.CurrRound(p_external_price_tbl(i)*px_exchange_rate_tbl(i), px_currency_tbl(i));
3899: END IF; -- px_exchange_rate_tbl(i) IS NULL
3900: ELSE
3901: px_internal_price_tbl(i) :=p_external_price_tbl(i);
3902: END IF; -- l_convert_currency = internal currency
3905: END IF; -- p_conversion_type = 'ORIG_SYSTEM'
3906: END IF; -- p_external_price_tbl(i)
3907:
3908: IF OZF_DEBUG_LOW_ON THEN
3909: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3906: END IF; -- p_external_price_tbl(i)
3907:
3908: IF OZF_DEBUG_LOW_ON THEN
3909: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3907:
3908: IF OZF_DEBUG_LOW_ON THEN
3909: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3908: IF OZF_DEBUG_LOW_ON THEN
3909: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3916: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
3909: ozf_utility_pvt.debug_message('p_external_price_tbl ('||i||')'|| p_external_price_tbl(i));
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3916: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
3917: END IF;
3910: ozf_utility_pvt.debug_message('p_conversion_date_tbl ('||i||')'|| p_conversion_date_tbl(i));
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3916: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
3917: END IF;
3918:
3911: ozf_utility_pvt.debug_message('p_ext_currency_tbl ('||i||')'|| p_ext_currency_tbl(i));
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3916: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
3917: END IF;
3918:
3919: --
3912: ozf_utility_pvt.debug_message('l_converted_concurrency:'|| l_converted_currency);
3913: ozf_utility_pvt.debug_message('px_currency_tbl ('||i||')'|| px_currency_tbl(i));
3914: ozf_utility_pvt.debug_message('px_rate_type_tbl ('||i||')'|| px_rate_type_tbl(i));
3915: ozf_utility_pvt.debug_message('px_internal_price_tbl ('||i||')'|| px_internal_price_tbl(i));
3916: ozf_utility_pvt.debug_message('px_exchange_rate_tbl ('||i||')'|| px_exchange_rate_tbl(i));
3917: END IF;
3918:
3919: --
3920: -- --------------------- Accounted Price Calculations -------------------------
3926: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
3927: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO px_rate_type_tbl(i);
3928: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
3929: END IF;
3930: OZF_UTILITY_PVT.Convert_Currency(
3931: p_from_currency => px_currency_tbl(i)
3932: ,p_to_currency => l_functional_currency
3933: ,p_conv_type => px_rate_type_tbl(i)
3934: ,p_conv_rate => px_exchange_rate_tbl(i)
3957: END IF;
3958: END IF;
3959: x_accounted_price_tbl(i) := l_converted_amount;
3960: ELSE
3961: x_accounted_price_tbl(i) := OZF_UTILITY_PVT.CurrRound(px_internal_price_tbl(i)*px_exchange_rate_tbl(i), l_functional_currency);
3962: END IF;
3963: ELSE
3964: x_accounted_price_tbl(i) := px_internal_price_tbl(i);
3965: END IF;
3968: END IF;
3969: END LOOP;
3970:
3971: IF OZF_DEBUG_HIGH_ON THEN
3972: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
3973: END IF;
3974:
3975: EXCEPTION
3976: WHEN FND_API.G_EXC_ERROR THEN
4026: x_agreement_name := NULL;
4027:
4028: -- Debug Message
4029: IF OZF_DEBUG_HIGH_ON THEN
4030: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
4031: END IF;
4032:
4033: -- ??? What to do if no name is found.
4034: IF p_type = 'PL' THEN
4138: -- [END OF BUG 4237990 FIXING]
4139:
4140: BEGIN
4141: IF OZF_DEBUG_HIGH_ON THEN
4142: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4143: END IF;
4144:
4145: x_return_status := FND_API.G_RET_STS_SUCCESS;
4146:
4330: END LOOP;
4331: END IF; -- px_int_agreement_type.COUNT > 0
4332: -- Debug Message
4333: IF OZF_DEBUG_HIGH_ON THEN
4334: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
4335: END IF;
4336: -- Standard call to get message count and if count is 1, get message info.
4337: FND_MSG_PUB.Count_And_Get
4338: (p_count => x_msg_count,
4390: WHERE inventory_item_id = pc_item_id;
4391:
4392: BEGIN
4393: IF OZF_DEBUG_HIGH_ON THEN
4394: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4395: END IF;
4396: x_return_status := FND_API.G_RET_STS_SUCCESS;
4397:
4398: IF px_item_id_tbl.COUNT > 0 THEN
4413: END LOOP;
4414: END IF;
4415:
4416: IF OZF_DEBUG_HIGH_ON THEN
4417: ozf_utility_pvt.debug_message('Mapping Flag ' || l_mapping_flag);
4418: END IF;
4419:
4420: IF l_mapping_flag = 'Y' AND
4421: p_ext_item_number_tbl.COUNT > 0 THEN
4440: FOR i IN 1..p_item_number_tbl.COUNT LOOP
4441: IF p_item_number_tbl(i) IS NOT NULL THEN
4442: l_org_id := G_ITEM_ORG_ID; --FND_PROFILE.value('AMS_ITEM_ORGANIZATION_ID');
4443: IF OZF_DEBUG_LOW_ON THEN
4444: ozf_utility_pvt.debug_message('p_item_number_tbl(i) ' || p_item_number_tbl(i));
4445: END IF;
4446: OPEN get_inventory_item_id(p_item_number_tbl(i),
4447: l_org_id);
4448: FETCH get_inventory_item_id INTO px_item_id_tbl(i);
4447: l_org_id);
4448: FETCH get_inventory_item_id INTO px_item_id_tbl(i);
4449: CLOSE get_inventory_item_id;
4450: IF OZF_DEBUG_LOW_ON THEN
4451: ozf_utility_pvt.debug_message('px_item_id_tbl(i) ' || px_item_id_tbl(i));
4452: END IF;
4453:
4454: ELSIF px_item_id_tbl(i) IS NOT NULL THEN
4455: OPEN chk_inventory_item_id( px_item_id_tbl(i));
4527: END IF;
4528:
4529: -- Debug Message
4530: IF OZF_DEBUG_HIGH_ON THEN
4531: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': end');
4532: END IF;
4533:
4534: -- Standard call to get message count and if count is 1, get message info.
4535: FND_MSG_PUB.Count_And_Get(
4575: l_temp_code_tbl VARCHAR2_TABLE;
4576:
4577: BEGIN
4578: IF OZF_DEBUG_HIGH_ON THEN
4579: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ': start');
4580: END IF;
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582:
4583: l_mapping_flag := 'N';
4631: END IF;
4632: END LOOP;
4633: ELSE
4634: IF OZF_DEBUG_LOW_ON THEN
4635: ozf_utility_pvt.debug_message('External purchase uom might be null ');
4636: END IF;
4637: END IF;
4638: END IF;
4639:
4689: END IF;
4690: END LOOP;
4691: ELSE
4692: IF OZF_DEBUG_HIGH_ON THEN
4693: ozf_utility_pvt.debug_message('External uom might be null ');
4694: END IF;
4695: END IF;
4696: END IF;
4697:
4747: END IF;
4748: END LOOP;
4749: ELSE
4750: IF OZF_DEBUG_LOW_ON THEN
4751: ozf_utility_pvt.debug_message('External uom might be null ');
4752: END IF;
4753: END IF;
4754:
4755: END IF;
4753: END IF;
4754:
4755: END IF;
4756: IF OZF_DEBUG_HIGH_ON THEN
4757: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
4758: END IF;
4759:
4760: EXCEPTION
4761: WHEN FND_API.G_EXC_ERROR THEN
4842: AND hps.party_site_id = cv_party_site_id;
4843:
4844: BEGIN
4845: IF OZF_DEBUG_HIGH_ON THEN
4846: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
4847: END IF;
4848: x_return_status := FND_API.G_RET_STS_SUCCESS;
4849:
4850: -- -----------
4850: -- -----------
4851: -- Party Site
4852: -- -----------
4853: IF OZF_DEBUG_LOW_ON THEN
4854: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
4855: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
4856: ozf_utility_pvt.debug_message('px_site_use_id_tbl('||i||')='||px_site_use_id_tbl(i));
4857: ozf_utility_pvt.debug_message('px_party_site_id_tbl('||i||')='||px_party_site_id_tbl(i));
4858: ozf_utility_pvt.debug_message('p_location_tbl('||i||')='||p_location_tbl(i));
4852: -- -----------
4853: IF OZF_DEBUG_LOW_ON THEN
4854: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
4855: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
4856: ozf_utility_pvt.debug_message('px_site_use_id_tbl('||i||')='||px_site_use_id_tbl(i));
4857: ozf_utility_pvt.debug_message('px_party_site_id_tbl('||i||')='||px_party_site_id_tbl(i));
4858: ozf_utility_pvt.debug_message('p_location_tbl('||i||')='||p_location_tbl(i));
4859: END LOOP;
4860: END IF;
4853: IF OZF_DEBUG_LOW_ON THEN
4854: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
4855: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
4856: ozf_utility_pvt.debug_message('px_site_use_id_tbl('||i||')='||px_site_use_id_tbl(i));
4857: ozf_utility_pvt.debug_message('px_party_site_id_tbl('||i||')='||px_party_site_id_tbl(i));
4858: ozf_utility_pvt.debug_message('p_location_tbl('||i||')='||p_location_tbl(i));
4859: END LOOP;
4860: END IF;
4861:
4854: ozf_utility_pvt.debug_message('+++ Party Site Mapping +++');
4855: FOR i IN 1 .. px_site_use_id_tbl.COUNT LOOP
4856: ozf_utility_pvt.debug_message('px_site_use_id_tbl('||i||')='||px_site_use_id_tbl(i));
4857: ozf_utility_pvt.debug_message('px_party_site_id_tbl('||i||')='||px_party_site_id_tbl(i));
4858: ozf_utility_pvt.debug_message('p_location_tbl('||i||')='||p_location_tbl(i));
4859: END LOOP;
4860: END IF;
4861:
4862: IF px_site_use_id_tbl.COUNT > 0 THEN
4877: END IF;
4878: END LOOP;
4879: END IF;
4880: IF OZF_DEBUG_LOW_ON THEN
4881: ozf_utility_pvt.debug_message('PARTY SITE Code Mapping Flag ' || l_site_mapping_flag);
4882: ENd IF;
4883: IF l_site_mapping_flag = 'Y' AND p_location_tbl.COUNT > 0 THEN
4884:
4885: code_conversion
4901: IF l_party_site_tbl.COUNT > 0 THEN
4902: FOR i IN 1 .. l_party_site_tbl.COUNT
4903: LOOP
4904: IF OZF_DEBUG_LOW_ON THEN
4905: ozf_utility_pvt.debug_message('l_party_site_tbl('||i||')='||l_party_site_tbl(i));
4906: END IF;
4907:
4908: IF l_party_site_tbl.exists(i) AND l_party_site_tbl(i) IS NOT NULL THEN
4909:
4934: -- ------
4935: -- Party
4936: -- ------
4937: IF OZF_DEBUG_LOW_ON THEN
4938: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
4939: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
4940: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
4941: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
4942: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
4936: -- ------
4937: IF OZF_DEBUG_LOW_ON THEN
4938: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
4939: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
4940: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
4941: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
4942: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
4943: END LOOP;
4944: END IF;
4937: IF OZF_DEBUG_LOW_ON THEN
4938: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
4939: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
4940: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
4941: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
4942: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
4943: END LOOP;
4944: END IF;
4945:
4938: ozf_utility_pvt.debug_message('+++ Party Mapping +++');
4939: FOR i IN 1 .. px_cust_account_id_tbl.COUNT LOOP
4940: ozf_utility_pvt.debug_message('px_cust_account_id_tbl('||i||')='||px_cust_account_id_tbl(i));
4941: ozf_utility_pvt.debug_message('px_party_id_tbl('||i||')='||px_party_id_tbl(i));
4942: ozf_utility_pvt.debug_message('p_party_name_tbl('||i||')='||p_party_name_tbl(i));
4943: END LOOP;
4944: END IF;
4945:
4946: IF px_cust_account_id_tbl.COUNT > 0 THEN
4961: END IF;
4962: END LOOP;
4963: END IF;
4964: IF OZF_DEBUG_LOW_ON THEN
4965: ozf_utility_pvt.debug_message('PARTY Code Mapping Flag ' || l_mapping_flag);
4966: END IF;
4967: IF l_mapping_flag = 'Y' AND p_party_name_tbl.COUNT > 0 THEN
4968: code_conversion
4969: (
4985: IF l_party_tbl.COUNT > 0 THEN
4986: FOR i IN 1 .. l_party_tbl.COUNT
4987: LOOP
4988: IF OZF_DEBUG_LOW_ON THEN
4989: ozf_utility_pvt.debug_message('l_party_tbl('||i||')='||l_party_tbl(i));
4990: END IF;
4991:
4992: IF l_party_tbl.EXISTS(i) AND l_party_tbl(i) IS NOT NULL THEN
4993:
5001: END IF;
5002:
5003: END IF;
5004: IF OZF_DEBUG_HIGH_ON THEN
5005: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
5006: END IF;
5007: EXCEPTION
5008: WHEN FND_API.G_EXC_ERROR THEN
5009: x_return_status := FND_API.G_RET_STS_ERROR;
5345:
5346:
5347: BEGIN
5348: IF OZF_DEBUG_HIGH_ON THEN
5349: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
5350: END IF;
5351:
5352: -- Site Use Code Defaulting
5353: IF p_party_type IN ('BILL_TO', 'SHIP_TO') THEN
5360: l_site_use_code := NULL;
5361: END IF;
5362:
5363: IF OZF_DEBUG_LOW_ON THEN
5364: ozf_utility_pvt.debug_message('Line Count ' || p_line_count);
5365: END IF;
5366:
5367: IF p_line_count > 0 THEN
5368:
5368:
5369: FOR i IN 1 .. p_line_count
5370: LOOP
5371: IF OZF_DEBUG_LOW_ON THEN
5372: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i) || ' for '||p_party_type);
5373: END IF;
5374: l_run_dqm_flag := NULL;
5375: l_cust_account_id := NULL;
5376: l_party_site_id := NULL;
5381: END IF;
5382: IF px_cust_account_id.exists(i) AND px_cust_account_id(i) IS NOT NULL THEN
5383:
5384: IF OZF_DEBUG_LOW_ON THEN
5385: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5386: END IF;
5387: OPEN get_party_id (px_cust_account_id(i));
5388: FETCH get_party_id INTO l_party_rec.party_id,
5389: px_party_name(i);
5414: OPEN get_site_from_acct (px_cust_account_id(i), p_location(i),l_site_use_code );
5415: FETCH get_site_from_acct INTO px_site_use_id(i);
5416: CLOSE get_site_from_acct;
5417: IF OZF_DEBUG_LOW_ON THEN
5418: ozf_utility_pvt.debug_message('getting ship from information ');
5419: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5420: END IF;
5421: ELSE
5422: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5415: FETCH get_site_from_acct INTO px_site_use_id(i);
5416: CLOSE get_site_from_acct;
5417: IF OZF_DEBUG_LOW_ON THEN
5418: ozf_utility_pvt.debug_message('getting ship from information ');
5419: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5420: END IF;
5421: ELSE
5422: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5423: IF OZF_DEBUG_LOW_ON THEN
5420: END IF;
5421: ELSE
5422: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5423: IF OZF_DEBUG_LOW_ON THEN
5424: ozf_utility_pvt.debug_message('Site Use Information is not present for bill to and ship to ');
5425: END IF;
5426: ELSE
5427: OPEN get_site_use_from_acct (px_cust_account_id(i), p_location(i),l_site_use_code );
5428: FETCH get_site_use_from_acct INTO px_site_use_id(i) , px_party_site_id(i), px_party_id(i);
5472: END IF;
5473: END IF; -- get_acct_from_site_use%NOTFOUND
5474: CLOSE get_acct_from_site_use;
5475: IF OZF_DEBUG_LOW_ON THEN
5476: ozf_utility_pvt.debug_message('px_site_use_id('||i||') '||px_site_use_id(i));
5477: END IF;
5478: END IF;
5479: IF px_party_id.exists(i) AND px_party_id(i) IS NULL THEN
5480: px_party_id(i) := l_party_rec.party_id;
5492: ELSE
5493: l_no_loc_run_flag := 'Y';
5494: END IF;
5495: IF OZF_DEBUG_LOW_ON THEN
5496: ozf_utility_pvt.debug_message('Location ('||i||')' || p_location(i));
5497: END IF;
5498: IF l_no_loc_run_flag = 'Y' THEN
5499:
5500: Get_party_site_from_ECX
5502: x_party_site_id => l_party_site_id,
5503: x_return_status => x_return_status
5504: );
5505: IF OZF_DEBUG_LOW_ON THEN
5506: ozf_utility_pvt.debug_message('Party Site ID from ECX API ' || l_party_site_id);
5507: END IF;
5508: IF l_party_site_id IS NOT NULL THEN
5509: IF p_party_type IN ('SHIP_FROM', 'SOLD_FROM') THEN
5510:
5552: IF px_cust_account_id(i) IS NULL THEN
5553: px_cust_account_id(i) := l_cust_account_id;
5554: END IF;
5555: IF OZF_DEBUG_LOW_ON THEN
5556: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5557: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5558: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
5559: END IF;
5560: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5553: px_cust_account_id(i) := l_cust_account_id;
5554: END IF;
5555: IF OZF_DEBUG_LOW_ON THEN
5556: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5557: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5558: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
5559: END IF;
5560: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5561: l_party_rec.party_id := px_party_id(i);
5554: END IF;
5555: IF OZF_DEBUG_LOW_ON THEN
5556: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5557: ozf_utility_pvt.debug_message('l_site_use_code ('||i||')'||l_site_use_code);
5558: ozf_utility_pvt.debug_message('px_site_use_id ('||i||')'||px_site_use_id(i));
5559: END IF;
5560: IF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5561: l_party_rec.party_id := px_party_id(i);
5562: END IF;
5589: CLOSE get_location_details;
5590: END IF;
5591:
5592: IF OZF_DEBUG_LOW_ON THEN
5593: ozf_utility_pvt.debug_message('l_site_use_code '||l_site_use_code);
5594: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i));
5595: END IF;
5596: IF l_cust_account_id IS NULL THEN
5597: OPEN get_location( p_location(i)
5590: END IF;
5591:
5592: IF OZF_DEBUG_LOW_ON THEN
5593: ozf_utility_pvt.debug_message('l_site_use_code '||l_site_use_code);
5594: ozf_utility_pvt.debug_message('p_location('||i||') '||p_location(i));
5595: END IF;
5596: IF l_cust_account_id IS NULL THEN
5597: OPEN get_location( p_location(i)
5598: , l_site_use_code
5626:
5627: IF l_run_dqm_flag IS NULL OR l_run_dqm_flag = 'Y' THEN
5628: IF px_cust_account_id.exists(i) AND px_cust_account_id(i) IS NOT NULL THEN
5629: IF OZF_DEBUG_LOW_ON THEN
5630: ozf_utility_pvt.debug_message('px_cust_account_id('||i||')'||px_cust_account_id(i));
5631: END IF;
5632: IF px_party_id.exists(i) AND px_party_id(i) IS NULL THEN
5633: OPEN get_party_id (px_cust_account_id(i));
5634: FETCH get_party_id INTO l_party_rec.party_id,
5634: FETCH get_party_id INTO l_party_rec.party_id,
5635: l_party_rec.party_name;
5636: CLOSE get_party_id;
5637: IF OZF_DEBUG_LOW_ON THEN
5638: ozf_utility_pvt.debug_message('l_party_rec.party_id '||l_party_rec.party_id);
5639: ozf_utility_pvt.debug_message('l_party_rec.party_name '||l_party_rec.party_name);
5640: END IF;
5641: END IF;
5642: ELSIF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5635: l_party_rec.party_name;
5636: CLOSE get_party_id;
5637: IF OZF_DEBUG_LOW_ON THEN
5638: ozf_utility_pvt.debug_message('l_party_rec.party_id '||l_party_rec.party_id);
5639: ozf_utility_pvt.debug_message('l_party_rec.party_name '||l_party_rec.party_name);
5640: END IF;
5641: END IF;
5642: ELSIF px_party_id.exists(i) AND px_party_id(i) IS NOT NULL THEN
5643: l_party_rec.party_id := px_party_id(i);
5647: CLOSE get_party_name;
5648: -- [END OF BUG 4186465 FIXING]
5649: ELSIF px_party_name(i) IS NOT NULL THEN
5650: IF OZF_DEBUG_LOW_ON THEN
5651: ozf_utility_pvt.debug_message('px_party_name('||i||') '||px_party_name(i));
5652: END IF;
5653: l_party_rec.party_id := NULL;
5654: l_party_rec.party_name := px_party_name(i);
5655:
5659: l_party_site_rec.postal_code := p_postal_code(i);
5660: l_party_site_rec.country := p_country(i);
5661: ELSE
5662: IF OZF_DEBUG_LOW_ON THEN
5663: ozf_utility_pvt.debug_message('party record is null ');
5664: ozf_utility_pvt.debug_message('px_party_name('||i||') for '||l_site_use_code||' '||px_party_name(i));
5665: END IF;
5666: l_party_rec.party_name := NULL;
5667: l_party_rec.party_id := NULL;
5660: l_party_site_rec.country := p_country(i);
5661: ELSE
5662: IF OZF_DEBUG_LOW_ON THEN
5663: ozf_utility_pvt.debug_message('party record is null ');
5664: ozf_utility_pvt.debug_message('px_party_name('||i||') for '||l_site_use_code||' '||px_party_name(i));
5665: END IF;
5666: l_party_rec.party_name := NULL;
5667: l_party_rec.party_id := NULL;
5668: END IF;
5666: l_party_rec.party_name := NULL;
5667: l_party_rec.party_id := NULL;
5668: END IF;
5669: IF OZF_DEBUG_LOW_ON THEN
5670: ozf_utility_pvt.debug_message('Address starting .......................');
5671: END IF;
5672: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5673: l_party_site_rec.party_site_id := px_party_site_id(i);
5674: IF OZF_DEBUG_LOW_ON THEN
5671: END IF;
5672: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5673: l_party_site_rec.party_site_id := px_party_site_id(i);
5674: IF OZF_DEBUG_LOW_ON THEN
5675: ozf_utility_pvt.debug_message('px_party_site_id('||i||') '||px_party_site_id(i));
5676: END IF;
5677: ELSIF px_site_use_id.exists(i) AND px_site_use_id(i) IS NOT NULL THEN
5678:
5679:
5682: CLOSE get_party_site_id;
5683: IF px_party_site_id.exists(i) AND px_party_site_id(i) IS NOT NULL THEN
5684: l_party_site_rec.party_site_id := px_party_site_id(i);
5685: IF OZF_DEBUG_LOW_ON THEN
5686: ozf_utility_pvt.debug_message('px_party_site_id('||i||') '||px_party_site_id(i));
5687: END IF;
5688: ELSE
5689: px_party_site_id(i) := NULL;
5690: END IF;
5689: px_party_site_id(i) := NULL;
5690: END IF;
5691: ELSIF p_address(i) IS NOT NULL THEN
5692: IF OZF_DEBUG_LOW_ON THEN
5693: ozf_utility_pvt.debug_message('p_address('||i||') '||p_address(i));
5694: END IF;
5695: l_party_site_rec.party_site_id := null;
5696: l_party_site_rec.address := p_address(i);
5697: l_party_site_rec.city := p_city(i);
5699: l_party_site_rec.postal_code := p_postal_code(i);
5700: l_party_site_rec.country := p_country(i);
5701: ELSE
5702: IF OZF_DEBUG_LOW_ON THEN
5703: ozf_utility_pvt.debug_message('Address is null ');
5704: END IF;
5705: END IF;
5706:
5707: IF px_contact_party_id.exists(i) AND px_contact_party_id(i) IS NULL THEN
5748: l_dqm_party_site_rule := G_DQM_PARTY_SITE_RULE; --fnd_profile.value('OZF_RESALE_PARTY_SITE_DQM_RULE');
5749: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
5750:
5751: IF OZF_DEBUG_LOW_ON THEN
5752: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
5753: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
5754: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
5755: END IF;
5756: -- Rules
5749: l_dqm_contact_rule := G_DQM_CONTACT_RULE; --fnd_profile.value('OZF_RESALE_CONTACT_DQM_RULE');
5750:
5751: IF OZF_DEBUG_LOW_ON THEN
5752: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
5753: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
5754: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
5755: END IF;
5756: -- Rules
5757: --
5750:
5751: IF OZF_DEBUG_LOW_ON THEN
5752: ozf_utility_pvt.debug_message( 'Party DQM Rule '|| l_dqm_party_rule );
5753: ozf_utility_pvt.debug_message( 'Party Site DQM Rule '|| l_dqm_party_site_rule );
5754: ozf_utility_pvt.debug_message( 'Contact DQM Rule '|| l_dqm_contact_rule );
5755: END IF;
5756: -- Rules
5757: --
5758: IF l_party_rec.party_id IS NULL THEN
5757: --
5758: IF l_party_rec.party_id IS NULL THEN
5759: IF l_dqm_party_rule IS NULL THEN
5760: IF OZF_DEBUG_LOW_ON THEN
5761: ozf_utility_pvt.debug_message('Party DQM Search Rule cannot be null,please set OZF:Resale DQM Party Rule profile with a valid value');
5762: END IF;
5763: l_dispute_code := 'OZF_NO_PARTY_DQM_RULE';
5764: END IF ;
5765: END IF;
5766: IF l_party_site_rec.party_site_id IS NULL THEN
5767: IF l_dispute_code IS NULL AND l_dqm_party_site_rule IS NULL
5768: AND l_party_site_rec.address IS NOT NULL THEN
5769: IF OZF_DEBUG_LOW_ON THEN
5770: 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');
5771: END IF;
5772: l_dispute_code := 'OZF_NO_SITE_DQM_RULE';
5773: END IF ;
5774: END IF;
5774: END IF;
5775: IF l_party_cntct_rec.contact_name IS NOT NULL AND
5776: l_dispute_code IS NULL AND l_dqm_contact_rule IS NULL THEN
5777: IF OZF_DEBUG_LOW_ON THEN
5778: ozf_utility_pvt.debug_message('Contact DQM Search Rule cannot be null,please set OZF:Resale DQM Contact Rule profile with a valid value');
5779: END IF;
5780: l_dispute_code := 'OZF_NO_CONTACT_DQM_RULE';
5781: END IF ;
5782:
5787: l_party_site_rec.party_site_rule_name := l_dqm_party_site_rule;
5788: l_party_cntct_rec.contact_rule_name := l_dqm_contact_rule;
5789: --
5790: IF OZF_DEBUG_LOW_ON THEN
5791: ozf_utility_pvt.debug_message('DQM Process started ........');
5792: END IF;
5793: l_party_id := NULL;
5794: l_party_site_id := NULL;
5795: l_party_contact_id:= NULL;
5815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5816: END IF;
5817: px_contact_party_id(i) := NVL( l_party_contact_id,'');
5818: IF OZF_DEBUG_LOW_ON THEN
5819: ozf_utility_pvt.debug_message( 'Party ID '|| l_party_id );
5820: ozf_utility_pvt.debug_message( 'Party Site ID '|| l_party_site_id );
5821: END IF;
5822: IF l_party_site_rec.party_site_id IS NULL THEN
5823: IF l_party_id IS NOT NULL AND l_party_site_id IS NOT NULL THEN
5816: END IF;
5817: px_contact_party_id(i) := NVL( l_party_contact_id,'');
5818: IF OZF_DEBUG_LOW_ON THEN
5819: ozf_utility_pvt.debug_message( 'Party ID '|| l_party_id );
5820: ozf_utility_pvt.debug_message( 'Party Site ID '|| l_party_site_id );
5821: END IF;
5822: IF l_party_site_rec.party_site_id IS NULL THEN
5823: IF l_party_id IS NOT NULL AND l_party_site_id IS NOT NULL THEN
5824: IF p_party_type IN ('SOLD_FROM','SHIP_FROM','BILL_TO','SHIP_TO') THEN
5839: , l_p_party_id ;
5840: CLOSE get_acct_site_use_id;
5841:
5842: IF OZF_DEBUG_LOW_ON THEN
5843: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
5844: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
5845: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
5846: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
5847: END IF;
5840: CLOSE get_acct_site_use_id;
5841:
5842: IF OZF_DEBUG_LOW_ON THEN
5843: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
5844: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
5845: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
5846: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
5847: END IF;
5848:
5841:
5842: IF OZF_DEBUG_LOW_ON THEN
5843: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
5844: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
5845: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
5846: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
5847: END IF;
5848:
5849: IF l_cust_account_id IS NOT NULL THEN
5842: IF OZF_DEBUG_LOW_ON THEN
5843: ozf_utility_pvt.debug_message( 'Account ID from get_acct_site_use_id '|| l_cust_account_id );
5844: ozf_utility_pvt.debug_message( 'Site Use ID from get_acct_site_use_id'|| l_acct_site_id );
5845: ozf_utility_pvt.debug_message( 'Party ID from get_acct_site_use_id '|| l_p_party_id );
5846: ozf_utility_pvt.debug_message( 'Party Site ID from get_acct_site_use_id '|| l_site_id );
5847: END IF;
5848:
5849: IF l_cust_account_id IS NOT NULL THEN
5850: px_cust_account_id(i) := l_cust_account_id;
5882: END IF;
5883: END IF;
5884: END IF; -- l_run_dqm_flag = 'Y'
5885: IF OZF_DEBUG_LOW_ON THEN
5886: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
5887: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5883: END IF;
5884: END IF; -- l_run_dqm_flag = 'Y'
5885: IF OZF_DEBUG_LOW_ON THEN
5886: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
5887: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5891: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
5885: IF OZF_DEBUG_LOW_ON THEN
5886: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
5887: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5891: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
5892: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
5893:
5886: ozf_utility_pvt.debug_message('px_status_code ('||i||') '||px_status_code_tbl(i));
5887: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5891: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
5892: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
5893:
5894: IF l_dispute_code IS NOT NULL THEN
5887: ozf_utility_pvt.debug_message('px_dispute_code_tbl ('||i||') '||px_dispute_code_tbl(i));
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5891: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
5892: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
5893:
5894: IF l_dispute_code IS NOT NULL THEN
5895: IF px_status_code_tbl(i) <> 'DISPUTED' THEN
5888: END IF;
5889: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_cust_account_id('||i||')'||px_cust_account_id(i));
5890: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_site_id('||i||')'||px_party_site_id(i));
5891: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_party_id('||i||')'||px_party_id(i));
5892: -- ozf_utility_pvt.debug_message(lower(p_party_type)||'_site_use_id('||i||')'||px_site_use_id(i));
5893:
5894: IF l_dispute_code IS NOT NULL THEN
5895: IF px_status_code_tbl(i) <> 'DISPUTED' THEN
5896: px_status_code_tbl(i) := 'DISPUTED';
5914: END LOOP;
5915: END IF; -- p_line_count > 0
5916: -- Debug Message
5917: IF OZF_DEBUG_HIGH_ON THEN
5918: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
5919: END IF;
5920:
5921: EXCEPTION
5922: WHEN FND_API.G_EXC_ERROR THEN
6042: END IF;
6043:
6044: -- Debug Message
6045: IF OZF_DEBUG_HIGH_ON THEN
6046: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6047: END IF;
6048: -- Initialize API return status to SUCCESS
6049: x_return_status := FND_API.G_RET_STS_SUCCESS;
6050:
6094: l_index := l_index+1;
6095: END IF;
6096:
6097: IF OZF_DEBUG_LOW_ON THEN
6098: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6099: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6100: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6101: END IF;
6102: --
6095: END IF;
6096:
6097: IF OZF_DEBUG_LOW_ON THEN
6098: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6099: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6100: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6101: END IF;
6102: --
6103: -- Party DQM Search
6096:
6097: IF OZF_DEBUG_LOW_ON THEN
6098: ozf_utility_pvt.debug_message (' Party Rule name '|| p_party_rec.party_rule_name);
6099: ozf_utility_pvt.debug_message ('Party Name '|| p_party_rec.party_name );
6100: ozf_utility_pvt.debug_message ('Party ID '|| p_party_rec.party_id );
6101: END IF;
6102: --
6103: -- Party DQM Search
6104: -- -------------------------------------------------------------------------------
6111: IF p_party_rec.party_name IS NOT NULL
6112: OR p_party_rec.duns_number IS NOT NULL
6113: THEN
6114: IF OZF_DEBUG_LOW_ON THEN
6115: ozf_utility_pvt.debug_message ('calling find parties ');
6116: END IF;
6117: HZ_PARTY_SEARCH.find_parties
6118: (p_init_msg_list => 'T',
6119: x_rule_id => l_rule_id,
6134: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6136: END IF;
6137: IF OZF_DEBUG_LOW_ON THEN
6138: ozf_utility_pvt.debug_message('Number of matches'|| l_num_matches);
6139: END IF;
6140: IF l_num_matches >= 1 THEN
6141:
6142: OPEN C_matched_party(l_search_context_id);
6146: l_highest_score_cnt := l_highest_score_cnt +1;
6147: END LOOP;
6148: CLOSE C_matched_party;
6149: IF OZF_DEBUG_LOW_ON THEN
6150: ozf_utility_pvt.debug_message('Matched party - '||to_char(l_party_id)||' score '||to_char(l_score));
6151: END IF;
6152: x_party_id := l_party_id; --assign the matched party_id
6153:
6154: ELSIF l_num_matches = 0 AND p_party_rec.party_id IS NULL THEN
6152: x_party_id := l_party_id; --assign the matched party_id
6153:
6154: ELSIF l_num_matches = 0 AND p_party_rec.party_id IS NULL THEN
6155: IF OZF_DEBUG_LOW_ON THEN
6156: ozf_utility_pvt.debug_message('No party match found !');
6157: END IF;
6158: END IF; -- l_num_matches >= 1
6159:
6160: ELSE
6158: END IF; -- l_num_matches >= 1
6159:
6160: ELSE
6161: IF OZF_DEBUG_LOW_ON THEN
6162: ozf_utility_pvt.debug_message('Party Name/DUNS Number is not supplied. DQM Search cannot be performed');
6163: END IF;
6164:
6165: END IF; -- p_party_rec.party_name IS NOT NULL
6166:
6165: END IF; -- p_party_rec.party_name IS NOT NULL
6166:
6167: ELSE
6168: IF OZF_DEBUG_LOW_ON THEN
6169: ozf_utility_pvt.debug_message('Match Rule for Party Search is not active or uncompiled. Check the match rule');
6170: END IF;
6171: RAISE FND_API.g_exc_error;
6172: END IF; -- l_rule_id IS NOT NULL
6173:
6187: IF p_party_site_rec.party_site_id IS NULL THEN
6188:
6189: IF l_party_id IS NOT NULL AND p_party_site_rec.address IS NOT NULL THEN
6190: IF OZF_DEBUG_LOW_ON THEN
6191: ozf_utility_pvt.debug_message ('Site Rule name '|| p_party_site_rec.party_site_rule_name);
6192: END IF;
6193: l_rule_id := p_party_site_rec.party_site_rule_name;
6194:
6195: IF l_rule_id IS NOT NULL THEN
6228: IF l_party_site_id IS NOT NULL THEN
6229: x_party_site_id := l_party_site_id;
6230: ELSE
6231: IF OZF_DEBUG_LOW_ON THEN
6232: ozf_utility_pvt.debug_message('No party site found !');
6233: END IF;
6234: l_create_party_site := 'Y';
6235: END IF;
6236: ELSE
6234: l_create_party_site := 'Y';
6235: END IF;
6236: ELSE
6237: IF OZF_DEBUG_LOW_ON THEN
6238: ozf_utility_pvt.debug_message('Required parameters are missing. DQM Search for party site cannot be performed');
6239: END IF;
6240:
6241: END IF; -- party site check
6242:
6241: END IF; -- party site check
6242:
6243: ELSE --if rule_id is null then
6244: IF OZF_DEBUG_LOW_ON THEN
6245: ozf_utility_pvt.debug_message('Match Rule for Party Site is not active or uncompiled. Check the match rule');
6246: END IF;
6247: RAISE FND_API.g_exc_error;
6248: END IF;
6249:
6258: END IF; -- p_party_site_rec.party_site_id IS NULL
6259:
6260: -- ------------------------------------------ End Party Site Search --------------------------------
6261: IF OZF_DEBUG_LOW_ON THEN
6262: ozf_utility_pvt.debug_message ('Contact Rule name '|| p_contact_rec.contact_rule_name);
6263: END IF;
6264:
6265: l_rule_id := null;
6266:
6276: IF l_party_id IS NOT NULL THEN
6277:
6278: IF l_rule_id IS NOT NULL THEN
6279: IF OZF_DEBUG_LOW_ON THEN
6280: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6281: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6282: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6283: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6284: END IF;
6277:
6278: IF l_rule_id IS NOT NULL THEN
6279: IF OZF_DEBUG_LOW_ON THEN
6280: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6281: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6282: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6283: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6284: END IF;
6285:
6278: IF l_rule_id IS NOT NULL THEN
6279: IF OZF_DEBUG_LOW_ON THEN
6280: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6281: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6282: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6283: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6284: END IF;
6285:
6286: IF p_contact_rec.contact_name IS NOT NULL THEN
6279: IF OZF_DEBUG_LOW_ON THEN
6280: ozf_utility_pvt.debug_message('contact name ........'|| l_contact_cond(1).contact_name);
6281: ozf_utility_pvt.debug_message('Email ........'|| p_contact_rec.party_email_id );
6282: ozf_utility_pvt.debug_message('Phone ........'||p_contact_rec.party_phone );
6283: ozf_utility_pvt.debug_message('Fax ........'||p_contact_rec.party_fax );
6284: END IF;
6285:
6286: IF p_contact_rec.contact_name IS NOT NULL THEN
6287:
6301: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6303: END IF;
6304: IF OZF_DEBUG_LOW_ON THEN
6305: ozf_utility_pvt.debug_message('l_search_context_id ........'|| l_search_context_id );
6306: END IF;
6307:
6308:
6309: OPEN C_matched_contacts(l_search_context_id);
6309: OPEN C_matched_contacts(l_search_context_id);
6310: FETCH C_matched_contacts INTO l_party_id, l_org_contact_id, l_score;
6311: CLOSE C_matched_contacts;
6312: IF OZF_DEBUG_LOW_ON THEN
6313: ozf_utility_pvt.debug_message('contact info from DQM ........'|| l_party_id || ' : '||l_org_contact_id);
6314: END IF;
6315:
6316: IF l_org_contact_id is not null THEN
6317: x_party_contact_id := l_org_contact_id;
6316: IF l_org_contact_id is not null THEN
6317: x_party_contact_id := l_org_contact_id;
6318: ELSE
6319: IF OZF_DEBUG_LOW_ON THEN
6320: ozf_utility_pvt.debug_message('No contact match found !');
6321: END IF;
6322: END IF;
6323: ELSE
6324: IF OZF_DEBUG_LOW_ON THEN
6321: END IF;
6322: END IF;
6323: ELSE
6324: IF OZF_DEBUG_LOW_ON THEN
6325: ozf_utility_pvt.debug_message('DQM Search for contact cannot be performed');
6326: END IF;
6327: END IF; --p_contact_rec.contact_name IS NOT NULL
6328:
6329:
6328:
6329:
6330: ELSE
6331: IF OZF_DEBUG_LOW_ON THEN
6332: ozf_utility_pvt.debug_message('Match Rule for Party Contact is not active or uncompiled. Check the match rule');
6333: END IF;
6334: RAISE FND_API.g_exc_error;
6335: END IF; -- l_rule_id IS NOT NULL
6336:
6341:
6342:
6343: -- Debug Message
6344: IF OZF_DEBUG_LOW_ON THEN
6345: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6346: END IF;
6347:
6348: -- Standard call to get message count and if count is 1, get message info.
6349: FND_MSG_PUB.Count_And_Get
6393: BEGIN
6394:
6395: -- Debug Message
6396: IF OZF_DEBUG_HIGH_ON THEN
6397: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6398: END IF;
6399:
6400: -- Initialize API return status to SUCCESS
6401: x_return_status := FND_API.G_RET_STS_SUCCESS;
6406: FOR i IN 1 .. p_external_code_tbl.COUNT
6407: LOOP
6408: IF p_external_code_tbl(i) IS NOT NULL THEN
6409: IF OZF_DEBUG_LOW_ON THEN
6410: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6411: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6412: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6413: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6414: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6407: LOOP
6408: IF p_external_code_tbl(i) IS NOT NULL THEN
6409: IF OZF_DEBUG_LOW_ON THEN
6410: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6411: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6412: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6413: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6414: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6415: END IF;
6408: IF p_external_code_tbl(i) IS NOT NULL THEN
6409: IF OZF_DEBUG_LOW_ON THEN
6410: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6411: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6412: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6413: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6414: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6415: END IF;
6416: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, 2048)
6409: IF OZF_DEBUG_LOW_ON THEN
6410: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6411: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6412: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6413: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6414: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6415: END IF;
6416: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, 2048)
6417: INTO idx
6410: ozf_utility_pvt.debug_message('Party ID: ' || p_party_id);
6411: ozf_utility_pvt.debug_message('p_cust_account_id ' || p_cust_account_id);
6412: ozf_utility_pvt.debug_message('External Code: ' || p_external_code_tbl(i));
6413: ozf_utility_pvt.debug_message('Length of External Code: ' || length(p_external_code_tbl(i)));
6414: ozf_utility_pvt.debug_message('Mapping Type: ' || p_mapping_type);
6415: END IF;
6416: SELECT dbms_utility.get_hash_value( p_external_code_tbl(i),1, 2048)
6417: INTO idx
6418: FROM DUAL;
6418: FROM DUAL;
6419: IF l_temp_code_tbl.exists(idx) THEN
6420: x_internal_code_tbl(i) := l_temp_code_tbl(idx);
6421: IF OZF_DEBUG_LOW_ON THEN
6422: ozf_utility_pvt.debug_message('Internal Code: ' || x_internal_code_tbl(i));
6423: END IF;
6424:
6425: ELSE
6426: OZF_CODE_CONVERSION_PVT.convert_code
6438: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6440: END IF;
6441: IF OZF_DEBUG_LOW_ON THEN
6442: ozf_utility_pvt.debug_message('Internal Code'||x_internal_code_tbl(i));
6443: END IF;
6444:
6445: IF x_internal_code_tbl(i) IS NOT NULL THEN
6446: l_temp_code_tbl(idx) := x_internal_code_tbl(i);
6449: END IF;
6450: END IF;
6451: ELSE
6452: IF OZF_DEBUG_LOW_ON THEN
6453: ozf_utility_pvt.debug_message('Code Conversion cannot be performed ');
6454: END IF;
6455: x_internal_code_tbl(i) := NULL;
6456: END IF; -- p_external_code_tbl(i) IS NOT NULL
6457: END LOOP;
6459: END IF; -- p_external_code_tbl.COUNT > 0
6460:
6461: -- Debug Message
6462: IF OZF_DEBUG_HIGH_ON THEN
6463: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6464: END IF;
6465: -- Standard call to get message count and if count is 1, get message info.
6466: FND_MSG_PUB.Count_And_Get
6467: (p_count => x_msg_count,
6608: END IF;
6609: END IF;
6610:
6611: IF x_cust_acct_id IS NULL THEN
6612: ozf_utility_pvt.error_message('OZF_BATCH_PARTNER_NULL');
6613: END IF;
6614:
6615: EXCEPTION
6616: WHEN FND_API.G_EXC_ERROR THEN
6641: l_return_message VARCHAR2(32000);
6642:
6643: BEGIN
6644: IF OZF_DEBUG_HIGH_ON THEN
6645: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6646: END IF;
6647:
6648: x_return_status := FND_API.G_RET_STS_SUCCESS;
6649:
6656: retcode => l_return_code,
6657: retmsg => l_return_message
6658: );
6659: IF OZF_DEBUG_LOW_ON THEN
6660: ozf_utility_pvt.debug_message('Address ID '|| l_address_id || 'Return Code '|| l_return_code);
6661: END IF;
6662:
6663: IF l_return_code = 0 THEN
6664: x_party_site_id := l_address_id;
6665: ELSE
6666: x_party_site_id := NULL;
6667: END IF;
6668: IF OZF_DEBUG_HIGH_ON THEN
6669: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' End');
6670: END IF;
6671: EXCEPTION
6672: WHEN FND_API.G_EXC_ERROR THEN
6673: x_return_status := FND_API.G_RET_STS_ERROR;
6700:
6701: BEGIN
6702:
6703: IF OZF_DEBUG_HIGH_ON THEN
6704: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6705: END IF;
6706:
6707: x_return_status := FND_API.G_RET_STS_SUCCESS;
6708: x_null_flag := 'Y';
6710: IF p_line_count > 0 THEN
6711: FOR i IN 1 .. p_line_count LOOP
6712: IF OZF_DEBUG_LOW_ON THEN
6713: IF p_cust_account_id.exists(i) THEN
6714: ozf_utility_pvt.debug_message('p_cust_account_id = '||p_cust_account_id(i));
6715: END IF;
6716: IF p_acct_site_id.exists(i) THEN
6717: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
6718: END IF;
6713: IF p_cust_account_id.exists(i) THEN
6714: ozf_utility_pvt.debug_message('p_cust_account_id = '||p_cust_account_id(i));
6715: END IF;
6716: IF p_acct_site_id.exists(i) THEN
6717: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
6718: END IF;
6719: IF p_party_id.exists(i) THEN
6720: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
6721: END IF;
6716: IF p_acct_site_id.exists(i) THEN
6717: ozf_utility_pvt.debug_message('p_acct_site_id = '||p_acct_site_id(i));
6718: END IF;
6719: IF p_party_id.exists(i) THEN
6720: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
6721: END IF;
6722: IF p_party_site_id.exists(i) THEN
6723: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
6724: END IF;
6719: IF p_party_id.exists(i) THEN
6720: ozf_utility_pvt.debug_message('p_party_id = '||p_party_id(i));
6721: END IF;
6722: IF p_party_site_id.exists(i) THEN
6723: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
6724: END IF;
6725: IF p_location.exists(i) THEN
6726: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
6727: END IF;
6722: IF p_party_site_id.exists(i) THEN
6723: ozf_utility_pvt.debug_message('p_party_site_id = '||p_party_site_id(i));
6724: END IF;
6725: IF p_location.exists(i) THEN
6726: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
6727: END IF;
6728: IF p_party_name.exists(i) THEN
6729: ozf_utility_pvt.debug_message('p_party_name = '||p_party_name(i));
6730: END IF;
6725: IF p_location.exists(i) THEN
6726: ozf_utility_pvt.debug_message('p_location = '||p_location(i));
6727: END IF;
6728: IF p_party_name.exists(i) THEN
6729: ozf_utility_pvt.debug_message('p_party_name = '||p_party_name(i));
6730: END IF;
6731: END IF;
6732:
6733:
6766: END LOOP;
6767: END IF;
6768:
6769: IF OZF_DEBUG_HIGH_ON THEN
6770: ozf_utility_pvt.debug_message('x_null_flag in check party record: ' || x_null_flag);
6771: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6772: END IF;
6773: EXCEPTION
6774: WHEN FND_API.G_EXC_ERROR THEN
6767: END IF;
6768:
6769: IF OZF_DEBUG_HIGH_ON THEN
6770: ozf_utility_pvt.debug_message('x_null_flag in check party record: ' || x_null_flag);
6771: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
6772: END IF;
6773: EXCEPTION
6774: WHEN FND_API.G_EXC_ERROR THEN
6775: x_return_status := FND_API.G_RET_STS_ERROR;
6922: l_party_name VARCHAR2(1000);
6923:
6924: BEGIN
6925: IF OZF_DEBUG_HIGH_ON THEN
6926: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
6927: END IF;
6928:
6929: -- Initialize API return status to SUCCESS
6930: x_return_status := FND_API.G_RET_STS_SUCCESS;
6931:
6932: IF p_line_count > 0 THEN
6933: IF OZF_DEBUG_LOW_ON THEN
6934: FOR i IN 1 .. p_line_count LOOP
6935: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
6936: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
6937: END LOOP;
6938: END IF;
6939:
6932: IF p_line_count > 0 THEN
6933: IF OZF_DEBUG_LOW_ON THEN
6934: FOR i IN 1 .. p_line_count LOOP
6935: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
6936: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
6937: END LOOP;
6938: END IF;
6939:
6940: FOR i IN 1 .. p_line_count LOOP
6944: x_site_use_id(i) := NULL;
6945: x_party_id(i) := NULL;
6946:
6947: IF OZF_DEBUG_LOW_ON THEN
6948: ozf_utility_pvt.debug_message('px_status_code_tbl('||i||')'||px_status_code_tbl(i));
6949: ozf_utility_pvt.debug_message('px_dispute_code_tbl('||i||')'||px_dispute_code_tbl(i));
6950: END IF;
6951:
6952: IF p_party_type = 'SOLD_FROM' AND
6945: x_party_id(i) := NULL;
6946:
6947: IF OZF_DEBUG_LOW_ON THEN
6948: ozf_utility_pvt.debug_message('px_status_code_tbl('||i||')'||px_status_code_tbl(i));
6949: ozf_utility_pvt.debug_message('px_dispute_code_tbl('||i||')'||px_dispute_code_tbl(i));
6950: END IF;
6951:
6952: IF p_party_type = 'SOLD_FROM' AND
6953: px_status_code_tbl(i) = 'DISPUTED' AND
6954: px_dispute_code_tbl(i) = 'OZF_SHIP_FROM_ACCOUNT_NULL' THEN
6955: EXIT;
6956: ELSE
6957: IF OZF_DEBUG_LOW_ON THEN
6958: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
6959: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
6960: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
6961: END IF;
6962:
6955: EXIT;
6956: ELSE
6957: IF OZF_DEBUG_LOW_ON THEN
6958: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
6959: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
6960: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
6961: END IF;
6962:
6963: IF p_cust_account_id.exists(i) AND
6956: ELSE
6957: IF OZF_DEBUG_LOW_ON THEN
6958: ozf_utility_pvt.debug_message('p_party_type'||p_party_type);
6959: ozf_utility_pvt.debug_message('p_cust_account_id('||i||')'||p_cust_account_id(i));
6960: ozf_utility_pvt.debug_message('p_site_id('||i||')'||p_site_id(i));
6961: END IF;
6962:
6963: IF p_cust_account_id.exists(i) AND
6964: p_cust_account_id(i) IS NOT NULL THEN
7025: END IF;
7026: END IF;
7027:
7028: IF OZF_DEBUG_LOW_ON THEN
7029: ozf_utility_pvt.debug_message('-------');
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7026: END IF;
7027:
7028: IF OZF_DEBUG_LOW_ON THEN
7029: ozf_utility_pvt.debug_message('-------');
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7034: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7027:
7028: IF OZF_DEBUG_LOW_ON THEN
7029: ozf_utility_pvt.debug_message('-------');
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7034: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7035: END IF;
7028: IF OZF_DEBUG_LOW_ON THEN
7029: ozf_utility_pvt.debug_message('-------');
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7034: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7035: END IF;
7036:
7029: ozf_utility_pvt.debug_message('-------');
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7034: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7035: END IF;
7036:
7037: END IF;
7030: ozf_utility_pvt.debug_message('x_cust_account_id('||i||')'||x_cust_account_id(i));
7031: ozf_utility_pvt.debug_message('x_site_id('||i||')'||x_site_id(i));
7032: ozf_utility_pvt.debug_message('x_party_name('||i||')'||x_party_name(i));
7033: ozf_utility_pvt.debug_message('x_site_use_id('||i||')'||x_site_use_id(i));
7034: ozf_utility_pvt.debug_message('x_party_id('||i||')'||x_party_id(i));
7035: END IF;
7036:
7037: END IF;
7038: END LOOP;
7038: END LOOP;
7039: END IF; -- end of if p_line_count > 0
7040:
7041: IF OZF_DEBUG_HIGH_ON THEN
7042: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7043: END IF;
7044:
7045: EXCEPTION
7046: WHEN FND_API.G_EXC_ERROR THEN
7074:
7075: BEGIN
7076: IF OZF_DEBUG_HIGH_ON THEN
7077: -- Debug Message
7078: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7079: END IF;
7080: -- Initialize API return status to SUCCESS
7081: x_return_status := FND_API.G_RET_STS_SUCCESS;
7082:
7085:
7086: FOR l_count in p_int_line_tbl.FIRST .. p_int_line_tbl.LAST
7087: LOOP
7088: IF OZF_DEBUG_LOW_ON THEN
7089: 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 );
7090: END IF;
7091:
7092: OZF_RESALE_LINES_INT_PKG.Update_Row(
7093: p_resale_line_int_id => p_int_line_tbl(l_count).resale_line_int_id,
7319: END IF;
7320: EXCEPTION
7321:
7322: WHEN OTHERS THEN
7323: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT','Problem with updating line record'||sqlcode ||' '||sqlerrm);
7324: RAISE FND_API.G_EXC_ERROR;
7325:
7326: END;
7327:
7333:
7334:
7335: -- Debug Message
7336: IF OZF_DEBUG_HIGH_ON THEN
7337: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7338: END IF;
7339:
7340: -- Standard call to get message count and if count is 1, get message info.
7341: FND_MSG_PUB.Count_And_Get
7392: l_api_version_number CONSTANT NUMBER := 1.0;
7393: BEGIN
7394: -- Debug Message
7395: IF OZF_DEBUG_HIGH_ON THEN
7396: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7397: END IF;
7398:
7399: -- Initialize API return status to SUCCESS
7400: x_return_status := FND_API.G_RET_STS_SUCCESS;
7398:
7399: -- Initialize API return status to SUCCESS
7400: x_return_status := FND_API.G_RET_STS_SUCCESS;
7401: IF OZF_DEBUG_HIGH_ON THEN
7402: ozf_utility_pvt.debug_message('x_return_status '||x_return_status);
7403: END IF;
7404:
7405: BEGIN
7406: IF OZF_DEBUG_LOW_ON THEN
7403: END IF;
7404:
7405: BEGIN
7406: IF OZF_DEBUG_LOW_ON THEN
7407: ozf_utility_pvt.debug_message('Resale Batch ID ' || p_int_batch_rec.resale_batch_id);
7408: END IF;
7409: OZF_RESALE_BATCHES_PKG.Update_Row(
7410: p_resale_batch_id => p_int_batch_rec.resale_batch_id,
7411: p_object_version_number => p_int_batch_rec.object_version_number ,
7480:
7481: EXCEPTION
7482:
7483: WHEN OTHERS THEN
7484: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT','Problem with updating batch record'||sqlcode ||' '||sqlerrm);
7485: RAISE FND_API.G_EXC_ERROR;
7486:
7487: END;
7488:
7492: COMMIT WORK;
7493: END IF;
7494: -- Debug Message
7495: IF OZF_DEBUG_HIGH_ON THEN
7496: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
7497: END IF;
7498:
7499: -- Standard call to get message count and if count is 1, get message info.
7500: FND_MSG_PUB.Count_And_Get
7583:
7584:
7585: BEGIN
7586: IF OZF_DEBUG_HIGH_ON THEN
7587: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
7588: END IF;
7589:
7590: IF (funcmode = 'RUN') THEN
7591:
7688: l_return_status VARCHAR2(1);
7689:
7690: BEGIN
7691: IF OZF_DEBUG_HIGH_ON THEN
7692: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
7693: END IF;
7694: IF( funcmode = 'RUN' ) THEN
7695:
7696: l_event_key := wf_engine.GetItemAttrText(itemtype => itemtype,
7764: l_msg_data VARCHAR2(2000);
7765: l_batch_status VARCHAR2(30);
7766: BEGIN
7767: IF OZF_DEBUG_HIGH_ON THEN
7768: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
7769: END IF;
7770:
7771: IF (funcmode = 'RUN') THEN
7772:
7783: aname => 'OZF_RESALE_BATCH_ID');
7784:
7785: END IF;
7786: IF OZF_DEBUG_LOW_ON THEN
7787: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
7788: END IF;
7789: IF l_batch_id IS NOT NULL THEN
7790:
7791: raise_event
7794: p_event_name => g_xml_outbound_event ,
7795: x_return_status => l_return_status
7796: );
7797: IF OZF_DEBUG_LOW_ON THEN
7798: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
7799: END IF;
7800:
7801: END IF;
7802:
7861: l_msg_data VARCHAR2(2000);
7862: l_batch_status VARCHAR2(30);
7863: BEGIN
7864: IF OZF_DEBUG_HIGH_ON THEN
7865: ozf_utility_pvt.debug_message('In: ' || l_api_name || ' Funcmode: ' || funcmode);
7866: END IF;
7867:
7868: IF (funcmode = 'RUN') THEN
7869:
7870: l_batch_id := wf_engine.GetItemAttrText(itemtype => itemtype,
7871: itemkey => itemkey,
7872: aname => 'PARAMETER1');
7873: IF OZF_DEBUG_LOW_ON THEN
7874: ozf_utility_pvt.debug_message('Batch ID '|| l_batch_id);
7875: END IF;
7876:
7877: IF l_batch_id IS NOT NULL THEN
7878:
7882: p_event_name => g_xml_data_process_event ,
7883: x_return_status => l_return_status
7884: );
7885: IF OZF_DEBUG_LOW_ON THEN
7886: ozf_utility_pvt.debug_message('Pre Process is complete '||l_return_status);
7887: END IF;
7888:
7889: END IF;
7890:
7961: WHERE resale_batch_id = pc_batch_id;
7962:
7963: BEGIN
7964: IF OZF_DEBUG_HIGH_ON THEN
7965: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' start');
7966: END IF;
7967:
7968: -- Initialize API return status to SUCCESS
7969: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967:
7968: -- Initialize API return status to SUCCESS
7969: x_return_status := FND_API.G_RET_STS_SUCCESS;
7970: IF OZF_DEBUG_LOW_ON THEN
7971: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id);
7972: ozf_utility_pvt.debug_message('Event : ' || p_event_name || ' start');
7973: END IF;
7974:
7975: IF p_batch_id IS NOT NULL THEN
7968: -- Initialize API return status to SUCCESS
7969: x_return_status := FND_API.G_RET_STS_SUCCESS;
7970: IF OZF_DEBUG_LOW_ON THEN
7971: ozf_utility_pvt.debug_message('p_batch_id ' || p_batch_id);
7972: ozf_utility_pvt.debug_message('Event : ' || p_event_name || ' start');
7973: END IF;
7974:
7975: IF p_batch_id IS NOT NULL THEN
7976: -- XML Outbound Event
8092: p_parameters => l_msg_parameter_list );
8093:
8094: END IF;
8095: IF OZF_DEBUG_HIGH_ON THEN
8096: ozf_utility_pvt.debug_message('Private API: ' || l_api_name || ' end');
8097: END IF;
8098: EXCEPTION
8099: WHEN FND_API.G_EXC_ERROR THEN
8100: x_return_status := FND_API.G_RET_STS_ERROR;
8101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8103: WHEN OTHERS THEN
8104:
8105: OZF_UTILITY_PVT.error_message('OZF_API_DEBUG_MESSAGE','TEXT',sqlcode ||' '||sqlerrm);
8106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8107: END raise_event;
8108:
8109:
8120: l_log_id NUMBER;
8121: l_org_id NUMBER;
8122: BEGIN
8123: IF OZF_DEBUG_HIGH_ON THEN
8124: ozf_utility_pvt.debug_message(l_api_name||': Start');
8125: END IF;
8126: --
8127: IF p_error_code IS NOT NULL THEN
8128: BEGIN
8156: px_org_id => l_org_id
8157: );
8158: EXCEPTION
8159: WHEN OTHERS THEN
8160: OZF_UTILITY_PVT.error_message('OZF_INS_RESALE_LOG_WRG');
8161: RAISE FND_API.g_exc_unexpected_error;
8162: END;
8163: END IF;
8164: --
8162: END;
8163: END IF;
8164: --
8165: IF OZF_DEBUG_HIGH_ON THEN
8166: ozf_utility_pvt.debug_message(l_api_name||': End');
8167: END IF;
8168: EXCEPTION
8169: WHEN FND_API.G_EXC_ERROR THEN
8170: x_return_status := FND_API.G_RET_STS_ERROR;