eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.ONT_SHIP_SET_DEF_UTIL

Source


1 PACKAGE BODY ONT_SHIP_SET_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_SHIP_SET_Def_Util
11 --  
12 --  DESCRIPTION
13 --  
14 --      Body of package ONT_SHIP_SET_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_SHIP_SET_Def_Util';
25  
26  
27   g_database_object_name varchar2(30) :='OE_AK_SHIP_SETS_V';
28  
29  
30 FUNCTION Get_Attr_Val_Varchar2
31 (   p_attr_code                     IN  VARCHAR2
32 ,   p_record                        IN  OE_AK_SHIP_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_DATE') THEN
44   IF NVL(p_record.SCHEDULE_SHIP_DATE, FND_API.G_MISS_DATE) <> FND_API.G_MISS_DATE THEN
45   RETURN p_record.SCHEDULE_SHIP_DATE;
46   ELSE
47   RETURN NULL; 
48   END IF;
49 ELSIF p_attr_code =('SET_ID') THEN
50   IF NVL(p_record.SET_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
51   RETURN p_record.SET_ID;
52   ELSE
53   RETURN NULL; 
54   END IF;
55 ELSIF p_attr_code =('SHIPMENT_PRIORITY_CODE') THEN
56   IF NVL(p_record.SHIPMENT_PRIORITY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
57   RETURN p_record.SHIPMENT_PRIORITY_CODE;
58   ELSE
59   RETURN NULL; 
60   END IF;
61 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
62   IF NVL(p_record.SHIPPING_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
63   RETURN p_record.SHIPPING_METHOD_CODE;
64   ELSE
65   RETURN NULL; 
66   END IF;
67 ELSIF p_attr_code =('SHIP_FROM_ORG_ID') THEN
68   IF NVL(p_record.SHIP_FROM_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
69   RETURN p_record.SHIP_FROM_ORG_ID;
70   ELSE
71   RETURN NULL; 
72   END IF;
73 ELSIF p_attr_code =('SHIP_TO_ORG_ID') THEN
74   IF NVL(p_record.SHIP_TO_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
75   RETURN p_record.SHIP_TO_ORG_ID;
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_SHIP_SETS_V%ROWTYPE 
88 ) RETURN DATE
89 IS
90 BEGIN
91  
92 IF p_attr_code =('SCHEDULE_DATE') THEN
93     IF NVL(p_record.SCHEDULE_SHIP_DATE, FND_API.G_MISS_DATE) <> FND_API.G_MISS_DATE THEN
94     RETURN p_record.SCHEDULE_SHIP_DATE;
95     ELSE
96     RETURN NULL; 
97     END IF;
98 ELSIF p_attr_code =('FREIGHT_CARRIER_CODE') THEN
99     IF NVL(p_record.FREIGHT_CARRIER_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
100     RETURN to_date(p_record.FREIGHT_CARRIER_CODE,'RRRR/MM/DD HH24:MI:SS');
101     ELSE
102     RETURN NULL; 
103     END IF;
104 ELSIF p_attr_code =('SET_ID') THEN
105     IF NVL(p_record.SET_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
106     RETURN to_date(p_record.SET_ID,'RRRR/MM/DD HH24:MI:SS');
107     ELSE
108     RETURN NULL; 
109     END IF;
110 ELSIF p_attr_code =('SHIPMENT_PRIORITY_CODE') THEN
111     IF NVL(p_record.SHIPMENT_PRIORITY_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
112     RETURN to_date(p_record.SHIPMENT_PRIORITY_CODE,'RRRR/MM/DD HH24:MI:SS');
113     ELSE
114     RETURN NULL; 
115     END IF;
116 ELSIF p_attr_code =('SHIPPING_METHOD_CODE') THEN
117     IF NVL(p_record.SHIPPING_METHOD_CODE, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
118     RETURN to_date(p_record.SHIPPING_METHOD_CODE,'RRRR/MM/DD HH24:MI:SS');
119     ELSE
120     RETURN NULL; 
121     END IF;
122 ELSIF p_attr_code =('SHIP_FROM_ORG_ID') THEN
123     IF NVL(p_record.SHIP_FROM_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
124     RETURN to_date(p_record.SHIP_FROM_ORG_ID,'RRRR/MM/DD HH24:MI:SS');
125     ELSE
126     RETURN NULL; 
127     END IF;
128 ELSIF p_attr_code =('SHIP_TO_ORG_ID') THEN
129     IF NVL(p_record.SHIP_TO_ORG_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
130     RETURN to_date(p_record.SHIP_TO_ORG_ID,'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_SHIP_SET_Cache
142   IS  
143   BEGIN  
144   g_cached_record.SET_ID := null;
145    END Clear_SHIP_SET_Cache;
146  
147  
148 FUNCTION Sync_SHIP_SET_Cache
149 (   p_SET_ID                        IN  NUMBER
150  
151  
152 ) RETURN NUMBER
153 IS
154 CURSOR cache IS 
155   SELECT * FROM   OE_AK_SHIP_SETS_V
156   WHERE SET_ID  = p_SET_ID
157   ;
158 BEGIN
159  
160 IF (NVL(p_SET_ID,FND_API.G_MISS_NUM)  = FND_API.G_MISS_NUM) 
161 THEN
162   RETURN 0 ;
163 ELSIF (NVL(g_cached_record.SET_ID,FND_API.G_MISS_NUM)  <>  p_SET_ID) 
164 THEN
165   Clear_SHIP_SET_Cache;
166   Open cache;
167   FETCH cache into g_cached_record;
168   IF cache%NOTFOUND THEN
169     RETURN 0;
170   END IF;
171   Close cache;
172   RETURN 1 ;
173 END IF;
174  
175   RETURN 1 ;
176 EXCEPTION
177   WHEN OTHERS THEN 
178   RETURN 0 ;
179 END Sync_SHIP_SET_Cache;
180  
181  
182 END ONT_SHIP_SET_Def_Util;