[Home] [Help]
7: 01-JUL-03 tvankayl Modified table handles Insert_row,
8: Update_Row , Lock_ Row , Delete_row
9:
10: 1. prototypes were changed to follow
11: AOL standards.
12: 2. DML operations were applied on
13: Translation table also.
14:
15: Load_row and Translate_row were
78: X_NAME in VARCHAR2,
79: X_COMMENTS in LONG,
80: X_LEGISLATION_SUBGROUP in VARCHAR2,
81: X_QUERY_FORM_TITLE in VARCHAR2,
82: X_STANDARD_FORM_TITLE in VARCHAR2,
83: X_CREATION_DATE in DATE,
84: X_CREATED_BY in NUMBER,
85: X_LAST_UPDATE_DATE in DATE,
86: X_LAST_UPDATED_BY in NUMBER,
133:
134: insert into PAY_CUSTOM_RESTRICTIONS_TL (
135: CUSTOMIZED_RESTRICTION_ID,
136: QUERY_FORM_TITLE,
137: STANDARD_FORM_TITLE,
138: CREATED_BY,
139: CREATION_DATE,
140: LAST_UPDATED_BY,
141: LAST_UPDATE_DATE,
144: SOURCE_LANG
145: ) select
146: X_CUSTOMIZED_RESTRICTION_ID,
147: X_QUERY_FORM_TITLE,
148: X_STANDARD_FORM_TITLE,
149: X_CREATED_BY,
150: X_CREATION_DATE,
151: X_LAST_UPDATED_BY,
152: X_LAST_UPDATE_DATE,
187: X_NAME in VARCHAR2,
188: X_COMMENTS in LONG,
189: X_LEGISLATION_SUBGROUP in VARCHAR2,
190: X_QUERY_FORM_TITLE in VARCHAR2,
191: X_STANDARD_FORM_TITLE in VARCHAR2
192: ) is
193: cursor c is select
194: BUSINESS_GROUP_ID,
195: LEGISLATION_CODE,
205: recinfo c%rowtype;
206:
207: cursor c1 is select
208: QUERY_FORM_TITLE,
209: STANDARD_FORM_TITLE,
210: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
211: from PAY_CUSTOM_RESTRICTIONS_TL
212: where CUSTOMIZED_RESTRICTION_ID = X_CUSTOMIZED_RESTRICTION_ID
213: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
242:
243: for tlinfo in c1 loop
244: if (tlinfo.BASELANG = 'Y') then
245: if ( (tlinfo.QUERY_FORM_TITLE = X_QUERY_FORM_TITLE)
246: AND (tlinfo.STANDARD_FORM_TITLE = X_STANDARD_FORM_TITLE)
247: ) then
248: null;
249: else
250: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
265: X_NAME in VARCHAR2,
266: X_COMMENTS in LONG,
267: X_LEGISLATION_SUBGROUP in VARCHAR2,
268: X_QUERY_FORM_TITLE in VARCHAR2,
269: X_STANDARD_FORM_TITLE in VARCHAR2,
270: X_LAST_UPDATE_DATE in DATE,
271: X_LAST_UPDATED_BY in NUMBER,
272: X_LAST_UPDATE_LOGIN in NUMBER
273: ) is
291: end if;
292:
293: update PAY_CUSTOM_RESTRICTIONS_TL set
294: QUERY_FORM_TITLE = X_QUERY_FORM_TITLE,
295: STANDARD_FORM_TITLE = X_STANDARD_FORM_TITLE,
296: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
297: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
298: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
299: SOURCE_LANG = userenv('LANG')
304:
305: insert into PAY_CUSTOM_RESTRICTIONS_TL (
306: CUSTOMIZED_RESTRICTION_ID,
307: QUERY_FORM_TITLE,
308: STANDARD_FORM_TITLE,
309: CREATED_BY,
310: CREATION_DATE,
311: LAST_UPDATED_BY,
312: LAST_UPDATE_DATE,
315: SOURCE_LANG
316: ) select
317: X_CUSTOMIZED_RESTRICTION_ID,
318: X_QUERY_FORM_TITLE,
319: X_STANDARD_FORM_TITLE,
320: 0 ,
321: SYSDATE,
322: X_LAST_UPDATED_BY,
323: X_LAST_UPDATE_DATE,
362: X_BUSINESS_GROUP_NAME in VARCHAR2,
363: X_LEGISLATION_CODE in VARCHAR2,
364: X_ENABLED_FLAG in VARCHAR2,
365: X_QUERY_FORM_TITLE in VARCHAR2,
366: X_STANDARD_FORM_TITLE in VARCHAR2,
367: X_LEGISLATION_SUBGROUP in VARCHAR2,
368: X_OWNER in VARCHAR2
369: )
370: is
428: ,X_BUSINESS_GROUP_ID => l_business_group_id
429: ,X_LEGISLATION_CODE => X_LEGISLATION_CODE
430: ,X_ENABLED_FLAG => X_ENABLED_FLAG
431: ,X_QUERY_FORM_TITLE => X_QUERY_FORM_TITLE
432: ,X_STANDARD_FORM_TITLE => X_STANDARD_FORM_TITLE
433: ,X_COMMENTS => l_comments
434: ,X_LEGISLATION_SUBGROUP => X_LEGISLATION_SUBGROUP
435: ,X_LAST_UPDATE_DATE => l_last_update_date
436: ,X_LAST_UPDATED_BY => l_last_updated_by
449: ,X_BUSINESS_GROUP_ID => null
450: ,X_LEGISLATION_CODE => X_LEGISLATION_CODE
451: ,X_ENABLED_FLAG => X_ENABLED_FLAG
452: ,X_QUERY_FORM_TITLE => X_QUERY_FORM_TITLE
453: ,X_STANDARD_FORM_TITLE => X_STANDARD_FORM_TITLE
454: ,X_COMMENTS => l_comments
455: ,X_LEGISLATION_SUBGROUP => X_LEGISLATION_SUBGROUP
456: ,X_CREATED_BY => l_created_by
457: ,X_CREATION_DATE => l_creation_date
469: X_NAME in VARCHAR2,
470: X_BUSINESS_GROUP_NAME in VARCHAR2,
471: X_LEGISLATION_CODE in VARCHAR2,
472: X_QUERY_FORM_TITLE in VARCHAR2,
473: X_STANDARD_FORM_TITLE in VARCHAR2,
474: X_OWNER in varchar2
475: )
476: is
477: l_appl_id PAY_CUSTOMIZED_RESTRICTIONS.application_id%TYPE;
502:
503: UPDATE PAY_CUSTOM_RESTRICTIONS_TL
504: SET
505: QUERY_FORM_TITLE = X_QUERY_FORM_TITLE ,
506: STANDARD_FORM_TITLE = X_STANDARD_FORM_TITLE ,
507: LAST_UPDATE_DATE = sysdate ,
508: LAST_UPDATED_BY = decode(X_OWNER , 'SEED', 1, 0),
509: LAST_UPDATE_LOGIN = 0,
510: SOURCE_LANG = userenv('LANG')
528: );
529:
530: update PAY_CUSTOM_RESTRICTIONS_TL T set (
531: QUERY_FORM_TITLE,
532: STANDARD_FORM_TITLE
533: ) = (select
534: B.QUERY_FORM_TITLE,
535: B.STANDARD_FORM_TITLE
536: from PAY_CUSTOM_RESTRICTIONS_TL B
531: QUERY_FORM_TITLE,
532: STANDARD_FORM_TITLE
533: ) = (select
534: B.QUERY_FORM_TITLE,
535: B.STANDARD_FORM_TITLE
536: from PAY_CUSTOM_RESTRICTIONS_TL B
537: where B.CUSTOMIZED_RESTRICTION_ID = T.CUSTOMIZED_RESTRICTION_ID
538: and B.LANGUAGE = T.SOURCE_LANG)
539: where (
545: from PAY_CUSTOM_RESTRICTIONS_TL SUBB, PAY_CUSTOM_RESTRICTIONS_TL SUBT
546: where SUBB.CUSTOMIZED_RESTRICTION_ID = SUBT.CUSTOMIZED_RESTRICTION_ID
547: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
548: and (SUBB.QUERY_FORM_TITLE <> SUBT.QUERY_FORM_TITLE
549: or SUBB.STANDARD_FORM_TITLE <> SUBT.STANDARD_FORM_TITLE
550: ));
551:
552: insert into PAY_CUSTOM_RESTRICTIONS_TL (
553: CUSTOMIZED_RESTRICTION_ID,
551:
552: insert into PAY_CUSTOM_RESTRICTIONS_TL (
553: CUSTOMIZED_RESTRICTION_ID,
554: QUERY_FORM_TITLE,
555: STANDARD_FORM_TITLE,
556: CREATED_BY,
557: CREATION_DATE,
558: LAST_UPDATED_BY,
559: LAST_UPDATE_DATE,
562: SOURCE_LANG
563: ) select
564: B.CUSTOMIZED_RESTRICTION_ID,
565: B.QUERY_FORM_TITLE,
566: B.STANDARD_FORM_TITLE,
567: B.CREATED_BY,
568: B.CREATION_DATE,
569: B.LAST_UPDATED_BY,
570: B.LAST_UPDATE_DATE,