1 PACKAGE BODY FND_INSTALLATION2 AS
2 /* $Header: AFINST2B.pls 115.1 99/07/16 23:22:57 porting sh $ */
3
4 --
5 -- Public Functions
6 --
7
8 FUNCTION get (appl_id IN INTEGER,
9 dep_appl_id IN INTEGER,
10 status OUT VARCHAR2,
11 industry OUT VARCHAR2)
12 RETURN varchar2 IS
13 l_status varchar2(1);
14 l_industry varchar2(1);
15 l_return boolean;
16 BEGIN
17 status := 'N';
18 industry := 'N';
19
20 l_return := fnd_installation.get(appl_id, dep_appl_id, l_status,
21 l_industry);
22 status := l_status;
23 industry := l_industry;
24
25 if l_return then
26 return('TRUE');
27 else
28 return('FALSE');
29 end if;
30 EXCEPTION
31 when others then
32 return('FALSE');
33 END get;
34
35 FUNCTION get_app_info (application_short_name in varchar2,
36 status out varchar2,
37 industry out varchar2,
38 oracle_schema out varchar2)
39 RETURN boolean IS
40 l_status varchar2(1);
41 l_industry varchar2(1);
42 l_oracle_schema varchar2(30);
43 l_return boolean;
44 BEGIN
45 status := 'N';
46 industry := 'N';
47 oracle_schema := null;
48
49 l_return := fnd_installation.get_app_info(application_short_name,
50 l_status, l_industry, l_oracle_schema);
51
52 status := l_status;
53 industry := l_industry;
54 oracle_schema := l_oracle_schema;
55 return(l_return);
56 EXCEPTION
57 when others then
58 return(FALSE);
59 END get_app_info;
60
61 FUNCTION get_app_info_other (application_short_name in varchar2,
62 target_schema in varchar2,
63 status out varchar2,
64 industry out varchar2,
65 oracle_schema out varchar2)
66 RETURN boolean IS
67 l_status varchar2(1);
68 l_industry varchar2(1);
69 l_oracle_schema varchar2(30);
70 l_return boolean;
71 BEGIN
72 status := 'N';
73 industry := 'N';
74 oracle_schema := null;
75
76 l_return := fnd_installation.get_app_info_other(application_short_name,
77 target_schema, l_status, l_industry, l_oracle_schema);
78
79 status := l_status;
80 industry := l_industry;
81 oracle_schema := l_oracle_schema;
82 return(l_return);
83 EXCEPTION
84 when others then
85 return(FALSE);
86 END get_app_info_other;
87
88 END FND_INSTALLATION2;
[Home] [Help]