[Home] [Help]
45: l_api_version CONSTANT NUMBER := 1.0;
46: l_attribute_id number;
47: --
48: cursor c1 is
49: select row_id from psb_attributes_VL
50: where attribute_id = p_attribute_id;
51:
52: BEGIN
53:
76: p_return_status := FND_API.G_RET_STS_SUCCESS;
77:
78:
79: -- API body
80: INSERT INTO psb_attributes
81: (ATTRIBUTE_ID ,
82: BUSINESS_GROUP_ID ,
83: NAME ,
84: DISPLAY_IN_WORKSHEET ,
130: p_CREATED_BY ,
131: p_CREATION_DATE
132: );
133:
134: insert into PSB_ATTRIBUTES_TL (
135: ATTRIBUTE_ID,
136: NAME,
137: DISPLAY_PROMPT,
138: LAST_UPDATE_DATE,
156: from FND_LANGUAGES L
157: where L.INSTALLED_FLAG in ('I', 'B')
158: and not exists
159: (select NULL
160: from PSB_ATTRIBUTES_TL T
161: where T.ATTRIBUTE_ID = P_ATTRIBUTE_ID
162: and T.LANGUAGE = L.LANGUAGE_CODE);
163:
164: open c1;
282:
283: p_return_status := FND_API.G_RET_STS_SUCCESS;
284:
285: -- API body
286: UPDATE psb_attributes SET
287: ATTRIBUTE_ID = p_ATTRIBUTE_ID,
288: BUSINESS_GROUP_ID = p_BUSINESS_GROUP_ID ,
289: NAME = p_NAME ,
290: DISPLAY_IN_WORKSHEET = p_DISPLAY_IN_WORKSHEET,
308: if (SQL%NOTFOUND) then
309: RAISE NO_DATA_FOUND;
310: end if;
311:
312: update PSB_ATTRIBUTES_TL set
313: NAME = P_NAME,
314: DISPLAY_PROMPT = P_DISPLAY_PROMPT,
315: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
316: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
413: end if;
414:
415: -- Perform the delete
416:
417: delete from PSB_ATTRIBUTES_TL
418: where ATTRIBUTE_ID = P_ATTRIBUTE_ID;
419:
420: if (sql%notfound) then
421: raise no_data_found;
420: if (sql%notfound) then
421: raise no_data_found;
422: end if;
423:
424: DELETE FROM psb_attributes WHERE attribute_id = p_attribute_id;
425:
426: if (SQL%NOTFOUND) then
427: RAISE NO_DATA_FOUND;
428: end if;
533: DEFINITION_TABLE,
534: DEFINITION_COLUMN,
535: DISPLAY_SEQUENCE,
536: DISPLAY_IN_WORKSHEET
537: from PSB_ATTRIBUTES
538: where ATTRIBUTE_ID = p_ATTRIBUTE_ID
539: for update of ATTRIBUTE_ID nowait;
540: recinfo c%rowtype;
541:
542: cursor c1 is select
543: NAME,
544: DISPLAY_PROMPT,
545: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
546: from PSB_ATTRIBUTES_TL
547: where ATTRIBUTE_ID = p_ATTRIBUTE_ID
548: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
549: for update of ATTRIBUTE_ID nowait;
550:
704: l_tmp VARCHAR2(1);
705:
706: CURSOR c IS
707: SELECT '1'
708: FROM psb_attributes_VL
709: WHERE name = p_name
710: AND business_group_id = p_business_group_id
711: AND ( (p_Row_Id IS NULL)
712: OR (row_id <> p_Row_Id) );
1020: Temp_Type VARCHAR2(30);
1021:
1022: /* bug start 3953023 */
1023: Type l_sys_attributes_rec_type IS RECORD (
1024: l_sys_attribute_type psb_attributes.system_attribute_type%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1021:
1022: /* bug start 3953023 */
1023: Type l_sys_attributes_rec_type IS RECORD (
1024: l_sys_attribute_type psb_attributes.system_attribute_type%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1022: /* bug start 3953023 */
1023: Type l_sys_attributes_rec_type IS RECORD (
1024: l_sys_attribute_type psb_attributes.system_attribute_type%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1023: Type l_sys_attributes_rec_type IS RECORD (
1024: l_sys_attribute_type psb_attributes.system_attribute_type%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1024: l_sys_attribute_type psb_attributes.system_attribute_type%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1025: l_attribute_name psb_attributes.name%TYPE,
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1033: l_allow_pos_set_flg psb_attributes.ALLOW_IN_POSITION_SET_FLAG%TYPE);
1026: l_display_worksheet psb_attributes.DISPLAY_IN_WORKSHEET%TYPE,
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1033: l_allow_pos_set_flg psb_attributes.ALLOW_IN_POSITION_SET_FLAG%TYPE);
1034:
1027: l_display_seq psb_attributes.DISPLAY_SEQUENCE%TYPE,
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1033: l_allow_pos_set_flg psb_attributes.ALLOW_IN_POSITION_SET_FLAG%TYPE);
1034:
1035: -- table defenition and declaration
1028: l_req_import_flg psb_attributes.REQUIRED_FOR_IMPORT_FLAG%TYPE,
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1033: l_allow_pos_set_flg psb_attributes.ALLOW_IN_POSITION_SET_FLAG%TYPE);
1034:
1035: -- table defenition and declaration
1036: Type l_sys_attributes_tbl_type IS TABLE OF
1029: l_req_position_flg psb_attributes.REQUIRED_FOR_POSITIONS_FLAG%TYPE,
1030: l_value_table_flg psb_attributes.VALUE_TABLE_FLAG%TYPE,
1031: l_application_id psb_attributes.APPLICATION_ID%TYPE,
1032: l_data_type psb_attributes.DATA_TYPE%TYPE,
1033: l_allow_pos_set_flg psb_attributes.ALLOW_IN_POSITION_SET_FLAG%TYPE);
1034:
1035: -- table defenition and declaration
1036: Type l_sys_attributes_tbl_type IS TABLE OF
1037: l_sys_attributes_rec_type INDEX BY BINARY_INTEGER;
1150: l_exists_attribute := FALSE;
1151: FOR l_sys_attribute_exist IN
1152: (SELECT system_attribute_type,
1153: attribute_id
1154: FROM psb_attributes
1155: WHERE system_attribute_type =
1156: l_sys_attributes_tbl(l_rec).l_sys_attribute_type
1157: AND business_group_id = p_business_group_id)
1158: LOOP
1158: LOOP
1159: --update statement as the system attribute statement already exists
1160: l_exists_attribute := TRUE;
1161:
1162: UPDATE psb_attributes
1163: SET definition_type = null,
1164: last_update_date = sysdate,
1165: last_updated_by = 1,
1166: last_update_login = null
1172: IF NOT l_exists_attribute THEN
1173: IF l_sys_attributes_tbl(l_rec).l_sys_attribute_type = 'ORG' THEN
1174: FOR l_org_rec IN
1175: (SELECT attribute_id
1176: FROM psb_attributes
1177: WHERE name = l_sys_attributes_tbl(l_rec).l_attribute_name
1178: AND business_group_id = p_business_group_id
1179: )
1180: LOOP
1177: WHERE name = l_sys_attributes_tbl(l_rec).l_attribute_name
1178: AND business_group_id = p_business_group_id
1179: )
1180: LOOP
1181: -- update the psb_attributes_tl table
1182: UPDATE psb_attributes_tl
1183: SET name = name || '_X',
1184: last_update_date = sysdate,
1185: last_updated_by = 1,
1178: AND business_group_id = p_business_group_id
1179: )
1180: LOOP
1181: -- update the psb_attributes_tl table
1182: UPDATE psb_attributes_tl
1183: SET name = name || '_X',
1184: last_update_date = sysdate,
1185: last_updated_by = 1,
1186: last_update_login = null
1186: last_update_login = null
1187: WHERE attribute_id = l_org_rec.attribute_id;
1188: --
1189: -- Bug#5022777 Start.
1190: -- update psb_attributes table also.
1191: UPDATE psb_attributes
1192: SET
1193: name = name || '_X'
1194: , last_update_date = SYSDATE
1187: WHERE attribute_id = l_org_rec.attribute_id;
1188: --
1189: -- Bug#5022777 Start.
1190: -- update psb_attributes table also.
1191: UPDATE psb_attributes
1192: SET
1193: name = name || '_X'
1194: , last_update_date = SYSDATE
1195: , last_updated_by = 1
1201: END LOOP;
1202: END IF;
1203:
1204: FOR l_attribute_id_rec IN
1205: (SELECT psb_attributes_s.nextval attribute_id
1206: FROM dual)
1207: LOOP
1208: l_attribute_id := l_attribute_id_rec.attribute_id;
1209: END LOOP;
1278: select SYSTEM_ATTRIBUTE_TYPE,
1279: ATTRIBUTE_ID
1280: into Temp_Type
1281: , Temp_ID
1282: from PSB_ATTRIBUTES
1283: where SYSTEM_ATTRIBUTE_TYPE = 'JOB_CLASS'
1284: and BUSINESS_GROUP_ID = p_business_group_id;
1285: Exception
1286: When NO_DATA_FOUND then
1289: End;
1290:
1291: if (nvl(Temp_Type,'NULL') <> 'JOB_CLASS') then
1292:
1293: select psb_attributes_s.nextval
1294: into Temp_ID
1295: from dual;
1296:
1297: INSERT INTO PSB_ATTRIBUTES (
1293: select psb_attributes_s.nextval
1294: into Temp_ID
1295: from dual;
1296:
1297: INSERT INTO PSB_ATTRIBUTES (
1298: ATTRIBUTE_ID,
1299: BUSINESS_GROUP_ID,
1300: NAME,
1301: DISPLAY_IN_WORKSHEET,
1333: sysdate,
1334: 'Y'
1335: );
1336:
1337: INSERT INTO PSB_ATTRIBUTES_TL(
1338: ATTRIBUTE_ID,
1339: NAME,
1340: DISPLAY_PROMPT,
1341: LANGUAGE,
1360: 1,
1361: sysdate
1362: );
1363: else
1364: Update psb_attributes
1365: set definition_type = null
1366: , last_update_date = sysdate
1367: , last_updated_by = 1
1368: , last_update_login = null
1384: select SYSTEM_ATTRIBUTE_TYPE
1385: , ATTRIBUTE_ID
1386: into Temp_Type
1387: , Temp_ID
1388: from PSB_ATTRIBUTES
1389: where SYSTEM_ATTRIBUTE_TYPE = 'FTE'
1390: and BUSINESS_GROUP_ID = p_business_group_id;
1391: Exception
1392: When NO_DATA_FOUND then
1394: Temp_ID := NULL;
1395: End;
1396:
1397: if (nvl(Temp_Type, 'NULL') <> 'FTE') then
1398: select psb_attributes_s.nextval
1399: into Temp_ID
1400: from dual;
1401:
1402: INSERT INTO PSB_ATTRIBUTES (
1398: select psb_attributes_s.nextval
1399: into Temp_ID
1400: from dual;
1401:
1402: INSERT INTO PSB_ATTRIBUTES (
1403: ATTRIBUTE_ID,
1404: BUSINESS_GROUP_ID,
1405: NAME,
1406: DISPLAY_IN_WORKSHEET,
1441: sysdate,
1442: NULL
1443: );
1444:
1445: INSERT INTO PSB_ATTRIBUTES_TL(
1446: ATTRIBUTE_ID,
1447: NAME,
1448: DISPLAY_PROMPT,
1449: LANGUAGE,
1468: 1,
1469: sysdate
1470: );
1471: else
1472: Update psb_attributes
1473: set definition_type = null
1474: , last_update_date = sysdate
1475: , last_updated_by = 1
1476: , last_update_login = null
1490: select SYSTEM_ATTRIBUTE_TYPE
1491: , ATTRIBUTE_ID
1492: into Temp_Type
1493: , Temp_ID
1494: from PSB_ATTRIBUTES
1495: where SYSTEM_ATTRIBUTE_TYPE = 'ORG'
1496: and BUSINESS_GROUP_ID = p_business_group_id;
1497: Exception
1498: When NO_DATA_FOUND then
1503: if (nvl(Temp_Type, 'NULL') <> 'ORG') then
1504:
1505: For C_org_rec in
1506: ( Select attribute_id
1507: From psb_attributes
1508: where upper(name) = upper(l_attribute_name)
1509: and business_group_id = p_business_group_id
1510: )
1511: Loop
1508: where upper(name) = upper(l_attribute_name)
1509: and business_group_id = p_business_group_id
1510: )
1511: Loop
1512: update psb_attributes
1513: set name = name || '_X'
1514: , last_update_date = sysdate
1515: , last_updated_by = 1
1516: , last_update_login = null
1515: , last_updated_by = 1
1516: , last_update_login = null
1517: where attribute_id = c_org_rec.attribute_id;
1518:
1519: update psb_attributes_tl
1520: set name = name || '_X'
1521: , last_update_date = sysdate
1522: , last_updated_by = 1
1523: , last_update_login = null
1523: , last_update_login = null
1524: where attribute_id = c_org_rec.attribute_id;
1525: End Loop;
1526:
1527: select psb_attributes_s.nextval
1528: into Temp_ID
1529: from dual;
1530:
1531: INSERT INTO PSB_ATTRIBUTES (
1527: select psb_attributes_s.nextval
1528: into Temp_ID
1529: from dual;
1530:
1531: INSERT INTO PSB_ATTRIBUTES (
1532: ATTRIBUTE_ID,
1533: BUSINESS_GROUP_ID,
1534: NAME,
1535: DISPLAY_IN_WORKSHEET,
1570: -- 'Y'
1571: -- Bug No 2549894 End
1572: );
1573:
1574: INSERT INTO PSB_ATTRIBUTES_TL(
1575: ATTRIBUTE_ID,
1576: NAME,
1577: DISPLAY_PROMPT,
1578: LANGUAGE,
1597: 1,
1598: sysdate
1599: );
1600: else
1601: Update psb_attributes
1602: set definition_type = null
1603: , last_update_date = sysdate
1604: , last_updated_by = 1
1605: , last_update_login = null
1619: select SYSTEM_ATTRIBUTE_TYPE
1620: , ATTRIBUTE_ID
1621: into Temp_Type
1622: , Temp_ID
1623: from PSB_ATTRIBUTES
1624: where SYSTEM_ATTRIBUTE_TYPE = 'HIREDATE'
1625: and BUSINESS_GROUP_ID = p_business_group_id;
1626: Exception
1627: When NO_DATA_FOUND then
1629: Temp_ID := NULL;
1630: End;
1631:
1632: if (nvl(Temp_Type, 'NULL') <> 'HIREDATE') then
1633: select psb_attributes_s.nextval
1634: into Temp_ID
1635: from dual;
1636:
1637:
1634: into Temp_ID
1635: from dual;
1636:
1637:
1638: INSERT INTO PSB_ATTRIBUTES (
1639: ATTRIBUTE_ID,
1640: BUSINESS_GROUP_ID,
1641: NAME,
1642: DISPLAY_IN_WORKSHEET,
1674: sysdate,
1675: NULL
1676: );
1677:
1678: INSERT INTO PSB_ATTRIBUTES_TL(
1679: ATTRIBUTE_ID,
1680: NAME,
1681: DISPLAY_PROMPT,
1682: LANGUAGE,
1701: 1,
1702: sysdate
1703: );
1704: else
1705: Update psb_attributes
1706: set definition_type = null
1707: , last_update_date = sysdate
1708: , last_updated_by = 1
1709: , last_update_login = null
1722:
1723: Begin
1724: select SYSTEM_ATTRIBUTE_TYPE
1725: into Temp_Type
1726: from PSB_ATTRIBUTES
1727: where SYSTEM_ATTRIBUTE_TYPE = 'ADJUSTMENT_DATE'
1728: and BUSINESS_GROUP_ID = p_business_group_id;
1729: Exception
1730: When NO_DATA_FOUND then
1731: Temp_Type := '';
1732: End;
1733:
1734: if (nvl(Temp_Type, 'NULL') <> 'ADJUSTMENT_DATE') then
1735: select psb_attributes_s.nextval
1736: into Temp_ID
1737: from dual;
1738:
1739:
1736: into Temp_ID
1737: from dual;
1738:
1739:
1740: INSERT INTO PSB_ATTRIBUTES (
1741: ATTRIBUTE_ID,
1742: BUSINESS_GROUP_ID,
1743: NAME,
1744: DISPLAY_IN_WORKSHEET,
1776: sysdate,
1777: NULL
1778: );
1779:
1780: INSERT INTO PSB_ATTRIBUTES_TL(
1781: ATTRIBUTE_ID,
1782: NAME,
1783: DISPLAY_PROMPT,
1784: LANGUAGE,
1820: select SYSTEM_ATTRIBUTE_TYPE
1821: , ATTRIBUTE_ID
1822: into Temp_Type
1823: , Temp_ID
1824: from PSB_ATTRIBUTES
1825: where SYSTEM_ATTRIBUTE_TYPE = 'DEFAULT_WEEKLY_HOURS'
1826: and BUSINESS_GROUP_ID = p_business_group_id;
1827: Exception
1828: When NO_DATA_FOUND then
1830: Temp_ID := NULL;
1831: End;
1832:
1833: if (nvl(Temp_Type, 'NULL') <> 'DEFAULT_WEEKLY_HOURS') then
1834: select psb_attributes_s.nextval
1835: into Temp_ID
1836: from dual;
1837:
1838:
1835: into Temp_ID
1836: from dual;
1837:
1838:
1839: INSERT INTO PSB_ATTRIBUTES (
1840: ATTRIBUTE_ID,
1841: BUSINESS_GROUP_ID,
1842: NAME,
1843: DISPLAY_IN_WORKSHEET,
1878: sysdate,
1879: NULL
1880: );
1881:
1882: INSERT INTO PSB_ATTRIBUTES_TL(
1883: ATTRIBUTE_ID,
1884: NAME,
1885: DISPLAY_PROMPT,
1886: LANGUAGE,
1905: 1,
1906: sysdate
1907: );
1908: else
1909: Update psb_attributes
1910: set definition_type = null
1911: , last_update_date = sysdate
1912: , last_updated_by = 1
1913: , last_update_login = null
1999:
2000: procedure ADD_LANGUAGE
2001: is
2002: begin
2003: delete from PSB_ATTRIBUTES_TL T
2004: where not exists
2005: (select NULL
2006: from PSB_ATTRIBUTES B
2007: where B.ATTRIBUTE_ID = T.ATTRIBUTE_ID
2002: begin
2003: delete from PSB_ATTRIBUTES_TL T
2004: where not exists
2005: (select NULL
2006: from PSB_ATTRIBUTES B
2007: where B.ATTRIBUTE_ID = T.ATTRIBUTE_ID
2008: );
2009:
2010: update PSB_ATTRIBUTES_TL T set (
2006: from PSB_ATTRIBUTES B
2007: where B.ATTRIBUTE_ID = T.ATTRIBUTE_ID
2008: );
2009:
2010: update PSB_ATTRIBUTES_TL T set (
2011: NAME
2012: ) = (select
2013: B.NAME
2014: from PSB_ATTRIBUTES_TL B
2010: update PSB_ATTRIBUTES_TL T set (
2011: NAME
2012: ) = (select
2013: B.NAME
2014: from PSB_ATTRIBUTES_TL B
2015: where B.ATTRIBUTE_ID = T.ATTRIBUTE_ID
2016: and B.LANGUAGE = T.SOURCE_LANG)
2017: where (
2018: T.ATTRIBUTE_ID,
2019: T.LANGUAGE
2020: ) in (select
2021: SUBT.ATTRIBUTE_ID,
2022: SUBT.LANGUAGE
2023: from PSB_ATTRIBUTES_TL SUBB, PSB_ATTRIBUTES_TL SUBT
2024: where SUBB.ATTRIBUTE_ID = SUBT.ATTRIBUTE_ID
2025: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
2026: and (SUBB.NAME <> SUBT.NAME
2027: ));
2029: /*Bug#5237452. Added a new method to translate the name
2030: as per the session language. Also modified the sql to
2031: insert data for only the current session language */
2032:
2033: insert into PSB_ATTRIBUTES_TL (
2034: ATTRIBUTE_ID,
2035: NAME,
2036: /* Bug No 2777757 Start */
2037: DISPLAY_PROMPT,
2055: B.CREATED_BY,
2056: B.CREATION_DATE,
2057: USERENV('LANG'),
2058: USERENV('LANG')
2059: from PSB_ATTRIBUTES_TL B, FND_LANGUAGES L,PSB_ATTRIBUTES S
2060: where L.INSTALLED_FLAG = 'B'
2061: and B.LANGUAGE = L.LANGUAGE_CODE
2062: and S.attribute_id=B.attribute_id
2063: and not exists
2061: and B.LANGUAGE = L.LANGUAGE_CODE
2062: and S.attribute_id=B.attribute_id
2063: and not exists
2064: (select NULL
2065: from PSB_ATTRIBUTES_TL T
2066: where T.ATTRIBUTE_ID = B.ATTRIBUTE_ID
2067: and T.LANGUAGE = USERENV('LANG'));
2068: end ADD_LANGUAGE;
2069: