[Home] [Help]
1: package body IGW_QUESTIONS_PKG as
2: -- $Header: igwstqub.pls 115.8 2002/11/15 00:47:34 ashkumar ship $
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
20: X_LAST_UPDATE_DATE in DATE,
21: X_LAST_UPDATED_BY in NUMBER,
22: X_LAST_UPDATE_LOGIN in NUMBER
23: ) is
24: cursor C is select ROWID from IGW_QUESTIONS
25: where QUESTION_NUMBER = X_QUESTION_NUMBER
26: ;
27: begin
28: insert into IGW_QUESTIONS (
24: cursor C is select ROWID from IGW_QUESTIONS
25: where QUESTION_NUMBER = X_QUESTION_NUMBER
26: ;
27: begin
28: insert into IGW_QUESTIONS (
29: QUESTION_NUMBER,
30: APPLIES_TO,
31: EXPLANATION_FOR_YES_FLAG,
32: EXPLANATION_FOR_NO_FLAG,
54: X_LAST_UPDATED_BY,
55: X_LAST_UPDATE_LOGIN
56: );
57:
58: insert into IGW_QUESTIONS_TL (
59: QUESTION_NUMBER,
60: DESCRIPTION,
61: EXPLANATION,
62: POLICY,
84: from FND_LANGUAGES L
85: where L.INSTALLED_FLAG in ('I', 'B')
86: and not exists
87: (select NULL
88: from IGW_QUESTIONS_TL T
89: where T.QUESTION_NUMBER = X_QUESTION_NUMBER
90: and T.LANGUAGE = L.LANGUAGE_CODE);
91:
92: open c;
120: DATE_FOR_YES_FLAG,
121: DATE_FOR_NO_FLAG,
122: START_DATE_ACTIVE,
123: END_DATE_ACTIVE
124: from IGW_QUESTIONS
125: where QUESTION_NUMBER = X_QUESTION_NUMBER
126: for update of QUESTION_NUMBER nowait;
127: recinfo c%rowtype;
128:
131: EXPLANATION,
132: POLICY,
133: REGULATION,
134: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
135: from IGW_QUESTIONS_TL
136: where QUESTION_NUMBER = X_QUESTION_NUMBER
137: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
138: for update of QUESTION_NUMBER nowait;
139: begin
197: X_LAST_UPDATED_BY in NUMBER,
198: X_LAST_UPDATE_LOGIN in NUMBER
199: ) is
200: begin
201: update IGW_QUESTIONS set
202: APPLIES_TO = X_APPLIES_TO,
203: EXPLANATION_FOR_YES_FLAG = X_EXPLANATION_FOR_YES_FLAG,
204: EXPLANATION_FOR_NO_FLAG = X_EXPLANATION_FOR_NO_FLAG,
205: DATE_FOR_YES_FLAG = X_DATE_FOR_YES_FLAG,
214: if (sql%notfound) then
215: raise no_data_found;
216: end if;
217:
218: update IGW_QUESTIONS_TL set
219: DESCRIPTION = X_DESCRIPTION,
220: EXPLANATION = X_EXPLANATION,
221: POLICY = X_POLICY,
222: REGULATION = X_REGULATION,
235: procedure DELETE_ROW (
236: X_QUESTION_NUMBER in VARCHAR2
237: ) is
238: begin
239: delete from IGW_QUESTIONS_TL
240: where QUESTION_NUMBER = X_QUESTION_NUMBER;
241:
242: if (sql%notfound) then
243: raise no_data_found;
242: if (sql%notfound) then
243: raise no_data_found;
244: end if;
245:
246: delete from IGW_QUESTIONS
247: where QUESTION_NUMBER = X_QUESTION_NUMBER;
248:
249: if (sql%notfound) then
250: raise no_data_found;
253:
254: procedure ADD_LANGUAGE
255: is
256: begin
257: delete from IGW_QUESTIONS_TL T
258: where not exists
259: (select NULL
260: from IGW_QUESTIONS B
261: where B.QUESTION_NUMBER = T.QUESTION_NUMBER
256: begin
257: delete from IGW_QUESTIONS_TL T
258: where not exists
259: (select NULL
260: from IGW_QUESTIONS B
261: where B.QUESTION_NUMBER = T.QUESTION_NUMBER
262: );
263:
264: update IGW_QUESTIONS_TL T set (
260: from IGW_QUESTIONS B
261: where B.QUESTION_NUMBER = T.QUESTION_NUMBER
262: );
263:
264: update IGW_QUESTIONS_TL T set (
265: DESCRIPTION,
266: EXPLANATION,
267: POLICY,
268: REGULATION
270: B.DESCRIPTION,
271: B.EXPLANATION,
272: B.POLICY,
273: B.REGULATION
274: from IGW_QUESTIONS_TL B
275: where B.QUESTION_NUMBER = T.QUESTION_NUMBER
276: and B.LANGUAGE = T.SOURCE_LANG)
277: where (
278: T.QUESTION_NUMBER,
279: T.LANGUAGE
280: ) in (select
281: SUBT.QUESTION_NUMBER,
282: SUBT.LANGUAGE
283: from IGW_QUESTIONS_TL SUBB, IGW_QUESTIONS_TL SUBT
284: where SUBB.QUESTION_NUMBER = SUBT.QUESTION_NUMBER
285: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
286: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
287: OR (SUBB.EXPLANATION <> SUBT.EXPLANATION)
294: OR (SUBB.REGULATION is null and SUBT.REGULATION is not null)
295: OR (SUBB.REGULATION is not null and SUBT.REGULATION is null))
296: );
297:
298: insert into IGW_QUESTIONS_TL (
299: QUESTION_NUMBER,
300: DESCRIPTION,
301: EXPLANATION,
302: POLICY,
320: B.CREATED_BY,
321: B.LAST_UPDATE_LOGIN,
322: L.LANGUAGE_CODE,
323: B.SOURCE_LANG
324: from IGW_QUESTIONS_TL B, FND_LANGUAGES L
325: where L.INSTALLED_FLAG in ('I', 'B')
326: and B.LANGUAGE = userenv('LANG')
327: and not exists
328: (select NULL
325: where L.INSTALLED_FLAG in ('I', 'B')
326: and B.LANGUAGE = userenv('LANG')
327: and not exists
328: (select NULL
329: from IGW_QUESTIONS_TL T
330: where T.QUESTION_NUMBER = B.QUESTION_NUMBER
331: and T.LANGUAGE = L.LANGUAGE_CODE);
332: end ADD_LANGUAGE;
333:
338: X_POLICY in VARCHAR2,
339: X_REGULATION in VARCHAR2,
340: X_OWNER in VARCHAR2) is
341: begin
342: update igw_questions_tl set
343: DESCRIPTION = nvl(X_DESCRIPTION, DESCRIPTION),
344: EXPLANATION = nvl(X_EXPLANATION, EXPLANATION),
345: POLICY = nvl(X_POLICY, POLICY),
346: REGULATION = nvl(X_REGULATION, REGULATION),
352: userenv('LANG') in (language, source_lang);
353:
354: end TRANSLATE_ROW;
355:
356: end IGW_QUESTIONS_PKG;
357: