PACKAGE BODY: APPS.GMS_COMMON_PKG

Source

1 package body GMS_COMMON_PKG as
2 /* $Header: gmscomnb.pls 115.5 2002/08/01 09:43:36 gnema ship $ */
3 
4   -- ====================================================================
5   -- BUG: 1906458 - Project number/name LOV was fixed to make it runnable
6   --		    on 11i.PA.E.
7   -- ====================================================================
8   p_project_template	varchar2(1) := 'A' ;
9 
10   PROCEDURE set_project_option( x_template	varchar2) is
11   begin
12 	IF x_template = 'TEMPLATE' THEN
13 		p_project_template := 'T' ;
14 	elsif  x_template = 'PROJECT' then
15 		p_project_template := 'P' ;
16 	else
17 		p_project_template := 'A' ;
18 	end if ;
19   END set_project_option ;
20 
21   FUNCTION Is_project_template(x_string varchar2)
22   return NUMBER IS
23   BEGIN
24 	IF x_string = 'Y' and p_project_template = 'T' THEN
25 		return 1;
26 	ELSIF x_string = 'N' and p_project_template = 'P' THEN
27 		return 1;
28 	ELSIF p_project_template = 'A' THEN
29 		return 1;
30 	END IF ;
31 
32 	return 0 ;
33 
34   END Is_project_template ;
35 
36   -- ====================================================================
37   -- BUG: 1906458 -  End of fixes.
38   -- ====================================================================
39 
40   FUNCTION isnumber(X_string varchar2) return char
41   is
42     lx_num  NUMBER ;
43   begin
44     lx_num := to_number(X_string) ;
45     return 'Y' ;
46   exception
47     when value_error THEN
48         return 'N'  ;
49     when others THEN
50        RAISE ;
51   end isnumber ;
52 
53 function getmax_award_number return number
54 is
55  l_max_awnum NUMBER ;
56 BEGIN
57  Select max(to_number(award_number))
58   into l_max_awnum
59   from gms_awards
60  where gms_common_pkg.isnumber(award_number) = 'Y' ;
61 
62  return ( l_max_awnum) ;
63 EXCEPTION
64  when others then
65    RAISE ;
66 END getmax_award_number ;
67 
68 
69 end GMS_COMMON_PKG;