170: || l_progress, 'Entering Procedure '||l_api_name);
171: END IF;
172: END IF;
173:
174: -- Standard call to check for call compatibility
175: l_progress := '010';
176: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
828: || l_progress, 'Entering Procedure '||l_api_name);
829: END IF;
830: END IF;
831:
832: -- Standard call to check for call compatibility
833: l_progress := '010';
834: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
836: END IF;