[Home] [Help]
PACKAGE BODY: APPS.ONT_PRICE_LIST_DEF_UTIL
Source
1 PACKAGE BODY ONT_PRICE_LIST_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_PRICE_LIST_Def_Util
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package ONT_PRICE_LIST_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_PRICE_LIST_Def_Util';
25
26
27 g_database_object_name varchar2(30) :='OE_PRICE_LISTS_V';
28
29
30 FUNCTION Get_Attr_Val_Varchar2
31 ( p_attr_code IN VARCHAR2
32 , p_record IN OE_PRICE_LISTS_V%ROWTYPE
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36
37 IF p_attr_code =('FREIGHT_TERMS_CODE') THEN
38 IF NVL(p_record.FREIGHT_TERMS_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
39 RETURN p_record.FREIGHT_TERMS_CODE;
40 ELSE
41 RETURN NULL;
42 END IF;
43 ELSIF p_attr_code =('PAYMENT_TERM_ID') THEN
44 IF NVL(p_record.TERMS_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
45 RETURN p_record.TERMS_ID;
46 ELSE
47 RETURN NULL;
48 END IF;
49 ELSIF p_attr_code =('PRICE_LIST_ID') THEN
50 IF NVL(p_record.PRICE_LIST_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
51 RETURN p_record.PRICE_LIST_ID;
52 ELSE
53 RETURN NULL;
54 END IF;
55 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
56 IF NVL(p_record.SHIP_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
57 RETURN p_record.SHIP_METHOD_CODE;
58 ELSE
59 RETURN NULL;
60 END IF;
61 ELSIF p_attr_code =('TRANSACTIONAL_CURR_CODE') THEN
62 IF NVL(p_record.CURRENCY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
63 RETURN p_record.CURRENCY_CODE;
64 ELSE
65 RETURN NULL;
66 END IF;
67 ELSE
68 RETURN NULL;
69 END IF;
70 END Get_Attr_Val_Varchar2;
71
72
73 FUNCTION Get_Attr_Val_Date
74 ( p_attr_code IN VARCHAR2
75 , p_record IN OE_PRICE_LISTS_V%ROWTYPE
76 ) RETURN DATE
77 IS
78 BEGIN
79
80 IF p_attr_code =('FREIGHT_TERMS_CODE') THEN
81 IF NVL(p_record.FREIGHT_TERMS_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
82 RETURN to_date(p_record.FREIGHT_TERMS_CODE,'RRRR/MM/DD HH24:MI:SS');
83 ELSE
84 RETURN NULL;
85 END IF;
86 ELSIF p_attr_code =('PAYMENT_TERM_ID') THEN
87 IF NVL(p_record.TERMS_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
88 RETURN to_date(p_record.TERMS_ID,'RRRR/MM/DD HH24:MI:SS');
89 ELSE
90 RETURN NULL;
91 END IF;
92 ELSIF p_attr_code =('PRICE_LIST_ID') THEN
93 IF NVL(p_record.PRICE_LIST_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
94 RETURN to_date(p_record.PRICE_LIST_ID,'RRRR/MM/DD HH24:MI:SS');
95 ELSE
96 RETURN NULL;
97 END IF;
98 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
99 IF NVL(p_record.SHIP_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
100 RETURN to_date(p_record.SHIP_METHOD_CODE,'RRRR/MM/DD HH24:MI:SS');
101 ELSE
102 RETURN NULL;
103 END IF;
104 ELSIF p_attr_code =('TRANSACTIONAL_CURR_CODE') THEN
105 IF NVL(p_record.CURRENCY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
106 RETURN to_date(p_record.CURRENCY_CODE,'RRRR/MM/DD HH24:MI:SS');
107 ELSE
108 RETURN NULL;
109 END IF;
110 ELSE
111 RETURN NULL;
112 END IF;
113
114 END Get_Attr_Val_Date;
115
116
117 PROCEDURE Clear_PRICE_LIST_Cache
118 IS
119 BEGIN
120 g_cached_record.PRICE_LIST_ID := null;
121 END Clear_PRICE_LIST_Cache;
122
123
124 FUNCTION Sync_PRICE_LIST_Cache
125 ( p_PRICE_LIST_ID IN NUMBER
126
127
128 ) RETURN NUMBER
129 IS
130 CURSOR cache IS
131 SELECT * FROM OE_PRICE_LISTS_V
132 WHERE PRICE_LIST_ID = p_PRICE_LIST_ID
133 ;
134 BEGIN
135
136 IF (NVL(p_PRICE_LIST_ID,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM)
137 THEN
138 RETURN 0 ;
139 ELSIF (NVL(g_cached_record.PRICE_LIST_ID,FND_API.G_MISS_NUM) <> p_PRICE_LIST_ID)
140 THEN
141 Clear_PRICE_LIST_Cache;
142 Open cache;
143 FETCH cache into g_cached_record;
144 IF cache%NOTFOUND THEN
145 RETURN 0;
146 END IF;
147 Close cache;
148 RETURN 1 ;
149 END IF;
150
151 RETURN 1 ;
152 EXCEPTION
153 WHEN OTHERS THEN
154 RETURN 0 ;
155 END Sync_PRICE_LIST_Cache;
156
157
158 END ONT_PRICE_LIST_Def_Util;