[Home] [Help]
PACKAGE BODY: APPS.PRP_TOKEN_VALUES_PKG
Source
1 package body PRP_TOKEN_VALUES_PKG as
2 /* $Header: PRPTTKVB.pls 115.2 2002/12/04 23:55:27 vpalaiya noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_TOKEN_VALUE_ID in NUMBER,
6 X_OBJECT_VERSION_NUMBER in NUMBER,
7 X_TOKEN_ID in NUMBER,
8 X_TOKEN_VALUE in VARCHAR2,
9 X_CREATION_DATE in DATE,
10 X_CREATED_BY in NUMBER,
11 X_LAST_UPDATE_DATE in DATE,
12 X_LAST_UPDATED_BY in NUMBER,
13 X_LAST_UPDATE_LOGIN in NUMBER
14 ) is
15 cursor C is select ROWID from PRP_TOKEN_VALUES_TL
16 where TOKEN_VALUE_ID = X_TOKEN_VALUE_ID
17 and LANGUAGE = userenv('LANG')
18 ;
19 begin
20 insert into PRP_TOKEN_VALUES_TL (
21 TOKEN_VALUE_ID,
22 OBJECT_VERSION_NUMBER,
23 TOKEN_ID,
24 TOKEN_VALUE,
25 CREATED_BY,
26 CREATION_DATE,
27 LAST_UPDATED_BY,
28 LAST_UPDATE_DATE,
29 LAST_UPDATE_LOGIN,
30 LANGUAGE,
31 SOURCE_LANG
32 ) select
33 X_TOKEN_VALUE_ID,
34 X_OBJECT_VERSION_NUMBER,
35 X_TOKEN_ID,
36 X_TOKEN_VALUE,
37 X_CREATED_BY,
38 X_CREATION_DATE,
39 X_LAST_UPDATED_BY,
40 X_LAST_UPDATE_DATE,
41 X_LAST_UPDATE_LOGIN,
42 L.LANGUAGE_CODE,
43 userenv('LANG')
44 from FND_LANGUAGES L
45 where L.INSTALLED_FLAG in ('I', 'B')
46 and not exists
47 (select NULL
48 from PRP_TOKEN_VALUES_TL T
49 where T.TOKEN_VALUE_ID = X_TOKEN_VALUE_ID
50 and T.LANGUAGE = L.LANGUAGE_CODE);
51
52 open c;
53 fetch c into X_ROWID;
54 if (c%notfound) then
55 close c;
56 raise no_data_found;
57 end if;
58 close c;
59
60 end INSERT_ROW;
61
62 procedure LOCK_ROW (
63 X_TOKEN_VALUE_ID in NUMBER,
64 X_OBJECT_VERSION_NUMBER in NUMBER,
65 X_TOKEN_ID in NUMBER,
66 X_TOKEN_VALUE in VARCHAR2
67 ) is
68 cursor c1 is select
69 OBJECT_VERSION_NUMBER,
70 TOKEN_ID,
71 TOKEN_VALUE,
72 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
73 from PRP_TOKEN_VALUES_TL
74 where TOKEN_VALUE_ID = X_TOKEN_VALUE_ID
75 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
76 for update of TOKEN_VALUE_ID nowait;
77 begin
78 for tlinfo in c1 loop
79 if (tlinfo.BASELANG = 'Y') then
80 if ( (tlinfo.TOKEN_VALUE = X_TOKEN_VALUE)
81 AND (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
82 AND (tlinfo.TOKEN_ID = X_TOKEN_ID)
83 ) then
84 null;
85 else
86 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
87 app_exception.raise_exception;
88 end if;
89 end if;
90 end loop;
91 return;
92 end LOCK_ROW;
93
94 procedure UPDATE_ROW (
95 X_TOKEN_VALUE_ID in NUMBER,
96 X_OBJECT_VERSION_NUMBER in NUMBER,
97 X_TOKEN_ID in NUMBER,
98 X_TOKEN_VALUE in VARCHAR2,
99 X_LAST_UPDATE_DATE in DATE,
100 X_LAST_UPDATED_BY in NUMBER,
101 X_LAST_UPDATE_LOGIN in NUMBER
102 ) is
103 begin
104 update PRP_TOKEN_VALUES_TL set
105 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
106 TOKEN_ID = X_TOKEN_ID,
107 TOKEN_VALUE = X_TOKEN_VALUE,
108 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
109 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
110 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
111 SOURCE_LANG = userenv('LANG')
112 where TOKEN_VALUE_ID = X_TOKEN_VALUE_ID
113 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
114
115 if (sql%notfound) then
116 raise no_data_found;
117 end if;
118 end UPDATE_ROW;
119
120 procedure DELETE_ROW (
121 X_TOKEN_VALUE_ID in NUMBER
122 ) is
123 begin
124 delete from PRP_TOKEN_VALUES_TL
125 where TOKEN_VALUE_ID = X_TOKEN_VALUE_ID;
126
127 if (sql%notfound) then
128 raise no_data_found;
129 end if;
130
131 end DELETE_ROW;
132
133 procedure ADD_LANGUAGE
134 is
135 begin
136 update PRP_TOKEN_VALUES_TL T set (
137 TOKEN_VALUE
138 ) = (select
139 B.TOKEN_VALUE
140 from PRP_TOKEN_VALUES_TL B
141 where B.TOKEN_VALUE_ID = T.TOKEN_VALUE_ID
142 and B.LANGUAGE = T.SOURCE_LANG)
143 where (
144 T.TOKEN_VALUE_ID,
145 T.LANGUAGE
146 ) in (select
147 SUBT.TOKEN_VALUE_ID,
148 SUBT.LANGUAGE
149 from PRP_TOKEN_VALUES_TL SUBB, PRP_TOKEN_VALUES_TL SUBT
150 where SUBB.TOKEN_VALUE_ID = SUBT.TOKEN_VALUE_ID
151 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
152 and (SUBB.TOKEN_VALUE <> SUBT.TOKEN_VALUE
153 ));
154
155 insert into PRP_TOKEN_VALUES_TL (
156 TOKEN_VALUE_ID,
157 OBJECT_VERSION_NUMBER,
158 TOKEN_ID,
159 TOKEN_VALUE,
160 CREATED_BY,
161 CREATION_DATE,
162 LAST_UPDATED_BY,
163 LAST_UPDATE_DATE,
164 LAST_UPDATE_LOGIN,
165 LANGUAGE,
166 SOURCE_LANG
167 ) select
168 B.TOKEN_VALUE_ID,
169 B.OBJECT_VERSION_NUMBER,
170 B.TOKEN_ID,
171 B.TOKEN_VALUE,
172 B.CREATED_BY,
173 B.CREATION_DATE,
174 B.LAST_UPDATED_BY,
175 B.LAST_UPDATE_DATE,
176 B.LAST_UPDATE_LOGIN,
177 L.LANGUAGE_CODE,
178 B.SOURCE_LANG
179 from PRP_TOKEN_VALUES_TL B, FND_LANGUAGES L
180 where L.INSTALLED_FLAG in ('I', 'B')
181 and B.LANGUAGE = userenv('LANG')
182 and not exists
183 (select NULL
184 from PRP_TOKEN_VALUES_TL T
185 where T.TOKEN_VALUE_ID = B.TOKEN_VALUE_ID
186 and T.LANGUAGE = L.LANGUAGE_CODE);
187 end ADD_LANGUAGE;
188
189 end PRP_TOKEN_VALUES_PKG;