PACKAGE BODY: APPS.EDW_SICM_DUNS_HOOK

Source

1 PACKAGE BODY EDW_SICM_DUNS_HOOK AS
2 /* $Header: FIIDUNHB.pls 120.1 2003/07/01 06:27:47 sgautam ship $ */
3 
4   FUNCTION POST_DIM_COLLECT(p_object_name varchar2) RETURN BOOLEAN IS
5     CURSOR c_duns is
6     select DUNS.DUNS_NUM_PK_KEY DUNS_NUM_PK_KEY,
7 	   Tprt.TPartner_Loc_PK_Key TPartner_Loc_PK_Key
8     from EDW_DUNS_NUMBER_LSTG lstg,
9          EDW_DUNS_NUMBER_LTC DUNS,
10 	 POA_DNB_TRD_PRTNR Com,
11 	 EDW_TPRT_TPARTNER_LOC_LTC Tprt
12     where lstg.Update_Fact_Flag = 'Y'
13     AND   lstg.DUNS_NUM_PK=DUNS.DUNS_NUM_PK
14     AND   lstg.DUNS_NUM_PK=Com.DUNS
15     AND   Tprt.Tpartner_Loc_PK = Com.TRADING_PARTNER_PK;
16 
17     begin
18 
19       -- Update AP Facts
20        FOR lduns in c_duns  LOOP
21            -- Updating FII_AP_HOLD_DATA_F
22            Update FII_AP_HOLD_DATA_F Fact
23 	   set DUNS_FK_KEY = lduns.DUNS_NUM_PK_KEY
24 	   where Fact.Supplier_FK_Key = lduns.TPartner_Loc_PK_Key;
25 
26 
27            -- Updating FII_AP_INV_ON_HOLD_F
28            Update FII_AP_INV_ON_HOLD_F Fact
29 	   set DUNS_FK_KEY = lduns.DUNS_NUM_PK_KEY
30 	   where Fact.Supplier_FK_Key = lduns.TPartner_Loc_PK_Key;
31 
32 
33 
34            -- Updating FII_AP_INV_LINES_F
35 	   Update FII_AP_INV_LINES_F Fact
36 	   set DUNS_FK_KEY = lduns.DUNS_NUM_PK_KEY
37 	   where Fact.Supplier_FK_Key = lduns.TPartner_Loc_PK_Key;
38 
39 
40 
41            -- Updating FII_AP_INV_PAYMTS_F
42 	   Update FII_AP_INV_PAYMTS_F Fact
43 	   set DUNS_FK_KEY = lduns.DUNS_NUM_PK_KEY
44 	   where Fact.Supplier_FK_Key = lduns.TPartner_Loc_PK_Key;
45 
46 
47 
48            -- Updating FII_AP_SCH_PAYMTS_F
49 	   Update FII_AP_SCH_PAYMTS_F Fact
50 	   set DUNS_FK_KEY = lduns.DUNS_NUM_PK_KEY
51 	   where Fact.Supplier_FK_Key = lduns.TPartner_Loc_PK_Key;
52 
53 
54         END LOOP;
55 
56   return true;
57 end Post_Dim_Collect;
58 
59 END  EDW_SICM_DUNS_HOOK;
60