[Home] [Help]
PACKAGE BODY: APPS.ONT_SOURCE_TYPE_DEF_UTIL
Source
1 PACKAGE BODY ONT_SOURCE_TYPE_Def_Util AS
2 /* $Header: OEXDFWKB.pls 115.0 30-MAR-09 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_SOURCE_TYPE_Def_Util
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package ONT_SOURCE_TYPE_Def_Util
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 30-MAR-09 Created
21 --
22
23 -- Global constant holding the package name
24 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ONT_SOURCE_TYPE_Def_Util';
25
26
27 g_database_object_name varchar2(30) :='OE_AK_SOURCE_TYPE_V';
28
29
30 FUNCTION Get_Attr_Val_Varchar2
31 ( p_attr_code IN VARCHAR2
32 , p_record IN OE_AK_SOURCE_TYPE_V%ROWTYPE
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36
37 IF p_attr_code =('SOURCE_TYPE_CODE') THEN
38 IF NVL(p_record.SOURCE_TYPE_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
39 RETURN p_record.SOURCE_TYPE_CODE;
40 ELSE
41 RETURN NULL;
42 END IF;
43 ELSE
44 RETURN NULL;
45 END IF;
46 END Get_Attr_Val_Varchar2;
47
48
49 FUNCTION Get_Attr_Val_Date
50 ( p_attr_code IN VARCHAR2
51 , p_record IN OE_AK_SOURCE_TYPE_V%ROWTYPE
52 ) RETURN DATE
53 IS
54 BEGIN
55
56 IF p_attr_code =('SOURCE_TYPE_CODE') THEN
57 IF NVL(p_record.SOURCE_TYPE_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
58 RETURN to_date(p_record.SOURCE_TYPE_CODE,'RRRR/MM/DD HH24:MI:SS');
59 ELSE
60 RETURN NULL;
61 END IF;
62 ELSE
63 RETURN NULL;
64 END IF;
65
66 END Get_Attr_Val_Date;
67
68
69 PROCEDURE Clear_SOURCE_TYPE_Cache
70 IS
71 BEGIN
72 g_cached_record.SOURCE_TYPE_CODE := null;
73 END Clear_SOURCE_TYPE_Cache;
74
75
76 FUNCTION Sync_SOURCE_TYPE_Cache
77 ( p_SOURCE_TYPE_CODE IN VARCHAR2
78
79
80 ) RETURN NUMBER
81 IS
82 CURSOR cache IS
83 SELECT * FROM OE_AK_SOURCE_TYPE_V
84 WHERE SOURCE_TYPE_CODE = p_SOURCE_TYPE_CODE
85 ;
86 BEGIN
87
88 IF (NVL(p_SOURCE_TYPE_CODE,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
89 THEN
90 RETURN 0 ;
91 ELSIF (NVL(g_cached_record.SOURCE_TYPE_CODE,FND_API.G_MISS_CHAR) <> p_SOURCE_TYPE_CODE)
92 THEN
93 Clear_SOURCE_TYPE_Cache;
94 Open cache;
95 FETCH cache into g_cached_record;
96 IF cache%NOTFOUND THEN
97 RETURN 0;
98 END IF;
99 Close cache;
100 RETURN 1 ;
101 END IF;
102
103 RETURN 1 ;
104 EXCEPTION
105 WHEN OTHERS THEN
106 RETURN 0 ;
107 END Sync_SOURCE_TYPE_Cache;
108
109
110 END ONT_SOURCE_TYPE_Def_Util;