[Home] [Help]
19: x_desc_flex OUT NOCOPY CS_COUNTERS_EXT_PVT.DFF_Rec_Type
20: ) IS
21: BEGIN
22: x_desc_flex := p_desc_flex;
23: IF p_desc_flex.attribute1 = FND_API.G_MISS_CHAR THEN
24: x_desc_flex.attribute1 := p_old_desc_flex.attribute1;
25: END IF;
26:
27: IF p_desc_flex.attribute2 = FND_API.G_MISS_CHAR THEN
23: IF p_desc_flex.attribute1 = FND_API.G_MISS_CHAR THEN
24: x_desc_flex.attribute1 := p_old_desc_flex.attribute1;
25: END IF;
26:
27: IF p_desc_flex.attribute2 = FND_API.G_MISS_CHAR THEN
28: x_desc_flex.attribute2 := p_old_desc_flex.attribute2;
29: END IF;
30:
31: IF p_desc_flex.attribute3 = FND_API.G_MISS_CHAR THEN
27: IF p_desc_flex.attribute2 = FND_API.G_MISS_CHAR THEN
28: x_desc_flex.attribute2 := p_old_desc_flex.attribute2;
29: END IF;
30:
31: IF p_desc_flex.attribute3 = FND_API.G_MISS_CHAR THEN
32: x_desc_flex.attribute3 := p_old_desc_flex.attribute3;
33: END IF;
34:
35: IF p_desc_flex.attribute4 = FND_API.G_MISS_CHAR THEN
31: IF p_desc_flex.attribute3 = FND_API.G_MISS_CHAR THEN
32: x_desc_flex.attribute3 := p_old_desc_flex.attribute3;
33: END IF;
34:
35: IF p_desc_flex.attribute4 = FND_API.G_MISS_CHAR THEN
36: x_desc_flex.attribute4 := p_old_desc_flex.attribute4;
37: END IF;
38:
39: IF p_desc_flex.attribute5 = FND_API.G_MISS_CHAR THEN
35: IF p_desc_flex.attribute4 = FND_API.G_MISS_CHAR THEN
36: x_desc_flex.attribute4 := p_old_desc_flex.attribute4;
37: END IF;
38:
39: IF p_desc_flex.attribute5 = FND_API.G_MISS_CHAR THEN
40: x_desc_flex.attribute5 := p_old_desc_flex.attribute5;
41: END IF;
42:
43: IF p_desc_flex.attribute6 = FND_API.G_MISS_CHAR THEN
39: IF p_desc_flex.attribute5 = FND_API.G_MISS_CHAR THEN
40: x_desc_flex.attribute5 := p_old_desc_flex.attribute5;
41: END IF;
42:
43: IF p_desc_flex.attribute6 = FND_API.G_MISS_CHAR THEN
44: x_desc_flex.attribute6 := p_old_desc_flex.attribute6;
45: END IF;
46:
47: IF p_desc_flex.attribute7 = FND_API.G_MISS_CHAR THEN
43: IF p_desc_flex.attribute6 = FND_API.G_MISS_CHAR THEN
44: x_desc_flex.attribute6 := p_old_desc_flex.attribute6;
45: END IF;
46:
47: IF p_desc_flex.attribute7 = FND_API.G_MISS_CHAR THEN
48: x_desc_flex.attribute7 := p_old_desc_flex.attribute7;
49: END IF;
50:
51: IF p_desc_flex.attribute8 = FND_API.G_MISS_CHAR THEN
47: IF p_desc_flex.attribute7 = FND_API.G_MISS_CHAR THEN
48: x_desc_flex.attribute7 := p_old_desc_flex.attribute7;
49: END IF;
50:
51: IF p_desc_flex.attribute8 = FND_API.G_MISS_CHAR THEN
52: x_desc_flex.attribute8 := p_old_desc_flex.attribute8;
53: END IF;
54:
55: IF p_desc_flex.attribute9 = FND_API.G_MISS_CHAR THEN
51: IF p_desc_flex.attribute8 = FND_API.G_MISS_CHAR THEN
52: x_desc_flex.attribute8 := p_old_desc_flex.attribute8;
53: END IF;
54:
55: IF p_desc_flex.attribute9 = FND_API.G_MISS_CHAR THEN
56: x_desc_flex.attribute9 := p_old_desc_flex.attribute1;
57: END IF;
58:
59: IF p_desc_flex.attribute10 = FND_API.G_MISS_CHAR THEN
55: IF p_desc_flex.attribute9 = FND_API.G_MISS_CHAR THEN
56: x_desc_flex.attribute9 := p_old_desc_flex.attribute1;
57: END IF;
58:
59: IF p_desc_flex.attribute10 = FND_API.G_MISS_CHAR THEN
60: x_desc_flex.attribute10 := p_old_desc_flex.attribute10;
61: END IF;
62:
63: IF p_desc_flex.attribute11 = FND_API.G_MISS_CHAR THEN
59: IF p_desc_flex.attribute10 = FND_API.G_MISS_CHAR THEN
60: x_desc_flex.attribute10 := p_old_desc_flex.attribute10;
61: END IF;
62:
63: IF p_desc_flex.attribute11 = FND_API.G_MISS_CHAR THEN
64: x_desc_flex.attribute11 := p_old_desc_flex.attribute11;
65: END IF;
66:
67: IF p_desc_flex.attribute12 = FND_API.G_MISS_CHAR THEN
63: IF p_desc_flex.attribute11 = FND_API.G_MISS_CHAR THEN
64: x_desc_flex.attribute11 := p_old_desc_flex.attribute11;
65: END IF;
66:
67: IF p_desc_flex.attribute12 = FND_API.G_MISS_CHAR THEN
68: x_desc_flex.attribute12 := p_old_desc_flex.attribute12;
69: END IF;
70:
71: IF p_desc_flex.attribute13 = FND_API.G_MISS_CHAR THEN
67: IF p_desc_flex.attribute12 = FND_API.G_MISS_CHAR THEN
68: x_desc_flex.attribute12 := p_old_desc_flex.attribute12;
69: END IF;
70:
71: IF p_desc_flex.attribute13 = FND_API.G_MISS_CHAR THEN
72: x_desc_flex.attribute13 := p_old_desc_flex.attribute13;
73: END IF;
74:
75: IF p_desc_flex.attribute14 = FND_API.G_MISS_CHAR THEN
71: IF p_desc_flex.attribute13 = FND_API.G_MISS_CHAR THEN
72: x_desc_flex.attribute13 := p_old_desc_flex.attribute13;
73: END IF;
74:
75: IF p_desc_flex.attribute14 = FND_API.G_MISS_CHAR THEN
76: x_desc_flex.attribute14 := p_old_desc_flex.attribute14;
77: END IF;
78:
79: IF p_desc_flex.attribute15 = FND_API.G_MISS_CHAR THEN
75: IF p_desc_flex.attribute14 = FND_API.G_MISS_CHAR THEN
76: x_desc_flex.attribute14 := p_old_desc_flex.attribute14;
77: END IF;
78:
79: IF p_desc_flex.attribute15 = FND_API.G_MISS_CHAR THEN
80: x_desc_flex.attribute15 := p_old_desc_flex.attribute15;
81: END IF;
82:
83: IF p_desc_flex.context = FND_API.G_MISS_CHAR THEN
79: IF p_desc_flex.attribute15 = FND_API.G_MISS_CHAR THEN
80: x_desc_flex.attribute15 := p_old_desc_flex.attribute15;
81: END IF;
82:
83: IF p_desc_flex.context = FND_API.G_MISS_CHAR THEN
84: x_desc_flex.context := p_old_desc_flex.context;
85: END IF;
86:
87: END Initialize_Desc_Flex_For_Upd;
93: x_ctr_rec OUT NOCOPY Ctr_Rec_Type
94: ) IS
95: BEGIN
96: x_ctr_rec := p_ctr_rec;
97: IF p_ctr_rec.counter_group_id = FND_API.G_MISS_NUM THEN
98: x_ctr_rec.counter_group_id := p_old_ctr_rec.counter_group_id;
99: END IF;
100:
101: IF p_ctr_rec.name = FND_API.G_MISS_CHAR THEN
97: IF p_ctr_rec.counter_group_id = FND_API.G_MISS_NUM THEN
98: x_ctr_rec.counter_group_id := p_old_ctr_rec.counter_group_id;
99: END IF;
100:
101: IF p_ctr_rec.name = FND_API.G_MISS_CHAR THEN
102: x_ctr_rec.name := p_old_ctr_rec.name;
103: END IF;
104:
105: IF p_ctr_rec.type = FND_API.G_MISS_CHAR THEN
101: IF p_ctr_rec.name = FND_API.G_MISS_CHAR THEN
102: x_ctr_rec.name := p_old_ctr_rec.name;
103: END IF;
104:
105: IF p_ctr_rec.type = FND_API.G_MISS_CHAR THEN
106: x_ctr_rec.type := p_old_ctr_rec.type;
107: END IF;
108:
109: IF p_ctr_rec.initial_reading = FND_API.G_MISS_NUM THEN
105: IF p_ctr_rec.type = FND_API.G_MISS_CHAR THEN
106: x_ctr_rec.type := p_old_ctr_rec.type;
107: END IF;
108:
109: IF p_ctr_rec.initial_reading = FND_API.G_MISS_NUM THEN
110: x_ctr_rec.initial_reading := p_old_ctr_rec.initial_reading;
111: END IF;
112:
113: IF p_ctr_rec.step_value = FND_API.G_MISS_NUM THEN
109: IF p_ctr_rec.initial_reading = FND_API.G_MISS_NUM THEN
110: x_ctr_rec.initial_reading := p_old_ctr_rec.initial_reading;
111: END IF;
112:
113: IF p_ctr_rec.step_value = FND_API.G_MISS_NUM THEN
114: x_ctr_rec.step_value := p_old_ctr_rec.step_value;
115: END IF;
116:
117: IF p_ctr_rec.uom_code = FND_API.G_MISS_CHAR THEN
113: IF p_ctr_rec.step_value = FND_API.G_MISS_NUM THEN
114: x_ctr_rec.step_value := p_old_ctr_rec.step_value;
115: END IF;
116:
117: IF p_ctr_rec.uom_code = FND_API.G_MISS_CHAR THEN
118: x_ctr_rec.uom_code := p_old_ctr_rec.uom_code;
119: END IF;
120:
121: IF p_ctr_rec.derive_function = FND_API.G_MISS_CHAR THEN
117: IF p_ctr_rec.uom_code = FND_API.G_MISS_CHAR THEN
118: x_ctr_rec.uom_code := p_old_ctr_rec.uom_code;
119: END IF;
120:
121: IF p_ctr_rec.derive_function = FND_API.G_MISS_CHAR THEN
122: x_ctr_rec.derive_function := p_old_ctr_rec.derive_function;
123: END IF;
124:
125: IF p_ctr_rec.derive_counter_id = FND_API.G_MISS_NUM THEN
121: IF p_ctr_rec.derive_function = FND_API.G_MISS_CHAR THEN
122: x_ctr_rec.derive_function := p_old_ctr_rec.derive_function;
123: END IF;
124:
125: IF p_ctr_rec.derive_counter_id = FND_API.G_MISS_NUM THEN
126: x_ctr_rec.derive_counter_id := p_old_ctr_rec.derive_counter_id;
127: END IF;
128:
129: IF p_ctr_rec.derive_property_id = FND_API.G_MISS_NUM THEN
125: IF p_ctr_rec.derive_counter_id = FND_API.G_MISS_NUM THEN
126: x_ctr_rec.derive_counter_id := p_old_ctr_rec.derive_counter_id;
127: END IF;
128:
129: IF p_ctr_rec.derive_property_id = FND_API.G_MISS_NUM THEN
130: x_ctr_rec.derive_property_id := p_old_ctr_rec.derive_property_id;
131: END IF;
132:
133: IF p_ctr_rec.formula_text = FND_API.G_MISS_CHAR THEN
129: IF p_ctr_rec.derive_property_id = FND_API.G_MISS_NUM THEN
130: x_ctr_rec.derive_property_id := p_old_ctr_rec.derive_property_id;
131: END IF;
132:
133: IF p_ctr_rec.formula_text = FND_API.G_MISS_CHAR THEN
134: x_ctr_rec.formula_text := p_old_ctr_rec.formula_text;
135: END IF;
136:
137: IF p_ctr_rec.usage_item_id = FND_API.G_MISS_NUM THEN
133: IF p_ctr_rec.formula_text = FND_API.G_MISS_CHAR THEN
134: x_ctr_rec.formula_text := p_old_ctr_rec.formula_text;
135: END IF;
136:
137: IF p_ctr_rec.usage_item_id = FND_API.G_MISS_NUM THEN
138: x_ctr_rec.usage_item_id := p_old_ctr_rec.usage_item_id;
139: END IF;
140:
141: IF p_ctr_rec.start_date_active = FND_API.G_MISS_DATE THEN
137: IF p_ctr_rec.usage_item_id = FND_API.G_MISS_NUM THEN
138: x_ctr_rec.usage_item_id := p_old_ctr_rec.usage_item_id;
139: END IF;
140:
141: IF p_ctr_rec.start_date_active = FND_API.G_MISS_DATE THEN
142: x_ctr_rec.start_date_active := p_old_ctr_rec.start_date_active;
143: END IF;
144:
145: IF p_ctr_rec.end_date_active = FND_API.G_MISS_DATE THEN
141: IF p_ctr_rec.start_date_active = FND_API.G_MISS_DATE THEN
142: x_ctr_rec.start_date_active := p_old_ctr_rec.start_date_active;
143: END IF;
144:
145: IF p_ctr_rec.end_date_active = FND_API.G_MISS_DATE THEN
146: x_ctr_rec.end_date_active := p_old_ctr_rec.end_date_active;
147: END IF;
148:
149: IF p_ctr_rec.customer_view = FND_API.G_MISS_CHAR THEN
145: IF p_ctr_rec.end_date_active = FND_API.G_MISS_DATE THEN
146: x_ctr_rec.end_date_active := p_old_ctr_rec.end_date_active;
147: END IF;
148:
149: IF p_ctr_rec.customer_view = FND_API.G_MISS_CHAR THEN
150: x_ctr_rec.customer_view := p_old_ctr_rec.customer_view;
151: END IF;
152:
153: IF p_ctr_rec.duration = FND_API.G_MISS_NUM THEN
149: IF p_ctr_rec.customer_view = FND_API.G_MISS_CHAR THEN
150: x_ctr_rec.customer_view := p_old_ctr_rec.customer_view;
151: END IF;
152:
153: IF p_ctr_rec.duration = FND_API.G_MISS_NUM THEN
154: x_ctr_rec.duration := p_old_ctr_rec.duration;
155: END IF;
156:
157: IF p_ctr_rec.duration_uom = FND_API.G_MISS_CHAR THEN
153: IF p_ctr_rec.duration = FND_API.G_MISS_NUM THEN
154: x_ctr_rec.duration := p_old_ctr_rec.duration;
155: END IF;
156:
157: IF p_ctr_rec.duration_uom = FND_API.G_MISS_CHAR THEN
158: x_ctr_rec.duration_uom := p_old_ctr_rec.duration_uom;
159: END IF;
160:
161: IF p_ctr_rec.direction = FND_API.G_MISS_CHAR THEN
157: IF p_ctr_rec.duration_uom = FND_API.G_MISS_CHAR THEN
158: x_ctr_rec.duration_uom := p_old_ctr_rec.duration_uom;
159: END IF;
160:
161: IF p_ctr_rec.direction = FND_API.G_MISS_CHAR THEN
162: x_ctr_rec.direction := p_old_ctr_rec.direction;
163: END IF;
164:
165: IF p_ctr_rec.filter_reading_count = FND_API.G_MISS_NUM THEN
161: IF p_ctr_rec.direction = FND_API.G_MISS_CHAR THEN
162: x_ctr_rec.direction := p_old_ctr_rec.direction;
163: END IF;
164:
165: IF p_ctr_rec.filter_reading_count = FND_API.G_MISS_NUM THEN
166: x_ctr_rec.filter_reading_count := p_old_ctr_rec.filter_reading_count;
167: END IF;
168:
169: IF p_ctr_rec.filter_type = FND_API.G_MISS_CHAR THEN
165: IF p_ctr_rec.filter_reading_count = FND_API.G_MISS_NUM THEN
166: x_ctr_rec.filter_reading_count := p_old_ctr_rec.filter_reading_count;
167: END IF;
168:
169: IF p_ctr_rec.filter_type = FND_API.G_MISS_CHAR THEN
170: x_ctr_rec.filter_type := p_old_ctr_rec.filter_type;
171: END IF;
172:
173: IF p_ctr_rec.filter_time_uom = FND_API.G_MISS_CHAR THEN
169: IF p_ctr_rec.filter_type = FND_API.G_MISS_CHAR THEN
170: x_ctr_rec.filter_type := p_old_ctr_rec.filter_type;
171: END IF;
172:
173: IF p_ctr_rec.filter_time_uom = FND_API.G_MISS_CHAR THEN
174: x_ctr_rec.filter_time_uom := p_old_ctr_rec.filter_time_uom;
175: END IF;
176:
177: IF p_ctr_rec.estimation_id = FND_API.G_MISS_CHAR THEN
173: IF p_ctr_rec.filter_time_uom = FND_API.G_MISS_CHAR THEN
174: x_ctr_rec.filter_time_uom := p_old_ctr_rec.filter_time_uom;
175: END IF;
176:
177: IF p_ctr_rec.estimation_id = FND_API.G_MISS_CHAR THEN
178: x_ctr_rec.estimation_id := p_old_ctr_rec.estimation_id;
179: END IF;
180:
181:
195: x_ctr_prop_rec OUT NOCOPY Ctr_Prop_Rec_Type
196: ) IS
197: BEGIN
198: x_ctr_prop_rec := p_ctr_prop_rec;
199: IF p_ctr_prop_rec.counter_id = FND_API.G_MISS_NUM THEN
200: x_ctr_prop_rec.counter_id := p_old_ctr_prop_rec.counter_id;
201: END IF;
202:
203: IF p_ctr_prop_rec.name = FND_API.G_MISS_CHAR THEN
199: IF p_ctr_prop_rec.counter_id = FND_API.G_MISS_NUM THEN
200: x_ctr_prop_rec.counter_id := p_old_ctr_prop_rec.counter_id;
201: END IF;
202:
203: IF p_ctr_prop_rec.name = FND_API.G_MISS_CHAR THEN
204: x_ctr_prop_rec.name := p_old_ctr_prop_rec.name;
205: END IF;
206:
207: IF p_ctr_prop_rec.property_data_type = FND_API.G_MISS_CHAR THEN
203: IF p_ctr_prop_rec.name = FND_API.G_MISS_CHAR THEN
204: x_ctr_prop_rec.name := p_old_ctr_prop_rec.name;
205: END IF;
206:
207: IF p_ctr_prop_rec.property_data_type = FND_API.G_MISS_CHAR THEN
208: x_ctr_prop_rec.property_data_type := p_old_ctr_prop_rec.property_data_type;
209: END IF;
210:
211: IF p_ctr_prop_rec.default_value = FND_API.G_MISS_CHAR THEN
207: IF p_ctr_prop_rec.property_data_type = FND_API.G_MISS_CHAR THEN
208: x_ctr_prop_rec.property_data_type := p_old_ctr_prop_rec.property_data_type;
209: END IF;
210:
211: IF p_ctr_prop_rec.default_value = FND_API.G_MISS_CHAR THEN
212: x_ctr_prop_rec.default_value := p_old_ctr_prop_rec.default_value;
213: END IF;
214:
215: IF p_ctr_prop_rec.maximum_value = FND_API.G_MISS_CHAR THEN
211: IF p_ctr_prop_rec.default_value = FND_API.G_MISS_CHAR THEN
212: x_ctr_prop_rec.default_value := p_old_ctr_prop_rec.default_value;
213: END IF;
214:
215: IF p_ctr_prop_rec.maximum_value = FND_API.G_MISS_CHAR THEN
216: x_ctr_prop_rec.maximum_value := p_old_ctr_prop_rec.default_value;
217: END IF;
218:
219: IF p_ctr_prop_rec.minimum_value = FND_API.G_MISS_CHAR THEN
215: IF p_ctr_prop_rec.maximum_value = FND_API.G_MISS_CHAR THEN
216: x_ctr_prop_rec.maximum_value := p_old_ctr_prop_rec.default_value;
217: END IF;
218:
219: IF p_ctr_prop_rec.minimum_value = FND_API.G_MISS_CHAR THEN
220: x_ctr_prop_rec.minimum_value := p_old_ctr_prop_rec.minimum_value;
221: END IF;
222:
223: IF p_ctr_prop_rec.start_date_active = FND_API.G_MISS_DATE THEN
219: IF p_ctr_prop_rec.minimum_value = FND_API.G_MISS_CHAR THEN
220: x_ctr_prop_rec.minimum_value := p_old_ctr_prop_rec.minimum_value;
221: END IF;
222:
223: IF p_ctr_prop_rec.start_date_active = FND_API.G_MISS_DATE THEN
224: x_ctr_prop_rec.start_date_active := p_old_ctr_prop_rec.start_date_active;
225: END IF;
226:
227: IF p_ctr_prop_rec.end_date_active = FND_API.G_MISS_DATE THEN
223: IF p_ctr_prop_rec.start_date_active = FND_API.G_MISS_DATE THEN
224: x_ctr_prop_rec.start_date_active := p_old_ctr_prop_rec.start_date_active;
225: END IF;
226:
227: IF p_ctr_prop_rec.end_date_active = FND_API.G_MISS_DATE THEN
228: x_ctr_prop_rec.end_date_active := p_old_ctr_prop_rec.end_date_active;
229: END IF;
230:
231: IF p_ctr_prop_rec.property_lov_type = FND_API.G_MISS_CHAR THEN
227: IF p_ctr_prop_rec.end_date_active = FND_API.G_MISS_DATE THEN
228: x_ctr_prop_rec.end_date_active := p_old_ctr_prop_rec.end_date_active;
229: END IF;
230:
231: IF p_ctr_prop_rec.property_lov_type = FND_API.G_MISS_CHAR THEN
232: x_ctr_prop_rec.property_lov_type := p_old_ctr_prop_rec.property_lov_type;
233: END IF;
234:
235:
275:
276: PROCEDURE Create_Ctr_Grp_Template
277: (
278: p_api_version IN NUMBER,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
281: x_return_status OUT NOCOPY VARCHAR2,
282: x_msg_count OUT NOCOPY NUMBER,
283: x_msg_data OUT NOCOPY VARCHAR2,
276: PROCEDURE Create_Ctr_Grp_Template
277: (
278: p_api_version IN NUMBER,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
281: x_return_status OUT NOCOPY VARCHAR2,
282: x_msg_count OUT NOCOPY NUMBER,
283: x_msg_data OUT NOCOPY VARCHAR2,
284: p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
296:
297: SAVEPOINT Create_Ctr_Grp_Template_PUB;
298:
299: -- Standard call to check for call compatibility.
300: IF NOT FND_API.Compatible_API_Call (l_api_version ,
301: p_api_version ,
302: l_api_name ,
303: G_PKG_NAME ) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: IF NOT FND_API.Compatible_API_Call (l_api_version ,
301: p_api_version ,
302: l_api_name ,
303: G_PKG_NAME ) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306: -- Initialize message list if p_init_msg_list is set to TRUE.
307: IF FND_API.to_Boolean( p_init_msg_list ) THEN
308: FND_MSG_PUB.initialize;
303: G_PKG_NAME ) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306: -- Initialize message list if p_init_msg_list is set to TRUE.
307: IF FND_API.to_Boolean( p_init_msg_list ) THEN
308: FND_MSG_PUB.initialize;
309: END IF;
310:
311: -- Initialize API return status to success
308: FND_MSG_PUB.initialize;
309: END IF;
310:
311: -- Initialize API return status to success
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313:
314: -- Customer/Vertical Hookups
315: /* Customer pre -processing section - Mandatory */
316: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'C' ) ) THEN
324: p_ctr_grp_rec => p_ctr_grp_rec,
325: x_ctr_grp_id => x_ctr_grp_id,
326: x_object_version_number => x_object_version_number
327: );
328: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
325: x_ctr_grp_id => x_ctr_grp_id,
326: x_object_version_number => x_object_version_number
327: );
328: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333: END IF;
326: x_object_version_number => x_object_version_number
327: );
328: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333: END IF;
334: /* Vertical pre -processing section - Mandatory */
327: );
328: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333: END IF;
334: /* Vertical pre -processing section - Mandatory */
335: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
343: p_ctr_grp_rec => p_ctr_grp_rec,
344: x_ctr_grp_id => x_ctr_grp_id,
345: x_object_version_number => x_object_version_number
346: );
347: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
348: RAISE FND_API.G_EXC_ERROR;
349: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
344: x_ctr_grp_id => x_ctr_grp_id,
345: x_object_version_number => x_object_version_number
346: );
347: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
348: RAISE FND_API.G_EXC_ERROR;
349: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
352: END IF;
345: x_object_version_number => x_object_version_number
346: );
347: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
348: RAISE FND_API.G_EXC_ERROR;
349: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
352: END IF;
353:
346: );
347: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
348: RAISE FND_API.G_EXC_ERROR;
349: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
352: END IF;
353:
354:
389: ,x_msg_count => x_msg_count
390: ,x_msg_data => x_msg_data
391: );
392:
393: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
394: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
395: RETURN;
396: END IF;
397:
409: p_ctr_grp_rec => p_ctr_grp_rec,
410: x_ctr_grp_id => x_ctr_grp_id,
411: x_object_version_number => x_object_version_number
412: );
413: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
410: x_ctr_grp_id => x_ctr_grp_id,
411: x_object_version_number => x_object_version_number
412: );
413: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418: END IF;
411: x_object_version_number => x_object_version_number
412: );
413: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418: END IF;
419: /* Vertical post -processing section - Mandatory */
412: );
413: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
414: RAISE FND_API.G_EXC_ERROR;
415: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418: END IF;
419: /* Vertical post -processing section - Mandatory */
420: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
428: p_ctr_grp_rec => p_ctr_grp_rec,
429: x_ctr_grp_id => x_ctr_grp_id,
430: x_object_version_number => x_object_version_number
431: );
432: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
429: x_ctr_grp_id => x_ctr_grp_id,
430: x_object_version_number => x_object_version_number
431: );
432: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: END IF;
430: x_object_version_number => x_object_version_number
431: );
432: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: END IF;
438:
431: );
432: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
433: RAISE FND_API.G_EXC_ERROR;
434: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: END IF;
438:
439: IF FND_API.To_Boolean( p_commit ) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: END IF;
438:
439: IF FND_API.To_Boolean( p_commit ) THEN
440: COMMIT WORK;
441: END IF;
442:
443: FND_MSG_PUB.Count_And_Get
446: );
447:
448: EXCEPTION
449:
450: WHEN FND_API.G_EXC_ERROR THEN
451: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
452: x_return_status := FND_API.G_RET_STS_ERROR ;
453: FND_MSG_PUB.Count_And_Get
454: (p_count => x_msg_count ,
448: EXCEPTION
449:
450: WHEN FND_API.G_EXC_ERROR THEN
451: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
452: x_return_status := FND_API.G_RET_STS_ERROR ;
453: FND_MSG_PUB.Count_And_Get
454: (p_count => x_msg_count ,
455: p_data => x_msg_data
456: );
453: FND_MSG_PUB.Count_And_Get
454: (p_count => x_msg_count ,
455: p_data => x_msg_data
456: );
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
460: FND_MSG_PUB.Count_And_Get
461: (p_count => x_msg_count ,
455: p_data => x_msg_data
456: );
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
460: FND_MSG_PUB.Count_And_Get
461: (p_count => x_msg_count ,
462: p_data => x_msg_data
463: );
462: p_data => x_msg_data
463: );
464: WHEN OTHERS THEN
465: ROLLBACK TO Create_Ctr_Grp_Template_PUB;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
467: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
468: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
469: END IF;
470: FND_MSG_PUB.Count_And_Get
475:
476: PROCEDURE Create_Ctr_Grp_Instance
477: (
478: p_api_version IN NUMBER,
479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
480: p_commit IN VARCHAR2 := FND_API.G_FALSE,
481: x_return_status OUT NOCOPY VARCHAR2,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
476: PROCEDURE Create_Ctr_Grp_Instance
477: (
478: p_api_version IN NUMBER,
479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
480: p_commit IN VARCHAR2 := FND_API.G_FALSE,
481: x_return_status OUT NOCOPY VARCHAR2,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
484: p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
496:
497: PROCEDURE Create_Counter
498: (
499: p_api_version IN NUMBER,
500: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
501: p_commit IN VARCHAR2 := FND_API.G_FALSE,
502: x_return_status OUT NOCOPY VARCHAR2,
503: x_msg_count OUT NOCOPY NUMBER,
504: x_msg_data OUT NOCOPY VARCHAR2,
497: PROCEDURE Create_Counter
498: (
499: p_api_version IN NUMBER,
500: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
501: p_commit IN VARCHAR2 := FND_API.G_FALSE,
502: x_return_status OUT NOCOPY VARCHAR2,
503: x_msg_count OUT NOCOPY NUMBER,
504: x_msg_data OUT NOCOPY VARCHAR2,
505: p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
520:
521: SAVEPOINT Create_Counter_PUB;
522:
523: -- Standard call to check for call compatibility.
524: IF NOT FND_API.Compatible_API_Call (l_api_version ,
525: p_api_version ,
526: l_api_name ,
527: G_PKG_NAME ) THEN
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
524: IF NOT FND_API.Compatible_API_Call (l_api_version ,
525: p_api_version ,
526: l_api_name ,
527: G_PKG_NAME ) THEN
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
529: END IF;
530: -- Initialize message list if p_init_msg_list is set to TRUE.
531: IF FND_API.to_Boolean( p_init_msg_list ) THEN
532: FND_MSG_PUB.initialize;
527: G_PKG_NAME ) THEN
528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
529: END IF;
530: -- Initialize message list if p_init_msg_list is set to TRUE.
531: IF FND_API.to_Boolean( p_init_msg_list ) THEN
532: FND_MSG_PUB.initialize;
533: END IF;
534:
535:
545: p_ctr_rec => p_ctr_rec,
546: x_ctr_id => x_ctr_id,
547: x_object_version_number => x_object_version_number
548: );
549: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
546: x_ctr_id => x_ctr_id,
547: x_object_version_number => x_object_version_number
548: );
549: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554: END IF;
547: x_object_version_number => x_object_version_number
548: );
549: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554: END IF;
555: /* Vertical pre -processing section - Mandatory */
548: );
549: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554: END IF;
555: /* Vertical pre -processing section - Mandatory */
556: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
564: p_ctr_rec => p_ctr_rec,
565: x_ctr_id => x_ctr_id,
566: x_object_version_number => x_object_version_number
567: );
568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
565: x_ctr_id => x_ctr_id,
566: x_object_version_number => x_object_version_number
567: );
568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
566: x_object_version_number => x_object_version_number
567: );
568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
574:
567: );
568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: END IF;
574:
575: -- Initialize API return status to success
572: END IF;
573: END IF;
574:
575: -- Initialize API return status to success
576: x_return_status := FND_API.G_RET_STS_SUCCESS;
577:
578: -- Start of API Body
579: l_counter_template_rec.COUNTER_ID := x_ctr_id;
580: l_counter_template_rec.GROUP_ID := p_ctr_rec.counter_group_id;
639: ,x_msg_count => x_msg_count
640: ,x_msg_data => x_msg_data
641: );
642:
643: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
644: ROLLBACK TO Create_Counter_PUB;
645: RETURN;
646: END IF;
647: -- End of API Body
659: p_ctr_rec => p_ctr_rec,
660: x_ctr_id => x_ctr_id,
661: x_object_version_number => x_object_version_number
662: );
663: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
660: x_ctr_id => x_ctr_id,
661: x_object_version_number => x_object_version_number
662: );
663: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668: END IF;
661: x_object_version_number => x_object_version_number
662: );
663: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668: END IF;
669: /* Vertical post -processing section - Mandatory */
662: );
663: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
664: RAISE FND_API.G_EXC_ERROR;
665: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668: END IF;
669: /* Vertical post -processing section - Mandatory */
670: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
678: p_ctr_rec => p_ctr_rec,
679: x_ctr_id => x_ctr_id,
680: x_object_version_number => x_object_version_number
681: );
682: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
679: x_ctr_id => x_ctr_id,
680: x_object_version_number => x_object_version_number
681: );
682: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687: END IF;
680: x_object_version_number => x_object_version_number
681: );
682: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687: END IF;
688:
681: );
682: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687: END IF;
688:
689:
686: END IF;
687: END IF;
688:
689:
690: IF FND_API.To_Boolean( p_commit ) THEN
691: COMMIT WORK;
692: END IF;
693:
694: FND_MSG_PUB.Count_And_Get
697: );
698:
699: EXCEPTION
700:
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO Create_Counter_PUB;
703: x_return_status := FND_API.G_RET_STS_ERROR ;
704: FND_MSG_PUB.Count_And_Get
705: (p_count => x_msg_count ,
699: EXCEPTION
700:
701: WHEN FND_API.G_EXC_ERROR THEN
702: ROLLBACK TO Create_Counter_PUB;
703: x_return_status := FND_API.G_RET_STS_ERROR ;
704: FND_MSG_PUB.Count_And_Get
705: (p_count => x_msg_count ,
706: p_data => x_msg_data
707: );
704: FND_MSG_PUB.Count_And_Get
705: (p_count => x_msg_count ,
706: p_data => x_msg_data
707: );
708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: ROLLBACK TO Create_Counter_PUB;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711: FND_MSG_PUB.Count_And_Get
712: (p_count => x_msg_count ,
706: p_data => x_msg_data
707: );
708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: ROLLBACK TO Create_Counter_PUB;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711: FND_MSG_PUB.Count_And_Get
712: (p_count => x_msg_count ,
713: p_data => x_msg_data
714: );
713: p_data => x_msg_data
714: );
715: WHEN OTHERS THEN
716: ROLLBACK TO Create_Counter_PUB;
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
718: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
719: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
720: END IF;
721: FND_MSG_PUB.Count_And_Get
726:
727: PROCEDURE Create_Ctr_Prop
728: (
729: p_api_version IN NUMBER,
730: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
731: p_commit IN VARCHAR2 := FND_API.G_FALSE,
732: x_return_status OUT NOCOPY VARCHAR2,
733: x_msg_count OUT NOCOPY NUMBER,
734: x_msg_data OUT NOCOPY VARCHAR2,
727: PROCEDURE Create_Ctr_Prop
728: (
729: p_api_version IN NUMBER,
730: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
731: p_commit IN VARCHAR2 := FND_API.G_FALSE,
732: x_return_status OUT NOCOPY VARCHAR2,
733: x_msg_count OUT NOCOPY NUMBER,
734: x_msg_data OUT NOCOPY VARCHAR2,
735: p_ctr_prop_rec IN Ctr_Prop_Rec_Type,
746:
747: SAVEPOINT Create_Ctr_Prop_PUB;
748:
749: -- Standard call to check for call compatibility.
750: IF NOT FND_API.Compatible_API_Call (l_api_version ,
751: p_api_version ,
752: l_api_name ,
753: G_PKG_NAME ) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: IF NOT FND_API.Compatible_API_Call (l_api_version ,
751: p_api_version ,
752: l_api_name ,
753: G_PKG_NAME ) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: FND_MSG_PUB.initialize;
753: G_PKG_NAME ) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: /* Customer pre -processing section - Mandatory */
770: p_ctr_prop_rec => p_ctr_prop_rec,
771: x_ctr_prop_id => x_ctr_prop_id,
772: x_object_version_number => x_object_version_number
773: );
774: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
771: x_ctr_prop_id => x_ctr_prop_id,
772: x_object_version_number => x_object_version_number
773: );
774: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
772: x_object_version_number => x_object_version_number
773: );
774: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
780: /* Vertical pre -processing section - Mandatory */
773: );
774: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
780: /* Vertical pre -processing section - Mandatory */
781: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
789: p_ctr_prop_rec => p_ctr_prop_rec,
790: x_ctr_prop_id => x_ctr_prop_id,
791: x_object_version_number => x_object_version_number
792: );
793: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
794: RAISE FND_API.G_EXC_ERROR;
795: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
797: END IF;
790: x_ctr_prop_id => x_ctr_prop_id,
791: x_object_version_number => x_object_version_number
792: );
793: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
794: RAISE FND_API.G_EXC_ERROR;
795: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
797: END IF;
798: END IF;
791: x_object_version_number => x_object_version_number
792: );
793: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
794: RAISE FND_API.G_EXC_ERROR;
795: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
797: END IF;
798: END IF;
799:
792: );
793: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
794: RAISE FND_API.G_EXC_ERROR;
795: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
797: END IF;
798: END IF;
799:
800: -- Initialize API return status to success
797: END IF;
798: END IF;
799:
800: -- Initialize API return status to success
801: x_return_status := FND_API.G_RET_STS_SUCCESS;
802:
803: -- Start of API Body
804: l_ctr_property_template_rec.COUNTER_PROPERTY_ID := x_ctr_prop_id;
805: l_ctr_property_template_rec.COUNTER_ID := p_ctr_prop_rec.counter_id;
842: ,x_msg_count => x_msg_count
843: ,x_msg_data => x_msg_data
844: );
845:
846: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
847: ROLLBACK TO Create_Ctr_Prop_PUB;
848: RETURN;
849: END IF;
850: --
863: p_ctr_prop_rec => p_ctr_prop_rec,
864: x_ctr_prop_id => x_ctr_prop_id,
865: x_object_version_number => x_object_version_number
866: );
867: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
868: RAISE FND_API.G_EXC_ERROR;
869: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END IF;
864: x_ctr_prop_id => x_ctr_prop_id,
865: x_object_version_number => x_object_version_number
866: );
867: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
868: RAISE FND_API.G_EXC_ERROR;
869: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872: END IF;
865: x_object_version_number => x_object_version_number
866: );
867: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
868: RAISE FND_API.G_EXC_ERROR;
869: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872: END IF;
873:
866: );
867: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
868: RAISE FND_API.G_EXC_ERROR;
869: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872: END IF;
873:
874: /* Vertical post -processing section - Mandatory */
883: p_ctr_prop_rec => p_ctr_prop_rec,
884: x_ctr_prop_id => x_ctr_prop_id,
885: x_object_version_number => x_object_version_number
886: );
887: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
884: x_ctr_prop_id => x_ctr_prop_id,
885: x_object_version_number => x_object_version_number
886: );
887: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
885: x_object_version_number => x_object_version_number
886: );
887: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
893:
886: );
887: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
893:
894:
891: END IF;
892: END IF;
893:
894:
895: IF FND_API.To_Boolean( p_commit ) THEN
896: COMMIT WORK;
897: END IF;
898:
899: FND_MSG_PUB.Count_And_Get
902: );
903:
904: EXCEPTION
905:
906: WHEN FND_API.G_EXC_ERROR THEN
907: ROLLBACK TO Create_Ctr_Prop_PUB;
908: x_return_status := FND_API.G_RET_STS_ERROR ;
909: FND_MSG_PUB.Count_And_Get
910: (p_count => x_msg_count ,
904: EXCEPTION
905:
906: WHEN FND_API.G_EXC_ERROR THEN
907: ROLLBACK TO Create_Ctr_Prop_PUB;
908: x_return_status := FND_API.G_RET_STS_ERROR ;
909: FND_MSG_PUB.Count_And_Get
910: (p_count => x_msg_count ,
911: p_data => x_msg_data
912: );
909: FND_MSG_PUB.Count_And_Get
910: (p_count => x_msg_count ,
911: p_data => x_msg_data
912: );
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: ROLLBACK TO Create_Ctr_Prop_PUB;
915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
916: FND_MSG_PUB.Count_And_Get
917: (p_count => x_msg_count ,
911: p_data => x_msg_data
912: );
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: ROLLBACK TO Create_Ctr_Prop_PUB;
915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
916: FND_MSG_PUB.Count_And_Get
917: (p_count => x_msg_count ,
918: p_data => x_msg_data
919: );
918: p_data => x_msg_data
919: );
920: WHEN OTHERS THEN
921: ROLLBACK TO Create_Ctr_Prop_PUB;
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
923: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
924: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
925: END IF;
926: FND_MSG_PUB.Count_And_Get
931:
932: PROCEDURE Create_Formula_Ref
933: (
934: p_api_version IN NUMBER,
935: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
936: p_commit IN VARCHAR2 := FND_API.G_FALSE,
937: x_return_status OUT NOCOPY VARCHAR2,
938: x_msg_count OUT NOCOPY NUMBER,
939: x_msg_data OUT NOCOPY VARCHAR2,
932: PROCEDURE Create_Formula_Ref
933: (
934: p_api_version IN NUMBER,
935: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
936: p_commit IN VARCHAR2 := FND_API.G_FALSE,
937: x_return_status OUT NOCOPY VARCHAR2,
938: x_msg_count OUT NOCOPY NUMBER,
939: x_msg_data OUT NOCOPY VARCHAR2,
940: p_counter_id IN NUMBER,
970:
971: SAVEPOINT Create_Formula_Ref_PUB;
972:
973: -- Standard call to check for call compatibility.
974: IF NOT FND_API.Compatible_API_Call (l_api_version ,
975: p_api_version ,
976: l_api_name ,
977: G_PKG_NAME ) THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
974: IF NOT FND_API.Compatible_API_Call (l_api_version ,
975: p_api_version ,
976: l_api_name ,
977: G_PKG_NAME ) THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: END IF;
980: -- Initialize message list if p_init_msg_list is set to TRUE.
981: IF FND_API.to_Boolean( p_init_msg_list ) THEN
982: FND_MSG_PUB.initialize;
977: G_PKG_NAME ) THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: END IF;
980: -- Initialize message list if p_init_msg_list is set to TRUE.
981: IF FND_API.to_Boolean( p_init_msg_list ) THEN
982: FND_MSG_PUB.initialize;
983: END IF;
984:
985: /* Customer pre -processing section - Mandatory */
998: x_ctr_formula_bvar_id => x_ctr_formula_bvar_id,
999: x_object_version_number => x_object_version_number,
1000: p_reading_type => p_reading_type
1001: );
1002: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
999: x_object_version_number => x_object_version_number,
1000: p_reading_type => p_reading_type
1001: );
1002: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007: END IF;
1000: p_reading_type => p_reading_type
1001: );
1002: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007: END IF;
1008: /* Vertical pre -processing section - Mandatory */
1001: );
1002: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006: END IF;
1007: END IF;
1008: /* Vertical pre -processing section - Mandatory */
1009: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
1021: x_ctr_formula_bvar_id => x_ctr_formula_bvar_id,
1022: x_object_version_number => x_object_version_number,
1023: p_reading_type => p_reading_type
1024: );
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1022: x_object_version_number => x_object_version_number,
1023: p_reading_type => p_reading_type
1024: );
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1023: p_reading_type => p_reading_type
1024: );
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1031:
1024: );
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029: END IF;
1030: END IF;
1031:
1032: -- Initialize API return status to success
1029: END IF;
1030: END IF;
1031:
1032: -- Initialize API return status to success
1033: x_return_status := FND_API.G_RET_STS_SUCCESS;
1034: --
1035: -- Start of API Body
1036: --this is a template, insert one reference for each ctr association id of the formula counter.
1037: FOR ctr_associations_rec in ctr_associations LOOP
1077: ,x_msg_count => x_msg_count
1078: ,x_msg_data => x_msg_data
1079: );
1080:
1081: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1082: ROLLBACK TO Create_Formula_Ref_PUB;
1083: RETURN;
1084: End if;
1085: END IF;
1105: x_ctr_formula_bvar_id => x_ctr_formula_bvar_id,
1106: x_object_version_number => x_object_version_number,
1107: p_reading_type => p_reading_type
1108: );
1109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1113: END IF;
1106: x_object_version_number => x_object_version_number,
1107: p_reading_type => p_reading_type
1108: );
1109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1113: END IF;
1114: END IF;
1107: p_reading_type => p_reading_type
1108: );
1109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1113: END IF;
1114: END IF;
1115: /* Vertical post -processing section - Mandatory */
1108: );
1109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1113: END IF;
1114: END IF;
1115: /* Vertical post -processing section - Mandatory */
1116: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
1128: x_ctr_formula_bvar_id => x_ctr_formula_bvar_id,
1129: x_object_version_number => x_object_version_number,
1130: p_reading_type => p_reading_type
1131: );
1132: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1129: x_object_version_number => x_object_version_number,
1130: p_reading_type => p_reading_type
1131: );
1132: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1130: p_reading_type => p_reading_type
1131: );
1132: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1138:
1131: );
1132: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1138:
1139:
1136: END IF;
1137: END IF;
1138:
1139:
1140: IF FND_API.To_Boolean( p_commit ) THEN
1141: COMMIT WORK;
1142: END IF;
1143:
1144: FND_MSG_PUB.Count_And_Get
1147: );
1148:
1149: EXCEPTION
1150:
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: ROLLBACK TO Create_Formula_Ref_PUB;
1153: x_return_status := FND_API.G_RET_STS_ERROR ;
1154: FND_MSG_PUB.Count_And_Get
1155: (p_count => x_msg_count ,
1149: EXCEPTION
1150:
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: ROLLBACK TO Create_Formula_Ref_PUB;
1153: x_return_status := FND_API.G_RET_STS_ERROR ;
1154: FND_MSG_PUB.Count_And_Get
1155: (p_count => x_msg_count ,
1156: p_data => x_msg_data
1157: );
1154: FND_MSG_PUB.Count_And_Get
1155: (p_count => x_msg_count ,
1156: p_data => x_msg_data
1157: );
1158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1159: ROLLBACK TO Create_Formula_Ref_PUB;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1161: FND_MSG_PUB.Count_And_Get
1162: (p_count => x_msg_count ,
1156: p_data => x_msg_data
1157: );
1158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1159: ROLLBACK TO Create_Formula_Ref_PUB;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1161: FND_MSG_PUB.Count_And_Get
1162: (p_count => x_msg_count ,
1163: p_data => x_msg_data
1164: );
1163: p_data => x_msg_data
1164: );
1165: WHEN OTHERS THEN
1166: ROLLBACK TO Create_Formula_Ref_PUB;
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1168: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1169: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1170: END IF;
1171: FND_MSG_PUB.Count_And_Get
1177:
1178: PROCEDURE Create_GrpOp_Filter
1179: (
1180: p_api_version IN NUMBER,
1181: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1182: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1183: x_return_status OUT NOCOPY VARCHAR2,
1184: x_msg_count OUT NOCOPY NUMBER,
1185: x_msg_data OUT NOCOPY VARCHAR2,
1178: PROCEDURE Create_GrpOp_Filter
1179: (
1180: p_api_version IN NUMBER,
1181: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1182: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1183: x_return_status OUT NOCOPY VARCHAR2,
1184: x_msg_count OUT NOCOPY NUMBER,
1185: x_msg_data OUT NOCOPY VARCHAR2,
1186: p_seq_no IN NUMBER := null,
1205:
1206: SAVEPOINT Create_GrpOp_Filter_PUB;
1207:
1208: -- Standard call to check for call compatibility.
1209: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1210: p_api_version ,
1211: l_api_name ,
1212: G_PKG_NAME ) THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1210: p_api_version ,
1211: l_api_name ,
1212: G_PKG_NAME ) THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215: -- Initialize message list if p_init_msg_list is set to TRUE.
1216: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1217: FND_MSG_PUB.initialize;
1212: G_PKG_NAME ) THEN
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215: -- Initialize message list if p_init_msg_list is set to TRUE.
1216: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1217: FND_MSG_PUB.initialize;
1218: END IF;
1219:
1220: /* Customer / Vertical Hookups
1237: p_log_op => p_log_op,
1238: x_ctr_der_filter_id => x_ctr_der_filter_id,
1239: x_object_version_number => x_object_version_number
1240: );
1241: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1238: x_ctr_der_filter_id => x_ctr_der_filter_id,
1239: x_object_version_number => x_object_version_number
1240: );
1241: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246: END IF;
1239: x_object_version_number => x_object_version_number
1240: );
1241: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246: END IF;
1247: /* Vertical pre -processing section - Mandatory */
1240: );
1241: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246: END IF;
1247: /* Vertical pre -processing section - Mandatory */
1248: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
1263: p_log_op => p_log_op,
1264: x_ctr_der_filter_id => x_ctr_der_filter_id,
1265: x_object_version_number => x_object_version_number
1266: );
1267: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1264: x_ctr_der_filter_id => x_ctr_der_filter_id,
1265: x_object_version_number => x_object_version_number
1266: );
1267: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272: END IF;
1265: x_object_version_number => x_object_version_number
1266: );
1267: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272: END IF;
1273: -- Initialize API return status to success
1266: );
1267: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1268: RAISE FND_API.G_EXC_ERROR;
1269: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272: END IF;
1273: -- Initialize API return status to success
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: END IF;
1272: END IF;
1273: -- Initialize API return status to success
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1275: --
1276: -- Start of API Body
1277: l_ctr_derived_filters_tbl(1).COUNTER_DERIVED_FILTER_ID := x_ctr_der_filter_id;
1278: l_ctr_derived_filters_tbl(1).COUNTER_ID := p_counter_id;
1311: ,x_msg_count => x_msg_count
1312: ,x_msg_data => x_msg_data
1313: );
1314:
1315: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1316: ROLLBACK TO Create_GrpOp_Filter_PUB;
1317: RETURN;
1318: END IF;
1319: --
1340: p_log_op => p_log_op,
1341: x_ctr_der_filter_id => x_ctr_der_filter_id,
1342: x_object_version_number => x_object_version_number
1343: );
1344: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1341: x_ctr_der_filter_id => x_ctr_der_filter_id,
1342: x_object_version_number => x_object_version_number
1343: );
1344: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1342: x_object_version_number => x_object_version_number
1343: );
1344: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1350: /* Vertical post -processing section - Mandatory */
1343: );
1344: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1345: RAISE FND_API.G_EXC_ERROR;
1346: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1348: END IF;
1349: END IF;
1350: /* Vertical post -processing section - Mandatory */
1351: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
1366: p_log_op => p_log_op,
1367: x_ctr_der_filter_id => x_ctr_der_filter_id,
1368: x_object_version_number => x_object_version_number
1369: );
1370: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1367: x_ctr_der_filter_id => x_ctr_der_filter_id,
1368: x_object_version_number => x_object_version_number
1369: );
1370: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375: END IF;
1368: x_object_version_number => x_object_version_number
1369: );
1370: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375: END IF;
1376:
1369: );
1370: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375: END IF;
1376:
1377: IF FND_API.To_Boolean( p_commit ) THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375: END IF;
1376:
1377: IF FND_API.To_Boolean( p_commit ) THEN
1378: COMMIT WORK;
1379: END IF;
1380:
1381: FND_MSG_PUB.Count_And_Get
1384: );
1385:
1386: EXCEPTION
1387:
1388: WHEN FND_API.G_EXC_ERROR THEN
1389: ROLLBACK TO Create_GrpOp_Filter_PUB;
1390: x_return_status := FND_API.G_RET_STS_ERROR ;
1391: FND_MSG_PUB.Count_And_Get
1392: (p_count => x_msg_count ,
1386: EXCEPTION
1387:
1388: WHEN FND_API.G_EXC_ERROR THEN
1389: ROLLBACK TO Create_GrpOp_Filter_PUB;
1390: x_return_status := FND_API.G_RET_STS_ERROR ;
1391: FND_MSG_PUB.Count_And_Get
1392: (p_count => x_msg_count ,
1393: p_data => x_msg_data
1394: );
1391: FND_MSG_PUB.Count_And_Get
1392: (p_count => x_msg_count ,
1393: p_data => x_msg_data
1394: );
1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: ROLLBACK TO Create_GrpOp_Filter_PUB;
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1398: FND_MSG_PUB.Count_And_Get
1399: (p_count => x_msg_count ,
1393: p_data => x_msg_data
1394: );
1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: ROLLBACK TO Create_GrpOp_Filter_PUB;
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1398: FND_MSG_PUB.Count_And_Get
1399: (p_count => x_msg_count ,
1400: p_data => x_msg_data
1401: );
1400: p_data => x_msg_data
1401: );
1402: WHEN OTHERS THEN
1403: ROLLBACK TO Create_GrpOp_Filter_PUB;
1404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1406: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1407: END IF;
1408: FND_MSG_PUB.Count_And_Get
1414:
1415: PROCEDURE Create_Ctr_Association
1416: (
1417: p_api_version IN NUMBER,
1418: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1419: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1420: x_return_status OUT NOCOPY VARCHAR2,
1421: x_msg_count OUT NOCOPY NUMBER,
1422: x_msg_data OUT NOCOPY VARCHAR2,
1415: PROCEDURE Create_Ctr_Association
1416: (
1417: p_api_version IN NUMBER,
1418: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1419: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1420: x_return_status OUT NOCOPY VARCHAR2,
1421: x_msg_count OUT NOCOPY NUMBER,
1422: x_msg_data OUT NOCOPY VARCHAR2,
1423: p_ctr_grp_id IN NUMBER,
1434: BEGIN
1435: SAVEPOINT Create_Ctr_Association_PUB;
1436:
1437: -- Standard call to check for call compatibility.
1438: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1439: p_api_version ,
1440: l_api_name ,
1441: G_PKG_NAME ) THEN
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1439: p_api_version ,
1440: l_api_name ,
1441: G_PKG_NAME ) THEN
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1443: END IF;
1444: -- Initialize message list if p_init_msg_list is set to TRUE.
1445: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1446: FND_MSG_PUB.initialize;
1441: G_PKG_NAME ) THEN
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1443: END IF;
1444: -- Initialize message list if p_init_msg_list is set to TRUE.
1445: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1446: FND_MSG_PUB.initialize;
1447: END IF;
1448: /* Customer/Vertical Hookups
1449: /* Customer pre -processing section - Mandatory */
1459: p_source_object_id => p_source_object_id,
1460: x_ctr_association_id => x_ctr_association_id,
1461: x_object_version_number => x_object_version_number
1462: );
1463: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1460: x_ctr_association_id => x_ctr_association_id,
1461: x_object_version_number => x_object_version_number
1462: );
1463: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468: END IF;
1461: x_object_version_number => x_object_version_number
1462: );
1463: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468: END IF;
1469: /* Vertical pre -processing section - Mandatory */
1462: );
1463: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1464: RAISE FND_API.G_EXC_ERROR;
1465: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468: END IF;
1469: /* Vertical pre -processing section - Mandatory */
1470: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
1479: p_source_object_id => p_source_object_id,
1480: x_ctr_association_id => x_ctr_association_id,
1481: x_object_version_number => x_object_version_number
1482: );
1483: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1480: x_ctr_association_id => x_ctr_association_id,
1481: x_object_version_number => x_object_version_number
1482: );
1483: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488: END IF;
1481: x_object_version_number => x_object_version_number
1482: );
1483: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488: END IF;
1489:
1482: );
1483: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488: END IF;
1489:
1490: -- Initialize API return status to success
1487: END IF;
1488: END IF;
1489:
1490: -- Initialize API return status to success
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492: -- Start of API Body
1493: /*
1494: BEGIN
1495: SELECT association_type
1542: ,x_msg_count => x_msg_count
1543: ,x_msg_data => x_msg_data
1544: );
1545:
1546: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1547: ROLLBACK TO Create_Ctr_Association_PUB;
1548: RETURN;
1549: END IF;
1550:
1564: p_source_object_id => p_source_object_id,
1565: x_ctr_association_id => l_ctr_item_associations_rec.CTR_ASSOCIATION_ID,
1566: x_object_version_number => x_object_version_number
1567: );
1568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1569: RAISE FND_API.G_EXC_ERROR;
1570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1572: END IF;
1565: x_ctr_association_id => l_ctr_item_associations_rec.CTR_ASSOCIATION_ID,
1566: x_object_version_number => x_object_version_number
1567: );
1568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1569: RAISE FND_API.G_EXC_ERROR;
1570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1572: END IF;
1573: END IF;
1566: x_object_version_number => x_object_version_number
1567: );
1568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1569: RAISE FND_API.G_EXC_ERROR;
1570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1572: END IF;
1573: END IF;
1574: /* Vertical post -processing section - Mandatory */
1567: );
1568: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1569: RAISE FND_API.G_EXC_ERROR;
1570: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1572: END IF;
1573: END IF;
1574: /* Vertical post -processing section - Mandatory */
1575: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
1584: p_source_object_id => p_source_object_id,
1585: x_ctr_association_id => l_ctr_item_associations_rec.CTR_ASSOCIATION_ID,
1586: x_object_version_number => x_object_version_number
1587: );
1588: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1585: x_ctr_association_id => l_ctr_item_associations_rec.CTR_ASSOCIATION_ID,
1586: x_object_version_number => x_object_version_number
1587: );
1588: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1586: x_object_version_number => x_object_version_number
1587: );
1588: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1594:
1587: );
1588: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1594:
1595: IF FND_API.To_Boolean( p_commit ) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593: END IF;
1594:
1595: IF FND_API.To_Boolean( p_commit ) THEN
1596: COMMIT WORK;
1597: END IF;
1598:
1599: FND_MSG_PUB.Count_And_Get
1602: );
1603:
1604: EXCEPTION
1605:
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: ROLLBACK TO Create_Ctr_Association_PUB;
1608: x_return_status := FND_API.G_RET_STS_ERROR ;
1609: FND_MSG_PUB.Count_And_Get
1610: (p_count => x_msg_count ,
1604: EXCEPTION
1605:
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: ROLLBACK TO Create_Ctr_Association_PUB;
1608: x_return_status := FND_API.G_RET_STS_ERROR ;
1609: FND_MSG_PUB.Count_And_Get
1610: (p_count => x_msg_count ,
1611: p_data => x_msg_data
1612: );
1609: FND_MSG_PUB.Count_And_Get
1610: (p_count => x_msg_count ,
1611: p_data => x_msg_data
1612: );
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: ROLLBACK TO Create_Ctr_Association_PUB;
1615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1616: FND_MSG_PUB.Count_And_Get
1617: (p_count => x_msg_count ,
1611: p_data => x_msg_data
1612: );
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: ROLLBACK TO Create_Ctr_Association_PUB;
1615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1616: FND_MSG_PUB.Count_And_Get
1617: (p_count => x_msg_count ,
1618: p_data => x_msg_data
1619: );
1618: p_data => x_msg_data
1619: );
1620: WHEN OTHERS THEN
1621: ROLLBACK TO Create_Ctr_Association_PUB;
1622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1623: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1624: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1625: END IF;
1626: FND_MSG_PUB.Count_And_Get
1632:
1633: PROCEDURE AutoInstantiate_Counters
1634: (
1635: p_api_version IN NUMBER,
1636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1638: x_return_status OUT NOCOPY VARCHAR2,
1639: x_msg_count OUT NOCOPY NUMBER,
1640: x_msg_data OUT NOCOPY VARCHAR2,
1633: PROCEDURE AutoInstantiate_Counters
1634: (
1635: p_api_version IN NUMBER,
1636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1638: x_return_status OUT NOCOPY VARCHAR2,
1639: x_msg_count OUT NOCOPY NUMBER,
1640: x_msg_data OUT NOCOPY VARCHAR2,
1641: p_source_object_id_template IN NUMBER,
1653: BEGIN
1654: SAVEPOINT AutoInstantiate_Counters_PUB;
1655:
1656: -- Standard call to check for call compatibility.
1657: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1658: p_api_version ,
1659: l_api_name ,
1660: G_PKG_NAME ) THEN
1661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1658: p_api_version ,
1659: l_api_name ,
1660: G_PKG_NAME ) THEN
1661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1662: END IF;
1663: -- Initialize message list if p_init_msg_list is set to TRUE.
1664: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1665: FND_MSG_PUB.initialize;
1660: G_PKG_NAME ) THEN
1661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1662: END IF;
1663: -- Initialize message list if p_init_msg_list is set to TRUE.
1664: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1665: FND_MSG_PUB.initialize;
1666: END IF;
1667:
1668: /* Customer/Vertical Hookups
1679: p_source_object_id_instance => p_source_object_id_instance,
1680: x_ctr_grp_id_template => x_ctr_grp_id_template,
1681: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1682: );
1683: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1687: END IF;
1680: x_ctr_grp_id_template => x_ctr_grp_id_template,
1681: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1682: );
1683: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1687: END IF;
1688: END IF;
1681: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1682: );
1683: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1687: END IF;
1688: END IF;
1689: /* Vertical pre -processing section - Mandatory */
1682: );
1683: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1687: END IF;
1688: END IF;
1689: /* Vertical pre -processing section - Mandatory */
1690: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
1699: p_source_object_id_instance => p_source_object_id_instance,
1700: x_ctr_grp_id_template => x_ctr_grp_id_template,
1701: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1702: );
1703: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1700: x_ctr_grp_id_template => x_ctr_grp_id_template,
1701: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1702: );
1703: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708: END IF;
1701: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1702: );
1703: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708: END IF;
1709:
1702: );
1703: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1704: RAISE FND_API.G_EXC_ERROR;
1705: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708: END IF;
1709:
1710: -- Initialize API return status to success
1707: END IF;
1708: END IF;
1709:
1710: -- Initialize API return status to success
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712: -- Start of API Body
1713: CSI_COUNTER_TEMPLATE_PUB.AutoInstantiate_Counters
1714: (
1715: p_api_version => p_api_version
1726: ,x_ctr_grp_id_instance => x_ctr_grp_id_instance
1727: ,p_organization_id => p_organization_id
1728: );
1729:
1730: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
1731: l_msg_index := 1;
1732: l_msg_count := x_msg_count;
1733:
1734: WHILE l_msg_count > 0 LOOP
1733:
1734: WHILE l_msg_count > 0 LOOP
1735: x_msg_data := FND_MSG_PUB.GET
1736: (l_msg_index,
1737: FND_API.G_FALSE);
1738: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_TEMPLATE_PUB.AutoInstantiate_Counters');
1739: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1740: l_msg_index := l_msg_index + 1;
1741: l_msg_count := l_msg_count - 1;
1739: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1740: l_msg_index := l_msg_index + 1;
1741: l_msg_count := l_msg_count - 1;
1742: END LOOP;
1743: RAISE FND_API.G_EXC_ERROR;
1744: END IF;
1745:
1746: -- End of API Body
1747: --
1759: p_source_object_id_instance => p_source_object_id_instance,
1760: x_ctr_grp_id_template => x_ctr_grp_id_template,
1761: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1762: );
1763: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1767: END IF;
1760: x_ctr_grp_id_template => x_ctr_grp_id_template,
1761: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1762: );
1763: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1767: END IF;
1768: END IF;
1761: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1762: );
1763: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1767: END IF;
1768: END IF;
1769: /* Vertical post -processing section - Mandatory */
1762: );
1763: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1767: END IF;
1768: END IF;
1769: /* Vertical post -processing section - Mandatory */
1770: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
1779: p_source_object_id_instance => p_source_object_id_instance,
1780: x_ctr_grp_id_template => x_ctr_grp_id_template,
1781: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1782: );
1783: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1780: x_ctr_grp_id_template => x_ctr_grp_id_template,
1781: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1782: );
1783: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788: END IF;
1781: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1782: );
1783: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788: END IF;
1789:
1782: );
1783: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788: END IF;
1789:
1790: -- IF FND_API.To_Boolean( p_commit ) THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788: END IF;
1789:
1790: -- IF FND_API.To_Boolean( p_commit ) THEN
1791: IF FND_API.To_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
1792: COMMIT WORK;
1793: END IF;
1794:
1787: END IF;
1788: END IF;
1789:
1790: -- IF FND_API.To_Boolean( p_commit ) THEN
1791: IF FND_API.To_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
1792: COMMIT WORK;
1793: END IF;
1794:
1795: FND_MSG_PUB.Count_And_Get
1797: p_data => x_msg_data
1798: );
1799:
1800: EXCEPTION
1801: WHEN FND_API.G_EXC_ERROR THEN
1802: x_return_status := FND_API.G_RET_STS_ERROR ;
1803: ROLLBACK TO AutoInstantiate_Counters_PUB;
1804: FND_MSG_PUB.Count_And_Get
1805: (p_count => x_msg_count ,
1798: );
1799:
1800: EXCEPTION
1801: WHEN FND_API.G_EXC_ERROR THEN
1802: x_return_status := FND_API.G_RET_STS_ERROR ;
1803: ROLLBACK TO AutoInstantiate_Counters_PUB;
1804: FND_MSG_PUB.Count_And_Get
1805: (p_count => x_msg_count ,
1806: p_data => x_msg_data
1804: FND_MSG_PUB.Count_And_Get
1805: (p_count => x_msg_count ,
1806: p_data => x_msg_data
1807: );
1808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1809: ROLLBACK TO AutoInstantiate_Counters_PUB;
1810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1811: FND_MSG_PUB.Count_And_Get
1812: (p_count => x_msg_count ,
1806: p_data => x_msg_data
1807: );
1808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1809: ROLLBACK TO AutoInstantiate_Counters_PUB;
1810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1811: FND_MSG_PUB.Count_And_Get
1812: (p_count => x_msg_count ,
1813: p_data => x_msg_data
1814: );
1813: p_data => x_msg_data
1814: );
1815: WHEN OTHERS THEN
1816: ROLLBACK TO AutoInstantiate_Counters_PUB;
1817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1819: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1820: END IF;
1821: FND_MSG_PUB.Count_And_Get
1827:
1828: PROCEDURE Instantiate_Counters
1829: (
1830: p_api_version IN NUMBER,
1831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1833: x_return_status OUT NOCOPY VARCHAR2,
1834: x_msg_count OUT NOCOPY NUMBER,
1835: x_msg_data OUT NOCOPY VARCHAR2,
1828: PROCEDURE Instantiate_Counters
1829: (
1830: p_api_version IN NUMBER,
1831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1833: x_return_status OUT NOCOPY VARCHAR2,
1834: x_msg_count OUT NOCOPY NUMBER,
1835: x_msg_data OUT NOCOPY VARCHAR2,
1836: p_counter_group_id_template IN NUMBER,
1850:
1851: SAVEPOINT Instantiate_Counters_PUB;
1852:
1853: -- Standard call to check for call compatibility.
1854: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1855: p_api_version ,
1856: l_api_name ,
1857: G_PKG_NAME ) THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: IF NOT FND_API.Compatible_API_Call (l_api_version ,
1855: p_api_version ,
1856: l_api_name ,
1857: G_PKG_NAME ) THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860: -- Initialize message list if p_init_msg_list is set to TRUE.
1861: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1862: FND_MSG_PUB.initialize;
1857: G_PKG_NAME ) THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860: -- Initialize message list if p_init_msg_list is set to TRUE.
1861: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1862: FND_MSG_PUB.initialize;
1863: END IF;
1864:
1865: /* Customer/Vertical Hookups
1877: p_source_object_id_instance => p_source_object_id_instance,
1878: x_ctr_grp_id_template => x_ctr_grp_id_template,
1879: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1880: );
1881: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1878: x_ctr_grp_id_template => x_ctr_grp_id_template,
1879: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1880: );
1881: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886: END IF;
1879: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1880: );
1881: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886: END IF;
1887: /* Vertical pre -processing section - Mandatory */
1880: );
1881: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1882: RAISE FND_API.G_EXC_ERROR;
1883: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1885: END IF;
1886: END IF;
1887: /* Vertical pre -processing section - Mandatory */
1888: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
1898: p_source_object_id_instance => p_source_object_id_instance,
1899: x_ctr_grp_id_template => x_ctr_grp_id_template,
1900: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1901: );
1902: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1903: RAISE FND_API.G_EXC_ERROR;
1904: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1899: x_ctr_grp_id_template => x_ctr_grp_id_template,
1900: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1901: );
1902: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1903: RAISE FND_API.G_EXC_ERROR;
1904: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: END IF;
1900: x_ctr_grp_id_instance => x_ctr_grp_id_instance
1901: );
1902: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1903: RAISE FND_API.G_EXC_ERROR;
1904: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: END IF;
1908:
1901: );
1902: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1903: RAISE FND_API.G_EXC_ERROR;
1904: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: END IF;
1908:
1909: -- Initialize API return status to success
1906: END IF;
1907: END IF;
1908:
1909: -- Initialize API return status to success
1910: x_return_status := FND_API.G_RET_STS_SUCCESS;
1911: -- Start of API Body
1912: CSI_COUNTER_TEMPLATE_PUB.instantiate_grp_counters
1913: (
1914: p_api_version,
1941: p_source_object_id_instance => p_source_object_id_instance,
1942: x_ctr_grp_id_template => x_ctr_grp_id_template,
1943: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1944: );
1945: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: END IF;
1942: x_ctr_grp_id_template => x_ctr_grp_id_template,
1943: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1944: );
1945: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: END IF;
1950: END IF;
1943: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1944: );
1945: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: END IF;
1950: END IF;
1951: /* Vertical post -processing section - Mandatory */
1944: );
1945: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1946: RAISE FND_API.G_EXC_ERROR;
1947: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: END IF;
1950: END IF;
1951: /* Vertical post -processing section - Mandatory */
1952: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
1962: p_source_object_id_instance => p_source_object_id_instance,
1963: x_ctr_grp_id_template => x_ctr_grp_id_template,
1964: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1965: );
1966: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1963: x_ctr_grp_id_template => x_ctr_grp_id_template,
1964: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1965: );
1966: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: END IF;
1964: x_ctr_grp_id_instance => l_ctr_grp_id_instance
1965: );
1966: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: END IF;
1972:
1965: );
1966: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1967: RAISE FND_API.G_EXC_ERROR;
1968: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: END IF;
1972:
1973: IF FND_API.To_Boolean( p_commit ) THEN
1969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: END IF;
1972:
1973: IF FND_API.To_Boolean( p_commit ) THEN
1974: COMMIT WORK;
1975: END IF;
1976:
1977: FND_MSG_PUB.Count_And_Get
1980: );
1981:
1982: EXCEPTION
1983:
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: ROLLBACK TO Instantiate_Counters_PUB;
1986: x_return_status := FND_API.G_RET_STS_ERROR ;
1987: FND_MSG_PUB.Count_And_Get
1988: (p_count => x_msg_count ,
1982: EXCEPTION
1983:
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: ROLLBACK TO Instantiate_Counters_PUB;
1986: x_return_status := FND_API.G_RET_STS_ERROR ;
1987: FND_MSG_PUB.Count_And_Get
1988: (p_count => x_msg_count ,
1989: p_data => x_msg_data
1990: );
1987: FND_MSG_PUB.Count_And_Get
1988: (p_count => x_msg_count ,
1989: p_data => x_msg_data
1990: );
1991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1992: ROLLBACK TO Instantiate_Counters_PUB;
1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1994: FND_MSG_PUB.Count_And_Get
1995: (p_count => x_msg_count ,
1989: p_data => x_msg_data
1990: );
1991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1992: ROLLBACK TO Instantiate_Counters_PUB;
1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1994: FND_MSG_PUB.Count_And_Get
1995: (p_count => x_msg_count ,
1996: p_data => x_msg_data
1997: );
1996: p_data => x_msg_data
1997: );
1998: WHEN OTHERS THEN
1999: ROLLBACK TO Instantiate_Counters_PUB;
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2001: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2002: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
2003: END IF;
2004: FND_MSG_PUB.Count_And_Get
2010:
2011: PROCEDURE Update_Ctr_Grp
2012: (
2013: p_api_version IN NUMBER,
2014: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2015: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2016: x_return_status OUT NOCOPY VARCHAR2,
2017: x_msg_count OUT NOCOPY NUMBER,
2018: x_msg_data OUT NOCOPY VARCHAR2,
2011: PROCEDURE Update_Ctr_Grp
2012: (
2013: p_api_version IN NUMBER,
2014: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2015: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2016: x_return_status OUT NOCOPY VARCHAR2,
2017: x_msg_count OUT NOCOPY NUMBER,
2018: x_msg_data OUT NOCOPY VARCHAR2,
2019: p_ctr_grp_id IN NUMBER,
2018: x_msg_data OUT NOCOPY VARCHAR2,
2019: p_ctr_grp_id IN NUMBER,
2020: p_object_version_number IN NUMBER,
2021: p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
2022: p_cascade_upd_to_instances IN VARCHAR2 := FND_API.G_FALSE,
2023: x_object_version_number OUT NOCOPY NUMBER
2024: ) is
2025: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CTR_GRP';
2026: l_api_version CONSTANT NUMBER := 1.0;
2033:
2034: SAVEPOINT Update_Ctr_Grp_PUB;
2035:
2036: -- Standard call to check for call compatibility.
2037: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2038: p_api_version ,
2039: l_api_name ,
2040: G_PKG_NAME ) THEN
2041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2038: p_api_version ,
2039: l_api_name ,
2040: G_PKG_NAME ) THEN
2041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2042: END IF;
2043: -- Initialize message list if p_init_msg_list is set to TRUE.
2044: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2045: FND_MSG_PUB.initialize;
2040: G_PKG_NAME ) THEN
2041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2042: END IF;
2043: -- Initialize message list if p_init_msg_list is set to TRUE.
2044: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2045: FND_MSG_PUB.initialize;
2046: END IF;
2047:
2048: /* Customer pre -processing section - Mandatory */
2059: p_ctr_grp_rec => p_ctr_grp_rec,
2060: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2061: x_object_version_number => x_object_version_number
2062: );
2063: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2064: RAISE FND_API.G_EXC_ERROR;
2065: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2060: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2061: x_object_version_number => x_object_version_number
2062: );
2063: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2064: RAISE FND_API.G_EXC_ERROR;
2065: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2068: END IF;
2061: x_object_version_number => x_object_version_number
2062: );
2063: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2064: RAISE FND_API.G_EXC_ERROR;
2065: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2068: END IF;
2069: /* Vertical pre -processing section - Mandatory */
2062: );
2063: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2064: RAISE FND_API.G_EXC_ERROR;
2065: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: END IF;
2068: END IF;
2069: /* Vertical pre -processing section - Mandatory */
2070: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
2080: p_ctr_grp_rec => p_ctr_grp_rec,
2081: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2082: x_object_version_number => x_object_version_number
2083: );
2084: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2081: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2082: x_object_version_number => x_object_version_number
2083: );
2084: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089: END IF;
2082: x_object_version_number => x_object_version_number
2083: );
2084: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089: END IF;
2090:
2083: );
2084: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089: END IF;
2090:
2091: -- Initialize API return status to success
2088: END IF;
2089: END IF;
2090:
2091: -- Initialize API return status to success
2092: x_return_status := FND_API.G_RET_STS_SUCCESS;
2093: --
2094: -- Start of API Body
2095: l_ctr_groups_rec.COUNTER_GROUP_ID := p_ctr_grp_id;
2096: l_ctr_groups_rec.NAME := p_ctr_grp_rec.NAME;
2128: ,x_msg_count => x_msg_count
2129: ,x_msg_data => x_msg_data
2130: );
2131:
2132: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2133: ROLLBACK TO Update_Ctr_Grp_PUB;
2134: RETURN;
2135: END IF;
2136:
2151: p_ctr_grp_rec => p_ctr_grp_rec,
2152: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2153: x_object_version_number => x_object_version_number
2154: );
2155: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2156: RAISE FND_API.G_EXC_ERROR;
2157: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2152: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2153: x_object_version_number => x_object_version_number
2154: );
2155: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2156: RAISE FND_API.G_EXC_ERROR;
2157: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2160: END IF;
2153: x_object_version_number => x_object_version_number
2154: );
2155: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2156: RAISE FND_API.G_EXC_ERROR;
2157: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2160: END IF;
2161: /* Vertical post -processing section - Mandatory */
2154: );
2155: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2156: RAISE FND_API.G_EXC_ERROR;
2157: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2160: END IF;
2161: /* Vertical post -processing section - Mandatory */
2162: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
2172: p_ctr_grp_rec => p_ctr_grp_rec,
2173: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2174: x_object_version_number => x_object_version_number
2175: );
2176: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2177: RAISE FND_API.G_EXC_ERROR;
2178: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2173: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2174: x_object_version_number => x_object_version_number
2175: );
2176: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2177: RAISE FND_API.G_EXC_ERROR;
2178: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2181: END IF;
2174: x_object_version_number => x_object_version_number
2175: );
2176: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2177: RAISE FND_API.G_EXC_ERROR;
2178: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2181: END IF;
2182:
2175: );
2176: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2177: RAISE FND_API.G_EXC_ERROR;
2178: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2180: END IF;
2181: END IF;
2182:
2183:
2180: END IF;
2181: END IF;
2182:
2183:
2184: IF FND_API.To_Boolean( p_commit ) THEN
2185: COMMIT WORK;
2186: END IF;
2187:
2188: FND_MSG_PUB.Count_And_Get
2191: );
2192:
2193: EXCEPTION
2194:
2195: WHEN FND_API.G_EXC_ERROR THEN
2196: ROLLBACK TO Update_Ctr_Grp_PUB;
2197: x_return_status := FND_API.G_RET_STS_ERROR ;
2198: FND_MSG_PUB.Count_And_Get
2199: (p_count => x_msg_count ,
2193: EXCEPTION
2194:
2195: WHEN FND_API.G_EXC_ERROR THEN
2196: ROLLBACK TO Update_Ctr_Grp_PUB;
2197: x_return_status := FND_API.G_RET_STS_ERROR ;
2198: FND_MSG_PUB.Count_And_Get
2199: (p_count => x_msg_count ,
2200: p_data => x_msg_data
2201: );
2198: FND_MSG_PUB.Count_And_Get
2199: (p_count => x_msg_count ,
2200: p_data => x_msg_data
2201: );
2202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2203: ROLLBACK TO Update_Ctr_Grp_PUB;
2204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2205: FND_MSG_PUB.Count_And_Get
2206: (p_count => x_msg_count ,
2200: p_data => x_msg_data
2201: );
2202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2203: ROLLBACK TO Update_Ctr_Grp_PUB;
2204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2205: FND_MSG_PUB.Count_And_Get
2206: (p_count => x_msg_count ,
2207: p_data => x_msg_data
2208: );
2207: p_data => x_msg_data
2208: );
2209: WHEN OTHERS THEN
2210: ROLLBACK TO Update_Ctr_Grp_PUB;
2211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2212: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2213: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
2214: END IF;
2215: FND_MSG_PUB.Count_And_Get
2221:
2222: PROCEDURE Update_Counter
2223: (
2224: p_api_version IN NUMBER,
2225: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2226: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2227: x_return_status OUT NOCOPY VARCHAR2,
2228: x_msg_count OUT NOCOPY NUMBER,
2229: x_msg_data OUT NOCOPY VARCHAR2,
2222: PROCEDURE Update_Counter
2223: (
2224: p_api_version IN NUMBER,
2225: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2226: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2227: x_return_status OUT NOCOPY VARCHAR2,
2228: x_msg_count OUT NOCOPY NUMBER,
2229: x_msg_data OUT NOCOPY VARCHAR2,
2230: p_ctr_id IN NUMBER,
2229: x_msg_data OUT NOCOPY VARCHAR2,
2230: p_ctr_id IN NUMBER,
2231: p_object_version_number IN NUMBER,
2232: p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
2233: p_cascade_upd_to_instances IN VARCHAR2 := FND_API.G_FALSE,
2234: x_object_version_number OUT NOCOPY NUMBER
2235: ) is
2236: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_COUNTER';
2237: l_api_version CONSTANT NUMBER := 1.0;
2247:
2248: SAVEPOINT Update_Counter_PUB;
2249:
2250: -- Standard call to check for call compatibility.
2251: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2252: p_api_version ,
2253: l_api_name ,
2254: G_PKG_NAME ) THEN
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2251: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2252: p_api_version ,
2253: l_api_name ,
2254: G_PKG_NAME ) THEN
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- Initialize message list if p_init_msg_list is set to TRUE.
2258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2259: FND_MSG_PUB.initialize;
2254: G_PKG_NAME ) THEN
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: -- Initialize message list if p_init_msg_list is set to TRUE.
2258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2259: FND_MSG_PUB.initialize;
2260: END IF;
2261:
2262: /* Customer/Vertical Hookups
2274: p_ctr_rec => p_ctr_rec,
2275: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2276: x_object_version_number => x_object_version_number
2277: );
2278: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2279: RAISE FND_API.G_EXC_ERROR;
2280: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2282: END IF;
2275: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2276: x_object_version_number => x_object_version_number
2277: );
2278: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2279: RAISE FND_API.G_EXC_ERROR;
2280: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2282: END IF;
2283: END IF;
2276: x_object_version_number => x_object_version_number
2277: );
2278: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2279: RAISE FND_API.G_EXC_ERROR;
2280: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2282: END IF;
2283: END IF;
2284: /* Vertical pre -processing section - Mandatory */
2277: );
2278: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2279: RAISE FND_API.G_EXC_ERROR;
2280: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2282: END IF;
2283: END IF;
2284: /* Vertical pre -processing section - Mandatory */
2285: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
2295: p_ctr_rec => p_ctr_rec,
2296: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2297: x_object_version_number => x_object_version_number
2298: );
2299: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2300: RAISE FND_API.G_EXC_ERROR;
2301: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2303: END IF;
2296: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2297: x_object_version_number => x_object_version_number
2298: );
2299: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2300: RAISE FND_API.G_EXC_ERROR;
2301: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2303: END IF;
2304: END IF;
2297: x_object_version_number => x_object_version_number
2298: );
2299: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2300: RAISE FND_API.G_EXC_ERROR;
2301: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2303: END IF;
2304: END IF;
2305:
2298: );
2299: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2300: RAISE FND_API.G_EXC_ERROR;
2301: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2303: END IF;
2304: END IF;
2305:
2306: -- Initialize API return status to success
2303: END IF;
2304: END IF;
2305:
2306: -- Initialize API return status to success
2307: x_return_status := FND_API.G_RET_STS_SUCCESS;
2308: --
2309: -- Start of API Body
2310:
2311: l_counter_template_rec.COUNTER_ID := p_ctr_id;
2366: ,x_msg_count => x_msg_count
2367: ,x_msg_data => x_msg_data
2368: );
2369:
2370: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2371: ROLLBACK TO Update_Counter_PUB;
2372: RETURN;
2373: END IF;
2374:
2390: p_ctr_rec => p_ctr_rec,
2391: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2392: x_object_version_number => x_object_version_number
2393: );
2394: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2391: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2392: x_object_version_number => x_object_version_number
2393: );
2394: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2392: x_object_version_number => x_object_version_number
2393: );
2394: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2400: /* Vertical post -processing section - Mandatory */
2393: );
2394: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2398: END IF;
2399: END IF;
2400: /* Vertical post -processing section - Mandatory */
2401: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
2411: p_ctr_rec => p_ctr_rec,
2412: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2413: x_object_version_number => x_object_version_number
2414: );
2415: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2416: RAISE FND_API.G_EXC_ERROR;
2417: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2412: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2413: x_object_version_number => x_object_version_number
2414: );
2415: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2416: RAISE FND_API.G_EXC_ERROR;
2417: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2420: END IF;
2413: x_object_version_number => x_object_version_number
2414: );
2415: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2416: RAISE FND_API.G_EXC_ERROR;
2417: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2420: END IF;
2421:
2414: );
2415: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2416: RAISE FND_API.G_EXC_ERROR;
2417: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2420: END IF;
2421:
2422: IF FND_API.To_Boolean( p_commit ) THEN
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2420: END IF;
2421:
2422: IF FND_API.To_Boolean( p_commit ) THEN
2423: COMMIT WORK;
2424: END IF;
2425:
2426: FND_MSG_PUB.Count_And_Get
2429: );
2430:
2431: EXCEPTION
2432:
2433: WHEN FND_API.G_EXC_ERROR THEN
2434: ROLLBACK TO Update_Counter_PUB;
2435: x_return_status := FND_API.G_RET_STS_ERROR ;
2436: FND_MSG_PUB.Count_And_Get
2437: (p_count => x_msg_count ,
2431: EXCEPTION
2432:
2433: WHEN FND_API.G_EXC_ERROR THEN
2434: ROLLBACK TO Update_Counter_PUB;
2435: x_return_status := FND_API.G_RET_STS_ERROR ;
2436: FND_MSG_PUB.Count_And_Get
2437: (p_count => x_msg_count ,
2438: p_data => x_msg_data
2439: );
2436: FND_MSG_PUB.Count_And_Get
2437: (p_count => x_msg_count ,
2438: p_data => x_msg_data
2439: );
2440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2441: ROLLBACK TO Update_Counter_PUB;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_count => x_msg_count ,
2438: p_data => x_msg_data
2439: );
2440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2441: ROLLBACK TO Update_Counter_PUB;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_count => x_msg_count ,
2445: p_data => x_msg_data
2446: );
2445: p_data => x_msg_data
2446: );
2447: WHEN OTHERS THEN
2448: ROLLBACK TO Update_Counter_PUB;
2449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2450: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2451: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
2452: END IF;
2453: FND_MSG_PUB.Count_And_Get
2459:
2460: PROCEDURE Update_Ctr_Prop
2461: (
2462: p_api_version IN NUMBER,
2463: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2460: PROCEDURE Update_Ctr_Prop
2461: (
2462: p_api_version IN NUMBER,
2463: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2468: p_ctr_prop_id IN NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2468: p_ctr_prop_id IN NUMBER,
2469: p_object_version_number IN NUMBER,
2470: p_ctr_prop_rec IN Ctr_Prop_Rec_Type,
2471: p_cascade_upd_to_instances IN VARCHAR2 := FND_API.G_FALSE,
2472: x_object_version_number OUT NOCOPY NUMBER
2473: ) is
2474: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CTR_PROP';
2475: l_api_version CONSTANT NUMBER := 1.0;
2481:
2482: SAVEPOINT Update_Ctr_Prop_PUB;
2483:
2484: -- Standard call to check for call compatibility.
2485: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2486: p_api_version ,
2487: l_api_name ,
2488: G_PKG_NAME ) THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2486: p_api_version ,
2487: l_api_name ,
2488: G_PKG_NAME ) THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2491: -- Initialize message list if p_init_msg_list is set to TRUE.
2492: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2493: FND_MSG_PUB.initialize;
2488: G_PKG_NAME ) THEN
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2491: -- Initialize message list if p_init_msg_list is set to TRUE.
2492: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2493: FND_MSG_PUB.initialize;
2494: END IF;
2495:
2496:
2509: p_ctr_prop_rec => p_ctr_prop_rec,
2510: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2511: x_object_version_number => x_object_version_number
2512: );
2513: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2514: RAISE FND_API.G_EXC_ERROR;
2515: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2517: END IF;
2510: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2511: x_object_version_number => x_object_version_number
2512: );
2513: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2514: RAISE FND_API.G_EXC_ERROR;
2515: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2517: END IF;
2518: END IF;
2511: x_object_version_number => x_object_version_number
2512: );
2513: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2514: RAISE FND_API.G_EXC_ERROR;
2515: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2517: END IF;
2518: END IF;
2519: /* Vertical pre -processing section - Mandatory */
2512: );
2513: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2514: RAISE FND_API.G_EXC_ERROR;
2515: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2517: END IF;
2518: END IF;
2519: /* Vertical pre -processing section - Mandatory */
2520: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
2530: p_ctr_prop_rec => p_ctr_prop_rec,
2531: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2532: x_object_version_number => x_object_version_number
2533: );
2534: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2535: RAISE FND_API.G_EXC_ERROR;
2536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2538: END IF;
2531: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2532: x_object_version_number => x_object_version_number
2533: );
2534: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2535: RAISE FND_API.G_EXC_ERROR;
2536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2538: END IF;
2539: END IF;
2532: x_object_version_number => x_object_version_number
2533: );
2534: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2535: RAISE FND_API.G_EXC_ERROR;
2536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2538: END IF;
2539: END IF;
2540:
2533: );
2534: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2535: RAISE FND_API.G_EXC_ERROR;
2536: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2538: END IF;
2539: END IF;
2540:
2541: -- Initialize API return status to success
2538: END IF;
2539: END IF;
2540:
2541: -- Initialize API return status to success
2542: x_return_status := FND_API.G_RET_STS_SUCCESS;
2543: --
2544: -- Start of API Body
2545: l_ctr_property_template_rec.COUNTER_PROPERTY_ID := p_ctr_prop_id;
2546: l_ctr_property_template_rec.COUNTER_ID := p_ctr_prop_rec.counter_id;
2584: ,x_msg_count => x_msg_count
2585: ,x_msg_data => x_msg_data
2586: );
2587:
2588: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2589: ROLLBACK TO Update_Ctr_Prop_PUB;
2590: RETURN;
2591: END IF;
2592:
2606: p_ctr_prop_rec => p_ctr_prop_rec,
2607: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2608: x_object_version_number => x_object_version_number
2609: );
2610: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2611: RAISE FND_API.G_EXC_ERROR;
2612: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2607: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2608: x_object_version_number => x_object_version_number
2609: );
2610: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2611: RAISE FND_API.G_EXC_ERROR;
2612: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2615: END IF;
2608: x_object_version_number => x_object_version_number
2609: );
2610: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2611: RAISE FND_API.G_EXC_ERROR;
2612: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2615: END IF;
2616: /* Vertical post -processing section - Mandatory */
2609: );
2610: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2611: RAISE FND_API.G_EXC_ERROR;
2612: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2614: END IF;
2615: END IF;
2616: /* Vertical post -processing section - Mandatory */
2617: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
2627: p_ctr_prop_rec => p_ctr_prop_rec,
2628: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2629: x_object_version_number => x_object_version_number
2630: );
2631: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: END IF;
2628: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2629: x_object_version_number => x_object_version_number
2630: );
2631: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: END IF;
2636: END IF;
2629: x_object_version_number => x_object_version_number
2630: );
2631: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: END IF;
2636: END IF;
2637:
2630: );
2631: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2632: RAISE FND_API.G_EXC_ERROR;
2633: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: END IF;
2636: END IF;
2637:
2638: IF FND_API.To_Boolean( p_commit ) THEN
2634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2635: END IF;
2636: END IF;
2637:
2638: IF FND_API.To_Boolean( p_commit ) THEN
2639: COMMIT WORK;
2640: END IF;
2641:
2642: FND_MSG_PUB.Count_And_Get
2645: );
2646:
2647: EXCEPTION
2648:
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: ROLLBACK TO Update_Ctr_Prop_PUB;
2651: x_return_status := FND_API.G_RET_STS_ERROR ;
2652: FND_MSG_PUB.Count_And_Get
2653: (p_count => x_msg_count ,
2647: EXCEPTION
2648:
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: ROLLBACK TO Update_Ctr_Prop_PUB;
2651: x_return_status := FND_API.G_RET_STS_ERROR ;
2652: FND_MSG_PUB.Count_And_Get
2653: (p_count => x_msg_count ,
2654: p_data => x_msg_data
2655: );
2652: FND_MSG_PUB.Count_And_Get
2653: (p_count => x_msg_count ,
2654: p_data => x_msg_data
2655: );
2656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2657: ROLLBACK TO Update_Ctr_Prop_PUB;
2658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2659: FND_MSG_PUB.Count_And_Get
2660: (p_count => x_msg_count ,
2654: p_data => x_msg_data
2655: );
2656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2657: ROLLBACK TO Update_Ctr_Prop_PUB;
2658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2659: FND_MSG_PUB.Count_And_Get
2660: (p_count => x_msg_count ,
2661: p_data => x_msg_data
2662: );
2661: p_data => x_msg_data
2662: );
2663: WHEN OTHERS THEN
2664: ROLLBACK TO Update_Ctr_Prop_PUB;
2665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2666: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2667: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
2668: END IF;
2669: FND_MSG_PUB.Count_And_Get
2675:
2676: PROCEDURE Update_Formula_Ref
2677: (
2678: p_api_version IN NUMBER,
2679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2681: x_return_status OUT NOCOPY VARCHAR2,
2682: x_msg_count OUT NOCOPY NUMBER,
2683: x_msg_data OUT NOCOPY VARCHAR2,
2676: PROCEDURE Update_Formula_Ref
2677: (
2678: p_api_version IN NUMBER,
2679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2681: x_return_status OUT NOCOPY VARCHAR2,
2682: x_msg_count OUT NOCOPY NUMBER,
2683: x_msg_data OUT NOCOPY VARCHAR2,
2684: p_ctr_formula_bvar_id IN NUMBER,
2687: p_bind_var_name IN VARCHAR2,
2688: p_mapped_item_id IN NUMBER := null,
2689: p_mapped_counter_id IN NUMBER,
2690: p_desc_flex IN CS_COUNTERS_EXT_PVT.DFF_Rec_Type,
2691: p_cascade_upd_to_instances IN VARCHAR2 := FND_API.G_FALSE,
2692: x_object_version_number OUT NOCOPY NUMBER,
2693: p_reading_type IN VARCHAR2
2694: ) is
2695: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FORMULA_REF';
2702:
2703: SAVEPOINT Update_Formula_Ref_PUB;
2704:
2705: -- Standard call to check for call compatibility.
2706: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2707: p_api_version ,
2708: l_api_name ,
2709: G_PKG_NAME ) THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2706: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2707: p_api_version ,
2708: l_api_name ,
2709: G_PKG_NAME ) THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712: -- Initialize message list if p_init_msg_list is set to TRUE.
2713: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2714: FND_MSG_PUB.initialize;
2709: G_PKG_NAME ) THEN
2710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2711: END IF;
2712: -- Initialize message list if p_init_msg_list is set to TRUE.
2713: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2714: FND_MSG_PUB.initialize;
2715: END IF;
2716:
2717: /* Customer/Vertical Hookups
2733: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2734: x_object_version_number => x_object_version_number,
2735: p_reading_type => p_reading_type
2736: );
2737: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2738: RAISE FND_API.G_EXC_ERROR;
2739: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2734: x_object_version_number => x_object_version_number,
2735: p_reading_type => p_reading_type
2736: );
2737: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2738: RAISE FND_API.G_EXC_ERROR;
2739: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742: END IF;
2735: p_reading_type => p_reading_type
2736: );
2737: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2738: RAISE FND_API.G_EXC_ERROR;
2739: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742: END IF;
2743: /* Vertical pre -processing section - Mandatory */
2736: );
2737: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2738: RAISE FND_API.G_EXC_ERROR;
2739: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2741: END IF;
2742: END IF;
2743: /* Vertical pre -processing section - Mandatory */
2744: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
2758: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2759: x_object_version_number => x_object_version_number,
2760: p_reading_type => p_reading_type
2761: );
2762: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2763: RAISE FND_API.G_EXC_ERROR;
2764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: END IF;
2759: x_object_version_number => x_object_version_number,
2760: p_reading_type => p_reading_type
2761: );
2762: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2763: RAISE FND_API.G_EXC_ERROR;
2764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: END IF;
2767: END IF;
2760: p_reading_type => p_reading_type
2761: );
2762: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2763: RAISE FND_API.G_EXC_ERROR;
2764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: END IF;
2767: END IF;
2768:
2761: );
2762: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2763: RAISE FND_API.G_EXC_ERROR;
2764: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2766: END IF;
2767: END IF;
2768:
2769: -- Initialize API return status to success
2766: END IF;
2767: END IF;
2768:
2769: -- Initialize API return status to success
2770: x_return_status := FND_API.G_RET_STS_SUCCESS;
2771: --
2772: -- Start of API Body
2773: l_counter_relationships_rec.RELATIONSHIP_ID := p_ctr_formula_bvar_id;
2774: --l_counter_relationships_rec.CTR_ASSOCIATION_ID := ctr_associations_rec.ctr_association_id;
2805: ,x_msg_count => x_msg_count
2806: ,x_msg_data => x_msg_data
2807: );
2808:
2809: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
2810: ROLLBACK TO Create_Formula_Ref_PUB;
2811: RETURN;
2812: End if;
2813:
2832: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2833: x_object_version_number => x_object_version_number,
2834: p_reading_type => p_reading_type
2835: );
2836: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2837: RAISE FND_API.G_EXC_ERROR;
2838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: END IF;
2833: x_object_version_number => x_object_version_number,
2834: p_reading_type => p_reading_type
2835: );
2836: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2837: RAISE FND_API.G_EXC_ERROR;
2838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: END IF;
2841: END IF;
2834: p_reading_type => p_reading_type
2835: );
2836: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2837: RAISE FND_API.G_EXC_ERROR;
2838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: END IF;
2841: END IF;
2842: /* Vertical post -processing section - Mandatory */
2835: );
2836: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2837: RAISE FND_API.G_EXC_ERROR;
2838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: END IF;
2841: END IF;
2842: /* Vertical post -processing section - Mandatory */
2843: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
2857: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2858: x_object_version_number => x_object_version_number,
2859: p_reading_type => p_reading_type
2860: );
2861: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2862: RAISE FND_API.G_EXC_ERROR;
2863: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END IF;
2858: x_object_version_number => x_object_version_number,
2859: p_reading_type => p_reading_type
2860: );
2861: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2862: RAISE FND_API.G_EXC_ERROR;
2863: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END IF;
2866: END IF;
2859: p_reading_type => p_reading_type
2860: );
2861: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2862: RAISE FND_API.G_EXC_ERROR;
2863: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END IF;
2866: END IF;
2867:
2860: );
2861: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2862: RAISE FND_API.G_EXC_ERROR;
2863: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END IF;
2866: END IF;
2867:
2868: IF FND_API.To_Boolean( p_commit ) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END IF;
2866: END IF;
2867:
2868: IF FND_API.To_Boolean( p_commit ) THEN
2869: COMMIT WORK;
2870: END IF;
2871:
2872: FND_MSG_PUB.Count_And_Get
2875: );
2876:
2877: EXCEPTION
2878:
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: ROLLBACK TO Update_Formula_Ref_PUB;
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: FND_MSG_PUB.Count_And_Get
2883: (p_count => x_msg_count ,
2877: EXCEPTION
2878:
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: ROLLBACK TO Update_Formula_Ref_PUB;
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: FND_MSG_PUB.Count_And_Get
2883: (p_count => x_msg_count ,
2884: p_data => x_msg_data
2885: );
2882: FND_MSG_PUB.Count_And_Get
2883: (p_count => x_msg_count ,
2884: p_data => x_msg_data
2885: );
2886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2887: ROLLBACK TO Update_Formula_Ref_PUB;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2889: FND_MSG_PUB.Count_And_Get
2890: (p_count => x_msg_count ,
2884: p_data => x_msg_data
2885: );
2886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2887: ROLLBACK TO Update_Formula_Ref_PUB;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2889: FND_MSG_PUB.Count_And_Get
2890: (p_count => x_msg_count ,
2891: p_data => x_msg_data
2892: );
2891: p_data => x_msg_data
2892: );
2893: WHEN OTHERS THEN
2894: ROLLBACK TO Update_Formula_Ref_PUB;
2895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2897: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
2898: END IF;
2899: FND_MSG_PUB.Count_And_Get
2906:
2907: PROCEDURE Update_GrpOp_Filter
2908: (
2909: p_api_version IN NUMBER,
2910: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2912: x_return_status OUT NOCOPY VARCHAR2,
2913: x_msg_count OUT NOCOPY NUMBER,
2914: x_msg_data OUT NOCOPY VARCHAR2,
2907: PROCEDURE Update_GrpOp_Filter
2908: (
2909: p_api_version IN NUMBER,
2910: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2912: x_return_status OUT NOCOPY VARCHAR2,
2913: x_msg_count OUT NOCOPY NUMBER,
2914: x_msg_data OUT NOCOPY VARCHAR2,
2915: p_ctr_der_filter_id IN NUMBER,
2922: p_right_val IN VARCHAR2,
2923: p_right_paren IN VARCHAR2,
2924: p_log_op IN VARCHAR2,
2925: p_desc_flex IN CS_COUNTERS_EXT_PVT.DFF_Rec_Type,
2926: p_cascade_upd_to_instances IN VARCHAR2 := FND_API.G_FALSE,
2927: x_object_version_number OUT NOCOPY NUMBER
2928: ) is
2929: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GRPOP_FILTER';
2930: l_api_version CONSTANT NUMBER := 1.0;
2936:
2937: SAVEPOINT Update_GrpOp_Filter_PUB;
2938:
2939: -- Standard call to check for call compatibility.
2940: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2941: p_api_version ,
2942: l_api_name ,
2943: G_PKG_NAME ) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2940: IF NOT FND_API.Compatible_API_Call (l_api_version ,
2941: p_api_version ,
2942: l_api_name ,
2943: G_PKG_NAME ) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946: -- Initialize message list if p_init_msg_list is set to TRUE.
2947: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2948: FND_MSG_PUB.initialize;
2943: G_PKG_NAME ) THEN
2944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946: -- Initialize message list if p_init_msg_list is set to TRUE.
2947: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2948: FND_MSG_PUB.initialize;
2949: END IF;
2950: /* Customer/Vertical Hookups
2951: /* Customer pre -processing section - Mandatory */
2969: p_log_op => p_log_op,
2970: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2971: x_object_version_number => x_object_version_number
2972: );
2973: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2970: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2971: x_object_version_number => x_object_version_number
2972: );
2973: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978: END IF;
2971: x_object_version_number => x_object_version_number
2972: );
2973: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978: END IF;
2979: /* Vertical pre -processing section - Mandatory */
2972: );
2973: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978: END IF;
2979: /* Vertical pre -processing section - Mandatory */
2980: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
2997: p_log_op => p_log_op,
2998: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2999: x_object_version_number => x_object_version_number
3000: );
3001: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END IF;
2998: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
2999: x_object_version_number => x_object_version_number
3000: );
3001: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END IF;
3006: END IF;
2999: x_object_version_number => x_object_version_number
3000: );
3001: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END IF;
3006: END IF;
3007:
3000: );
3001: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END IF;
3006: END IF;
3007:
3008: -- Initialize API return status to success
3005: END IF;
3006: END IF;
3007:
3008: -- Initialize API return status to success
3009: x_return_status := FND_API.G_RET_STS_SUCCESS;
3010: --
3011: -- Start of API Body
3012:
3013: l_ctr_derived_filters_tbl(1).COUNTER_DERIVED_FILTER_ID := p_ctr_der_filter_id;
3048: ,x_msg_count => x_msg_count
3049: ,x_msg_data => x_msg_data
3050: );
3051:
3052: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3053: ROLLBACK TO Update_GrpOp_Filter_PUB;
3054: RETURN;
3055: END IF;
3056:
3077: p_log_op => p_log_op,
3078: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
3079: x_object_version_number => x_object_version_number
3080: );
3081: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3078: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
3079: x_object_version_number => x_object_version_number
3080: );
3081: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: END IF;
3079: x_object_version_number => x_object_version_number
3080: );
3081: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: END IF;
3087: /* Vertical post -processing section - Mandatory */
3080: );
3081: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: END IF;
3087: /* Vertical post -processing section - Mandatory */
3088: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
3105: p_log_op => p_log_op,
3106: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
3107: x_object_version_number => x_object_version_number
3108: );
3109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3113: END IF;
3106: p_cascade_upd_to_instances => p_cascade_upd_to_instances,
3107: x_object_version_number => x_object_version_number
3108: );
3109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3113: END IF;
3114: END IF;
3107: x_object_version_number => x_object_version_number
3108: );
3109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3113: END IF;
3114: END IF;
3115:
3108: );
3109: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3110: RAISE FND_API.G_EXC_ERROR;
3111: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3113: END IF;
3114: END IF;
3115:
3116:
3113: END IF;
3114: END IF;
3115:
3116:
3117: IF FND_API.To_Boolean( p_commit ) THEN
3118: COMMIT WORK;
3119: END IF;
3120:
3121: FND_MSG_PUB.Count_And_Get
3124: );
3125:
3126: EXCEPTION
3127:
3128: WHEN FND_API.G_EXC_ERROR THEN
3129: ROLLBACK TO Update_GrpOp_Filter_PUB;
3130: x_return_status := FND_API.G_RET_STS_ERROR ;
3131: FND_MSG_PUB.Count_And_Get
3132: (p_count => x_msg_count ,
3126: EXCEPTION
3127:
3128: WHEN FND_API.G_EXC_ERROR THEN
3129: ROLLBACK TO Update_GrpOp_Filter_PUB;
3130: x_return_status := FND_API.G_RET_STS_ERROR ;
3131: FND_MSG_PUB.Count_And_Get
3132: (p_count => x_msg_count ,
3133: p_data => x_msg_data
3134: );
3131: FND_MSG_PUB.Count_And_Get
3132: (p_count => x_msg_count ,
3133: p_data => x_msg_data
3134: );
3135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3136: ROLLBACK TO Update_GrpOp_Filter_PUB;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3138: FND_MSG_PUB.Count_And_Get
3139: (p_count => x_msg_count ,
3133: p_data => x_msg_data
3134: );
3135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3136: ROLLBACK TO Update_GrpOp_Filter_PUB;
3137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3138: FND_MSG_PUB.Count_And_Get
3139: (p_count => x_msg_count ,
3140: p_data => x_msg_data
3141: );
3140: p_data => x_msg_data
3141: );
3142: WHEN OTHERS THEN
3143: ROLLBACK TO Update_GrpOp_Filter_PUB;
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3145: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3146: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
3147: END IF;
3148: FND_MSG_PUB.Count_And_Get
3154:
3155: PROCEDURE Update_Ctr_Association
3156: (
3157: p_api_version IN NUMBER,
3158: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3159: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3160: x_return_status OUT NOCOPY VARCHAR2,
3161: x_msg_count OUT NOCOPY NUMBER,
3162: x_msg_data OUT NOCOPY VARCHAR2,
3155: PROCEDURE Update_Ctr_Association
3156: (
3157: p_api_version IN NUMBER,
3158: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3159: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3160: x_return_status OUT NOCOPY VARCHAR2,
3161: x_msg_count OUT NOCOPY NUMBER,
3162: x_msg_data OUT NOCOPY VARCHAR2,
3163: p_ctr_association_id IN NUMBER,
3177:
3178: SAVEPOINT Update_Ctr_Association_PUB;
3179:
3180: -- Standard call to check for call compatibility.
3181: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3182: p_api_version ,
3183: l_api_name ,
3184: G_PKG_NAME ) THEN
3185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3181: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3182: p_api_version ,
3183: l_api_name ,
3184: G_PKG_NAME ) THEN
3185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3186: END IF;
3187: -- Initialize message list if p_init_msg_list is set to TRUE.
3188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3189: FND_MSG_PUB.initialize;
3184: G_PKG_NAME ) THEN
3185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3186: END IF;
3187: -- Initialize message list if p_init_msg_list is set to TRUE.
3188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3189: FND_MSG_PUB.initialize;
3190: END IF;
3191: /* Customer/Vertical Hookups
3192: /* Customer pre -processing section - Mandatory */
3203: p_ctr_grp_id => p_ctr_grp_id,
3204: p_source_object_id => p_source_object_id,
3205: x_object_version_number => x_object_version_number
3206: );
3207: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3208: RAISE FND_API.G_EXC_ERROR;
3209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3211: END IF;
3204: p_source_object_id => p_source_object_id,
3205: x_object_version_number => x_object_version_number
3206: );
3207: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3208: RAISE FND_API.G_EXC_ERROR;
3209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3211: END IF;
3212: END IF;
3205: x_object_version_number => x_object_version_number
3206: );
3207: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3208: RAISE FND_API.G_EXC_ERROR;
3209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3211: END IF;
3212: END IF;
3213: /* Vertical pre -processing section - Mandatory */
3206: );
3207: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3208: RAISE FND_API.G_EXC_ERROR;
3209: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3211: END IF;
3212: END IF;
3213: /* Vertical pre -processing section - Mandatory */
3214: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) ) THEN
3224: p_ctr_grp_id => p_ctr_grp_id,
3225: p_source_object_id => p_source_object_id,
3226: x_object_version_number => x_object_version_number
3227: );
3228: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3232: END IF;
3225: p_source_object_id => p_source_object_id,
3226: x_object_version_number => x_object_version_number
3227: );
3228: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3232: END IF;
3233: END IF;
3226: x_object_version_number => x_object_version_number
3227: );
3228: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3232: END IF;
3233: END IF;
3234:
3227: );
3228: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3232: END IF;
3233: END IF;
3234:
3235: -- Initialize API return status to success
3232: END IF;
3233: END IF;
3234:
3235: -- Initialize API return status to success
3236: x_return_status := FND_API.G_RET_STS_SUCCESS;
3237: --
3238: -- Start of API Body
3239: l_ctr_item_associations_rec.CTR_ASSOCIATION_ID := p_ctr_association_id;
3240: l_ctr_item_associations_rec.GROUP_ID := p_ctr_grp_id;
3271: ,x_msg_data => x_msg_data
3272: );
3273:
3274:
3275: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3276: ROLLBACK TO Update_Ctr_Association_PUB;
3277: RETURN;
3278: END IF;
3279:
3293: p_ctr_grp_id => p_ctr_grp_id,
3294: p_source_object_id => p_source_object_id,
3295: x_object_version_number => x_object_version_number
3296: );
3297: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3298: RAISE FND_API.G_EXC_ERROR;
3299: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3294: p_source_object_id => p_source_object_id,
3295: x_object_version_number => x_object_version_number
3296: );
3297: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3298: RAISE FND_API.G_EXC_ERROR;
3299: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302: END IF;
3295: x_object_version_number => x_object_version_number
3296: );
3297: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3298: RAISE FND_API.G_EXC_ERROR;
3299: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302: END IF;
3303: /* Vertical post -processing section - Mandatory */
3296: );
3297: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3298: RAISE FND_API.G_EXC_ERROR;
3299: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302: END IF;
3303: /* Vertical post -processing section - Mandatory */
3304: IF ( JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'A', 'V' ) ) THEN
3314: p_ctr_grp_id => p_ctr_grp_id,
3315: p_source_object_id => p_source_object_id,
3316: x_object_version_number => x_object_version_number
3317: );
3318: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3315: p_source_object_id => p_source_object_id,
3316: x_object_version_number => x_object_version_number
3317: );
3318: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: END IF;
3316: x_object_version_number => x_object_version_number
3317: );
3318: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: END IF;
3324:
3317: );
3318: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: END IF;
3324:
3325: IF FND_API.To_Boolean( p_commit ) THEN
3321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3322: END IF;
3323: END IF;
3324:
3325: IF FND_API.To_Boolean( p_commit ) THEN
3326: COMMIT WORK;
3327: END IF;
3328:
3329: FND_MSG_PUB.Count_And_Get
3332: );
3333:
3334: EXCEPTION
3335:
3336: WHEN FND_API.G_EXC_ERROR THEN
3337: ROLLBACK TO Update_Ctr_Association_PUB;
3338: x_return_status := FND_API.G_RET_STS_ERROR ;
3339: FND_MSG_PUB.Count_And_Get
3340: (p_count => x_msg_count ,
3334: EXCEPTION
3335:
3336: WHEN FND_API.G_EXC_ERROR THEN
3337: ROLLBACK TO Update_Ctr_Association_PUB;
3338: x_return_status := FND_API.G_RET_STS_ERROR ;
3339: FND_MSG_PUB.Count_And_Get
3340: (p_count => x_msg_count ,
3341: p_data => x_msg_data
3342: );
3339: FND_MSG_PUB.Count_And_Get
3340: (p_count => x_msg_count ,
3341: p_data => x_msg_data
3342: );
3343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3344: ROLLBACK TO Update_Ctr_Association_PUB;
3345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3346: FND_MSG_PUB.Count_And_Get
3347: (p_count => x_msg_count ,
3341: p_data => x_msg_data
3342: );
3343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3344: ROLLBACK TO Update_Ctr_Association_PUB;
3345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3346: FND_MSG_PUB.Count_And_Get
3347: (p_count => x_msg_count ,
3348: p_data => x_msg_data
3349: );
3348: p_data => x_msg_data
3349: );
3350: WHEN OTHERS THEN
3351: ROLLBACK TO Update_Ctr_Association_PUB;
3352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3353: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3354: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
3355: END IF;
3356: FND_MSG_PUB.Count_And_Get
3362:
3363: PROCEDURE Delete_Counter
3364: (
3365: p_api_version IN NUMBER,
3366: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3367: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3368: x_return_status OUT NOCOPY VARCHAR2,
3369: x_msg_count OUT NOCOPY NUMBER,
3370: x_msg_data OUT NOCOPY VARCHAR2,
3363: PROCEDURE Delete_Counter
3364: (
3365: p_api_version IN NUMBER,
3366: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3367: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3368: x_return_status OUT NOCOPY VARCHAR2,
3369: x_msg_count OUT NOCOPY NUMBER,
3370: x_msg_data OUT NOCOPY VARCHAR2,
3371: p_ctr_id IN NUMBER
3379:
3380: PROCEDURE Delete_Ctr_Prop
3381: (
3382: p_api_version IN NUMBER,
3383: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3384: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3385: x_return_status OUT NOCOPY VARCHAR2,
3386: x_msg_count OUT NOCOPY NUMBER,
3387: x_msg_data OUT NOCOPY VARCHAR2,
3380: PROCEDURE Delete_Ctr_Prop
3381: (
3382: p_api_version IN NUMBER,
3383: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3384: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3385: x_return_status OUT NOCOPY VARCHAR2,
3386: x_msg_count OUT NOCOPY NUMBER,
3387: x_msg_data OUT NOCOPY VARCHAR2,
3388: p_ctr_prop_id IN NUMBER
3397:
3398: PROCEDURE Delete_Formula_Ref
3399: (
3400: p_api_version IN NUMBER,
3401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3402: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3403: x_return_status OUT NOCOPY VARCHAR2,
3404: x_msg_count OUT NOCOPY NUMBER,
3405: x_msg_data OUT NOCOPY VARCHAR2,
3398: PROCEDURE Delete_Formula_Ref
3399: (
3400: p_api_version IN NUMBER,
3401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3402: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3403: x_return_status OUT NOCOPY VARCHAR2,
3404: x_msg_count OUT NOCOPY NUMBER,
3405: x_msg_data OUT NOCOPY VARCHAR2,
3406: p_ctr_formula_bvar_id IN NUMBER
3415:
3416: PROCEDURE Delete_GrpOp_Filter
3417: (
3418: p_api_version IN NUMBER,
3419: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3420: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3421: x_return_status OUT NOCOPY VARCHAR2,
3422: x_msg_count OUT NOCOPY NUMBER,
3423: x_msg_data OUT NOCOPY VARCHAR2,
3416: PROCEDURE Delete_GrpOp_Filter
3417: (
3418: p_api_version IN NUMBER,
3419: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3420: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3421: x_return_status OUT NOCOPY VARCHAR2,
3422: x_msg_count OUT NOCOPY NUMBER,
3423: x_msg_data OUT NOCOPY VARCHAR2,
3424: p_ctr_der_filter_id IN NUMBER
3433:
3434: PROCEDURE Delete_Ctr_Association
3435: (
3436: p_api_version IN NUMBER,
3437: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3438: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3439: x_return_status OUT NOCOPY VARCHAR2,
3440: x_msg_count OUT NOCOPY NUMBER,
3441: x_msg_data OUT NOCOPY VARCHAR2,
3434: PROCEDURE Delete_Ctr_Association
3435: (
3436: p_api_version IN NUMBER,
3437: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3438: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3439: x_return_status OUT NOCOPY VARCHAR2,
3440: x_msg_count OUT NOCOPY NUMBER,
3441: x_msg_data OUT NOCOPY VARCHAR2,
3442: p_ctr_association_id IN NUMBER
3449: end Delete_Ctr_Association;
3450:
3451: PROCEDURE DELETE_COUNTER_INSTANCE(
3452: p_Api_Version IN NUMBER,
3453: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3454: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
3455: p_SOURCE_OBJECT_ID IN NUMBER,
3456: p_SOURCE_OBJECT_CODE IN VARCHAR2,
3457: x_Return_status OUT NOCOPY VARCHAR2,
3450:
3451: PROCEDURE DELETE_COUNTER_INSTANCE(
3452: p_Api_Version IN NUMBER,
3453: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3454: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
3455: p_SOURCE_OBJECT_ID IN NUMBER,
3456: p_SOURCE_OBJECT_CODE IN VARCHAR2,
3457: x_Return_status OUT NOCOPY VARCHAR2,
3458: x_Msg_Count OUT NOCOPY NUMBER,
3468:
3469: PROCEDURE Instantiate_single_Ctr
3470: (
3471: p_api_version IN NUMBER,
3472: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3473: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3474: x_return_status OUT NOCOPY VARCHAR2,
3475: x_msg_count OUT NOCOPY NUMBER,
3476: x_msg_data OUT NOCOPY VARCHAR2,
3469: PROCEDURE Instantiate_single_Ctr
3470: (
3471: p_api_version IN NUMBER,
3472: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3473: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3474: x_return_status OUT NOCOPY VARCHAR2,
3475: x_msg_count OUT NOCOPY NUMBER,
3476: x_msg_data OUT NOCOPY VARCHAR2,
3477: p_counter_id_template IN NUMBER,
3493:
3494: SAVEPOINT Instantiate_Counters_PUB;
3495:
3496: -- Standard call to check for call compatibility.
3497: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3498: p_api_version ,
3499: l_api_name ,
3500: G_PKG_NAME ) THEN
3501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3497: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3498: p_api_version ,
3499: l_api_name ,
3500: G_PKG_NAME ) THEN
3501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3502: END IF;
3503: -- Initialize message list if p_init_msg_list is set to TRUE.
3504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3505: FND_MSG_PUB.initialize;
3500: G_PKG_NAME ) THEN
3501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3502: END IF;
3503: -- Initialize message list if p_init_msg_list is set to TRUE.
3504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3505: FND_MSG_PUB.initialize;
3506: END IF;
3507:
3508: --BigDecimal [] x_ctr_grp_id_template = new BigDecimal[]{new BigDecimal(0)};
3525: x_ctr_grp_id_template => x_ctr_grp_id_template,
3526: x_ctr_grp_id_instance => x_ctr_grp_id_instance
3527: );
3528:
3529: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3526: x_ctr_grp_id_instance => x_ctr_grp_id_instance
3527: );
3528:
3529: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534: END IF;
3527: );
3528:
3529: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534: END IF;
3535: /* Vertical pre -processing section - Mandatory */
3528:
3529: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3530: RAISE FND_API.G_EXC_ERROR;
3531: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3533: END IF;
3534: END IF;
3535: /* Vertical pre -processing section - Mandatory */
3536: /*
3547: p_source_object_id_instance => p_source_object_id_instance,
3548: x_ctr_id_template => x_ctr_id_template,
3549: x_ctr_id_instance => x_ctr_id_instance
3550: );
3551: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3552: RAISE FND_API.G_EXC_ERROR;
3553: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3555: END IF;
3548: x_ctr_id_template => x_ctr_id_template,
3549: x_ctr_id_instance => x_ctr_id_instance
3550: );
3551: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3552: RAISE FND_API.G_EXC_ERROR;
3553: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3555: END IF;
3556: END IF;
3549: x_ctr_id_instance => x_ctr_id_instance
3550: );
3551: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3552: RAISE FND_API.G_EXC_ERROR;
3553: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3555: END IF;
3556: END IF;
3557:
3550: );
3551: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3552: RAISE FND_API.G_EXC_ERROR;
3553: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3555: END IF;
3556: END IF;
3557:
3558: -- Initialize API return status to success
3555: END IF;
3556: END IF;
3557:
3558: -- Initialize API return status to success
3559: x_return_status := FND_API.G_RET_STS_SUCCESS;
3560: -- Start of API Body
3561:
3562: */
3563:
3599: p_source_object_id_instance => p_source_object_id_instance,
3600: x_ctr_id_template => x_ctr_id_template,
3601: x_ctr_id_instance => l_ctr_id_instance
3602: );
3603: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3607: END IF;
3600: x_ctr_id_template => x_ctr_id_template,
3601: x_ctr_id_instance => l_ctr_id_instance
3602: );
3603: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3607: END IF;
3608: END IF;
3601: x_ctr_id_instance => l_ctr_id_instance
3602: );
3603: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3607: END IF;
3608: END IF;
3609: /* Vertical post -processing section - Mandatory */
3602: );
3603: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3607: END IF;
3608: END IF;
3609: /* Vertical post -processing section - Mandatory */
3610: /*
3621: p_source_object_id_instance => p_source_object_id_instance,
3622: x_ctr_id_template => x_ctr_id_template,
3623: x_ctr_id_instance => l_ctr_id_instance
3624: );
3625: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: END IF;
3622: x_ctr_id_template => x_ctr_id_template,
3623: x_ctr_id_instance => l_ctr_id_instance
3624: );
3625: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: END IF;
3630: END IF;
3623: x_ctr_id_instance => l_ctr_id_instance
3624: );
3625: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: END IF;
3630: END IF;
3631:
3624: );
3625: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: END IF;
3630: END IF;
3631:
3632: IF FND_API.To_Boolean( p_commit ) THEN
3628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: END IF;
3630: END IF;
3631:
3632: IF FND_API.To_Boolean( p_commit ) THEN
3633: COMMIT WORK;
3634: END IF;
3635:
3636: FND_MSG_PUB.Count_And_Get
3639: );
3640:
3641: EXCEPTION
3642:
3643: WHEN FND_API.G_EXC_ERROR THEN
3644: ROLLBACK TO Instantiate_Counters_PUB;
3645: x_return_status := FND_API.G_RET_STS_ERROR ;
3646: FND_MSG_PUB.Count_And_Get
3647: (p_count => x_msg_count ,
3641: EXCEPTION
3642:
3643: WHEN FND_API.G_EXC_ERROR THEN
3644: ROLLBACK TO Instantiate_Counters_PUB;
3645: x_return_status := FND_API.G_RET_STS_ERROR ;
3646: FND_MSG_PUB.Count_And_Get
3647: (p_count => x_msg_count ,
3648: p_data => x_msg_data
3649: );
3646: FND_MSG_PUB.Count_And_Get
3647: (p_count => x_msg_count ,
3648: p_data => x_msg_data
3649: );
3650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3651: ROLLBACK TO Instantiate_Counters_PUB;
3652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3653: FND_MSG_PUB.Count_And_Get
3654: (p_count => x_msg_count ,
3648: p_data => x_msg_data
3649: );
3650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3651: ROLLBACK TO Instantiate_Counters_PUB;
3652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3653: FND_MSG_PUB.Count_And_Get
3654: (p_count => x_msg_count ,
3655: p_data => x_msg_data
3656: );
3655: p_data => x_msg_data
3656: );
3657: WHEN OTHERS THEN
3658: ROLLBACK TO Instantiate_Counters_PUB;
3659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3660: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3661: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
3662: END IF;
3663: FND_MSG_PUB.Count_And_Get
3672:
3673: PROCEDURE Create_Estimation_Method
3674: (
3675: p_api_version IN NUMBER,
3676: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3677: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3678: x_return_status OUT NOCOPY VARCHAR2,
3679: x_msg_count OUT NOCOPY NUMBER,
3680: x_msg_data OUT NOCOPY VARCHAR2,
3673: PROCEDURE Create_Estimation_Method
3674: (
3675: p_api_version IN NUMBER,
3676: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3677: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3678: x_return_status OUT NOCOPY VARCHAR2,
3679: x_msg_count OUT NOCOPY NUMBER,
3680: x_msg_data OUT NOCOPY VARCHAR2,
3681: p_ctr_estimation_rec IN CS_COUNTERS_PUB.Ctr_Estimation_Rec_Type,
3691: BEGIN
3692: SAVEPOINT Create_Ctr_Estimation_PUB;
3693:
3694: -- Standard call to check for call compatibility.
3695: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3696: p_api_version ,
3697: l_api_name ,
3698: G_PKG_NAME ) THEN
3699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3696: p_api_version ,
3697: l_api_name ,
3698: G_PKG_NAME ) THEN
3699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3700: END IF;
3701: -- Initialize message list if p_init_msg_list is set to TRUE.
3702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3703: FND_MSG_PUB.initialize;
3698: G_PKG_NAME ) THEN
3699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3700: END IF;
3701: -- Initialize message list if p_init_msg_list is set to TRUE.
3702: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3703: FND_MSG_PUB.initialize;
3704: END IF;
3705:
3706: -- Initialize API return status to success
3703: FND_MSG_PUB.initialize;
3704: END IF;
3705:
3706: -- Initialize API return status to success
3707: x_return_status := FND_API.G_RET_STS_SUCCESS;
3708:
3709: -- Start of API Body
3710:
3711: l_ctr_estimation_methods_rec.ESTIMATION_ID := x_estimation_id;
3746: ,x_msg_data => x_msg_data
3747: ,p_ctr_estimation_rec => l_ctr_estimation_methods_rec
3748: );
3749:
3750: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3751: ROLLBACK TO Create_Ctr_Estimation_PUB;
3752: RETURN;
3753: END IF;
3754: -- End of API Body
3752: RETURN;
3753: END IF;
3754: -- End of API Body
3755:
3756: IF FND_API.To_Boolean( p_commit ) THEN
3757: COMMIT WORK;
3758: END IF;
3759:
3760: FND_MSG_PUB.Count_And_Get
3763: );
3764:
3765: EXCEPTION
3766:
3767: WHEN FND_API.G_EXC_ERROR THEN
3768: ROLLBACK TO Create_Ctr_Estimation_PUB;
3769: x_return_status := FND_API.G_RET_STS_ERROR ;
3770: FND_MSG_PUB.Count_And_Get
3771: (p_count => x_msg_count ,
3765: EXCEPTION
3766:
3767: WHEN FND_API.G_EXC_ERROR THEN
3768: ROLLBACK TO Create_Ctr_Estimation_PUB;
3769: x_return_status := FND_API.G_RET_STS_ERROR ;
3770: FND_MSG_PUB.Count_And_Get
3771: (p_count => x_msg_count ,
3772: p_data => x_msg_data
3773: );
3770: FND_MSG_PUB.Count_And_Get
3771: (p_count => x_msg_count ,
3772: p_data => x_msg_data
3773: );
3774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3775: ROLLBACK TO Create_Ctr_Estimation_PUB;
3776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3777: FND_MSG_PUB.Count_And_Get
3778: (p_count => x_msg_count ,
3772: p_data => x_msg_data
3773: );
3774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3775: ROLLBACK TO Create_Ctr_Estimation_PUB;
3776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3777: FND_MSG_PUB.Count_And_Get
3778: (p_count => x_msg_count ,
3779: p_data => x_msg_data
3780: );
3779: p_data => x_msg_data
3780: );
3781: WHEN OTHERS THEN
3782: ROLLBACK TO Create_Ctr_Estimation_PUB;
3783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3784: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3785: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
3786: END IF;
3787: FND_MSG_PUB.Count_And_Get
3792:
3793: PROCEDURE Update_Estimation_Method
3794: (
3795: p_api_version IN NUMBER,
3796: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3797: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3798: x_return_status OUT NOCOPY VARCHAR2,
3799: x_msg_count OUT NOCOPY NUMBER,
3800: x_msg_data OUT NOCOPY VARCHAR2,
3793: PROCEDURE Update_Estimation_Method
3794: (
3795: p_api_version IN NUMBER,
3796: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3797: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3798: x_return_status OUT NOCOPY VARCHAR2,
3799: x_msg_count OUT NOCOPY NUMBER,
3800: x_msg_data OUT NOCOPY VARCHAR2,
3801: p_estimation_id IN NUMBER,
3812:
3813: SAVEPOINT Update_Estimation_Method_PUB;
3814:
3815: -- Standard call to check for call compatibility.
3816: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3817: p_api_version ,
3818: l_api_name ,
3819: G_PKG_NAME ) THEN
3820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3816: IF NOT FND_API.Compatible_API_Call (l_api_version ,
3817: p_api_version ,
3818: l_api_name ,
3819: G_PKG_NAME ) THEN
3820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3821: END IF;
3822: -- Initialize message list if p_init_msg_list is set to TRUE.
3823: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3824: FND_MSG_PUB.initialize;
3819: G_PKG_NAME ) THEN
3820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3821: END IF;
3822: -- Initialize message list if p_init_msg_list is set to TRUE.
3823: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3824: FND_MSG_PUB.initialize;
3825: END IF;
3826: -- Initialize API return status to success
3827: x_return_status := FND_API.G_RET_STS_SUCCESS;
3823: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3824: FND_MSG_PUB.initialize;
3825: END IF;
3826: -- Initialize API return status to success
3827: x_return_status := FND_API.G_RET_STS_SUCCESS;
3828: --
3829: -- Start of API Body
3830: l_ctr_estimation_methods_rec.ESTIMATION_ID := p_estimation_id;
3831: l_ctr_estimation_methods_rec.ESTIMATION_TYPE := p_ctr_estimation_rec.estimation_type;
3866: ,x_msg_data => x_msg_data
3867: ,p_ctr_estimation_rec => l_ctr_estimation_methods_rec
3868: );
3869:
3870: IF NOT (x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
3871: ROLLBACK TO Update_Estimation_Method_PUB;
3872: RETURN;
3873: END IF;
3874:
3873: END IF;
3874:
3875: -- End of API Body
3876:
3877: IF FND_API.To_Boolean( p_commit ) THEN
3878: COMMIT WORK;
3879: END IF;
3880:
3881: FND_MSG_PUB.Count_And_Get
3884: );
3885:
3886: EXCEPTION
3887:
3888: WHEN FND_API.G_EXC_ERROR THEN
3889: ROLLBACK TO Update_Estimation_Method_PUB;
3890: x_return_status := FND_API.G_RET_STS_ERROR ;
3891: FND_MSG_PUB.Count_And_Get
3892: (p_count => x_msg_count ,
3886: EXCEPTION
3887:
3888: WHEN FND_API.G_EXC_ERROR THEN
3889: ROLLBACK TO Update_Estimation_Method_PUB;
3890: x_return_status := FND_API.G_RET_STS_ERROR ;
3891: FND_MSG_PUB.Count_And_Get
3892: (p_count => x_msg_count ,
3893: p_data => x_msg_data
3894: );
3891: FND_MSG_PUB.Count_And_Get
3892: (p_count => x_msg_count ,
3893: p_data => x_msg_data
3894: );
3895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3896: ROLLBACK TO Update_Estimation_Method_PUB;
3897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3898: FND_MSG_PUB.Count_And_Get
3899: (p_count => x_msg_count ,
3893: p_data => x_msg_data
3894: );
3895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3896: ROLLBACK TO Update_Estimation_Method_PUB;
3897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3898: FND_MSG_PUB.Count_And_Get
3899: (p_count => x_msg_count ,
3900: p_data => x_msg_data
3901: );
3900: p_data => x_msg_data
3901: );
3902: WHEN OTHERS THEN
3903: ROLLBACK TO Update_Estimation_Method_PUB;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3905: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3906: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
3907: END IF;
3908: FND_MSG_PUB.Count_And_Get