PACKAGE BODY: APPS.EDW_SICM_UNSPSC_HOOK

Source

1 PACKAGE BODY EDW_SICM_UNSPSC_HOOK AS
2 /* $Header: FIISPSHB.pls 120.1 2003/06/11 07:01:09 sgautam ship $ */
3 
4   FUNCTION POST_DIM_COLLECT(p_object_name varchar2) RETURN BOOLEAN IS
5     CURSOR c_items  IS
6        Select Function_PK from EDW_SPSC_FUNCTION_LSTG
7        where Update_Fact_Flag = 'Y';
8     begin
9        -- Update all AP Facts
10        FOR litem in c_items  LOOP
11            -- Modified for bug 2971509
12 	     Update FII_AP_INV_LINES_F Fact
13            set (UNSPSC_FK_Key) =
14                (select UNSPSC.Function_PK_Key
15                 from EDW_SPSC_FUNCTION_LTC UNSPSC
16                 where (litem.Function_PK = UNSPSC.Function_PK))
17            where (Fact.Item_FK_Key IN
18                   (select IRev.Item_Revision_PK_Key
19                    from POA_DNB_ITEMS Com,
20                         EdW_Item_ItemRev_LTC IRev,
21                         EdW_Item_ItemOrg_LTC IOrg
22                    where ((litem.Function_PK = Com.Function) and
23                           (Com.Item_PK = IOrg.Item_Number_FK) and
24                           (IOrg.Item_Org_PK = IRev.Item_Org_FK))));
25 
26         END LOOP;
27 
28   return true;
29 end Post_Dim_Collect;
30 
31 END EDW_SICM_UNSPSC_HOOK;