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