PACKAGE BODY: APPS.MSD_DP_EXPRESS_SETUP_PKG

Source

1 PACKAGE BODY msd_dp_express_setup_pkg AS
2 /* $Header: msddpxsb.pls 120.0 2005/05/25 18:09:58 appldev noship $ */
3 
4 /* Public Procedures */
5 
6 PROCEDURE LOAD_ROW(P_DEMAND_PLAN_NAME in varchar2
7          ,P_ORGANIZATION_ID	in number
8          ,P_SHARED_DB_PREFIX    in varchar2
9          ,P_OWNER            in varchar2
10 	 ,P_LAST_UPDATE_DATE in varchar2
11          ,P_CUSTOM_MODE in varchar2
12 	 )
13 is
14 
15 l_demand_plan_id number;
16 f_luby    number;  -- entity owner in file
17 f_ludate  date;    -- entity update date in file
18 db_luby   number;  -- entity owner in db
19 db_ludate date;    -- entity update date in db
20 
21 
22 BEGIN
23 
24         -- translate values to IDs
25         select DEMAND_PLAN_ID
26         into l_demand_plan_id
27         from MSD_DEMAND_PLANS
28         where DEMAND_PLAN_NAME = P_DEMAND_PLAN_NAME;
29 
30 
31 
32 
33         -- Translate owner to file_last_updated_by
34         f_luby := fnd_load_util.owner_id(P_OWNER);
35 
36         -- Translate char last_update_date to date
37         f_ludate := nvl(to_date(P_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
38         begin
39           select LAST_UPDATED_BY, LAST_UPDATE_DATE
40           into db_luby, db_ludate
41           from msd_dp_express_setup
42           where DEMAND_PLAN_ID = l_demand_plan_id;
43 
44 	  -- Test for customization and version
45           if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
46                                         db_ludate, P_CUSTOM_MODE)) then
47 	    -- Update existing row
48             update msd_dp_express_setup
49 	    set  ORGANIZATION_ID = P_ORGANIZATION_ID,
50             SHARED_DB_PREFIX = P_SHARED_DB_PREFIX,
51 	    last_update_date = f_ludate            ,
52 	    last_updated_by = f_luby             ,
53 	    last_update_login = 0
54             where demand_plan_id = l_demand_plan_id;
55 
56           end if;
57         exception
58           when no_data_found then
59             -- Record doesn't exist - insert in all cases
60             insert into msd_dp_express_setup
61             (DEMAND_PLAN_ID
62 	    ,ORGANIZATION_ID
63 	    ,SHARED_DB_PREFIX          ,
64             CREATION_DATE	       ,
65             CREATED_BY                  ,
66             LAST_UPDATE_DATE            ,
67             LAST_UPDATED_BY             ,
68             LAST_UPDATE_LOGIN
69             )
70             values
71             (l_demand_plan_id
72 	    ,P_ORGANIZATION_ID
73 	    ,P_SHARED_DB_PREFIX ,
74             f_ludate	       ,
75 	    f_luby                  ,
76 	    f_ludate            ,
77 	    f_luby             ,
78 	    0
79 	    );
80         end;
81 
82 END;
83 
84 END msd_dp_express_setup_pkg ;