93: RETURN (l_product_exists);*/
94:
95: l_product_exists := EGO_COMMON_PVT.Is_EGO_Installed(1.0, '');
96: IF (l_product_exists = 'T') THEN
97: RETURN FND_API.G_RET_STS_SUCCESS;
98: ELSE
99: RETURN FND_API.G_RET_STS_ERROR;
100: END IF;
101: EXCEPTION
95: l_product_exists := EGO_COMMON_PVT.Is_EGO_Installed(1.0, '');
96: IF (l_product_exists = 'T') THEN
97: RETURN FND_API.G_RET_STS_SUCCESS;
98: ELSE
99: RETURN FND_API.G_RET_STS_ERROR;
100: END IF;
101: EXCEPTION
102: WHEN OTHERS THEN
103: RETURN FND_API.G_RET_STS_ERROR;
99: RETURN FND_API.G_RET_STS_ERROR;
100: END IF;
101: EXCEPTION
102: WHEN OTHERS THEN
103: RETURN FND_API.G_RET_STS_ERROR;
104: END Check_CM_Existance;
105:
106: Procedure Implement_AML_Changes (
107: p_api_version IN NUMBER,
195: 'p_change_line_id:'||p_change_line_id
196: );
197:
198: -- standard check for API validation
199: IF NOT FND_API.Compatible_API_Call (l_api_version,
200: p_api_version,
201: l_api_name,
202: G_PKG_NAME) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: IF NOT FND_API.Compatible_API_Call (l_api_version,
200: p_api_version,
201: l_api_name,
202: G_PKG_NAME) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205: IF (p_change_id IS NULL AND p_change_line_id IS NULL) THEN
206: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
207: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
205: IF (p_change_id IS NULL AND p_change_line_id IS NULL) THEN
206: fnd_message.set_name('EGO','EGO_MAND_PARAM_MISSING');
207: fnd_message.set_token('PROGRAM', G_PKG_NAME || l_api_name);
208: fnd_msg_pub.add;
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: x_msg_count := 1;
211: fnd_msg_pub.Count_And_Get
212: (p_count => x_msg_count
213: ,p_data => x_msg_data
245: l_login_id := FND_GLOBAL.Conc_Login_Id;
246: l_sysdate := SYSDATE;
247:
248: -- create save point
249: IF FND_API.To_Boolean(p_commit) THEN
250: SAVEPOINT IMPLEMENT_AML_CHANGES;
251: END IF;
252:
253: -- Initialize message list
250: SAVEPOINT IMPLEMENT_AML_CHANGES;
251: END IF;
252:
253: -- Initialize message list
254: IF FND_API.To_Boolean(p_init_msg_list) THEN
255: FND_MSG_PUB.Initialize;
256: END IF;
257:
258: FOR l_pend_index IN 1..l_pending_row_count LOOP
557: ||' ACD type:'||l_acd_type_tbl(l_pend_index)
558: );
559: END LOOP;
560:
561: IF FND_API.To_Boolean(p_commit) THEN
562: COMMIT WORK;
563: --calling the Sync Index only if the work is committed.
564: --if needed else where before commit or if the commit is
565: --called else where before this commit pls call the same method.
579: ,p_message => ' returning with status '||x_return_status
580: );
581:
582: EXCEPTION
583: WHEN FND_API.G_EXC_ERROR THEN
584: IF FND_API.To_Boolean(p_commit) THEN
585: ROLLBACK TO IMPLEMENT_AML_CHANGES;
586: END IF;
587: x_return_status := G_RET_STS_ERROR;
580: );
581:
582: EXCEPTION
583: WHEN FND_API.G_EXC_ERROR THEN
584: IF FND_API.To_Boolean(p_commit) THEN
585: ROLLBACK TO IMPLEMENT_AML_CHANGES;
586: END IF;
587: x_return_status := G_RET_STS_ERROR;
588: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
584: IF FND_API.To_Boolean(p_commit) THEN
585: ROLLBACK TO IMPLEMENT_AML_CHANGES;
586: END IF;
587: x_return_status := G_RET_STS_ERROR;
588: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
589: ,p_count => x_msg_count
590: ,p_data => x_msg_data);
591: log_now (p_log_level => FND_LOG.LEVEL_EXCEPTION
592: ,p_module => l_api_name
591: log_now (p_log_level => FND_LOG.LEVEL_EXCEPTION
592: ,p_module => l_api_name
593: ,p_message => 'Expected Error as Exception '||x_msg_count ||'-'|| x_msg_data
594: );
595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596: IF FND_API.To_Boolean(p_commit) THEN
597: ROLLBACK TO IMPLEMENT_AML_CHANGES;
598: END IF;
599: x_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
592: ,p_module => l_api_name
593: ,p_message => 'Expected Error as Exception '||x_msg_count ||'-'|| x_msg_data
594: );
595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596: IF FND_API.To_Boolean(p_commit) THEN
597: ROLLBACK TO IMPLEMENT_AML_CHANGES;
598: END IF;
599: x_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
600: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
596: IF FND_API.To_Boolean(p_commit) THEN
597: ROLLBACK TO IMPLEMENT_AML_CHANGES;
598: END IF;
599: x_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
600: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
601: ,p_count => x_msg_count
602: ,p_data => x_msg_data);
603: log_now (p_log_level => FND_LOG.LEVEL_EXCEPTION
604: ,p_module => l_api_name
604: ,p_module => l_api_name
605: ,p_message => 'Unexpected Error as Exception '||x_msg_count ||'-'|| x_msg_data
606: );
607: WHEN OTHERS THEN
608: IF FND_API.To_Boolean(p_commit) THEN
609: ROLLBACK TO IMPLEMENT_AML_CHANGES;
610: END IF;
611: IF c_get_pending_data%ISOPEN THEN
612: CLOSE c_get_pending_data;
624: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
625: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
626: FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
627: FND_MSG_PUB.Add;
628: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
629: ,p_count => x_msg_count
630: ,p_data => x_msg_data);
631: END Implement_AML_Changes;
632:
671:
672: BEGIN
673:
674: -- standard check for API validation
675: IF NOT FND_API.Compatible_API_Call (l_api_version,
676: p_api_version,
677: l_api_name,
678: G_PKG_NAME) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: IF NOT FND_API.Compatible_API_Call (l_api_version,
676: p_api_version,
677: l_api_name,
678: G_PKG_NAME) THEN
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
682: IF p_change_id IS NULL
683: AND
686: RETURN;
687: END IF;
688:
689: -- Initialize message list
690: IF FND_API.To_Boolean(p_init_msg_list) THEN
691: FND_MSG_PUB.Initialize;
692: END IF;
693:
694: IF FND_API.To_Boolean(p_commit) THEN
690: IF FND_API.To_Boolean(p_init_msg_list) THEN
691: FND_MSG_PUB.Initialize;
692: END IF;
693:
694: IF FND_API.To_Boolean(p_commit) THEN
695: SAVEPOINT DELETE_AML_PENDING_CHANGES;
696: END IF;
697:
698: IF p_inventory_item_id IS NULL
721: -- AND acd_type = p_acd_type
722: AND implmentation_date IS NULL;
723: END IF;
724:
725: IF FND_API.To_Boolean(p_commit) THEN
726: COMMIT WORK;
727: END IF;
728: x_return_status := G_RET_STS_SUCCESS;
729:
727: END IF;
728: x_return_status := G_RET_STS_SUCCESS;
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: x_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
733: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
734: ,p_count => x_msg_count
735: ,p_data => x_msg_data);
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: x_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
733: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
734: ,p_count => x_msg_count
735: ,p_data => x_msg_data);
736: WHEN OTHERS THEN
737: log_now (p_log_level => FND_LOG.LEVEL_EXCEPTION
737: log_now (p_log_level => FND_LOG.LEVEL_EXCEPTION
738: ,p_module => l_api_name
739: ,p_message => 'Exception '||SQLERRM
740: );
741: IF FND_API.To_Boolean(p_commit) THEN
742: ROLLBACK TO DELETE_AML_PENDING_CHANGES;
743: END IF;
744: x_return_status := G_RET_STS_UNEXP_ERROR;
745: -- for PL/SQL errors
747: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
748: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
749: FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
750: FND_MSG_PUB.Add;
751: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
752: ,p_count => x_msg_count
753: ,p_data => x_msg_data);
754:
755: END Delete_AML_Pending_Changes;
852:
853: BEGIN
854: x_return_status := G_EGO_SHORT_NO;
855: -- standard check for API validation
856: IF NOT FND_API.Compatible_API_Call (l_api_version,
857: p_api_version,
858: l_api_name,
859: G_PKG_NAME) THEN
860: RETURN;
1073:
1074: BEGIN
1075: l_return_status := G_EGO_SHORT_YES;
1076: -- standard check for API validation
1077: IF NOT FND_API.Compatible_API_Call (l_api_version,
1078: p_api_version,
1079: l_api_name,
1080: G_PKG_NAME) THEN
1081: RETURN l_return_status;
1277: l_api_version := 1.0;
1278: l_api_name := 'CHECK_NO_MFG_ASSOCIATIONS';
1279: l_message_name := NULL;
1280: x_return_status := G_EGO_SHORT_YES;
1281: IF NOT FND_API.Compatible_API_Call (l_api_version,
1282: p_api_version,
1283: l_api_name,
1284: G_PKG_NAME) THEN
1285: RETURN;