PACKAGE BODY: APPS.ONT_CUST_PO_DEF_UTIL

Source

1 PACKAGE BODY ONT_CUST_PO_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_CUST_PO_Def_Util
11 --  
12 --  DESCRIPTION
13 --  
14 --      Body of package ONT_CUST_PO_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_CUST_PO_Def_Util';
25  
26  
27   g_database_object_name varchar2(30) :='OE_AK_CUST_PO_NUMBER_V';
28  
29  
30 FUNCTION Get_Attr_Val_Varchar2
31 (   p_attr_code                     IN  VARCHAR2
32 ,   p_record                        IN  OE_AK_CUST_PO_NUMBER_V%ROWTYPE 
33 ) RETURN VARCHAR2
34 IS
35 BEGIN
36  
37 IF p_attr_code =('CUST_PO_NUMBER') THEN
38   IF NVL(p_record.CUSTOMER_PO_NUMBER, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
39   RETURN p_record.CUSTOMER_PO_NUMBER;
40   ELSE
41   RETURN NULL; 
42   END IF;
43 ELSE
44 RETURN NULL; 
45 END IF;
46 END  Get_Attr_Val_Varchar2;
47  
48  
49 FUNCTION Get_Attr_Val_Date
50 (   p_attr_code                     IN  VARCHAR2
51 ,   p_record                        IN  OE_AK_CUST_PO_NUMBER_V%ROWTYPE 
52 ) RETURN DATE
53 IS
54 BEGIN
55  
56 IF p_attr_code =('CUST_PO_NUMBER') THEN
57     IF NVL(p_record.CUSTOMER_PO_NUMBER, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
58     RETURN to_date(p_record.CUSTOMER_PO_NUMBER,'RRRR/MM/DD HH24:MI:SS');
59     ELSE
60     RETURN NULL; 
61     END IF;
62 ELSE
63 RETURN NULL; 
64 END IF;
65  
66 END  Get_Attr_Val_Date;
67  
68  
69   PROCEDURE Clear_CUST_PO_Cache
70   IS  
71   BEGIN  
72   g_cached_record.CUSTOMER_PO_NUMBER := null;
73    END Clear_CUST_PO_Cache;
74  
75  
76 FUNCTION Sync_CUST_PO_Cache
77 (   p_CUSTOMER_PO_NUMBER            IN  VARCHAR2
78  
79  
80 ) RETURN NUMBER
81 IS
82 CURSOR cache IS 
83   SELECT * FROM   OE_AK_CUST_PO_NUMBER_V
84   WHERE CUSTOMER_PO_NUMBER  = p_CUSTOMER_PO_NUMBER
85   ;
86 BEGIN
87  
88 IF (NVL(p_CUSTOMER_PO_NUMBER,FND_API.G_MISS_CHAR)  = FND_API.G_MISS_CHAR) 
89 THEN
90   RETURN 0 ;
91 ELSIF (NVL(g_cached_record.CUSTOMER_PO_NUMBER,FND_API.G_MISS_CHAR)  <>  p_CUSTOMER_PO_NUMBER) 
92 THEN
93   Clear_CUST_PO_Cache;
94   Open cache;
95   FETCH cache into g_cached_record;
96   IF cache%NOTFOUND THEN
97     RETURN 0;
98   END IF;
99   Close cache;
100   RETURN 1 ;
101 END IF;
102  
103   RETURN 1 ;
104 EXCEPTION
105   WHEN OTHERS THEN 
106   RETURN 0 ;
107 END Sync_CUST_PO_Cache;
108  
109  
110 END ONT_CUST_PO_Def_Util;