76: END IF;
77:
78: -- Debug Message
79: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
80: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
81: END IF;
82:
83: -- Initialize API return status to SUCCESS
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
83: -- Initialize API return status to SUCCESS
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
87: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_code_conversion_tbl.count);
88: END IF;
89:
90: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
91: -- Debug message
88: END IF;
89:
90: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
91: -- Debug message
92: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
93: -- Invoke validation procedures
94: Validate_Code_Conversion(
95: p_api_version_number => 1.0,
96: p_init_msg_list => FND_API.G_FALSE,
107: END IF;
108:
109: -- Debug Message
110: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
111: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
112: END IF;
113:
114: l_code_conversion_id := NULL;
115: l_object_version_number := NULL;
116:
117: x_code_conversion_id_tbl := JTF_NUMBER_TABLE();
118:
119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
120: OZF_UTILITY_PVT.debug_message( 'No of rows to be created '|| p_code_conversion_tbl.count);
121: END IF;
122:
123: FOR i IN 1 .. p_code_conversion_tbl.count
124: LOOP
132: END IF;
133: SELECT ozf_code_conversions_all_s.nextval INTO l_code_conversion_id FROM DUAL;
134:
135: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
136: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
137: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
138: END IF;
139:
140: BEGIN
133: SELECT ozf_code_conversions_all_s.nextval INTO l_code_conversion_id FROM DUAL;
134:
135: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
136: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
137: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
138: END IF;
139:
140: BEGIN
141:
175: p_attribute15 => l_code_conversion_rec.attribute15);
176:
177: EXCEPTION
178: WHEN OTHERS THEN
179: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating code conversion map');
180: RAISE FND_API.G_EXC_ERROR;
181: END;
182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
183: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - code conversion id' || l_code_conversion_id);
179: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating code conversion map');
180: RAISE FND_API.G_EXC_ERROR;
181: END;
182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
183: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - code conversion id' || l_code_conversion_id);
184: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_code_conversion_rec.Object_Version_Number);
185: END IF;
186:
187: x_code_conversion_id_tbl.extend;
180: RAISE FND_API.G_EXC_ERROR;
181: END;
182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
183: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - code conversion id' || l_code_conversion_id);
184: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_code_conversion_rec.Object_Version_Number);
185: END IF;
186:
187: x_code_conversion_id_tbl.extend;
188: x_code_conversion_id_tbl(x_code_conversion_id_tbl.count) := l_code_conversion_id;
196: END IF;
197:
198: -- Debug Message
199: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
200: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
201: END IF;
202:
203: -- Standard call to get message count and if count is 1, get message info.
204: FND_MSG_PUB.Count_And_Get
208:
209:
210:
211: EXCEPTION
212: WHEN OZF_UTILITY_PVT.resource_locked THEN
213: x_return_status := FND_API.g_ret_sts_error;
214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
215: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
216: FND_MSG_PUB.add;
350: END IF;
351:
352: -- Debug Message
353: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
354: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
355: END IF;
356:
357: -- Initialize API return status to SUCCESS
358: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: x_return_status := FND_API.G_RET_STS_SUCCESS;
359: x_object_version_number := JTF_NUMBER_TABLE();
360:
361: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
362: OZF_UTILITY_PVT.debug_message('p_code_conversion_tbl(1).description: ' || p_code_conversion_tbl(1).description );
363: END IF;
364:
365: FOR i in 1 .. p_code_conversion_tbl.count
366: LOOP
367: p_code_conversion_rec := p_code_conversion_tbl(i);
368: l_code_conversion_id := p_code_conversion_rec.code_conversion_id;
369:
370: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
371: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID' || l_code_conversion_id);
372: END IF;
373:
374: -- Check for the existance of the record
375: OPEN csr_code_conversion(l_code_conversion_id);
408: ,l_code_conversion_rec.attribute15
409: ,l_code_conversion_rec.security_group_id;
410:
411: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
412: OZF_UTILITY_PVT.debug_message('Existing description '|| l_code_conversion_rec.description);
413: END IF;
414:
415: IF ( csr_code_conversion%NOTFOUND) THEN
416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
413: END IF;
414:
415: IF ( csr_code_conversion%NOTFOUND) THEN
416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
417: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
418: END IF;
419:
420: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
421: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
426: CLOSE csr_code_conversion;
427:
428:
429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
430: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_code_conversion_rec.object_version_number);
431: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_code_conversion_rec.object_version_number);
432: END IF;
433:
434: --- Check the Version Number for Locking
427:
428:
429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
430: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_code_conversion_rec.object_version_number);
431: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_code_conversion_rec.object_version_number);
432: END IF;
433:
434: --- Check the Version Number for Locking
435: IF l_code_conversion_rec.object_version_number <> P_code_conversion_rec.Object_Version_number
434: --- Check the Version Number for Locking
435: IF l_code_conversion_rec.object_version_number <> P_code_conversion_rec.Object_Version_number
436: THEN
437: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
438: OZF_UTILITY_PVT.debug_message( 'dbver' || l_code_conversion_rec.object_version_number);
439: OZF_UTILITY_PVT.debug_message( 'reqver' || P_code_conversion_rec.object_version_number);
440: END IF;
441:
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
435: IF l_code_conversion_rec.object_version_number <> P_code_conversion_rec.Object_Version_number
436: THEN
437: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
438: OZF_UTILITY_PVT.debug_message( 'dbver' || l_code_conversion_rec.object_version_number);
439: OZF_UTILITY_PVT.debug_message( 'reqver' || P_code_conversion_rec.object_version_number);
440: END IF;
441:
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
443: THEN
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461:
462: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
463: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_code_conversion_rec.End_Date_Active);
464: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_code_conversion_rec.End_Date_Active);
465: END IF;
466:
467: -- Update End date only when it is NUll or a future date
460: END IF;
461:
462: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
463: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_code_conversion_rec.End_Date_Active);
464: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_code_conversion_rec.End_Date_Active);
465: END IF;
466:
467: -- Update End date only when it is NUll or a future date
468: IF trunc(nvl(l_code_conversion_Rec.End_Date_Active,sysdate+1)) <= TRUNC(SYSDATE)
477: RAISE FND_API.G_EXC_ERROR;
478: END IF;
479:
480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
481: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_code_conversion_rec.Start_Date_Active);
482: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_code_conversion_rec.Start_Date_Active);
483: END IF;
484:
485: ---Update not allowed for Start Date when start date is earlier than current date
478: END IF;
479:
480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
481: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_code_conversion_rec.Start_Date_Active);
482: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_code_conversion_rec.Start_Date_Active);
483: END IF;
484:
485: ---Update not allowed for Start Date when start date is earlier than current date
486: IF trunc(l_code_conversion_Rec.Start_Date_Active)
498:
499: IF l_code_conversion_Rec.end_date_active < p_code_conversion_Rec.Start_Date_Active THEN
500: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
501: THEN
502: OZF_UTILITY_PVT.debug_message ('Cannot update an end dated code conversion map');
503: END IF;
504: raise FND_API.G_EXC_ERROR;
505: END IF;
506:
519:
520: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
521: -- Debug message
522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
523: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
524: END IF;
525: -- Invoke validation procedures
526: Validate_Code_Conversion(
527: p_api_version_number => 1.0,
547:
548: -- Call Update Table Handler
549: -- Debug Message
550: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
551: OZF_UTILITY_PVT.debug_message( 'Private API: Calling Update table handler');
552: END IF;
553: BEGIN
554: OZF_CODE_CONVERSION_PKG.Update_Row(
555: p_code_conversion_id => l_code_conversion_id,
586:
587:
588: EXCEPTION
589: WHEN OTHERS THEN
590: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in updating code conversion map');
591: RAISE FND_API.G_EXC_ERROR;
592: END;
593:
594: x_object_version_number.EXTEND;
605:
606:
607: -- Debug Message
608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
609: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
610: END IF;
611: -- Standard call to get message count and if count is 1, get message info.
612: FND_MSG_PUB.Count_And_Get
613: (p_count => x_msg_count,
682: -- Standard Start of API savepoint
683: SAVEPOINT update_code_conversion_tbl_pvt;
684:
685: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
686: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
687: END IF;
688:
689: -- Standard call to check for call compatibility.
690: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
715: END IF;
716:
717: -- Debug Message
718: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
719: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
720: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_code_conversion_Tbl.count);
721: END IF;
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
716:
717: -- Debug Message
718: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
719: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
720: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_code_conversion_Tbl.count);
721: END IF;
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
752: l_update_code_conv_tbl(l_up_cnt) := P_code_conversion_Rec;
753: END IF;
754:
755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
756: OZF_UTILITY_PVT.debug_message('End Date '||P_code_conversion_Rec.end_date_active);
757: END IF;
758:
759: END LOOP;
760:
758:
759: END LOOP;
760:
761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
762: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
763: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
764: END IF;
765:
766: IF l_cc_cnt > 0 THEN
759: END LOOP;
760:
761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
762: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
763: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
764: END IF;
765:
766: IF l_cc_cnt > 0 THEN
767: --- Call to Create Procedure
809: END IF;
810:
811: -- Debug Message
812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
813: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
814: END IF;
815: -- Standard call to get message count and if count is 1, get message info.
816: FND_MSG_PUB.Count_And_Get
817: (p_count => x_msg_count,
879: -- Standard Start of API savepoint
880: SAVEPOINT delete_code_conversion_tbl_pvt;
881:
882: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
883: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
884: END IF;
885:
886: -- Standard call to check for call compatibility.
887: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
912: END IF;
913:
914: -- Debug Message
915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
916: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
917: END IF;
918:
919:
920: -- Initialize API return status to SUCCESS
926: l_code_conversion_id := P_code_conversion_Tbl(i).code_conversion_id;
927: l_object_version_number := P_code_conversion_Tbl(i).object_version_number;
928:
929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
930: OZF_UTILITY_PVT.debug_message('Code Conversion ID ' || l_code_conversion_id);
931: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
932: END IF;
933:
934: IF l_object_version_number IS NULL
927: l_object_version_number := P_code_conversion_Tbl(i).object_version_number;
928:
929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
930: OZF_UTILITY_PVT.debug_message('Code Conversion ID ' || l_code_conversion_id);
931: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
932: END IF;
933:
934: IF l_object_version_number IS NULL
935: OR l_code_conversion_id IS NULL THEN
934: IF l_object_version_number IS NULL
935: OR l_code_conversion_id IS NULL THEN
936:
937: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
938: OZF_UTILITY_PVT.debug_message('In If block');
939: END IF;
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
941: FND_MESSAGE.set_name('OZF', 'OZF_REQ_PARAMETERS_MISSING');
942: FND_MSG_PUB.add;
987: END IF;
988:
989: -- Debug Message
990: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
991: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
992: END IF;
993: -- Standard call to get message count and if count is 1, get message info.
994: FND_MSG_PUB.Count_And_Get
995: (p_count => x_msg_count,
1162: END IF;
1163:
1164: -- Debug Message
1165: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1166: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1167: END IF;
1168:
1169:
1170: -- Initialize API return status to SUCCESS
1173: -- Validate the Delete Condition
1174: --
1175:
1176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1177: OZF_UTILITY_PVT.debug_message('Party ID in delete code conersion: ' || l_party_id);
1178: END IF;
1179: IF p_external_code IS NOT NULL THEN
1180:
1181: IF p_code_conversion_type = 'OZF_REASON_CODES' THEN
1239: END IF;
1240:
1241: for i in 1..ceil((length(l_sql)/100)) loop
1242: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1243: OZF_UTILITY_PVT.debug_message(substr(l_sql, (i-1)*100+1, 100));
1244: END IF;
1245: end loop;
1246: IF g_party_id IS NULL THEN
1247: OPEN csr_code_conv_uom FOR l_sql USING p_external_code
1344: FETCH csr_code_conv_agreement_pt INTO l_dummy;
1345: CLOSE csr_code_conv_agreement_pt;
1346:
1347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1348: OZF_UTILITY_PVT.debug_message('l_dummy in delete code conersion: ' || l_dummy);
1349: END IF;
1350: END IF;
1351: IF G_PARTY_ID IS NULL AND G_ACCOUNT_ID IS NULL THEN
1352: OPEN csr_code_conv_agreement (p_external_code);
1370: ,g_account_id);
1371: FETCH csr_code_conv_product_pt INTO l_dummy;
1372: CLOSE csr_code_conv_product_pt;
1373: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1374: OZF_UTILITY_PVT.debug_message('l_dummy in delete code conersion: ' || l_dummy);
1375: END IF;
1376: END IF;
1377: -- Delete from site Profile
1378: IF G_PARTY_ID IS NULL AND G_ACCOUNT_ID IS NULL THEN
1421: l_interface_sql := l_interface_sql || l_where;
1422: END IF;
1423: for i in 1..ceil((length(l_sql)/100)) loop
1424: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1425: OZF_UTILITY_PVT.debug_message(substr(l_sql, (i-1)*100+1, 100));
1426: END IF;
1427: end loop;
1428: IF g_party_id IS NULL THEN
1429: OPEN csr_code_conv_party FOR l_sql USING p_external_code
1575: -- Api body
1576: --
1577: -- Debug Message
1578: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1579: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1580: END IF;
1581:
1582: BEGIN
1583: OZF_CODE_CONVERSION_PKG.Delete_Row( p_code_conversion_id => p_code_conversion_id,
1594: END IF;
1595:
1596: -- Debug Message
1597: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1598: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1599: END IF;
1600:
1601: -- Standard call to get message count and if count is 1, get message info.
1602: FND_MSG_PUB.Count_And_Get
1699: BEGIN
1700:
1701: x_return_status := FND_API.g_ret_sts_success;
1702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1703: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1704: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_org_dummy);
1705: END IF;
1706: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1707:
1700:
1701: x_return_status := FND_API.g_ret_sts_success;
1702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1703: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1704: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_org_dummy);
1705: END IF;
1706: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1707:
1708: IF p_code_conversion_rec.cust_account_id = FND_API.g_miss_num OR
1713: THEN
1714: l_org_dummy := 0;
1715:
1716: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1717: OZF_UTILITY_PVT.debug_message('External code ' ||p_code_conversion_rec.external_code );
1718: OZF_UTILITY_PVT.debug_message('Start date active '|| p_code_conversion_rec.start_date_active );
1719: OZF_UTILITY_PVT.debug_message('End date active ' || p_code_conversion_rec.end_date_active );
1720: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1721: END IF;
1714: l_org_dummy := 0;
1715:
1716: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1717: OZF_UTILITY_PVT.debug_message('External code ' ||p_code_conversion_rec.external_code );
1718: OZF_UTILITY_PVT.debug_message('Start date active '|| p_code_conversion_rec.start_date_active );
1719: OZF_UTILITY_PVT.debug_message('End date active ' || p_code_conversion_rec.end_date_active );
1720: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1721: END IF;
1722:
1715:
1716: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1717: OZF_UTILITY_PVT.debug_message('External code ' ||p_code_conversion_rec.external_code );
1718: OZF_UTILITY_PVT.debug_message('Start date active '|| p_code_conversion_rec.start_date_active );
1719: OZF_UTILITY_PVT.debug_message('End date active ' || p_code_conversion_rec.end_date_active );
1720: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1721: END IF;
1722:
1723: OPEN csr_code_conv_4org(p_code_conversion_rec.external_code,
1716: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1717: OZF_UTILITY_PVT.debug_message('External code ' ||p_code_conversion_rec.external_code );
1718: OZF_UTILITY_PVT.debug_message('Start date active '|| p_code_conversion_rec.start_date_active );
1719: OZF_UTILITY_PVT.debug_message('End date active ' || p_code_conversion_rec.end_date_active );
1720: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1721: END IF;
1722:
1723: OPEN csr_code_conv_4org(p_code_conversion_rec.external_code,
1724: p_code_conversion_rec.start_date_active,
1729: CLOSE csr_code_conv_4org;
1730:
1731:
1732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1733: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1734: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1735: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1736: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1737: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1730:
1731:
1732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1733: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1734: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1735: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1736: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1737: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1738: END IF;
1731:
1732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1733: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1734: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1735: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1736: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1737: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1738: END IF;
1739: IF l_org_dummy > 0 THEN
1732: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1733: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1734: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1735: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1736: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1737: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1738: END IF;
1739: IF l_org_dummy > 0 THEN
1740: l_valid_flag := FND_API.g_false;
1733: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1734: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1735: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1736: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1737: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1738: END IF;
1739: IF l_org_dummy > 0 THEN
1740: l_valid_flag := FND_API.g_false;
1741: END IF;
1749: INTO l_party_dummy;
1750: CLOSE csr_code_conv_4party;
1751:
1752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1753: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for party ' || p_code_conversion_rec.party_id );
1754: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1755: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1756: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1757: END IF;
1750: CLOSE csr_code_conv_4party;
1751:
1752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1753: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for party ' || p_code_conversion_rec.party_id );
1754: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1755: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1756: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1757: END IF;
1758:
1751:
1752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1753: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for party ' || p_code_conversion_rec.party_id );
1754: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1755: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1756: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1757: END IF;
1758:
1759: IF l_party_dummy > 0 THEN
1752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1753: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for party ' || p_code_conversion_rec.party_id );
1754: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1755: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1756: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1757: END IF;
1758:
1759: IF l_party_dummy > 0 THEN
1760: l_valid_flag := FND_API.g_false;
1760: l_valid_flag := FND_API.g_false;
1761: END IF;
1762:
1763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1764: OZF_UTILITY_PVT.debug_message('Count of code map for party ' || l_party_dummy);
1765: END IF;
1766: END IF;
1767: ELSE
1768: l_acct_dummy := NULL;
1774: FETCH csr_code_conv_4acct INTO l_acct_dummy;
1775: CLOSE csr_code_conv_4acct;
1776:
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1778: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1779: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1780: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1781: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
1782: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1775: CLOSE csr_code_conv_4acct;
1776:
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1778: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1779: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1780: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1781: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
1782: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1783: END IF;
1776:
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1778: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1779: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1780: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1781: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
1782: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1783: END IF;
1784: IF l_acct_dummy > 0 THEN
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1778: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1779: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1780: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1781: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
1782: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1783: END IF;
1784: IF l_acct_dummy > 0 THEN
1785: l_valid_flag := FND_API.g_false;
1778: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1779: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1780: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1781: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
1782: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1783: END IF;
1784: IF l_acct_dummy > 0 THEN
1785: l_valid_flag := FND_API.g_false;
1786: END IF;
1803: -- Start of Comments
1804: --
1805: -- Required Items Check procedure
1806: --
1807: -- p_validation_mode is a constant defined in OZF_UTILITY_PVT package
1808: -- For create: G_CREATE, for update: G_UPDATE
1809: -- End of Comments
1810:
1811: PROCEDURE Check_Code_Conv_Req_Items
1822:
1823: x_return_status := FND_API.g_ret_sts_success;
1824:
1825: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1826: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1827: END IF;
1828:
1829: IF p_code_conversion_rec.external_code = FND_API.g_miss_char OR
1830: p_code_conversion_rec.external_code IS NULL
1837: RETURN;
1838: END IF;
1839:
1840: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1841: OZF_UTILITY_PVT.debug_message('external code '||p_code_conversion_rec.external_code);
1842: OZF_UTILITY_PVT.debug_message('end of check_code_conv_req_items');
1843: END IF;
1844:
1845: END check_code_conv_req_items;
1838: END IF;
1839:
1840: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1841: OZF_UTILITY_PVT.debug_message('external code '||p_code_conversion_rec.external_code);
1842: OZF_UTILITY_PVT.debug_message('end of check_code_conv_req_items');
1843: END IF;
1844:
1845: END check_code_conv_req_items;
1846:
1864:
1865: x_return_status := FND_API.g_ret_sts_success;
1866:
1867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1868: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1869: END IF;
1870:
1871: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1872:
1923:
1924: x_return_status := FND_API.g_ret_sts_success;
1925:
1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1927: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1928: END IF;
1929:
1930: check_code_conv_req_items( p_code_conversion_rec,
1931: p_validation_mode,
1935: RETURN;
1936: END IF;
1937:
1938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1939: OZF_UTILITY_PVT.debug_message('after check_code_conv_req_items ' );
1940: END IF;
1941:
1942:
1943: check_uniq_code_conversion( p_code_conversion_rec,
1948: RETURN;
1949: END IF;
1950:
1951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1952: OZF_UTILITY_PVT.debug_message('after check_uniq_code_conversion ' );
1953: END IF;
1954:
1955: check_code_conversion_dt (p_code_conversion_rec,
1956: p_validation_mode,
1960: RETURN;
1961: END IF;
1962:
1963: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1964: OZF_UTILITY_PVT.debug_message('after check_code_conversion_dt ' );
1965: END IF;
1966:
1967: END check_code_conversion_items;
1968: -- Start of Comments
1968: -- Start of Comments
1969: --
1970: -- validation procedures
1971: --
1972: -- p_validation_mode is a constant defined in OZF_UTILITY_PVT package
1973: -- For create: G_CREATE, for update: G_UPDATE
1974: -- End of Comments
1975:
1976: PROCEDURE Validate_Code_Conversion(
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013: -- Call the Validate Item procedure for the item(field level validations )
2014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2015: OZF_UTILITY_PVT.debug_message('in '||l_api_name );
2016: END IF;
2017: x_return_status := FND_API.g_ret_sts_success;
2018:
2019: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2020:
2021: FOR i in 1 .. p_code_conversion_tbl.count
2022: LOOP
2023: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2024: OZF_UTILITY_PVT.debug_message('inside the loop p_code_conversion_tbl ' );
2025: END IF;
2026: l_code_conversion_rec := p_code_conversion_tbl(i);
2027:
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2025: END IF;
2026: l_code_conversion_rec := p_code_conversion_tbl(i);
2027:
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2029: OZF_UTILITY_PVT.debug_message('External code ' || l_code_conversion_rec.external_code );
2030: OZF_UTILITY_PVT.debug_message('Start date active '|| l_code_conversion_rec.start_date_active );
2031: OZF_UTILITY_PVT.debug_message('End date active ' || l_code_conversion_rec.end_date_active );
2032: END IF;
2033:
2026: l_code_conversion_rec := p_code_conversion_tbl(i);
2027:
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2029: OZF_UTILITY_PVT.debug_message('External code ' || l_code_conversion_rec.external_code );
2030: OZF_UTILITY_PVT.debug_message('Start date active '|| l_code_conversion_rec.start_date_active );
2031: OZF_UTILITY_PVT.debug_message('End date active ' || l_code_conversion_rec.end_date_active );
2032: END IF;
2033:
2034: check_code_conversion_items(
2027:
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2029: OZF_UTILITY_PVT.debug_message('External code ' || l_code_conversion_rec.external_code );
2030: OZF_UTILITY_PVT.debug_message('Start date active '|| l_code_conversion_rec.start_date_active );
2031: OZF_UTILITY_PVT.debug_message('End date active ' || l_code_conversion_rec.end_date_active );
2032: END IF;
2033:
2034: check_code_conversion_items(
2035: p_code_conversion_rec => l_code_conversion_rec,
2052: (p_count => x_msg_count,
2053: p_data => x_msg_data
2054: );
2055: EXCEPTION
2056: WHEN OZF_Utility_PVT.resource_locked THEN
2057: x_return_status := FND_API.g_ret_sts_error;
2058: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2059: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2060: FND_MSG_PUB.add;
2198: CLOSE csr_get_internal_code_party;
2199: END IF;
2200:
2201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2202: OZF_UTILITY_PVT.debug_message(' Internal Code ' || l_internal_code);
2203: END IF;
2204: x_internal_code := l_internal_code;
2205:
2206: EXCEPTION
2275: /* For the code conversions at a supplier site , only one valid internal code
2276: should exist for a particular external code on a particular date.*/
2277: x_return_status := FND_API.g_ret_sts_success;
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2279: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2280: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_dummy);
2281: END IF;
2282:
2283: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2276: should exist for a particular external code on a particular date.*/
2277: x_return_status := FND_API.g_ret_sts_success;
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2279: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2280: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_dummy);
2281: END IF;
2282:
2283: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2284:
2302: INTO l_dummy;
2303: CLOSE csr_code_conv;
2304:
2305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2306: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2307: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2308: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2309: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2310: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2303: CLOSE csr_code_conv;
2304:
2305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2306: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2307: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2308: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2309: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2310: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2311: END IF;
2304:
2305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2306: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2307: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2308: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2309: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2310: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2311: END IF;
2312: IF l_dummy > 0 THEN
2305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2306: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2307: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2308: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2309: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2310: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2311: END IF;
2312: IF l_dummy > 0 THEN
2313: l_valid_flag := FND_API.g_false;
2306: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2307: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2308: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2309: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2310: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2311: END IF;
2312: IF l_dummy > 0 THEN
2313: l_valid_flag := FND_API.g_false;
2314:
2332: -- Start of Comments
2333: --
2334: -- Required Items Check procedure
2335: --
2336: -- p_validation_mode is a constant defined in OZF_UTILITY_PVT package
2337: -- For create: G_CREATE, for update: G_UPDATE
2338: -- End of Comments
2339:
2340: PROCEDURE Check_supp_code_Conv_Req_Items
2351:
2352: x_return_status := FND_API.g_ret_sts_success;
2353:
2354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2355: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2356: END IF;
2357:
2358: IF p_supp_code_conversion_rec.external_code = FND_API.g_miss_char OR
2359: p_supp_code_conversion_rec.external_code IS NULL
2366: RETURN;
2367: END IF;
2368:
2369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2370: OZF_UTILITY_PVT.debug_message('external code '||p_supp_code_conversion_rec.external_code);
2371: OZF_UTILITY_PVT.debug_message('end of check_supp_code_conv_req_items');
2372: END IF;
2373:
2374: END check_supp_code_conv_req_items;
2367: END IF;
2368:
2369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2370: OZF_UTILITY_PVT.debug_message('external code '||p_supp_code_conversion_rec.external_code);
2371: OZF_UTILITY_PVT.debug_message('end of check_supp_code_conv_req_items');
2372: END IF;
2373:
2374: END check_supp_code_conv_req_items;
2375:
2393:
2394: x_return_status := FND_API.g_ret_sts_success;
2395:
2396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2397: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2398: END IF;
2399:
2400: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2401:
2441: -- Start of Comments
2442: --
2443: -- validation procedures
2444: --
2445: -- p_validation_mode is a constant defined in OZF_UTILITY_PVT package
2446: -- For create: G_CREATE, for update: G_UPDATE
2447: -- End of Comments
2448:
2449:
2541:
2542: x_return_status := FND_API.g_ret_sts_success;
2543:
2544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2545: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2546: END IF;
2547:
2548: check_supp_code_conv_req_items( p_supp_code_conversion_rec,
2549: p_validation_mode,
2553: RETURN;
2554: END IF;
2555:
2556: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2557: OZF_UTILITY_PVT.debug_message('after check_supp_code_conv_req_items ' );
2558: END IF;
2559:
2560:
2561: check_uniq_supp_code_conv( p_supp_code_conversion_rec,
2566: RETURN;
2567: END IF;
2568:
2569: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2570: OZF_UTILITY_PVT.debug_message('after check_uniq_supp_code_conversion ' );
2571: END IF;
2572:
2573: check_supp_code_conversion_dt (p_supp_code_conversion_rec,
2574: p_validation_mode,
2578: RETURN;
2579: END IF;
2580:
2581: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2582: OZF_UTILITY_PVT.debug_message('after check_supp_code_conversion_dt ' );
2583: END IF;
2584:
2585: END check_supp_code_conv_items;
2586: PROCEDURE Validate_supp_code_Conv(
2621: FND_MSG_PUB.initialize;
2622: END IF;
2623: -- Call the Validate Item procedure for the item(field level validations )
2624: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2625: OZF_UTILITY_PVT.debug_message('in '||l_api_name );
2626: END IF;
2627: x_return_status := FND_API.g_ret_sts_success;
2628:
2629: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2630:
2631: FOR i in 1 .. p_supp_code_conversion_tbl.count
2632: LOOP
2633: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2634: OZF_UTILITY_PVT.debug_message('inside the loop p_supp_code_conversion_tbl ' );
2635: END IF;
2636: l_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
2637:
2638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2635: END IF;
2636: l_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
2637:
2638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2639: OZF_UTILITY_PVT.debug_message('External code ' || l_supp_code_conversion_rec.external_code );
2640: OZF_UTILITY_PVT.debug_message('Start date active '|| l_supp_code_conversion_rec.start_date_active );
2641: OZF_UTILITY_PVT.debug_message('End date active ' || l_supp_code_conversion_rec.end_date_active );
2642: END IF;
2643:
2636: l_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
2637:
2638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2639: OZF_UTILITY_PVT.debug_message('External code ' || l_supp_code_conversion_rec.external_code );
2640: OZF_UTILITY_PVT.debug_message('Start date active '|| l_supp_code_conversion_rec.start_date_active );
2641: OZF_UTILITY_PVT.debug_message('End date active ' || l_supp_code_conversion_rec.end_date_active );
2642: END IF;
2643:
2644: check_supp_code_conv_items(
2637:
2638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2639: OZF_UTILITY_PVT.debug_message('External code ' || l_supp_code_conversion_rec.external_code );
2640: OZF_UTILITY_PVT.debug_message('Start date active '|| l_supp_code_conversion_rec.start_date_active );
2641: OZF_UTILITY_PVT.debug_message('End date active ' || l_supp_code_conversion_rec.end_date_active );
2642: END IF;
2643:
2644: check_supp_code_conv_items(
2645: p_supp_code_conversion_rec => l_supp_code_conversion_rec,
2661: (p_count => x_msg_count,
2662: p_data => x_msg_data
2663: );
2664: EXCEPTION
2665: WHEN OZF_Utility_PVT.resource_locked THEN
2666: x_return_status := FND_API.g_ret_sts_error;
2667: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2668: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2669: FND_MSG_PUB.add;
2759: END IF;
2760:
2761: -- Debug Message
2762: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2763: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2764: END IF;
2765:
2766: -- Initialize API return status to SUCCESS
2767: x_return_status := FND_API.G_RET_STS_SUCCESS;
2766: -- Initialize API return status to SUCCESS
2767: x_return_status := FND_API.G_RET_STS_SUCCESS;
2768:
2769: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2770: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_supp_code_conversion_tbl.count);
2771: END IF;
2772:
2773: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2774: -- Debug message
2771: END IF;
2772:
2773: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2774: -- Debug message
2775: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
2776: -- Invoke validation procedures
2777: Validate_supp_code_Conv(
2778: p_api_version_number => 1.0,
2779: p_init_msg_list => FND_API.G_FALSE,
2790: END IF;
2791:
2792: -- Debug Message
2793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2794: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
2795: END IF;
2796:
2797: l_code_conversion_id := NULL;
2798: l_object_version_number := NULL;
2799:
2800: x_supp_code_conversion_id_tbl := JTF_NUMBER_TABLE();
2801:
2802: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2803: OZF_UTILITY_PVT.debug_message( 'No of rows to be created '|| p_supp_code_conversion_tbl.count);
2804: END IF;
2805:
2806: FOR i IN 1 .. p_supp_code_conversion_tbl.count
2807: LOOP
2815: END IF;
2816: SELECT ozf_supp_code_conv_all_s.nextval INTO l_code_conversion_id FROM DUAL;
2817:
2818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2819: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
2820: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
2821: END IF;
2822:
2823: BEGIN
2816: SELECT ozf_supp_code_conv_all_s.nextval INTO l_code_conversion_id FROM DUAL;
2817:
2818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2819: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
2820: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
2821: END IF;
2822:
2823: BEGIN
2824:
2857: p_attribute15 => l_supp_code_conversion_rec.attribute15);
2858:
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating supp_code conversion map');
2862: RAISE FND_API.G_EXC_ERROR;
2863: END;
2864: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2865: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - supp_code conversion id' || l_code_conversion_id);
2861: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating supp_code conversion map');
2862: RAISE FND_API.G_EXC_ERROR;
2863: END;
2864: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2865: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - supp_code conversion id' || l_code_conversion_id);
2866: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_supp_code_conversion_rec.Object_Version_Number);
2867: END IF;
2868:
2869: x_supp_code_conversion_id_tbl.extend;
2862: RAISE FND_API.G_EXC_ERROR;
2863: END;
2864: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2865: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - supp_code conversion id' || l_code_conversion_id);
2866: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_supp_code_conversion_rec.Object_Version_Number);
2867: END IF;
2868:
2869: x_supp_code_conversion_id_tbl.extend;
2870: x_supp_code_conversion_id_tbl(x_supp_code_conversion_id_tbl.count) := l_code_conversion_id;
2878: END IF;
2879:
2880: -- Debug Message
2881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2882: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2883: END IF;
2884:
2885: -- Standard call to get message count and if count is 1, get message info.
2886: FND_MSG_PUB.Count_And_Get
2890:
2891:
2892:
2893: EXCEPTION
2894: WHEN OZF_UTILITY_PVT.resource_locked THEN
2895: x_return_status := FND_API.g_ret_sts_error;
2896: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2897: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
2898: FND_MSG_PUB.add;
3031: END IF;
3032:
3033: -- Debug Message
3034: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3035: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3036: END IF;
3037:
3038: -- Initialize API return status to SUCCESS
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040: x_object_version_number := JTF_NUMBER_TABLE();
3041:
3042: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3043: OZF_UTILITY_PVT.debug_message('p_supp_code_conversion_tbl(1).description: ' || p_supp_code_conversion_tbl(1).description );
3044: END IF;
3045:
3046: FOR i in 1 .. p_supp_code_conversion_tbl.count
3047: LOOP
3048: p_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
3049: l_code_conversion_id := p_supp_code_conversion_rec.code_conversion_id;
3050:
3051: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3052: OZF_UTILITY_PVT.debug_message( 'supp_code Conversion ID' || l_code_conversion_id);
3053: END IF;
3054:
3055: -- Check for the existance of the record
3056: OPEN csr_supp_code_conversion(l_code_conversion_id);
3088: ,l_supp_code_conversion_rec.attribute15
3089: ,l_supp_code_conversion_rec.security_group_id;
3090:
3091: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3092: OZF_UTILITY_PVT.debug_message('Existing description '|| l_supp_code_conversion_rec.description);
3093: END IF;
3094:
3095: IF ( csr_supp_code_conversion%NOTFOUND) THEN
3096: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3093: END IF;
3094:
3095: IF ( csr_supp_code_conversion%NOTFOUND) THEN
3096: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3097: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
3098: END IF;
3099:
3100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3101: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3106: CLOSE csr_supp_code_conversion;
3107:
3108:
3109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3110: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_supp_code_conversion_rec.object_version_number);
3111: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_supp_code_conversion_rec.object_version_number);
3112: END IF;
3113:
3114: --- Check the Version Number for Locking
3107:
3108:
3109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3110: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_supp_code_conversion_rec.object_version_number);
3111: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_supp_code_conversion_rec.object_version_number);
3112: END IF;
3113:
3114: --- Check the Version Number for Locking
3115: IF l_supp_code_conversion_rec.object_version_number <> P_supp_code_conversion_rec.Object_Version_number
3114: --- Check the Version Number for Locking
3115: IF l_supp_code_conversion_rec.object_version_number <> P_supp_code_conversion_rec.Object_Version_number
3116: THEN
3117: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3118: OZF_UTILITY_PVT.debug_message( 'dbver' || l_supp_code_conversion_rec.object_version_number);
3119: OZF_UTILITY_PVT.debug_message( 'reqver' || P_supp_code_conversion_rec.object_version_number);
3120: END IF;
3121:
3122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3115: IF l_supp_code_conversion_rec.object_version_number <> P_supp_code_conversion_rec.Object_Version_number
3116: THEN
3117: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3118: OZF_UTILITY_PVT.debug_message( 'dbver' || l_supp_code_conversion_rec.object_version_number);
3119: OZF_UTILITY_PVT.debug_message( 'reqver' || P_supp_code_conversion_rec.object_version_number);
3120: END IF;
3121:
3122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3123: THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: END IF;
3142:
3143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3144: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_supp_code_conversion_rec.End_Date_Active);
3145: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_supp_code_conversion_rec.End_Date_Active);
3146: END IF;
3147:
3148: -- Update End date only when it is NUll or a future date
3141: END IF;
3142:
3143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3144: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_supp_code_conversion_rec.End_Date_Active);
3145: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_supp_code_conversion_rec.End_Date_Active);
3146: END IF;
3147:
3148: -- Update End date only when it is NUll or a future date
3149: IF trunc(nvl(l_supp_code_conversion_Rec.End_Date_Active,sysdate+1)) <= TRUNC(SYSDATE)
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160:
3161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3162: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_supp_code_conversion_rec.Start_Date_Active);
3163: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_supp_code_conversion_rec.Start_Date_Active);
3164: END IF;
3165:
3166: ---Update not allowed for Start Date when start date is earlier than current date
3159: END IF;
3160:
3161: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3162: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_supp_code_conversion_rec.Start_Date_Active);
3163: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_supp_code_conversion_rec.Start_Date_Active);
3164: END IF;
3165:
3166: ---Update not allowed for Start Date when start date is earlier than current date
3167: IF trunc(l_supp_code_conversion_Rec.Start_Date_Active)
3179:
3180: IF l_supp_code_conversion_Rec.end_date_active < p_supp_code_conversion_Rec.Start_Date_Active THEN
3181: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3182: THEN
3183: OZF_UTILITY_PVT.debug_message ('Cannot update an end dated code conversion map');
3184: END IF;
3185: raise FND_API.G_EXC_ERROR;
3186: END IF;
3187:
3200:
3201: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
3202: -- Debug message
3203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3204: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
3205: END IF;
3206: -- Invoke validation procedures
3207: Validate_supp_code_Conv(
3208: p_api_version_number => 1.0,
3228:
3229: -- Call Update Table Handler
3230: -- Debug Message
3231: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3232: OZF_UTILITY_PVT.debug_message( 'Private API: Calling Update table handler');
3233: END IF;
3234: BEGIN
3235: OZF_CODE_CONVERSION_PKG.Update_Supp_Code_Conv_Row(
3236: p_code_conversion_id => l_code_conversion_id,
3266:
3267:
3268: EXCEPTION
3269: WHEN OTHERS THEN
3270: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in updating code conversion map');
3271: RAISE FND_API.G_EXC_ERROR;
3272: END;
3273:
3274: x_object_version_number.EXTEND;
3285:
3286:
3287: -- Debug Message
3288: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3289: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3290: END IF;
3291: -- Standard call to get message count and if count is 1, get message info.
3292: FND_MSG_PUB.Count_And_Get
3293: (p_count => x_msg_count,
3362: -- Standard Start of API savepoint
3363: SAVEPOINT update_supp_code_conv_tbl_pvt;
3364:
3365: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3366: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3367: END IF;
3368:
3369: -- Standard call to check for call compatibility.
3370: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3395: END IF;
3396:
3397: -- Debug Message
3398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3399: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3400: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_supp_code_conversion_Tbl.count);
3401: END IF;
3402: -- Initialize API return status to SUCCESS
3403: x_return_status := FND_API.G_RET_STS_SUCCESS;
3396:
3397: -- Debug Message
3398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3399: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3400: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_supp_code_conversion_Tbl.count);
3401: END IF;
3402: -- Initialize API return status to SUCCESS
3403: x_return_status := FND_API.G_RET_STS_SUCCESS;
3404:
3432: l_update_supp_code_conv_tbl(l_up_cnt) := P_supp_code_conversion_Rec;
3433: END IF;
3434:
3435: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3436: OZF_UTILITY_PVT.debug_message('End Date '||P_supp_code_conversion_Rec.end_date_active);
3437: END IF;
3438:
3439: END LOOP;
3440:
3438:
3439: END LOOP;
3440:
3441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3442: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
3443: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
3444: END IF;
3445:
3446: IF l_cc_cnt > 0 THEN
3439: END LOOP;
3440:
3441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3442: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
3443: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
3444: END IF;
3445:
3446: IF l_cc_cnt > 0 THEN
3447: --- Call to Create Procedure
3489: END IF;
3490:
3491: -- Debug Message
3492: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3493: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3494: END IF;
3495: -- Standard call to get message count and if count is 1, get message info.
3496: FND_MSG_PUB.Count_And_Get
3497: (p_count => x_msg_count,
3559: -- Standard Start of API savepoint
3560: SAVEPOINT delete_supp_code_conv_tbl_pvt;
3561:
3562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3563: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3564: END IF;
3565:
3566: -- Standard call to check for call compatibility.
3567: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3592: END IF;
3593:
3594: -- Debug Message
3595: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3596: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3597: END IF;
3598:
3599:
3600: -- Initialize API return status to SUCCESS
3606: l_code_conversion_id := P_supp_code_conversion_Tbl(i).code_conversion_id;
3607: l_object_version_number := P_supp_code_conversion_Tbl(i).object_version_number;
3608:
3609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3610: OZF_UTILITY_PVT.debug_message('supp_code Conversion ID ' || l_code_conversion_id);
3611: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
3612: END IF;
3613:
3614: IF l_object_version_number IS NULL
3607: l_object_version_number := P_supp_code_conversion_Tbl(i).object_version_number;
3608:
3609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3610: OZF_UTILITY_PVT.debug_message('supp_code Conversion ID ' || l_code_conversion_id);
3611: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
3612: END IF;
3613:
3614: IF l_object_version_number IS NULL
3615: OR l_code_conversion_id IS NULL THEN
3614: IF l_object_version_number IS NULL
3615: OR l_code_conversion_id IS NULL THEN
3616:
3617: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3618: OZF_UTILITY_PVT.debug_message('In If block');
3619: END IF;
3620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3621: FND_MESSAGE.set_name('OZF', 'OZF_REQ_PARAMETERS_MISSING');
3622: FND_MSG_PUB.add;
3652: END IF;
3653:
3654: -- Debug Message
3655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3656: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3657: END IF;
3658: -- Standard call to get message count and if count is 1, get message info.
3659: FND_MSG_PUB.Count_And_Get
3660: (p_count => x_msg_count,
3738: END IF;
3739:
3740: -- Debug Message
3741: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3742: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3743: END IF;
3744:
3745:
3746: -- Initialize API return status to SUCCESS
3752: -- Api body
3753: --
3754: -- Debug Message
3755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3756: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
3757: END IF;
3758:
3759: BEGIN
3760: OZF_CODE_CONVERSION_PKG.Delete_Supp_Code_Conv_Row( p_code_conversion_id => p_code_conversion_id,
3771: END IF;
3772:
3773: -- Debug Message
3774: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3775: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3776: END IF;
3777:
3778: -- Standard call to get message count and if count is 1, get message info.
3779: FND_MSG_PUB.Count_And_Get