1: package body JTF_RS_RESOURCE_EXTNS_PKG as
2: /* $Header: jtfrsteb.pls 120.2 2010/08/30 06:15:14 rgokavar ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_RESOURCE_ID in NUMBER,
85: X_PARTY_ID in VARCHAR2,
86: X_SOURCE_MOBILE_PHONE in VARCHAR2,
87: X_SOURCE_PAGER in VARCHAR2
88: ) is
89: cursor C is select ROWID from JTF_RS_RESOURCE_EXTNS
90: where RESOURCE_ID = X_RESOURCE_ID
91: ;
92: begin
93: insert into JTF_RS_RESOURCE_EXTNS (
89: cursor C is select ROWID from JTF_RS_RESOURCE_EXTNS
90: where RESOURCE_ID = X_RESOURCE_ID
91: ;
92: begin
93: insert into JTF_RS_RESOURCE_EXTNS (
94: ATTRIBUTE12,
95: ATTRIBUTE13,
96: ATTRIBUTE14,
97: ATTRIBUTE15,
259: X_SOURCE_MOBILE_PHONE,
260: X_SOURCE_PAGER
261: );
262:
263: insert into JTF_RS_RESOURCE_EXTNS_TL (
264: RESOURCE_ID,
265: CATEGORY,
266: CREATED_BY,
267: CREATION_DATE,
285: from FND_LANGUAGES L
286: where L.INSTALLED_FLAG in ('I', 'B')
287: and not exists
288: (select NULL
289: from JTF_RS_RESOURCE_EXTNS_TL T
290: where T.RESOURCE_ID = X_RESOURCE_ID
291: and T.LANGUAGE = L.LANGUAGE_CODE);
292:
293: open c;
305: X_OBJECT_VERSION_NUMBER in NUMBER
306: ) is
307: cursor c1 is select
308: OBJECT_VERSION_NUMBER
309: from JTF_RS_RESOURCE_EXTNS_VL
310: where RESOURCE_ID = X_RESOURCE_ID
311: for update of RESOURCE_ID nowait;
312: tlinfo c1%rowtype ;
313: begin
415: X_SOURCE_PAGER in VARCHAR2,
416: X_FS_SETUP_COMPLETE in VARCHAR2
417: ) is
418: begin
419: update JTF_RS_RESOURCE_EXTNS set
420: ATTRIBUTE12 = X_ATTRIBUTE12,
421: ATTRIBUTE13 = X_ATTRIBUTE13,
422: ATTRIBUTE14 = X_ATTRIBUTE14,
423: ATTRIBUTE15 = X_ATTRIBUTE15,
503: if (sql%notfound) then
504: raise no_data_found;
505: end if;
506:
507: update JTF_RS_RESOURCE_EXTNS_TL set
508: RESOURCE_NAME = X_RESOURCE_NAME,
509: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
510: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
511: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
522: X_RESOURCE_ID in NUMBER
523: ) is
524: begin
525:
526: delete from JTF_RS_RESOURCE_EXTNS_TL
527: where RESOURCE_ID = X_RESOURCE_ID;
528:
529: if (sql%notfound) then
530: raise no_data_found;
529: if (sql%notfound) then
530: raise no_data_found;
531: end if;
532:
533: delete from JTF_RS_RESOURCE_EXTNS
534: where RESOURCE_ID = X_RESOURCE_ID;
535:
536: if (sql%notfound) then
537: raise no_data_found;
541:
542: procedure ADD_LANGUAGE
543: is
544: begin
545: delete from JTF_RS_RESOURCE_EXTNS_TL T
546: where not exists
547: (select NULL
548: from JTF_RS_RESOURCE_EXTNS B
549: where B.RESOURCE_ID = T.RESOURCE_ID
544: begin
545: delete from JTF_RS_RESOURCE_EXTNS_TL T
546: where not exists
547: (select NULL
548: from JTF_RS_RESOURCE_EXTNS B
549: where B.RESOURCE_ID = T.RESOURCE_ID
550: );
551:
552: update JTF_RS_RESOURCE_EXTNS_TL T set (
548: from JTF_RS_RESOURCE_EXTNS B
549: where B.RESOURCE_ID = T.RESOURCE_ID
550: );
551:
552: update JTF_RS_RESOURCE_EXTNS_TL T set (
553: RESOURCE_NAME
554: ) = (select
555: B.RESOURCE_NAME
556: from JTF_RS_RESOURCE_EXTNS_TL B
552: update JTF_RS_RESOURCE_EXTNS_TL T set (
553: RESOURCE_NAME
554: ) = (select
555: B.RESOURCE_NAME
556: from JTF_RS_RESOURCE_EXTNS_TL B
557: where B.RESOURCE_ID = T.RESOURCE_ID
558: and B.LANGUAGE = T.SOURCE_LANG)
559: where (
560: T.RESOURCE_ID,
561: T.LANGUAGE
562: ) in (select
563: SUBT.RESOURCE_ID,
564: SUBT.LANGUAGE
565: from JTF_RS_RESOURCE_EXTNS_TL SUBB, JTF_RS_RESOURCE_EXTNS_TL SUBT
566: where SUBB.RESOURCE_ID = SUBT.RESOURCE_ID
567: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
568: and (SUBB.RESOURCE_NAME <> SUBT.RESOURCE_NAME
569: or (SUBB.RESOURCE_NAME is null and SUBT.RESOURCE_NAME is not null)
569: or (SUBB.RESOURCE_NAME is null and SUBT.RESOURCE_NAME is not null)
570: or (SUBB.RESOURCE_NAME is not null and SUBT.RESOURCE_NAME is null)
571: ));
572:
573: insert into JTF_RS_RESOURCE_EXTNS_TL (
574: RESOURCE_ID,
575: CREATED_BY,
576: CREATION_DATE,
577: LAST_UPDATED_BY,
591: B.RESOURCE_NAME,
592: B.CATEGORY,
593: L.LANGUAGE_CODE,
594: B.SOURCE_LANG
595: from JTF_RS_RESOURCE_EXTNS_TL B, FND_LANGUAGES L
596: where L.INSTALLED_FLAG in ('I', 'B')
597: and B.LANGUAGE = userenv('LANG')
598: and not exists
599: (select NULL
596: where L.INSTALLED_FLAG in ('I', 'B')
597: and B.LANGUAGE = userenv('LANG')
598: and not exists
599: (select NULL
600: from JTF_RS_RESOURCE_EXTNS_TL T
601: where T.RESOURCE_ID = B.RESOURCE_ID
602: and T.LANGUAGE = L.LANGUAGE_CODE);
603: end ADD_LANGUAGE;
604:
611: x_last_update_login in number)
612: is
613: begin
614:
615: Update jtf_rs_resource_extns_tl set
616: resource_name = nvl(x_resource_name,resource_name),
617: last_update_date = nvl(x_last_update_date,sysdate),
618: last_updated_by = x_last_updated_by,
619: last_update_login = 0,
625: raise no_data_found;
626: end if;
627: end TRANSLATE_ROW;
628:
629: end JTF_RS_RESOURCE_EXTNS_PKG;