PACKAGE BODY: APPS.PFT_BR_ACT_COST_ROLLUP_PVT

Source

1 PACKAGE BODY PFT_BR_ACT_COST_ROLLUP_PVT AS
2 /* $Header: PFTVCRUB.pls 120.0 2005/06/06 18:53:19 appldev noship $ */
3 
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7 
8 G_PKG_NAME constant varchar2(30) := 'PFT_BR_ACT_COST_ROLLUP_PVT';
9 
10 --------------------------------------------------------------------------------
11 -- PRIVATE SPECIFICATIONS
12 --------------------------------------------------------------------------------
13 
14 --------------------------------------------------------------------------------
15 -- PUBLIC BODIES
16 --------------------------------------------------------------------------------
17 
18 --
19 -- PROCEDURE
20 --	 DeleteObjectDefinition
21 --
22 -- DESCRIPTION
23 --   Deletes all the details records of an Activity Cost Rollup Definition.
24 --
25 -- IN
26 --   p_obj_def_id    - Object Definition ID.
27 --
28 --------------------------------------------------------------------------------
29 PROCEDURE DeleteObjectDefinition(
30   p_obj_def_id          in          number
31 )
32 --------------------------------------------------------------------------------
33 IS
34 
35   g_api_name    constant varchar2(30)   := 'DeleteObjectDefinition';
36 
37 BEGIN
38 
39   delete from PFT_ACTIVITY_COST_RU
40   where cost_rollup_obj_def_id = p_obj_def_id;
41 
42 EXCEPTION
43 
44   when others then
45     FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
46     raise FND_API.G_EXC_UNEXPECTED_ERROR;
47 
48 END DeleteObjectDefinition;
49 
50 
51 --
52 -- PROCEDURE
53 --	 CopyObjectDefinition
54 --
55 -- DESCRIPTION
56 --   Creates all the detail records of a new Activity Cost Rollup Definition
57 --   (target) by copying the detail records of another Activity Cost Rollup
58 --   Definition (source).
59 --
60 -- IN
61 --   p_source_obj_def_id    - Source Object Definition ID.
62 --   p_target_obj_def_id    - Target Object Definition ID.
63 --   p_created_by           - FND User ID (optional).
64 --   p_creation_date        - System Date (optional).
65 --
66 --------------------------------------------------------------------------------
67 PROCEDURE CopyObjectDefinition(
68   p_source_obj_def_id   in          number
69   ,p_target_obj_def_id  in          number
70   ,p_created_by         in          number
71   ,p_creation_date      in          date
72 )
73 --------------------------------------------------------------------------------
74 IS
75 
76   g_api_name    constant varchar2(30)   := 'CopyObjectDefinition';
77 
78 BEGIN
79 
80   insert into pft_activity_cost_ru (
81     cost_rollup_obj_def_id
82     ,activity_hier_obj_id
83     ,currency_code
84     ,condition_obj_id
85     ,created_by
86     ,creation_date
87     ,last_updated_by
88     ,last_update_date
89     ,last_update_login
90     ,object_version_number
91   ) select
92     p_target_obj_def_id
93     ,activity_hier_obj_id
94     ,currency_code
95     ,condition_obj_id
96     ,nvl(p_created_by,created_by)
97     ,nvl(p_creation_date,creation_date)
98     ,FND_GLOBAL.user_id
99     ,sysdate
100     ,FND_GLOBAL.login_id
101     ,object_version_number
102   from pft_activity_cost_ru
103   where cost_rollup_obj_def_id = p_source_obj_def_id;
104 
105 
106 EXCEPTION
107 
108   when others then
109     FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
110     raise FND_API.G_EXC_UNEXPECTED_ERROR;
111 
112 END CopyObjectDefinition;
113 
114 
115 
116 END PFT_BR_ACT_COST_ROLLUP_PVT;