DBA Data[Home] [Help]

APPS.PER_CAGR_ENTITLEMENT_ITEMS_PKG dependencies on PER_CAGR_ENTITLEMENT_ITEMS

Line 1: package body PER_CAGR_ENTITLEMENT_ITEMS_PKG as

1: package body PER_CAGR_ENTITLEMENT_ITEMS_PKG as
2: /* $Header: pepcilct.pkb 120.2 2006/06/27 11:10:36 bshukla noship $ */
3:
4:
5: procedure KEY_TO_IDS (

Line 76: from PER_CAGR_ENTITLEMENT_ITEMS CEI

72: X_BUSINESS_GROUP_ID in NUMBER,
73: X_LEGISLATION_CODE in VARCHAR2
74: ) is
75: select CEI.CAGR_ENTITLEMENT_ITEM_ID
76: from PER_CAGR_ENTITLEMENT_ITEMS CEI
77: where CEI.ITEM_NAME = X_ITEM_NAME
78: and ( CEI.BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
79: or ( CEI.BUSINESS_GROUP_ID is null
80: and X_BUSINESS_GROUP_ID is null))

Line 85: select PER_CAGR_ENTITLEMENT_ITEMS_S.nextval

81: and ( CEI.LEGISLATION_CODE = X_LEGISLATION_CODE
82: or ( CEI.LEGISLATION_CODE is null
83: and X_LEGISLATION_CODE is null));
84: cursor CSR_SEQUENCE is
85: select PER_CAGR_ENTITLEMENT_ITEMS_S.nextval
86: from dual;
87: L_BUSINESS_GROUP_ID NUMBER;
88: begin
89:

Line 177: cursor C is select ROWID from PER_CAGR_ENTITLEMENT_ITEMS

173: X_LAST_UPDATE_DATE in DATE,
174: X_LAST_UPDATED_BY in NUMBER,
175: X_LAST_UPDATE_LOGIN in NUMBER
176: ) is
177: cursor C is select ROWID from PER_CAGR_ENTITLEMENT_ITEMS
178: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID
179: ;
180: begin
181: insert into PER_CAGR_ENTITLEMENT_ITEMS (

Line 181: insert into PER_CAGR_ENTITLEMENT_ITEMS (

177: cursor C is select ROWID from PER_CAGR_ENTITLEMENT_ITEMS
178: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID
179: ;
180: begin
181: insert into PER_CAGR_ENTITLEMENT_ITEMS (
182: CAGR_ENTITLEMENT_ITEM_ID,
183: ITEM_NAME,
184: BUSINESS_GROUP_ID,
185: ELEMENT_TYPE_ID,

Line 233: insert into PER_CAGR_ENTITLEMENT_ITEMS_TL (

229: X_LAST_UPDATED_BY,
230: X_LAST_UPDATE_LOGIN
231: );
232:
233: insert into PER_CAGR_ENTITLEMENT_ITEMS_TL (
234: CREATED_BY,
235: CREATION_DATE,
236: LAST_UPDATE_LOGIN,
237: LAST_UPDATE_DATE,

Line 257: from PER_CAGR_ENTITLEMENT_ITEMS_TL T

253: from FND_LANGUAGES L
254: where L.INSTALLED_FLAG in ('I', 'B')
255: and not exists
256: (select NULL
257: from PER_CAGR_ENTITLEMENT_ITEMS_TL T
258: where T.CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID
259: and T.LANGUAGE = L.LANGUAGE_CODE);
260:
261: open c;

Line 331: from PER_CAGR_ENTITLEMENT_ITEMS_TL

327: -- Translate char last_update_date to date
328: f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
329: select LAST_UPDATED_BY, LAST_UPDATE_DATE
330: into db_luby, db_ludate
331: from PER_CAGR_ENTITLEMENT_ITEMS_TL
332: where CAGR_ENTITLEMENT_ITEM_ID = TO_NUMBER(X_CAGR_ENTITLEMENT_ITEM_ID)
333: and LANGUAGE=userenv('LANG');
334: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
335: db_ludate,X_CUSTOM_MODE)) then

Line 336: update per_cagr_entitlement_items_tl set

332: where CAGR_ENTITLEMENT_ITEM_ID = TO_NUMBER(X_CAGR_ENTITLEMENT_ITEM_ID)
333: and LANGUAGE=userenv('LANG');
334: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
335: db_ludate,X_CUSTOM_MODE)) then
336: update per_cagr_entitlement_items_tl set
337: item_name = X_ITEM_NAME,
338: last_update_date = f_ludate,
339: last_updated_by = f_luby,
340: last_update_login = 0,

