1 PACKAGE BODY EDW_SICM_INV_PAYMTS_HOOK as
2 /*$Header: FIIAIPHB.pls 120.0 2002/08/24 04:40:45 appldev noship $ */
3
4 FUNCTION Pre_Fact_Collect(p_object_name varchar2) RETURN BOOLEAN IS
5 begin
6 -- Update DUNS
7 Update FII_AP_INV_PAYMTS_FSTG Fact
8 set (DUNS_FK, SIC_CODE_FK) =
9 (select Com.DUNS, Com.SIC_Code
10 from POA_DNB_TRD_PRTNR Com
11 where (Fact.Supplier_FK = Com.Trading_Partner_PK))
12 where (Fact.Supplier_FK IN (select Trading_Partner_PK
13 from POA_DNB_TRD_PRTNR));
14 return true;
15 end Pre_Fact_Collect;
16 END EDW_SICM_INV_PAYMTS_HOOK;
17