[Home] [Help]
PACKAGE BODY: APPS.PFT_BR_PROFIT_CALC_PVT
Source
1 PACKAGE BODY PFT_BR_PROFIT_CALC_PVT AS
2 /* $Header: PFTVPCAB.pls 120.1 2005/06/20 08:40:10 appldev noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'PFT_BR_PROFIT_CALC_PVT;';
8
9 --------------------------------------------------------------------------------
10 -- PRIVATE SPECIFICATIONS
11 --------------------------------------------------------------------------------
12
13
14
15
16 PROCEDURE CopyCalRuleRec(
17 p_source_obj_def_id IN NUMBER
18 ,p_target_obj_def_id IN NUMBER
19 ,p_created_by IN NUMBER
20 ,p_creation_date IN DATE
21 );
22
23
24 PROCEDURE DeleteCalRuleRec(
25 p_obj_def_id IN NUMBER
26 );
27
28 --------------------------------------------------------------------------------
29 -- PUBLIC BODIES
30 --------------------------------------------------------------------------------
31
32
33 --
34 -- PROCEDURE
35 -- CopyObjectDefinition
36 --
37 -- DESCRIPTION
38 -- Creates all the detail records of a new Profit Calculation Rule Definition (target)
39 -- by copying the detail records of another Profit Calculation Rule Definition (source).
40 --
41 -- IN
42 -- p_source_obj_def_id - Source Object Definition ID.
43 -- p_target_obj_def_id - Target Object Definition ID.
44 -- p_created_by - FND User ID (optional).
45 -- p_creation_date - System Date (optional).
46 --
47 --------------------------------------------------------------------------------
48 PROCEDURE CopyObjectDefinition(
49 p_source_obj_def_id IN NUMBER
50 ,p_target_obj_def_id IN NUMBER
51 ,p_created_by IN NUMBER
52 ,p_creation_date IN DATE
53 )
54 --------------------------------------------------------------------------------
55 IS
56
57 G_API_NAME CONSTANT VARCHAR2(30) := 'CopyObjectDefinition';
58
59 BEGIN
60
61
62 CopyCalRuleRec(
63 p_source_obj_def_id => p_source_obj_def_id
64 ,p_target_obj_def_id => p_target_obj_def_id
65 ,p_created_by => p_created_by
66 ,p_creation_date => p_creation_date
67 );
68
69
70 EXCEPTION
71
72 WHEN OTHERS THEN
73 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, G_API_NAME);
74 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75
76 END CopyObjectDefinition;
77
78
79 --
80 -- PROCEDURE
81 -- DeleteObjectDefinition
82 --
83 -- DESCRIPTION
84 -- Deletes all the details records of a Profit Calculation Rule Definition.
85 --
86 -- IN
87 -- p_obj_def_id - Object Definition ID.
88 --
89 --------------------------------------------------------------------------------
90 PROCEDURE DeleteObjectDefinition(
91 p_obj_def_id IN NUMBER
92 )
93 --------------------------------------------------------------------------------
94 IS
95
96 G_API_NAME CONSTANT VARCHAR2(30) := 'DeleteObjectDefinition';
97
98 BEGIN
99
100 DeleteCalRuleRec(
101 p_obj_def_id => p_obj_def_id
102 );
103
104 EXCEPTION
105
106 WHEN OTHERS THEN
107 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, G_API_NAME);
108 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
109
110 END DeleteObjectDefinition;
111
112
113
114 --------------------------------------------------------------------------------
115 -- PRIVATE BODIES
116 --------------------------------------------------------------------------------
117
118
119
120 --
121 -- PROCEDURE
122 -- CopyCalRuleRec
123 --
124 -- DESCRIPTION
125 -- Creates a new Profit Calculation Rule Definition Formula by copying records in the
126 -- PFT_PPROF_CALC_RULES table.
127 --
128 -- IN
129 -- p_source_obj_def_id - Source Object Definition ID.
130 -- p_target_obj_def_id - Target Object Definition ID.
131 -- p_created_by - FND User ID (optional).
132 -- p_creation_date - System Date (optional).
133 --
134 --------------------------------------------------------------------------------
135 PROCEDURE CopyCalRuleRec(
136 p_source_obj_def_id IN NUMBER
137 ,p_target_obj_def_id IN NUMBER
138 ,p_created_by IN NUMBER
139 ,p_creation_date IN DATE
140 )
141 --------------------------------------------------------------------------------
142 IS
143 BEGIN
144
145 INSERT INTO PFT_PPROF_CALC_RULES (
146 PPROF_CALC_OBJ_DEF_ID
147 ,VALUE_INDEX_FORMULA_ID
148 ,CONDITION_OBJ_ID
149 ,REGION_COUNTING_FLAG
150 ,PROFT_PERCENTILE_FLAG
151 ,VALUE_INDEX_FLAG
152 ,PROSPECT_IDENT_FLAG
153 ,HIERARCHY_OBJ_ID
154 ,CUSTOMER_LEVEL
155 ,OUTPUT_COLUMN
156 ,CREATED_BY
157 ,CREATION_DATE
158 ,last_updated_by
159 ,last_update_date
160 ,last_update_login
161 ,object_version_number
162
163 ) SELECT
164 p_target_obj_def_id
165 ,VALUE_INDEX_FORMULA_ID
166 ,CONDITION_OBJ_ID
167 ,REGION_COUNTING_FLAG
168 ,PROFT_PERCENTILE_FLAG
169 ,VALUE_INDEX_FLAG
170 ,PROSPECT_IDENT_FLAG
171 ,HIERARCHY_OBJ_ID
172 ,CUSTOMER_LEVEL
173 ,OUTPUT_COLUMN
174 ,NVL(p_created_by,created_by)
175 ,NVL(p_creation_date,creation_date)
176 ,FND_GLOBAL.user_id
177 ,SYSDATE
178 ,FND_GLOBAL.login_id
179 ,object_version_number
180 FROM PFT_PPROF_CALC_RULES
181 WHERE PPROF_CALC_OBJ_DEF_ID = p_source_obj_def_id;
182
183 END CopyCalRuleRec;
184
185
186 --
187 -- PROCEDURE
188 -- DeletCalRuleRec
189 --
190 -- DESCRIPTION
191 -- Deletes a Profit Calculation Rule Definition by performing deletes on records
192 -- in the PFT_PPROF_CALC_RULES table.
193 --
194 -- IN
195 -- p_obj_def_id - Object Definition ID.
196 --
197 --------------------------------------------------------------------------------
198 PROCEDURE DeleteCalRuleRec(
199 p_obj_def_id IN NUMBER
200 )
201 --------------------------------------------------------------------------------
202 IS
203 BEGIN
204
205 DELETE FROM PFT_PPROF_CALC_RULES
206 WHERE PPROF_CALC_OBJ_DEF_ID = p_obj_def_id;
207
208 END DeleteCalRuleRec;
209
210
211 END PFT_BR_PROFIT_CALC_PVT;