Line 419: from PER_CAGR_ENTITLEMENT_ITEMS

415: -- Translate char last_update_date to date
416: f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
417: select LAST_UPDATED_BY, LAST_UPDATE_DATE
418: into db_luby, db_ludate
419: from PER_CAGR_ENTITLEMENT_ITEMS
420: where CAGR_ENTITLEMENT_ITEM_ID = TO_NUMBER(X_CAGR_ENTITLEMENT_ITEM_ID);
421:
422: -- Test for customization and version
423: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,

Line 425: PER_CAGR_ENTITLEMENT_ITEMS_PKG.UPDATE_ROW (

421:
422: -- Test for customization and version
423: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
424: db_ludate, X_CUSTOM_MODE)) then
425: PER_CAGR_ENTITLEMENT_ITEMS_PKG.UPDATE_ROW (
426: X_CAGR_ENTITLEMENT_ITEM_ID => X_CAGR_ENTITLEMENT_ITEM_ID,
427: X_BUSINESS_GROUP_ID => X_BUSINESS_GROUP_ID,
428: X_ELEMENT_TYPE_ID => X_ELEMENT_TYPE_ID,
429: X_INPUT_VALUE_ID => X_INPUT_VALUE_ID,

Line 453: PER_CAGR_ENTITLEMENT_ITEMS_PKG.INSERT_ROW (

449: exception
450: when NO_DATA_FOUND then
451:
452:
453: PER_CAGR_ENTITLEMENT_ITEMS_PKG.INSERT_ROW (
454: X_ROWID => X_ROWID,
455: X_CAGR_ENTITLEMENT_ITEM_ID => X_CAGR_ENTITLEMENT_ITEM_ID,
456: X_BUSINESS_GROUP_ID => X_BUSINESS_GROUP_ID,
457: X_ELEMENT_TYPE_ID => X_ELEMENT_TYPE_ID,

Line 521: from PER_CAGR_ENTITLEMENT_ITEMS

517: BENEFICIAL_RULE_VALUE_SET_ID,
518: MULTIPLE_ENTRIES_ALLOWED_FLAG,
519: AUTO_CREATE_ENTRIES_FLAG,
520: OBJECT_VERSION_NUMBER
521: from PER_CAGR_ENTITLEMENT_ITEMS
522: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID
523: for update of CAGR_ENTITLEMENT_ITEM_ID nowait;
524: recinfo c%rowtype;
525:

Line 529: from PER_CAGR_ENTITLEMENT_ITEMS_TL

525:
526: cursor c1 is select
527: ITEM_NAME,
528: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
529: from PER_CAGR_ENTITLEMENT_ITEMS_TL
530: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID
531: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
532: for update of CAGR_ENTITLEMENT_ITEM_ID nowait;
533: begin

Line 616: update PER_CAGR_ENTITLEMENT_ITEMS set

612: X_LAST_UPDATED_BY in NUMBER,
613: X_LAST_UPDATE_LOGIN in NUMBER
614: ) is
615: begin
616: update PER_CAGR_ENTITLEMENT_ITEMS set
617: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
618: ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID,
619: INPUT_VALUE_ID = X_INPUT_VALUE_ID,
620: COLUMN_TYPE = X_COLUMN_TYPE,

Line 643: update PER_CAGR_ENTITLEMENT_ITEMS_TL set

639: if (sql%notfound) then
640: raise no_data_found;
641: end if;
642:
643: update PER_CAGR_ENTITLEMENT_ITEMS_TL set
644: ITEM_NAME = X_ITEM_NAME,
645: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
646: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
647: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,

Line 661: delete from PER_CAGR_ENTITLEMENT_ITEMS_TL

657: procedure DELETE_ROW (
658: X_CAGR_ENTITLEMENT_ITEM_ID in NUMBER
659: ) is
660: begin
661: delete from PER_CAGR_ENTITLEMENT_ITEMS_TL
662: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID;
663:
664: if (sql%notfound) then
665: raise no_data_found;

Line 668: delete from PER_CAGR_ENTITLEMENT_ITEMS

664: if (sql%notfound) then
665: raise no_data_found;
666: end if;
667:
668: delete from PER_CAGR_ENTITLEMENT_ITEMS
669: where CAGR_ENTITLEMENT_ITEM_ID = X_CAGR_ENTITLEMENT_ITEM_ID;
670:
671: if (sql%notfound) then
672: raise no_data_found;

Line 679: delete from PER_CAGR_ENTITLEMENT_ITEMS_TL T

675:
676: procedure ADD_LANGUAGE
677: is
678: begin
679: delete from PER_CAGR_ENTITLEMENT_ITEMS_TL T
680: where not exists
681: (select NULL
682: from PER_CAGR_ENTITLEMENT_ITEMS B
683: where B.CAGR_ENTITLEMENT_ITEM_ID = T.CAGR_ENTITLEMENT_ITEM_ID

Line 682: from PER_CAGR_ENTITLEMENT_ITEMS B

678: begin
679: delete from PER_CAGR_ENTITLEMENT_ITEMS_TL T
680: where not exists
681: (select NULL
682: from PER_CAGR_ENTITLEMENT_ITEMS B
683: where B.CAGR_ENTITLEMENT_ITEM_ID = T.CAGR_ENTITLEMENT_ITEM_ID
684: );
685:
686: update PER_CAGR_ENTITLEMENT_ITEMS_TL T set (

Line 686: update PER_CAGR_ENTITLEMENT_ITEMS_TL T set (

682: from PER_CAGR_ENTITLEMENT_ITEMS B
683: where B.CAGR_ENTITLEMENT_ITEM_ID = T.CAGR_ENTITLEMENT_ITEM_ID
684: );
685:
686: update PER_CAGR_ENTITLEMENT_ITEMS_TL T set (
687: ITEM_NAME
688: ) = (select
689: B.ITEM_NAME
690: from PER_CAGR_ENTITLEMENT_ITEMS_TL B

Line 690: from PER_CAGR_ENTITLEMENT_ITEMS_TL B

686: update PER_CAGR_ENTITLEMENT_ITEMS_TL T set (
687: ITEM_NAME
688: ) = (select
689: B.ITEM_NAME
690: from PER_CAGR_ENTITLEMENT_ITEMS_TL B
691: where B.CAGR_ENTITLEMENT_ITEM_ID = T.CAGR_ENTITLEMENT_ITEM_ID
692: and B.LANGUAGE = T.SOURCE_LANG)
693: where (
694: T.CAGR_ENTITLEMENT_ITEM_ID,

Line 699: from PER_CAGR_ENTITLEMENT_ITEMS_TL SUBB, PER_CAGR_ENTITLEMENT_ITEMS_TL SUBT

695: T.LANGUAGE
696: ) in (select
697: SUBT.CAGR_ENTITLEMENT_ITEM_ID,
698: SUBT.LANGUAGE
699: from PER_CAGR_ENTITLEMENT_ITEMS_TL SUBB, PER_CAGR_ENTITLEMENT_ITEMS_TL SUBT
700: where SUBB.CAGR_ENTITLEMENT_ITEM_ID = SUBT.CAGR_ENTITLEMENT_ITEM_ID
701: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
702: and (SUBB.ITEM_NAME <> SUBT.ITEM_NAME
703: ));

Line 705: insert into PER_CAGR_ENTITLEMENT_ITEMS_TL (

701: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
702: and (SUBB.ITEM_NAME <> SUBT.ITEM_NAME
703: ));
704:
705: insert into PER_CAGR_ENTITLEMENT_ITEMS_TL (
706: CREATED_BY,
707: CREATION_DATE,
708: LAST_UPDATE_LOGIN,
709: LAST_UPDATE_DATE,

Line 725: from PER_CAGR_ENTITLEMENT_ITEMS_TL B, FND_LANGUAGES L

721: B.CAGR_ENTITLEMENT_ITEM_ID,
722: B.ITEM_NAME,
723: L.LANGUAGE_CODE,
724: B.SOURCE_LANG
725: from PER_CAGR_ENTITLEMENT_ITEMS_TL B, FND_LANGUAGES L
726: where L.INSTALLED_FLAG in ('I', 'B')
727: and B.LANGUAGE = userenv('LANG')
728: and not exists
729: (select NULL

Line 730: from PER_CAGR_ENTITLEMENT_ITEMS_TL T

726: where L.INSTALLED_FLAG in ('I', 'B')
727: and B.LANGUAGE = userenv('LANG')
728: and not exists
729: (select NULL
730: from PER_CAGR_ENTITLEMENT_ITEMS_TL T
731: where T.CAGR_ENTITLEMENT_ITEM_ID = B.CAGR_ENTITLEMENT_ITEM_ID
732: and T.LANGUAGE = L.LANGUAGE_CODE);
733: end ADD_LANGUAGE;
734:

Line 736: end PER_CAGR_ENTITLEMENT_ITEMS_PKG;

732: and T.LANGUAGE = L.LANGUAGE_CODE);
733: end ADD_LANGUAGE;
734:
735:
736: end PER_CAGR_ENTITLEMENT_ITEMS_PKG;