[Home] [Help]
PACKAGE BODY: APPS.ONT_INV_ORG_DEF_UTIL
Source
1 PACKAGE BODY ONT_INV_ORG_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_INV_ORG_Def_Util
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package ONT_INV_ORG_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_INV_ORG_Def_Util';
25
26
27 g_database_object_name varchar2(30) :='OE_AK_INVOICE_TO_ORGS_V';
28
29
30 FUNCTION Get_Attr_Val_Varchar2
31 ( p_attr_code IN VARCHAR2
32 , p_record IN OE_AK_INVOICE_TO_ORGS_V%ROWTYPE
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36
37 IF p_attr_code =('CONTACT_ID') THEN
38 IF NVL(p_record.CONTACT_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
39 RETURN p_record.CONTACT_ID;
40 ELSE
41 RETURN NULL;
42 END IF;
43 ELSIF p_attr_code =('DEFAULT_LINE_SET') THEN
44 IF NVL(p_record.DEFAULT_LINE_SET, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
45 RETURN p_record.DEFAULT_LINE_SET;
46 ELSE
47 RETURN NULL;
48 END IF;
49 ELSIF p_attr_code =('FOB_POINT_CODE') THEN
50 IF NVL(p_record.FOB_POINT_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
51 RETURN p_record.FOB_POINT_CODE;
52 ELSE
53 RETURN NULL;
54 END IF;
55 ELSIF p_attr_code =('FREIGHT_TERMS_CODE') THEN
56 IF NVL(p_record.FREIGHT_TERMS_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
57 RETURN p_record.FREIGHT_TERMS_CODE;
58 ELSE
59 RETURN NULL;
60 END IF;
61 ELSIF p_attr_code =('ORDER_TYPE_ID') THEN
62 IF NVL(p_record.ORDER_TYPE_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
63 RETURN p_record.ORDER_TYPE_ID;
64 ELSE
65 RETURN NULL;
66 END IF;
67 ELSIF p_attr_code =('ORGANIZATION_ID') THEN
68 IF NVL(p_record.ORGANIZATION_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
69 RETURN p_record.ORGANIZATION_ID;
70 ELSE
71 RETURN NULL;
72 END IF;
73 ELSIF p_attr_code =('OVER_RETURN_TOLERANCE') THEN
74 IF NVL(p_record.OVER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
75 RETURN p_record.OVER_RETURN_TOLERANCE;
76 ELSE
77 RETURN NULL;
78 END IF;
79 ELSIF p_attr_code =('OVER_SHIPMENT_TOLERANCE') THEN
80 IF NVL(p_record.OVER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
81 RETURN p_record.OVER_SHIPMENT_TOLERANCE;
82 ELSE
83 RETURN NULL;
84 END IF;
85 ELSIF p_attr_code =('PAYMENT_TERM_ID') THEN
86 IF NVL(p_record.PAYMENT_TERM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
87 RETURN p_record.PAYMENT_TERM_ID;
88 ELSE
89 RETURN NULL;
90 END IF;
91 ELSIF p_attr_code =('PRICE_LIST_ID') THEN
92 IF NVL(p_record.PRICE_LIST_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
93 RETURN p_record.PRICE_LIST_ID;
94 ELSE
95 RETURN NULL;
96 END IF;
97 ELSIF p_attr_code =('SALESREP_ID') THEN
98 IF NVL(p_record.SALESREP_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
99 RETURN p_record.SALESREP_ID;
100 ELSE
101 RETURN NULL;
102 END IF;
103 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
104 IF NVL(p_record.SHIPPING_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
105 RETURN p_record.SHIPPING_METHOD_CODE;
106 ELSE
107 RETURN NULL;
108 END IF;
109 ELSIF p_attr_code =('SHIP_PARTIAL_ALLOWED') THEN
110 IF NVL(p_record.SHIP_PARTIAL_ALLOWED, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
111 RETURN p_record.SHIP_PARTIAL_ALLOWED;
112 ELSE
113 RETURN NULL;
114 END IF;
115 ELSIF p_attr_code =('UNDER_RETURN_TOLERANCE') THEN
116 IF NVL(p_record.UNDER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
117 RETURN p_record.UNDER_RETURN_TOLERANCE;
118 ELSE
119 RETURN NULL;
120 END IF;
121 ELSIF p_attr_code =('UNDER_SHIPMENT_TOLERANCE') THEN
122 IF NVL(p_record.UNDER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
123 RETURN p_record.UNDER_SHIPMENT_TOLERANCE;
124 ELSE
125 RETURN NULL;
126 END IF;
127 ELSE
128 RETURN NULL;
129 END IF;
130 END Get_Attr_Val_Varchar2;
131
132
133 FUNCTION Get_Attr_Val_Date
134 ( p_attr_code IN VARCHAR2
135 , p_record IN OE_AK_INVOICE_TO_ORGS_V%ROWTYPE
136 ) RETURN DATE
137 IS
138 BEGIN
139
140 IF p_attr_code =('CONTACT_ID') THEN
141 IF NVL(p_record.CONTACT_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
142 RETURN to_date(p_record.CONTACT_ID,'RRRR/MM/DD HH24:MI:SS');
143 ELSE
144 RETURN NULL;
145 END IF;
146 ELSIF p_attr_code =('DEFAULT_LINE_SET') THEN
147 IF NVL(p_record.DEFAULT_LINE_SET, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
148 RETURN to_date(p_record.DEFAULT_LINE_SET,'RRRR/MM/DD HH24:MI:SS');
149 ELSE
150 RETURN NULL;
151 END IF;
152 ELSIF p_attr_code =('FOB_POINT_CODE') THEN
153 IF NVL(p_record.FOB_POINT_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
154 RETURN to_date(p_record.FOB_POINT_CODE,'RRRR/MM/DD HH24:MI:SS');
155 ELSE
156 RETURN NULL;
157 END IF;
158 ELSIF p_attr_code =('FREIGHT_TERMS_CODE') THEN
159 IF NVL(p_record.FREIGHT_TERMS_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
160 RETURN to_date(p_record.FREIGHT_TERMS_CODE,'RRRR/MM/DD HH24:MI:SS');
161 ELSE
162 RETURN NULL;
163 END IF;
164 ELSIF p_attr_code =('ORDER_TYPE_ID') THEN
165 IF NVL(p_record.ORDER_TYPE_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
166 RETURN to_date(p_record.ORDER_TYPE_ID,'RRRR/MM/DD HH24:MI:SS');
167 ELSE
168 RETURN NULL;
169 END IF;
170 ELSIF p_attr_code =('ORGANIZATION_ID') THEN
171 IF NVL(p_record.ORGANIZATION_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
172 RETURN to_date(p_record.ORGANIZATION_ID,'RRRR/MM/DD HH24:MI:SS');
173 ELSE
174 RETURN NULL;
175 END IF;
176 ELSIF p_attr_code =('OVER_RETURN_TOLERANCE') THEN
177 IF NVL(p_record.OVER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
178 RETURN to_date(p_record.OVER_RETURN_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
179 ELSE
180 RETURN NULL;
181 END IF;
182 ELSIF p_attr_code =('OVER_SHIPMENT_TOLERANCE') THEN
183 IF NVL(p_record.OVER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
184 RETURN to_date(p_record.OVER_SHIPMENT_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
185 ELSE
186 RETURN NULL;
187 END IF;
188 ELSIF p_attr_code =('PAYMENT_TERM_ID') THEN
189 IF NVL(p_record.PAYMENT_TERM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
190 RETURN to_date(p_record.PAYMENT_TERM_ID,'RRRR/MM/DD HH24:MI:SS');
191 ELSE
192 RETURN NULL;
193 END IF;
194 ELSIF p_attr_code =('PRICE_LIST_ID') THEN
195 IF NVL(p_record.PRICE_LIST_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
196 RETURN to_date(p_record.PRICE_LIST_ID,'RRRR/MM/DD HH24:MI:SS');
197 ELSE
198 RETURN NULL;
199 END IF;
200 ELSIF p_attr_code =('SALESREP_ID') THEN
201 IF NVL(p_record.SALESREP_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
202 RETURN to_date(p_record.SALESREP_ID,'RRRR/MM/DD HH24:MI:SS');
203 ELSE
204 RETURN NULL;
205 END IF;
206 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
207 IF NVL(p_record.SHIPPING_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
208 RETURN to_date(p_record.SHIPPING_METHOD_CODE,'RRRR/MM/DD HH24:MI:SS');
209 ELSE
210 RETURN NULL;
211 END IF;
212 ELSIF p_attr_code =('SHIP_PARTIAL_ALLOWED') THEN
213 IF NVL(p_record.SHIP_PARTIAL_ALLOWED, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
214 RETURN to_date(p_record.SHIP_PARTIAL_ALLOWED,'RRRR/MM/DD HH24:MI:SS');
215 ELSE
216 RETURN NULL;
217 END IF;
218 ELSIF p_attr_code =('UNDER_RETURN_TOLERANCE') THEN
219 IF NVL(p_record.UNDER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
220 RETURN to_date(p_record.UNDER_RETURN_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
221 ELSE
222 RETURN NULL;
223 END IF;
224 ELSIF p_attr_code =('UNDER_SHIPMENT_TOLERANCE') THEN
225 IF NVL(p_record.UNDER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
226 RETURN to_date(p_record.UNDER_SHIPMENT_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
227 ELSE
228 RETURN NULL;
229 END IF;
230 ELSE
231 RETURN NULL;
232 END IF;
233
234 END Get_Attr_Val_Date;
235
236
237 PROCEDURE Clear_INV_ORG_Cache
238 IS
239 BEGIN
240 g_cached_record.ORGANIZATION_ID := null;
241 END Clear_INV_ORG_Cache;
242
243
244 FUNCTION Sync_INV_ORG_Cache
245 ( p_ORGANIZATION_ID IN NUMBER
246
247
248 ) RETURN NUMBER
249 IS
250 CURSOR cache IS
251 SELECT * FROM OE_AK_INVOICE_TO_ORGS_V
252 WHERE ORGANIZATION_ID = p_ORGANIZATION_ID
253 ;
254 BEGIN
255
256 IF (NVL(p_ORGANIZATION_ID,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM)
257 THEN
258 RETURN 0 ;
259 ELSIF (NVL(g_cached_record.ORGANIZATION_ID,FND_API.G_MISS_NUM) <> p_ORGANIZATION_ID)
260 THEN
261 Clear_INV_ORG_Cache;
262 Open cache;
263 FETCH cache into g_cached_record;
264 IF cache%NOTFOUND THEN
265 RETURN 0;
266 END IF;
267 Close cache;
268 RETURN 1 ;
269 END IF;
270
271 RETURN 1 ;
272 EXCEPTION
273 WHEN OTHERS THEN
274 RETURN 0 ;
275 END Sync_INV_ORG_Cache;
276
277
278 END ONT_INV_ORG_Def_Util;