[Home] [Help]
PACKAGE BODY: APPS.PER_QUESTION_TYPES_PKG
Source
1 package body PER_QUESTION_TYPES_PKG as
2 /* $Header: hrupqlct.pkb 115.1 1999/11/04 17:05:28 pkm ship $ */
3 procedure OWNER_TO_WHO (
4 X_OWNER in VARCHAR2,
5 X_CREATION_DATE out DATE,
6 X_CREATED_BY out NUMBER,
7 X_LAST_UPDATE_DATE out DATE,
8 X_LAST_UPDATED_BY out NUMBER,
9 X_LAST_UPDATE_LOGIN out NUMBER
10 ) is
11 begin
12 if X_OWNER = 'SEED' then
13 X_CREATED_BY := 1;
14 X_LAST_UPDATED_BY := 1;
15 else
16 X_CREATED_BY := 0;
17 X_LAST_UPDATED_BY := 0;
18 end if;
19 X_CREATION_DATE := sysdate;
20 X_LAST_UPDATE_DATE := sysdate;
21 X_LAST_UPDATE_LOGIN := 0;
22 end OWNER_TO_WHO;
23 --
24 procedure INSERT_ROW (
25 X_PROPOSAL_QUESTION_NAME in VARCHAR2,
26 X_ALIGN in VARCHAR2,
27 X_HTML_TYPE in VARCHAR2,
28 X_WIDTH_SIZE in NUMBER,
29 X_HEIGHT_SIZE in NUMBER,
30 X_MAXLENGTH in NUMBER,
31 X_DEFAULT_VALUE_TYPE in VARCHAR2,
32 X_LOOKUP_TYPE in VARCHAR2,
33 X_OPTION_SQL_TEXT in VARCHAR2,
34 X_PROVIDE_FIND in VARCHAR2,
35 X_FIND_FILTER_COLUMN in VARCHAR2,
36 X_FIND_SELECT_SQL in VARCHAR2,
37 X_TYPE in VARCHAR2,
38 X_DEFAULT_VALUE in VARCHAR2,
39 X_FULL_TEXT in VARCHAR2,
40 X_QUESTION_HEADER in VARCHAR2,
41 X_HELP_TEXT in VARCHAR2,
42 X_NOTE_TEXT in VARCHAR2,
43 X_CREATION_DATE in DATE,
44 X_CREATED_BY in VARCHAR2,
45 X_LAST_UPDATE_DATE in DATE,
46 X_LAST_UPDATED_BY in VARCHAR2,
47 X_LAST_UPDATE_LOGIN in NUMBER
48 ) is
49 begin
50 insert into PER_PROPOSAL_QUESTION_TYPES (
51 PROPOSAL_QUESTION_NAME,
52 ALIGN,
53 HTML_TYPE,
54 WIDTH_SIZE,
55 HEIGHT_SIZE,
56 MAXLENGTH,
57 DEFAULT_VALUE_TYPE,
58 LOOKUP_TYPE,
59 OPTION_SQL_TEXT,
60 PROVIDE_FIND,
61 FIND_FILTER_COLUMN,
62 FIND_SELECT_SQL,
63 TYPE,
64 DEFAULT_VALUE,
65 FULL_TEXT,
66 QUESTION_HEADER,
67 HELP_TEXT,
68 NOTE_TEXT,
69 CREATION_DATE,
70 CREATED_BY,
71 LAST_UPDATE_DATE,
72 LAST_UPDATED_BY,
73 LAST_UPDATE_LOGIN
74 ) values (
75 X_PROPOSAL_QUESTION_NAME,
76 X_ALIGN,
77 X_HTML_TYPE,
78 X_WIDTH_SIZE,
79 X_HEIGHT_SIZE,
80 X_MAXLENGTH,
81 X_DEFAULT_VALUE_TYPE,
82 X_LOOKUP_TYPE,
83 X_OPTION_SQL_TEXT,
84 X_PROVIDE_FIND,
85 X_FIND_FILTER_COLUMN,
86 X_FIND_SELECT_SQL,
87 X_TYPE,
88 X_DEFAULT_VALUE,
89 X_FULL_TEXT,
90 X_QUESTION_HEADER,
91 X_HELP_TEXT,
92 X_NOTE_TEXT,
93 X_CREATION_DATE,
94 X_CREATED_BY,
95 X_LAST_UPDATE_DATE,
96 X_LAST_UPDATED_BY,
97 X_LAST_UPDATE_LOGIN
98 );
99 end INSERT_ROW;
100 --
101 procedure LOCK_ROW (
102 X_PROPOSAL_QUESTION_NAME in VARCHAR2
103 ) is
104 cursor CSR_QUESTION_NAME (
105 X_PROPOSAL_QUESTION_NAME in VARCHAR2
106 ) is
107 select PROPOSAL_QUESTION_NAME
108 from PER_PROPOSAL_QUESTION_TYPES
109 where PROPOSAL_QUESTION_NAME = X_PROPOSAL_QUESTION_NAME
110 for update of PROPOSAL_QUESTION_NAME nowait;
111 RECINFO CSR_QUESTION_NAME%rowtype;
112 begin
113 open CSR_QUESTION_NAME(X_PROPOSAL_QUESTION_NAME);
114 fetch CSR_QUESTION_NAME into RECINFO;
115 if (CSR_QUESTION_NAME%notfound) then
116 close CSR_QUESTION_NAME;
117 fnd_message.set_name('FND','FORM_RECORD_DELETED');
118 app_exception.raise_exception;
119 end if;
120 close CSR_QUESTION_NAME;
121 end LOCK_ROW;
122 --
123 procedure UPDATE_ROW (
124 X_PROPOSAL_QUESTION_NAME in VARCHAR2,
125 X_ALIGN in VARCHAR2,
126 X_HTML_TYPE in VARCHAR2,
127 X_WIDTH_SIZE in NUMBER,
128 X_HEIGHT_SIZE in NUMBER,
129 X_MAXLENGTH in NUMBER,
130 X_DEFAULT_VALUE_TYPE in VARCHAR2,
131 X_LOOKUP_TYPE in VARCHAR2,
132 X_OPTION_SQL_TEXT in VARCHAR2,
133 X_PROVIDE_FIND in VARCHAR2,
134 X_FIND_FILTER_COLUMN in VARCHAR2,
135 X_FIND_SELECT_SQL in VARCHAR2,
136 X_TYPE in VARCHAR2,
137 X_DEFAULT_VALUE in VARCHAR2,
138 X_FULL_TEXT in VARCHAR2,
139 X_QUESTION_HEADER in VARCHAR2,
140 X_HELP_TEXT in VARCHAR2,
141 X_NOTE_TEXT in VARCHAR2,
142 X_LAST_UPDATE_DATE in DATE,
143 X_LAST_UPDATED_BY in VARCHAR2,
144 X_LAST_UPDATE_LOGIN in NUMBER
145 ) is
146 begin
147 update PER_PROPOSAL_QUESTION_TYPES set
148 ALIGN = X_ALIGN,
149 HTML_TYPE = X_HTML_TYPE,
150 WIDTH_SIZE = X_WIDTH_SIZE,
151 HEIGHT_SIZE = X_HEIGHT_SIZE,
152 MAXLENGTH = X_MAXLENGTH,
153 DEFAULT_VALUE_TYPE = X_DEFAULT_VALUE_TYPE,
154 LOOKUP_TYPE = X_LOOKUP_TYPE,
155 OPTION_SQL_TEXT = X_OPTION_SQL_TEXT,
156 PROVIDE_FIND = X_PROVIDE_FIND,
157 FIND_FILTER_COLUMN = X_FIND_FILTER_COLUMN,
158 FIND_SELECT_SQL = X_FIND_SELECT_SQL,
159 TYPE = X_TYPE,
160 DEFAULT_VALUE = X_DEFAULT_VALUE,
161 FULL_TEXT = X_FULL_TEXT,
162 QUESTION_HEADER = X_QUESTION_HEADER,
163 HELP_TEXT = X_HELP_TEXT,
164 NOTE_TEXT = X_NOTE_TEXT,
165 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
166 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
167 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
168 where PROPOSAL_QUESTION_NAME = X_PROPOSAL_QUESTION_NAME;
169 if (sql%notfound) then
170 raise no_data_found;
171 end if;
172 end UPDATE_ROW;
173 --
174 procedure DELETE_ROW (
175 X_PROPOSAL_QUESTION_NAME in VARCHAR2
176 ) is
177 begin
178 delete from PER_PROPOSAL_QUESTION_TYPES
179 where PROPOSAL_QUESTION_NAME = X_PROPOSAL_QUESTION_NAME;
180 if (sql%notfound) then
181 raise no_data_found;
182 end if;
183 end DELETE_ROW;
184 --
185 procedure LOAD_ROW (
186 X_PROPOSAL_QUESTION_NAME in VARCHAR2,
187 X_ALIGN in VARCHAR2,
188 X_HTML_TYPE in VARCHAR2,
189 X_WIDTH_SIZE in NUMBER,
190 X_HEIGHT_SIZE in NUMBER,
191 X_MAXLENGTH in NUMBER,
192 X_DEFAULT_VALUE_TYPE in VARCHAR2,
193 X_LOOKUP_TYPE in VARCHAR2,
194 X_OPTION_SQL_TEXT in VARCHAR2,
195 X_PROVIDE_FIND in VARCHAR2,
196 X_FIND_FILTER_COLUMN in VARCHAR2,
197 X_FIND_SELECT_SQL in VARCHAR2,
198 X_TYPE in VARCHAR2,
199 X_DEFAULT_VALUE in VARCHAR2,
200 X_FULL_TEXT in VARCHAR2,
201 X_QUESTION_HEADER in VARCHAR2,
202 X_HELP_TEXT in VARCHAR2,
203 X_NOTE_TEXT 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 begin
221 UPDATE_ROW (
222 X_PROPOSAL_QUESTION_NAME,
223 X_ALIGN,
224 X_HTML_TYPE,
225 X_WIDTH_SIZE,
226 X_HEIGHT_SIZE,
227 X_MAXLENGTH,
228 X_DEFAULT_VALUE_TYPE,
229 X_LOOKUP_TYPE,
230 X_OPTION_SQL_TEXT,
231 X_PROVIDE_FIND,
232 X_FIND_FILTER_COLUMN,
233 X_FIND_SELECT_SQL,
234 X_TYPE,
235 X_DEFAULT_VALUE,
236 X_FULL_TEXT,
237 X_QUESTION_HEADER,
238 X_HELP_TEXT,
239 X_NOTE_TEXT,
240 X_LAST_UPDATE_DATE,
241 X_LAST_UPDATED_BY,
242 X_LAST_UPDATE_LOGIN
243 );
244 exception
245 when no_data_found then
246 INSERT_ROW (
247 X_PROPOSAL_QUESTION_NAME,
248 X_ALIGN,
249 X_HTML_TYPE,
250 X_WIDTH_SIZE,
251 X_HEIGHT_SIZE,
252 X_MAXLENGTH,
253 X_DEFAULT_VALUE_TYPE,
254 X_LOOKUP_TYPE,
255 X_OPTION_SQL_TEXT,
256 X_PROVIDE_FIND,
257 X_FIND_FILTER_COLUMN,
258 X_FIND_SELECT_SQL,
259 X_TYPE,
260 X_DEFAULT_VALUE,
261 X_FULL_TEXT,
262 X_QUESTION_HEADER,
263 X_HELP_TEXT,
264 X_NOTE_TEXT,
265 X_CREATION_DATE,
266 X_CREATED_BY,
267 X_LAST_UPDATE_DATE,
268 X_LAST_UPDATED_BY,
269 X_LAST_UPDATE_LOGIN
270 );
271 end;
272 end LOAD_ROW;
273 --
274 procedure TRANSLATE_ROW (
275 X_PROPOSAL_QUESTION_NAME in VARCHAR2,
276 X_DEFAULT_VALUE in VARCHAR2,
277 X_FULL_TEXT in VARCHAR2,
278 X_QUESTION_HEADER in VARCHAR2,
279 X_HELP_TEXT in VARCHAR2,
280 X_NOTE_TEXT in VARCHAR2,
281 X_OWNER in VARCHAR2
282 ) is
283 X_CREATION_DATE DATE;
284 X_CREATED_BY NUMBER;
285 X_LAST_UPDATE_DATE DATE;
286 X_LAST_UPDATED_BY NUMBER;
287 X_LAST_UPDATE_LOGIN NUMBER;
288 begin
289 OWNER_TO_WHO (
290 X_OWNER,
291 X_CREATION_DATE,
292 X_CREATED_BY,
293 X_LAST_UPDATE_DATE,
294 X_LAST_UPDATED_BY,
295 X_LAST_UPDATE_LOGIN
296 );
297 update PER_PROPOSAL_QUESTION_TYPES
298 set DEFAULT_VALUE = X_DEFAULT_VALUE,
299 FULL_TEXT = X_FULL_TEXT,
300 QUESTION_HEADER = X_QUESTION_HEADER,
301 HELP_TEXT = X_HELP_TEXT,
302 NOTE_TEXT = X_NOTE_TEXT,
303 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
304 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
305 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
306 where PROPOSAL_QUESTION_NAME = X_PROPOSAL_QUESTION_NAME
307 and userenv('LANG') = (Select language_code
308 from FND_LANGUAGES where installed_flag = 'B');
309 end TRANSLATE_ROW;
310 --
311 end PER_QUESTION_TYPES_PKG;