1 package body GMA_CORE_PKG AS
2 /* $Header: GMACOREB.pls 115.8 2002/12/03 21:58:22 appldev ship $ */
3 FUNCTION get_date_constant(V_constant IN VARCHAR2) RETURN VARCHAR2 IS
4 begin
5 IF (V_constant in ('SY$MIN_DATE')) THEN
6 RETURN to_char(get_date_constant_d('SY$MIN_DATE'), 'DD-MON-YYYY HH24:MI:SS');
7 ELSIF (V_constant in ('SY$MAX_DATE')) THEN
8 RETURN to_char(get_date_constant_d('SY$MAX_DATE'), 'DD-MON-YYYY HH24:MI:SS');
9 ELSIF (V_constant in ('SY$ZERODATE')) THEN
10 RETURN to_char(get_date_constant_d('SY$ZERODATE'), 'DD-MON-YYYY');
11 -- Bug #2480810 (JKB) Changed above hard-coded values to read the profiles.
12 -- Bug #2607567 (JKB) Removed the time from the SY$ZERODATE value.
13 -- Bug #2626977 (JKB) Changed to call the new function added below.
14 END IF;
15 end get_date_constant;
16
17 FUNCTION get_date_constant_d(V_constant IN VARCHAR2) RETURN DATE IS
18 begin
19 IF (V_constant in ('SY$MIN_DATE')) THEN
20 RETURN to_date(fnd_profile.value_wnps('SY$MIN_DATE'),'YYYY/MM/DD HH24:MI:SS');
21 ELSIF (V_constant in ('SY$MAX_DATE')) THEN
22 RETURN to_date(fnd_profile.value_wnps('SY$MAX_DATE'),'YYYY/MM/DD HH24:MI:SS');
23 ELSIF (V_constant in ('SY$ZERODATE')) THEN
24 RETURN to_date(fnd_profile.value_wnps('SY$ZERODATE'),'YYYY/MM/DD HH24:MI:SS');
25 END IF;
26 end get_date_constant_d;
27
28 PROCEDURE check_product_installed (V_constant IN VARCHAR2,
29 V_status OUT NOCOPY VARCHAR2) IS
30 dummy VARCHAR2(40);
31 ret BOOLEAN;
32 BEGIN
33 ret := fnd_installation.get_app_info(V_constant, V_status, dummy, dummy);
34 END check_product_installed;
35
36 end GMA_CORE_PKG;