[Home] [Help]
PACKAGE BODY: APPS.DT_TITLE_PROMPTS_PKG
Source
1 PACKAGE body DT_TITLE_PROMPTS_PKG AS
2 /* $Header: dttprrhi.pkb 115.5 2002/12/06 11:35:26 apholt ship $ */
3 procedure ADD_LANGUAGE
4 is
5 begin
6 update DT_TITLE_PROMPTS_TL T set (
7 TITLE_PROMPT
8 ) = (select
9 B.TITLE_PROMPT
10 from DT_TITLE_PROMPTS_TL B
11 where B.VIEW_NAME = T.VIEW_NAME
12 and B.LANGUAGE = T.LANGUAGE
13 and B.LANGUAGE = T.SOURCE_LANG)
14 where (
15 T.VIEW_NAME,
16 T.LANGUAGE,
17 T.LANGUAGE
18 ) in (select
19 SUBT.VIEW_NAME,
20 SUBT.LANGUAGE,
21 SUBT.LANGUAGE
22 from DT_TITLE_PROMPTS_TL SUBB, DT_TITLE_PROMPTS_TL SUBT
23 where SUBB.VIEW_NAME = SUBT.VIEW_NAME
24 and SUBB.LANGUAGE = SUBT.LANGUAGE
25 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
26 and (SUBB.TITLE_PROMPT <> SUBT.TITLE_PROMPT
27 or (SUBB.TITLE_PROMPT is null and SUBT.TITLE_PROMPT is not null)
28 or (SUBB.TITLE_PROMPT is not null and SUBT.TITLE_PROMPT is null)
29 ));
30
31 insert into DT_TITLE_PROMPTS_TL (
32 VIEW_NAME,
33 TITLE_PROMPT,
34 LAST_UPDATE_DATE,
35 LAST_UPDATED_BY,
36 LAST_UPDATE_LOGIN,
37 CREATED_BY,
38 CREATION_DATE,
39 LANGUAGE,
40 SOURCE_LANG
41 ) select
42 B.VIEW_NAME,
43 B.TITLE_PROMPT,
44 B.LAST_UPDATE_DATE,
45 B.LAST_UPDATED_BY,
46 B.LAST_UPDATE_LOGIN,
47 B.CREATED_BY,
48 B.CREATION_DATE,
49 L.LANGUAGE_CODE,
50 B.SOURCE_LANG
51 from DT_TITLE_PROMPTS_TL B, FND_LANGUAGES L
52 where L.INSTALLED_FLAG in ('I', 'B')
53 and B.LANGUAGE = userenv('LANG')
54 and not exists
55 (select NULL
56 from DT_TITLE_PROMPTS_TL T
57 where T.VIEW_NAME = B.VIEW_NAME
58 and T.LANGUAGE = L.LANGUAGE_CODE);
59 end ADD_LANGUAGE;
60 --
61 --
62 procedure INSERT_ROW (
63 X_ROWID in out nocopy VARCHAR2,
64 X_VIEW_NAME in VARCHAR2,
65 X_TITLE_PROMPT in VARCHAR2,
66 X_CREATION_DATE in DATE,
67 X_CREATED_BY in NUMBER,
68 X_LAST_UPDATE_DATE in DATE,
69 X_LAST_UPDATED_BY in NUMBER,
70 X_LAST_UPDATE_LOGIN in NUMBER
71 ) is
72 cursor C is select ROWID from DT_TITLE_PROMPTS_TL
73 where VIEW_NAME = X_VIEW_NAME
74 and LANGUAGE = userenv('LANG')
75 ;
76 begin
77 insert into DT_TITLE_PROMPTS_TL (
78 VIEW_NAME,
79 TITLE_PROMPT,
80 LAST_UPDATE_DATE,
81 LAST_UPDATED_BY,
82 LAST_UPDATE_LOGIN,
83 CREATED_BY,
84 CREATION_DATE,
85 LANGUAGE,
86 SOURCE_LANG
87 ) select
88 X_VIEW_NAME,
89 X_TITLE_PROMPT,
90 X_LAST_UPDATE_DATE,
91 X_LAST_UPDATED_BY,
92 X_LAST_UPDATE_LOGIN,
93 X_CREATED_BY,
94 X_CREATION_DATE,
95 L.LANGUAGE_CODE,
96 userenv('LANG')
97 from FND_LANGUAGES L
98 where L.INSTALLED_FLAG in ('I', 'B')
99 and not exists
100 (select NULL
101 from DT_TITLE_PROMPTS_TL T
102 where T.VIEW_NAME = X_VIEW_NAME
103 and T.LANGUAGE = L.LANGUAGE_CODE);
104
105 open c;
106 fetch c into X_ROWID;
107 if (c%notfound) then
108 close c;
109 raise no_data_found;
110 end if;
111 close c;
112
113 end INSERT_ROW;
114 --
115 procedure UPDATE_ROW (
116 X_VIEW_NAME in VARCHAR2,
117 X_TITLE_PROMPT in VARCHAR2,
118 X_LAST_UPDATE_DATE in DATE,
119 X_LAST_UPDATED_BY in NUMBER,
120 X_LAST_UPDATE_LOGIN in NUMBER
121 ) is
122 begin
123 update DT_TITLE_PROMPTS_TL set
124 TITLE_PROMPT = X_TITLE_PROMPT,
125 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
126 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
127 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
128 SOURCE_LANG = userenv('LANG')
129 where VIEW_NAME = X_VIEW_NAME
130 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
131
132 if (sql%notfound) then
133 raise no_data_found;
134 end if;
135 end UPDATE_ROW;
136 --
137 PROCEDURE OWNER_TO_WHO (
138 X_OWNER in VARCHAR2,
139 X_CREATION_DATE out nocopy DATE,
140 X_CREATED_BY out nocopy NUMBER,
141 X_LAST_UPDATE_DATE out nocopy DATE,
142 X_LAST_UPDATED_BY out nocopy NUMBER,
143 X_LAST_UPDATE_LOGIN out nocopy NUMBER
144 ) is
145 begin
146 if X_OWNER = 'SEED' then
147 X_CREATED_BY := 1;
148 X_LAST_UPDATED_BY := 1;
149 else
150 X_CREATED_BY := 0;
151 X_LAST_UPDATED_BY := 0;
152 end if;
153 X_CREATION_DATE := sysdate;
154 X_LAST_UPDATE_DATE := sysdate;
155 X_LAST_UPDATE_LOGIN := 0;
156 end OWNER_TO_WHO;
157 --
158 PROCEDURE LOAD_ROW (
159 X_VIEW_NAME in VARCHAR2,
160 X_TITLE_PROMPT in VARCHAR2,
161 X_OWNER in VARCHAR2
162 ) IS
163 X_ROWID ROWID;
164 X_CREATION_DATE DATE;
165 X_CREATED_BY NUMBER;
166 X_LAST_UPDATE_DATE DATE;
167 X_LAST_UPDATED_BY NUMBER;
168 X_LAST_UPDATE_LOGIN NUMBER;
169 begin
170 OWNER_TO_WHO (
171 X_OWNER,
172 X_CREATION_DATE,
173 X_CREATED_BY,
174 X_LAST_UPDATE_DATE,
175 X_LAST_UPDATED_BY,
176 X_LAST_UPDATE_LOGIN
177 );
178 begin
179 UPDATE_ROW(
180 X_VIEW_NAME,
181 X_TITLE_PROMPT,
182 X_LAST_UPDATE_DATE,
183 X_LAST_UPDATED_BY,
184 X_LAST_UPDATE_LOGIN
185 );
186 exception
187 when no_data_found then
188 INSERT_ROW (
189 X_ROWID,
190 X_VIEW_NAME,
191 X_TITLE_PROMPT,
192 X_CREATION_DATE,
193 X_CREATED_BY,
194 X_LAST_UPDATE_DATE,
195 X_LAST_UPDATED_BY,
196 X_LAST_UPDATE_LOGIN
197 );
198 end;
199 END LOAD_ROW;
200 --
201 PROCEDURE TRANSLATE_ROW (
202 X_VIEW_NAME in VARCHAR2,
203 X_TITLE_PROMPT in VARCHAR2,
204 X_OWNER in VARCHAR2
205 ) IS
206 X_CREATION_DATE DATE;
207 X_CREATED_BY NUMBER;
208 X_LAST_UPDATE_DATE DATE;
209 X_LAST_UPDATED_BY NUMBER;
210 X_LAST_UPDATE_LOGIN NUMBER;
211 begin
212 OWNER_TO_WHO (
213 X_OWNER,
214 X_CREATION_DATE,
215 X_CREATED_BY,
216 X_LAST_UPDATE_DATE,
217 X_LAST_UPDATED_BY,
218 X_LAST_UPDATE_LOGIN
219 );
220 update DT_TITLE_PROMPTS_TL set
221 TITLE_PROMPT = X_TITLE_PROMPT,
222 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
223 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
224 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
225 SOURCE_LANG = userenv('LANG')
226 where VIEW_NAME = X_VIEW_NAME
227 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
228 end TRANSLATE_ROW;
229 --
230 end DT_TITLE_PROMPTS_PKG;