[Home] [Help]
1752:
1753:
1754: /**Procedure to assign the Business Entities
1755: **Any Base Class Entry can have multiple business entities assigned to it.
1756: **For same IREP entry multiple assignment records to be created in fnd_lookup_assignments
1757: **with lookup_code equal to the business entity codes.
1758: **Relationship between lookup_assignments and the lookup_values is already existing.
1759: **/
1760: procedure assign_business_entities
1766: ) is
1767:
1768: cursor c1(c_base_class_id in number) is
1769: select *
1770: from fnd_lookup_assignments
1771: where obj_name = 'FND_IREP_CLASSES'
1772: and lookup_type = 'BUSINESS_ENTITY'
1773: and instance_pk1_value = c_base_class_id;
1774:
1779: c_derived_class_id in number,
1780: c_lookup_code in varchar2
1781: ) is
1782: select *
1783: from fnd_lookup_assignments
1784: where obj_name = 'FND_IREP_CLASSES'
1785: and lookup_type = 'BUSINESS_ENTITY'
1786: and instance_pk1_value = c_derived_class_id
1787: and lookup_code = c_lookup_code
1789:
1790: c2_rec c2%ROWTYPE;
1791:
1792: cursor c3 is
1793: select fnd_lookup_assignments_s.nextval assign_id
1794: from dual;
1795:
1796: c3_rec c3%ROWTYPE;
1797:
1823: open c3;
1824: fetch c3 into c3_rec;
1825: close c3;
1826:
1827: insert into fnd_lookup_assignments
1828: (
1829: LOOKUP_ASSIGNMENT_ID,
1830: LOOKUP_TYPE,
1831: LOOKUP_CODE,
1865: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1866: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'oracle.apps.fnd.wf.ws.assign_business_entities', 'Updating Business Entity='||c1_rec.lookup_code);
1867: end if;
1868:
1869: update fnd_lookup_assignments
1870: set LAST_UPDATED_BY = 1,
1871: last_update_date = sysdate,
1872: last_update_login = 0
1873: where current of c2;