[Home] [Help]
PACKAGE BODY: APPS.AP_WEB_DB_UTIL_PKG
Source
1 PACKAGE BODY AP_WEB_DB_UTIL_PKG AS
2 /* $Header: apwdbutb.pls 115.8 2003/10/15 21:26:06 skoukunt noship $ */
3
4 /* Other or Miscellaneous */
5 -------------------------------------------------------------------
6 PROCEDURE RaiseException(
7 p_calling_sequence IN VARCHAR2,
8 p_debug_info IN VARCHAR2 DEFAULT '',
9 p_set_name IN VARCHAR2 DEFAULT NULL,
10 p_params IN VARCHAR2 DEFAULT ''
11 ) IS
12 -------------------------------------------------------------------
13 BEGIN
14 FND_MESSAGE.SET_NAME('SQLAP', nvl(p_set_name,'AP_DEBUG'));
15 FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
16 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', p_calling_sequence);
17 FND_MESSAGE.SET_TOKEN('DEBUG_INFO', p_debug_info);
18 FND_MESSAGE.SET_TOKEN('PARAMETERS', p_params);
19
20 END RaiseException;
21
22 -------------------------------------------------------------------
23 FUNCTION GetSysDate(
24 p_sysDate OUT NOCOPY VARCHAR2
25 ) RETURN BOOLEAN IS
26 -------------------------------------------------------------------
27 BEGIN
28 SELECT sysdate
29 INTO p_sysDate
30 FROM sys.dual;
31
32 RETURN TRUE;
33
34 EXCEPTION
35 WHEN NO_DATA_FOUND THEN
36 RETURN FALSE;
37
38 WHEN OTHERS THEN
39 RaiseException( 'GetSysDate' );
40 APP_EXCEPTION.RAISE_EXCEPTION;
41 return FALSE;
42
43 END GetSysDate;
44
45 -------------------------------------------------------------------
46 FUNCTION GetFormattedSysDate(
47 p_format IN VARCHAR2,
48 p_formatted_date OUT NOCOPY VARCHAR2
49 ) RETURN BOOLEAN IS
50 -------------------------------------------------------------------
51 BEGIN
52
53 SELECT TO_CHAR(SYSDATE,p_format)
54 INTO p_formatted_date
55 FROM sys.dual;
56
57 RETURN TRUE;
58
59 EXCEPTION
60 WHEN NO_DATA_FOUND THEN
61 RETURN FALSE;
62
63 WHEN OTHERS THEN
64 RaiseException( 'GetFormattedSysDate' );
65 APP_EXCEPTION.RAISE_EXCEPTION;
66 return FALSE;
67
68 END GetFormattedSysDate;
69
70 -----------------------------------------------------
71 FUNCTION DayOfWeek(
72 p_date IN VARCHAR2,
73 p_day_of_week OUT NOCOPY NUMBER
74 ) RETURN BOOLEAN IS
75 -----------------------------------------------------
76 BEGIN
77
78 SELECT mod(to_char(to_date(p_date,AP_WEB_INFRASTRUCTURE_PKG.getDateFormat), 'J')+1, 7)
79 INTO p_day_of_week
80 FROM sys.dual;
81
82 p_day_of_week := p_day_of_week + 1;
83
84 RETURN TRUE;
85
86 EXCEPTION
87 WHEN NO_DATA_FOUND THEN
88 RETURN FALSE;
89
90 WHEN OTHERS THEN
91 RaiseException( 'DayOfWeek' );
92 APP_EXCEPTION.RAISE_EXCEPTION;
93 return FALSE;
94
95 END DayOfWeek;
96
97
98 -----------------------------------------------------
99 FUNCTION GetProductVersion(
100 p_version OUT NOCOPY fndProdInst_prodVer
101 ) RETURN BOOLEAN IS
102 -----------------------------------------------------
103 BEGIN
104
105 SELECT product_version
106 INTO p_version
107 FROM fnd_product_installations
108 WHERE application_id = 200;
109
110 RETURN TRUE;
111 EXCEPTION
112 WHEN NO_DATA_FOUND THEN
113 RETURN FALSE;
114
115 WHEN OTHERS THEN
116 RaiseException( 'GetProductVersion' );
117 APP_EXCEPTION.RAISE_EXCEPTION;
118 return FALSE;
119
120 END GetProductVersion;
121
122 -----------------------------------------------------
123 FUNCTION GetApplicationID RETURN fndApp_appID IS
124 -----------------------------------------------------
125 l_application_id fndApp_appID;
126 BEGIN
127
128 SELECT application_id
129 INTO l_application_id
130 FROM fnd_application
131 WHERE application_short_name = 'SQLAP';
132
133 RETURN l_application_id;
134 EXCEPTION
135 WHEN OTHERS THEN
136 RaiseException( 'GetApplicationID' );
137 APP_EXCEPTION.RAISE_EXCEPTION;
138 return NULL;
139
140 END GetApplicationID;
141
142 function jsPrepString_long(p_string in long,
143 p_alertflag in boolean default FALSE,
144 p_jsargflag in boolean default FALSE)
145 return long is
146
147 temp_string long;
148
149 begin
150
151 -- check for double escapes
152 temp_string := replace(p_string,'\\','\');
153
154 -- replace double quotes
155 IF (p_jsargflag) THEN
156 temp_string := replace(temp_string,'"','\\' || '&' || 'quot;');
157 ELSIF (NOT p_alertflag) THEN
158 temp_string := replace(temp_string,'"','\' || '&' || 'quot;');
159 ELSE
160 temp_string := replace(temp_string,'"','\"');
161 END IF;
162
163 -- replace single quotes
164 IF (p_jsargflag) THEN
165 temp_string := replace(temp_string,'''','\\''');
166 ELSIF (NOT p_alertflag) THEN
167 temp_string := replace(temp_string,'''','\''');
168 END IF;
169
170 -- check for carridge returns
171 temp_string := replace(temp_string, '
172 ', ' ');
173
174 return temp_string;
175
176 end;
177
178 function jsPrepString(p_string in varchar2,
179 p_alertflag in boolean default FALSE,
180 p_jsargflag in boolean default FALSE)
181 return varchar2 is
182
183 begin
184
185 return(substrb(jsPrepString_long(p_string,
186 p_alertflag,
187 p_jsargflag), 1, 2000));
188
189 end;
190
191 Function AtLeastProd16 return boolean is
192 begin
193 return true;
194 end AtLeastProd16;
195
196
197 FUNCTION CharToNumber (p_unformatted_amt IN VARCHAR)
198 RETURN NUMBER
199 IS
200 l_formatmask varchar2(80);
201 l_nls_numeric_char varchar2(5);
202 l_formatted_amt NUMBER;
203 BEGIN
204
205 l_nls_numeric_char := icx_sec.getNLS_PARAMETER('NLS_NUMERIC_CHARACTERS');
206
207 l_formatmask := translate(translate(p_unformatted_amt,'-+0123456789','SS9999999999'),
208 l_nls_numeric_char,'DG');
209
210 l_formatted_amt := to_number(p_unformatted_amt,l_formatmask );
211
212 RETURN l_formatted_amt;
213
214 END CharToNumber;
215
216 END AP_WEB_DB_UTIL_PKG;