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