1 PACKAGE BODY EDW_POA_CONTRACT_HOOK as
2 /*$Header: poahkctb.pls 115.11 2002/01/24 17:54:22 pkm ship $ */
3 function Pre_Fact_Collect(p_object_name varchar2) return boolean is
4 begin
5 EDW_OWB_COLLECTION_UTIL.write_to_log_file('Entering Contract Pre Fact Hook Procedure');
6 IF (fnd_profile.value('POA_DNB_HOOKS') = 'N') THEN
7 EDW_OWB_COLLECTION_UTIL.write_to_log_file('Updating Staging Table to reference DUNS and SIC Code Dimension');
8
9 Update POA_EDW_CONTRACT_FSTG Fact
10 set (DUNS_FK, SIC_CODE_FK) =
11 (select Com.DUNS, Com.SIC_Code
12 from POA_DNB_TRD_PRTNR Com
13 where (Fact.Supplier_Site_FK = Com.Trading_Partner_PK))
14 where ((Fact.Collection_Status = 'READY') and
15 (Fact.Supplier_Site_FK IN (select Trading_Partner_PK
16 from POA_DNB_TRD_PRTNR)));
17 ELSE
18 EDW_OWB_COLLECTION_UTIL.write_to_log_file('DNB is disabled');
19 END IF;
20
21 return true;
22 end Pre_Fact_Collect;
23
24 END EDW_POA_CONTRACT_HOOK;
25