[Home] [Help]
PACKAGE BODY: APPS.FND_SIF_DEFINITIONS_PKG
Source
1 package body FND_SIF_DEFINITIONS_PKG as
2 /* $Header: FNDSFDFB.pls 120.0.12020000.3 2013/05/20 04:24:21 vshanmug noship $ */
3
4 procedure INSERT_ROW (
5 X_DEFINITION_NAME in VARCHAR2,
6 X_WSDL_TNS in VARCHAR2,
7 X_WSDL_URL in VARCHAR2,
8 X_APPLICATION_ID in NUMBER,
9 X_STATUS in VARCHAR2,
10 X_INTERACTION_TYPE in VARCHAR2,
11 X_SERVICE in VARCHAR2,
12 X_PORT in VARCHAR2,
13 X_OPERATION in VARCHAR2,
14 X_DISPLAY_NAME in VARCHAR2,
15 X_DESCRIPTION in VARCHAR2,
16 X_LAST_UPDATE_DATE in VARCHAR2,
17 X_OWNER in VARCHAR2
18 ) is
19 l_ROWID VARCHAR2(100);
20 l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
21 l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
22 cursor C is select ROWID from FND_SIF_DEFINITIONS
23 where DEFINITION_NAME = X_DEFINITION_NAME;
24 begin
25 insert into FND_SIF_DEFINITIONS (
26 WSDL_TNS,
27 ATTR1,
28 DEFINITION_NAME,
29 APPLICATION_ID,
30 STATUS,
31 INTERACTION_TYPE,
32 SERVICE,
33 PORT,
34 OPERATION,
35 CREATION_DATE,
36 CREATED_BY,
37 LAST_UPDATE_DATE,
38 LAST_UPDATED_BY,
39 LAST_UPDATE_LOGIN,
40 SECURITY_GROUP_ID
41 ) values (
42 X_WSDL_TNS,
43 X_WSDL_URL,
44 X_DEFINITION_NAME,
45 X_APPLICATION_ID,
46 X_STATUS,
47 X_INTERACTION_TYPE,
48 X_SERVICE,
49 X_PORT,
50 X_OPERATION,
51 l_ludate,
52 l_luby,
53 l_ludate,
54 l_luby,
55 0,
56 FND_GLOBAL.SECURITY_GROUP_ID
57 );
58
59 insert into FND_SIF_DEFINITIONS_TL (
60 DEFINITION_NAME,
61 DISPLAY_NAME,
62 DESCRIPTION,
63 LANGUAGE,
64 SOURCE_LANG,
65 CREATION_DATE,
66 CREATED_BY,
67 LAST_UPDATE_DATE,
68 LAST_UPDATED_BY,
69 LAST_UPDATE_LOGIN,
70 SECURITY_GROUP_ID
71 ) select
72 X_DEFINITION_NAME,
73 X_DISPLAY_NAME,
74 X_DESCRIPTION,
75 L.LANGUAGE_CODE,
76 userenv('LANG'),
77 l_ludate,
78 l_luby,
79 l_ludate,
80 l_luby,
81 0,
82 FND_GLOBAL.SECURITY_GROUP_ID
83 from FND_LANGUAGES L
84 where L.INSTALLED_FLAG in ('I', 'B')
85 and not exists
86 (select NULL
87 from FND_SIF_DEFINITIONS_TL T
88 where T.DEFINITION_NAME = X_DEFINITION_NAME
89 and T.LANGUAGE = L.LANGUAGE_CODE);
90
91 open c;
92 fetch c into l_ROWID;
93 if (c%notfound) then
94 close c;
95 raise_application_error (-20000, 'FND_SIF_DEFINITIONS_PKG.INSERT_ROW: unable to create definition '||X_DEFINITION_NAME);
96 end if;
97 close c;
98 end INSERT_ROW;
99
100 procedure TRANSLATE_ROW (
101 X_DEFINITION_NAME in VARCHAR2,
102 X_DISPLAY_NAME in VARCHAR2,
103 X_DESCRIPTION in VARCHAR2,
104 X_LAST_UPDATE_DATE in VARCHAR2,
105 X_OWNER in VARCHAR2
106 ) is
107 l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
108 l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
109 begin
110 update FND_SIF_DEFINITIONS_TL
111 set DISPLAY_NAME = X_DISPLAY_NAME,
112 DESCRIPTION = X_DESCRIPTION,
113 LAST_UPDATE_DATE = l_ludate,
114 LAST_UPDATED_BY = l_luby,
115 SOURCE_LANG = userenv('LANG')
116 where DEFINITION_NAME = X_DEFINITION_NAME
117 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
118 IF (sql%rowcount=0) THEN
119 raise_application_error (-20000, 'FND_SIF_DEFINITIONS_PKG.TRANSLATE_ROW: unable to find definition '
120 ||X_DEFINITION_NAME||'. Ensure base language is uploaded first');
121 END IF;
122 end TRANSLATE_ROW;
123
124 procedure UPDATE_ROW (
125 X_DEFINITION_NAME in VARCHAR2,
126 X_WSDL_TNS in VARCHAR2,
127 X_WSDL_URL in VARCHAR2,
128 X_APPLICATION_ID in NUMBER,
129 X_STATUS in VARCHAR2,
130 X_INTERACTION_TYPE in VARCHAR2,
131 X_SERVICE in VARCHAR2,
132 X_PORT in VARCHAR2,
133 X_OPERATION in VARCHAR2,
134 X_DISPLAY_NAME in VARCHAR2,
135 X_DESCRIPTION in VARCHAR2,
136 X_LAST_UPDATE_DATE in VARCHAR2,
137 X_OWNER in VARCHAR2
138 ) is
139 l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
140 l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
141 begin
142 update FND_SIF_DEFINITIONS set
143 WSDL_TNS = X_WSDL_TNS,
144 ATTR1 = X_WSDL_URL,
145 APPLICATION_ID = X_APPLICATION_ID,
146 STATUS = X_STATUS,
147 INTERACTION_TYPE = X_INTERACTION_TYPE,
148 SERVICE = X_SERVICE,
149 PORT = X_PORT,
150 OPERATION = X_OPERATION,
151 LAST_UPDATE_DATE = l_ludate,
152 LAST_UPDATED_BY = l_luby
153 where DEFINITION_NAME = X_DEFINITION_NAME;
154
155 if (sql%rowcount=0) then
156 INSERT_ROW (X_DEFINITION_NAME => UPDATE_ROW.X_DEFINITION_NAME,
157 X_WSDL_TNS => UPDATE_ROW.X_WSDL_TNS,
158 X_WSDL_URL => UPDATE_ROW.X_WSDL_URL,
159 X_APPLICATION_ID => UPDATE_ROW.X_APPLICATION_ID,
160 X_STATUS => UPDATE_ROW.X_STATUS,
161 X_INTERACTION_TYPE => UPDATE_ROW.X_INTERACTION_TYPE,
162 X_SERVICE => UPDATE_ROW.X_SERVICE,
163 X_PORT => UPDATE_ROW.X_PORT,
164 X_OPERATION => UPDATE_ROW.X_OPERATION,
165 X_DISPLAY_NAME => UPDATE_ROW.X_DISPLAY_NAME,
166 X_DESCRIPTION => UPDATE_ROW.X_DESCRIPTION,
167 X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
168 X_OWNER => UPDATE_ROW.X_OWNER);
169 else
170 TRANSLATE_ROW (X_DEFINITION_NAME => UPDATE_ROW.X_DEFINITION_NAME,
171 X_DISPLAY_NAME => UPDATE_ROW.X_DISPLAY_NAME,
172 X_DESCRIPTION => UPDATE_ROW.X_DESCRIPTION,
173 X_LAST_UPDATE_DATE => UPDATE_ROW.X_LAST_UPDATE_DATE,
174 X_OWNER => UPDATE_ROW.X_OWNER);
175 end if;
176 end UPDATE_ROW;
177
178 procedure ADD_LANGUAGE is
179 begin
180 insert into FND_SIF_DEFINITIONS_TL (
181 DEFINITION_NAME,
182 DISPLAY_NAME,
183 DESCRIPTION,
184 LANGUAGE,
185 SOURCE_LANG,
186 CREATION_DATE,
187 CREATED_BY,
188 LAST_UPDATE_DATE,
189 LAST_UPDATED_BY,
190 LAST_UPDATE_LOGIN,
191 SECURITY_GROUP_ID
192 ) select B.DEFINITION_NAME,
193 B.DISPLAY_NAME,
194 B.DESCRIPTION,
195 L.LANGUAGE_CODE,
196 B.SOURCE_LANG,
197 B.CREATION_DATE,
198 B.CREATED_BY,
199 B.LAST_UPDATE_DATE,
200 B.LAST_UPDATED_BY,
201 B.LAST_UPDATE_LOGIN,
202 B.SECURITY_GROUP_ID
203 from FND_SIF_DEFINITIONS_TL B, FND_LANGUAGES L
204 where L.INSTALLED_FLAG in ('I', 'B')
205 and B.LANGUAGE=userenv('LANG')
206 and not exists
207 (select NULL
208 from FND_SIF_DEFINITIONS_TL T
209 where T.DEFINITION_NAME = B.DEFINITION_NAME
210 and T.LANGUAGE = L.LANGUAGE_CODE);
211 end ADD_LANGUAGE;
212 end FND_SIF_DEFINITIONS_PKG;