PACKAGE BODY: APPS.ONT_ORDER_CAT_DEF_UTIL

Source

1 PACKAGE BODY ONT_ORDER_CAT_Def_Util AS
2 /* $Header: OEXDFWKB.pls 115.0 13-AUG-13 23:23:31 appldev ship $ */
3  
4 --  
5 --  Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 --  All rights reserved.
7 --  
8 --  FILENAME
9 --  
10 --      ONT_ORDER_CAT_Def_Util
11 --  
12 --  DESCRIPTION
13 --  
14 --      Body of package ONT_ORDER_CAT_Def_Util
15 --  
16 --  NOTES
17 --  
18 --  HISTORY
19 --  
20 --  13-AUG-13 Created
21 --  
22  
23 --  Global constant holding the package name
24 G_PKG_NAME                    CONSTANT VARCHAR2(30) := 'ONT_ORDER_CAT_Def_Util';
25  
26  
27   g_database_object_name varchar2(30) :='OE_AK_ORDER_CATEGORY_V';
28  
29  
30 FUNCTION Get_Attr_Val_Varchar2
31 (   p_attr_code                     IN  VARCHAR2
32 ,   p_record                        IN  OE_AK_ORDER_CATEGORY_V%ROWTYPE 
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36  
37 IF p_attr_code =('LINE_TRXN_CATEGORY_CODE') THEN
38   IF NVL(p_record.ORDER_CATEGORY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
39   RETURN p_record.ORDER_CATEGORY_CODE;
40   ELSE
41   RETURN NULL; 
42   END IF;
43 ELSIF p_attr_code =('ORDER_CATEGORY_CODE') THEN
44   IF NVL(p_record.ORDER_CATEGORY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
45   RETURN p_record.ORDER_CATEGORY_CODE;
46   ELSE
47   RETURN NULL; 
48   END IF;
49 ELSE
50 RETURN NULL; 
51 END IF;
52 END  Get_Attr_Val_Varchar2;
53  
54  
55 FUNCTION Get_Attr_Val_Date
56 (   p_attr_code                     IN  VARCHAR2
57 ,   p_record                        IN  OE_AK_ORDER_CATEGORY_V%ROWTYPE 
58 ) RETURN DATE
59 IS
60 BEGIN
61  
62 IF p_attr_code =('LINE_TRXN_CATEGORY_CODE') THEN
63     IF NVL(p_record.ORDER_CATEGORY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
64     RETURN to_date(p_record.ORDER_CATEGORY_CODE,'RRRR/MM/DD HH24:MI:SS');
65     ELSE
66     RETURN NULL; 
67     END IF;
68 ELSIF p_attr_code =('ORDER_CATEGORY_CODE') THEN
69     IF NVL(p_record.ORDER_CATEGORY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
70     RETURN to_date(p_record.ORDER_CATEGORY_CODE,'RRRR/MM/DD HH24:MI:SS');
71     ELSE
72     RETURN NULL; 
73     END IF;
74 ELSE
75 RETURN NULL; 
76 END IF;
77  
78 END  Get_Attr_Val_Date;
79  
80  
81   PROCEDURE Clear_ORDER_CAT_Cache
82   IS  
83   BEGIN  
84   g_cached_record.ORDER_CATEGORY_CODE := null;
85    END Clear_ORDER_CAT_Cache;
86  
87  
88 FUNCTION Sync_ORDER_CAT_Cache
89 (   p_ORDER_CATEGORY_CODE           IN  VARCHAR2
90  
91  
92 ) RETURN NUMBER
93 IS
94 CURSOR cache IS 
95   SELECT * FROM   OE_AK_ORDER_CATEGORY_V
96   WHERE ORDER_CATEGORY_CODE  = p_ORDER_CATEGORY_CODE
97   ;
98 BEGIN
99  
100 IF (NVL(p_ORDER_CATEGORY_CODE,FND_API.G_MISS_CHAR)  = FND_API.G_MISS_CHAR) 
101 THEN
102   RETURN 0 ;
103 ELSIF (NVL(g_cached_record.ORDER_CATEGORY_CODE,FND_API.G_MISS_CHAR)  <>  p_ORDER_CATEGORY_CODE) 
104 THEN
105   Clear_ORDER_CAT_Cache;
106   Open cache;
107   FETCH cache into g_cached_record;
108   IF cache%NOTFOUND THEN
109     RETURN 0;
110   END IF;
111   Close cache;
112   RETURN 1 ;
113 END IF;
114  
115   RETURN 1 ;
116 EXCEPTION
117   WHEN OTHERS THEN 
118   RETURN 0 ;
119 END Sync_ORDER_CAT_Cache;
120  
121  
122 END ONT_ORDER_CAT_Def_Util;