PACKAGE BODY: APPS.GMO_OPER_CERT_UTL

Source

1 PACKAGE BODY gmo_oper_cert_utl AS
2  /*  $Header: GMOUOPCB.pls 120.2 2011/02/24 12:25:38 srpuri ship $ */
3   g_debug               VARCHAR2 (5)  := NVL(fnd_profile.VALUE ('AFLOG_LEVEL'),-1);
4   g_pkg_name   CONSTANT VARCHAR2 (30) := 'GMO_OPER_CERT_UTL';
5 PROCEDURE validate_login (
6      p_user_name IN            VARCHAR2
7     ,p_password        IN            VARCHAR2
8     ,x_return_status      OUT NOCOPY    VARCHAR2)
9   IS
10   isValid BOOLEAN;
11   BEGIN
12   isValid := FND_USER_PKG.ValidateLogin(username => p_user_name,password => p_password);
13   IF(isValid) THEN
14    x_return_status := 'T';
15    ELSE
16    x_return_status := 'F';
17    END IF;
18 END validate_login;
19 END gmo_oper_cert_utl;