[Home] [Help]
PACKAGE BODY: APPS.ONT_ITEM_SHIPTO_DEF_UTIL
Source
1 PACKAGE BODY ONT_ITEM_SHIPTO_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_ITEM_SHIPTO_Def_Util
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package ONT_ITEM_SHIPTO_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_ITEM_SHIPTO_Def_Util';
25
26
27 g_database_object_name varchar2(30) :='OE_AK_TOL_ITEM_SHIPTO_V';
28
29
30 FUNCTION Get_Attr_Val_Varchar2
31 ( p_attr_code IN VARCHAR2
32 , p_record IN OE_AK_TOL_ITEM_SHIPTO_V%ROWTYPE
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36
37 IF p_attr_code =('CUSTOMER_ID') THEN
38 IF NVL(p_record.CUSTOMER_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
39 RETURN p_record.CUSTOMER_ID;
40 ELSE
41 RETURN NULL;
42 END IF;
43 ELSIF p_attr_code =('INTERNAL_ITEM_ID') THEN
44 IF NVL(p_record.INTERNAL_ITEM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
45 RETURN p_record.INTERNAL_ITEM_ID;
46 ELSE
47 RETURN NULL;
48 END IF;
49 ELSIF p_attr_code =('INVENTORY_ORG_ID') THEN
50 IF NVL(p_record.INVENTORY_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
51 RETURN p_record.INVENTORY_ORG_ID;
52 ELSE
53 RETURN NULL;
54 END IF;
55 ELSIF p_attr_code =('OVER_RETURN_TOLERANCE') THEN
56 IF NVL(p_record.OVER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
57 RETURN p_record.OVER_RETURN_TOLERANCE;
58 ELSE
59 RETURN NULL;
60 END IF;
61 ELSIF p_attr_code =('OVER_SHIPMENT_TOLERANCE') THEN
62 IF NVL(p_record.OVER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
63 RETURN p_record.OVER_SHIPMENT_TOLERANCE;
64 ELSE
65 RETURN NULL;
66 END IF;
67 ELSIF p_attr_code =('UNDER_RETURN_TOLERANCE') THEN
68 IF NVL(p_record.UNDER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
69 RETURN p_record.UNDER_RETURN_TOLERANCE;
70 ELSE
71 RETURN NULL;
72 END IF;
73 ELSIF p_attr_code =('UNDER_SHIPMENT_TOLERANCE') THEN
74 IF NVL(p_record.UNDER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
75 RETURN p_record.UNDER_SHIPMENT_TOLERANCE;
76 ELSE
77 RETURN NULL;
78 END IF;
79 ELSE
80 RETURN NULL;
81 END IF;
82 END Get_Attr_Val_Varchar2;
83
84
85 FUNCTION Get_Attr_Val_Date
86 ( p_attr_code IN VARCHAR2
87 , p_record IN OE_AK_TOL_ITEM_SHIPTO_V%ROWTYPE
88 ) RETURN DATE
89 IS
90 BEGIN
91
92 IF p_attr_code =('CUSTOMER_ID') THEN
93 IF NVL(p_record.CUSTOMER_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
94 RETURN to_date(p_record.CUSTOMER_ID,'RRRR/MM/DD HH24:MI:SS');
95 ELSE
96 RETURN NULL;
97 END IF;
98 ELSIF p_attr_code =('INTERNAL_ITEM_ID') THEN
99 IF NVL(p_record.INTERNAL_ITEM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
100 RETURN to_date(p_record.INTERNAL_ITEM_ID,'RRRR/MM/DD HH24:MI:SS');
101 ELSE
102 RETURN NULL;
103 END IF;
104 ELSIF p_attr_code =('INVENTORY_ORG_ID') THEN
105 IF NVL(p_record.INVENTORY_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
106 RETURN to_date(p_record.INVENTORY_ORG_ID,'RRRR/MM/DD HH24:MI:SS');
107 ELSE
108 RETURN NULL;
109 END IF;
110 ELSIF p_attr_code =('OVER_RETURN_TOLERANCE') THEN
111 IF NVL(p_record.OVER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
112 RETURN to_date(p_record.OVER_RETURN_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
113 ELSE
114 RETURN NULL;
115 END IF;
116 ELSIF p_attr_code =('OVER_SHIPMENT_TOLERANCE') THEN
117 IF NVL(p_record.OVER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
118 RETURN to_date(p_record.OVER_SHIPMENT_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
119 ELSE
120 RETURN NULL;
121 END IF;
122 ELSIF p_attr_code =('UNDER_RETURN_TOLERANCE') THEN
123 IF NVL(p_record.UNDER_RETURN_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
124 RETURN to_date(p_record.UNDER_RETURN_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
125 ELSE
126 RETURN NULL;
127 END IF;
128 ELSIF p_attr_code =('UNDER_SHIPMENT_TOLERANCE') THEN
129 IF NVL(p_record.UNDER_SHIPMENT_TOLERANCE, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
130 RETURN to_date(p_record.UNDER_SHIPMENT_TOLERANCE,'RRRR/MM/DD HH24:MI:SS');
131 ELSE
132 RETURN NULL;
133 END IF;
134 ELSE
135 RETURN NULL;
136 END IF;
137
138 END Get_Attr_Val_Date;
139
140
141 PROCEDURE Clear_ITEM_SHIPTO_Cache
142 IS
143 BEGIN
144 g_cached_record.CUSTOMER_ID := null;
145 g_cached_record.INTERNAL_ITEM_ID := null;
146 END Clear_ITEM_SHIPTO_Cache;
147
148
149 FUNCTION Sync_ITEM_SHIPTO_Cache
150 ( p_CUSTOMER_ID IN NUMBER
151 , p_INTERNAL_ITEM_ID IN NUMBER
152
153
154 ) RETURN NUMBER
155 IS
156 CURSOR cache IS
157 SELECT * FROM OE_AK_TOL_ITEM_SHIPTO_V
158 WHERE CUSTOMER_ID = p_CUSTOMER_ID
159 AND INTERNAL_ITEM_ID = p_INTERNAL_ITEM_ID
160 ;
161 BEGIN
162
163 IF (NVL(p_CUSTOMER_ID,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM)
164 OR (NVL(p_INTERNAL_ITEM_ID,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM)
165 THEN
166 RETURN 0 ;
167 ELSIF (NVL(g_cached_record.CUSTOMER_ID,FND_API.G_MISS_NUM) <> p_CUSTOMER_ID)
168 OR (NVL(g_cached_record.INTERNAL_ITEM_ID,FND_API.G_MISS_NUM) <> p_INTERNAL_ITEM_ID)
169 THEN
170 Clear_ITEM_SHIPTO_Cache;
171 Open cache;
172 FETCH cache into g_cached_record;
173 IF cache%NOTFOUND THEN
174 RETURN 0;
175 END IF;
176 Close cache;
177 RETURN 1 ;
178 END IF;
179
180 RETURN 1 ;
181 EXCEPTION
182 WHEN OTHERS THEN
183 RETURN 0 ;
184 END Sync_ITEM_SHIPTO_Cache;
185
186
187 END ONT_ITEM_SHIPTO_Def_Util;