PACKAGE BODY: APPS.ASG_OA_BASE

Source

1 PACKAGE BODY ASG_OA_BASE as
2 /* $Header: asgoabaseb.pls 120.2 2005/07/26 01:56:52 ravir noship $ */
3 
4 FUNCTION getRealTime(sec in number) return varchar2
5 is
6    h varchar2(10);
7    m varchar2(10);
8    s varchar2(10);
9    temp number;
10 begin
11     select to_char(lpad(trunc(sec/3600),2,'0')) into h from dual;
12     select  mod(sec, 3600) into temp from dual;
13     select to_char(lpad(trunc(temp/60),2,'0')) into m from dual;
14     select  mod(temp, 60) into s from dual;
15     return h || ':' || m ||':' || s;
16 end getRealTime;
17 
18 FUNCTION getEnabled (code in VARCHAR2,
19                     sign1 in number,
20                     status_code in varchar,
21                     sign2 in number) return varchar2
22 is
23 l_enabled varchar2(1);
24 begin
25     if ((code = 'END') and (status_code = 'Y' )and (sign1 = -1) and (sign2 = -1)) then
26         l_enabled := 'Y';
27     else
28         l_enabled := 'N';
29     end if;
30     return l_enabled;
31 end getEnabled;
32 
33 end asg_oa_base;