1: package body JTF_RS_RESOURCE_EXTNS_PKG as
2: /* $Header: jtfrsteb.pls 120.0 2005/05/11 08:22:10 appldev 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
414: X_SOURCE_MOBILE_PHONE in VARCHAR2,
415: X_SOURCE_PAGER in VARCHAR2
416: ) is
417: begin
418: update JTF_RS_RESOURCE_EXTNS set
419: ATTRIBUTE12 = X_ATTRIBUTE12,
420: ATTRIBUTE13 = X_ATTRIBUTE13,
421: ATTRIBUTE14 = X_ATTRIBUTE14,
422: ATTRIBUTE15 = X_ATTRIBUTE15,
501: if (sql%notfound) then
502: raise no_data_found;
503: end if;
504:
505: update JTF_RS_RESOURCE_EXTNS_TL set
506: RESOURCE_NAME = X_RESOURCE_NAME,
507: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
508: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
509: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
520: X_RESOURCE_ID in NUMBER
521: ) is
522: begin
523:
524: delete from JTF_RS_RESOURCE_EXTNS_TL
525: where RESOURCE_ID = X_RESOURCE_ID;
526:
527: if (sql%notfound) then
528: raise no_data_found;
527: if (sql%notfound) then
528: raise no_data_found;
529: end if;
530:
531: delete from JTF_RS_RESOURCE_EXTNS
532: where RESOURCE_ID = X_RESOURCE_ID;
533:
534: if (sql%notfound) then
535: raise no_data_found;
539:
540: procedure ADD_LANGUAGE
541: is
542: begin
543: delete from JTF_RS_RESOURCE_EXTNS_TL T
544: where not exists
545: (select NULL
546: from JTF_RS_RESOURCE_EXTNS B
547: where B.RESOURCE_ID = T.RESOURCE_ID
542: begin
543: delete from JTF_RS_RESOURCE_EXTNS_TL T
544: where not exists
545: (select NULL
546: from JTF_RS_RESOURCE_EXTNS B
547: where B.RESOURCE_ID = T.RESOURCE_ID
548: );
549:
550: update JTF_RS_RESOURCE_EXTNS_TL T set (
546: from JTF_RS_RESOURCE_EXTNS B
547: where B.RESOURCE_ID = T.RESOURCE_ID
548: );
549:
550: update JTF_RS_RESOURCE_EXTNS_TL T set (
551: RESOURCE_NAME
552: ) = (select
553: B.RESOURCE_NAME
554: from JTF_RS_RESOURCE_EXTNS_TL B
550: update JTF_RS_RESOURCE_EXTNS_TL T set (
551: RESOURCE_NAME
552: ) = (select
553: B.RESOURCE_NAME
554: from JTF_RS_RESOURCE_EXTNS_TL B
555: where B.RESOURCE_ID = T.RESOURCE_ID
556: and B.LANGUAGE = T.SOURCE_LANG)
557: where (
558: T.RESOURCE_ID,
559: T.LANGUAGE
560: ) in (select
561: SUBT.RESOURCE_ID,
562: SUBT.LANGUAGE
563: from JTF_RS_RESOURCE_EXTNS_TL SUBB, JTF_RS_RESOURCE_EXTNS_TL SUBT
564: where SUBB.RESOURCE_ID = SUBT.RESOURCE_ID
565: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
566: and (SUBB.RESOURCE_NAME <> SUBT.RESOURCE_NAME
567: or (SUBB.RESOURCE_NAME is null and SUBT.RESOURCE_NAME is not null)
567: or (SUBB.RESOURCE_NAME is null and SUBT.RESOURCE_NAME is not null)
568: or (SUBB.RESOURCE_NAME is not null and SUBT.RESOURCE_NAME is null)
569: ));
570:
571: insert into JTF_RS_RESOURCE_EXTNS_TL (
572: RESOURCE_ID,
573: CREATED_BY,
574: CREATION_DATE,
575: LAST_UPDATED_BY,
589: B.RESOURCE_NAME,
590: B.CATEGORY,
591: L.LANGUAGE_CODE,
592: B.SOURCE_LANG
593: from JTF_RS_RESOURCE_EXTNS_TL B, FND_LANGUAGES L
594: where L.INSTALLED_FLAG in ('I', 'B')
595: and B.LANGUAGE = userenv('LANG')
596: and not exists
597: (select NULL
594: where L.INSTALLED_FLAG in ('I', 'B')
595: and B.LANGUAGE = userenv('LANG')
596: and not exists
597: (select NULL
598: from JTF_RS_RESOURCE_EXTNS_TL T
599: where T.RESOURCE_ID = B.RESOURCE_ID
600: and T.LANGUAGE = L.LANGUAGE_CODE);
601: end ADD_LANGUAGE;
602:
609: x_last_update_login in number)
610: is
611: begin
612:
613: Update jtf_rs_resource_extns_tl set
614: resource_name = nvl(x_resource_name,resource_name),
615: last_update_date = nvl(x_last_update_date,sysdate),
616: last_updated_by = x_last_updated_by,
617: last_update_login = 0,
623: raise no_data_found;
624: end if;
625: end TRANSLATE_ROW;
626:
627: end JTF_RS_RESOURCE_EXTNS_PKG;