[Home] [Help]
148: );
149:
150: PROCEDURE Create_ActMetric2 (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
153: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
154: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
155:
156: x_return_status OUT NOCOPY VARCHAR2,
149:
150: PROCEDURE Create_ActMetric2 (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
153: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
154: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
155:
156: x_return_status OUT NOCOPY VARCHAR2,
157: x_msg_count OUT NOCOPY NUMBER,
150: PROCEDURE Create_ActMetric2 (
151: p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
153: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
154: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
155:
156: x_return_status OUT NOCOPY VARCHAR2,
157: x_msg_count OUT NOCOPY NUMBER,
158: x_msg_data OUT NOCOPY VARCHAR2,
182:
183:
184: PROCEDURE Create_ActMetric (
185: p_api_version IN NUMBER,
186: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
187: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
188: --p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
189: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
190:
183:
184: PROCEDURE Create_ActMetric (
185: p_api_version IN NUMBER,
186: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
187: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
188: --p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
189: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
190:
191: x_return_status OUT NOCOPY VARCHAR2,
184: PROCEDURE Create_ActMetric (
185: p_api_version IN NUMBER,
186: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
187: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
188: --p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
189: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
190:
191: x_return_status OUT NOCOPY VARCHAR2,
192: x_msg_count OUT NOCOPY NUMBER,
185: p_api_version IN NUMBER,
186: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
187: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
188: --p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
189: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
190:
191: x_return_status OUT NOCOPY VARCHAR2,
192: x_msg_count OUT NOCOPY NUMBER,
193: x_msg_data OUT NOCOPY VARCHAR2,
201: BEGIN
202:
203: SAVEPOINT sp_create_actmetric;
204:
205: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
206: x_activity_metric_id := NULL;
207:
208: --LOCK TABLE AMS_ACT_METRICS_ALL IN EXCLUSIVE MODE;
209:
215: x_return_status => x_return_status,
216: x_msg_count => x_msg_count,
217: x_msg_data => x_msg_data);
218:
219: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS or
220: l_is_locked = FND_API.G_FALSE THEN
221: RAISE Fnd_Api.G_EXC_ERROR;
222: END IF;
223:
216: x_msg_count => x_msg_count,
217: x_msg_data => x_msg_data);
218:
219: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS or
220: l_is_locked = FND_API.G_FALSE THEN
221: RAISE Fnd_Api.G_EXC_ERROR;
222: END IF;
223:
224: Create_ActMetric2 (
217: x_msg_data => x_msg_data);
218:
219: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS or
220: l_is_locked = FND_API.G_FALSE THEN
221: RAISE Fnd_Api.G_EXC_ERROR;
222: END IF;
223:
224: Create_ActMetric2 (
225: p_api_version => p_api_version,
232: p_act_metric_rec => p_act_metric_rec,
233: x_activity_metric_id => x_activity_metric_id);
234:
235: -- If any errors happen abort API.
236: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
237: RAISE Fnd_Api.G_EXC_ERROR;
238: END IF;
239:
240: --COMMIT WORK;
233: x_activity_metric_id => x_activity_metric_id);
234:
235: -- If any errors happen abort API.
236: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
237: RAISE Fnd_Api.G_EXC_ERROR;
238: END IF;
239:
240: --COMMIT WORK;
241:
238: END IF;
239:
240: --COMMIT WORK;
241:
242: IF Fnd_Api.to_boolean(p_commit) THEN
243: COMMIT;
244: END IF;
245:
246: --
249: --
250: Fnd_Msg_Pub.Count_And_Get (
251: p_count => x_msg_count,
252: p_data => x_msg_data,
253: p_encoded => Fnd_Api.G_FALSE
254: );
255:
256: EXCEPTION
257: WHEN Fnd_Api.G_EXC_ERROR THEN
253: p_encoded => Fnd_Api.G_FALSE
254: );
255:
256: EXCEPTION
257: WHEN Fnd_Api.G_EXC_ERROR THEN
258: ROLLBACK TO sp_create_actmetric;
259: x_return_status := Fnd_Api.G_RET_STS_ERROR;
260: Fnd_Msg_Pub.Count_And_Get (
261: p_count => x_msg_count,
255:
256: EXCEPTION
257: WHEN Fnd_Api.G_EXC_ERROR THEN
258: ROLLBACK TO sp_create_actmetric;
259: x_return_status := Fnd_Api.G_RET_STS_ERROR;
260: Fnd_Msg_Pub.Count_And_Get (
261: p_count => x_msg_count,
262: p_data => x_msg_data,
263: p_encoded => FND_API.G_FALSE
259: x_return_status := Fnd_Api.G_RET_STS_ERROR;
260: Fnd_Msg_Pub.Count_And_Get (
261: p_count => x_msg_count,
262: p_data => x_msg_data,
263: p_encoded => FND_API.G_FALSE
264: );
265: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
266: ROLLBACK TO sp_create_actmetric;
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
261: p_count => x_msg_count,
262: p_data => x_msg_data,
263: p_encoded => FND_API.G_FALSE
264: );
265: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
266: ROLLBACK TO sp_create_actmetric;
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
268: Fnd_Msg_Pub.Count_And_Get (
269: p_count => x_msg_count,
263: p_encoded => FND_API.G_FALSE
264: );
265: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
266: ROLLBACK TO sp_create_actmetric;
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
268: Fnd_Msg_Pub.Count_And_Get (
269: p_count => x_msg_count,
270: p_data => x_msg_data,
271: p_encoded => FND_API.G_FALSE
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
268: Fnd_Msg_Pub.Count_And_Get (
269: p_count => x_msg_count,
270: p_data => x_msg_data,
271: p_encoded => FND_API.G_FALSE
272: );
273: WHEN OTHERS THEN
274: ROLLBACK TO sp_create_actmetric;
275: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
271: p_encoded => FND_API.G_FALSE
272: );
273: WHEN OTHERS THEN
274: ROLLBACK TO sp_create_actmetric;
275: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
276: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
277: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
278: END IF;
279: Fnd_Msg_Pub.Count_And_Get (
278: END IF;
279: Fnd_Msg_Pub.Count_And_Get (
280: p_count => x_msg_count,
281: p_data => x_msg_data,
282: p_encoded => FND_API.G_FALSE
283: );
284: END Create_ActMetric;
285:
286: -- Start of comments
534: PROCEDURE Init_ActMetric_Rec(
535: x_act_metric_rec IN OUT NOCOPY Ams_Actmetric_Pvt.Act_metric_rec_type
536: ) IS
537: BEGIN
538: x_act_metric_rec.activity_metric_id := Fnd_Api.G_MISS_NUM ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
535: x_act_metric_rec IN OUT NOCOPY Ams_Actmetric_Pvt.Act_metric_rec_type
536: ) IS
537: BEGIN
538: x_act_metric_rec.activity_metric_id := Fnd_Api.G_MISS_NUM ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
536: ) IS
537: BEGIN
538: x_act_metric_rec.activity_metric_id := Fnd_Api.G_MISS_NUM ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
537: BEGIN
538: x_act_metric_rec.activity_metric_id := Fnd_Api.G_MISS_NUM ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
538: x_act_metric_rec.activity_metric_id := Fnd_Api.G_MISS_NUM ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
539: x_act_metric_rec.last_update_date := Fnd_Api.G_MISS_DATE ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
540: x_act_metric_rec.last_updated_by := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
541: x_act_metric_rec.creation_date := Fnd_Api.G_MISS_DATE ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
542: x_act_metric_rec.created_by := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
543: x_act_metric_rec.last_update_login := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
544: x_act_metric_rec.object_version_number := Fnd_Api.G_MISS_NUM ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
545: x_act_metric_rec.act_metric_used_by_id := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
546: x_act_metric_rec.arc_act_metric_used_by := Fnd_Api.G_MISS_CHAR ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
547: x_act_metric_rec.purchase_req_raised_flag := Fnd_Api.G_MISS_CHAR ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
548: x_act_metric_rec.application_id := Fnd_Api.G_MISS_NUM ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
549: x_act_metric_rec.sensitive_data_flag := Fnd_Api.G_MISS_CHAR ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
550: x_act_metric_rec.budget_id := Fnd_Api.G_MISS_NUM ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
551: x_act_metric_rec.metric_id := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
552: x_act_metric_rec.transaction_currency_code := Fnd_Api.G_MISS_CHAR ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
553: x_act_metric_rec.trans_forecasted_value := Fnd_Api.G_MISS_NUM ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
554: x_act_metric_rec.trans_committed_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
555: x_act_metric_rec.trans_actual_value := Fnd_Api.G_MISS_NUM ;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
556: x_act_metric_rec.functional_currency_code := Fnd_Api.G_MISS_CHAR ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
557: x_act_metric_rec.func_forecasted_value := Fnd_Api.G_MISS_NUM ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
558: x_act_metric_rec.dirty_flag := Fnd_Api.G_MISS_CHAR ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
559: x_act_metric_rec.func_committed_value := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
560: x_act_metric_rec.func_actual_value := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
561: x_act_metric_rec.last_calculated_date := Fnd_Api.G_MISS_DATE ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
562: x_act_metric_rec.variable_value := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
563: x_act_metric_rec.forecasted_variable_value := Fnd_Api.G_MISS_NUM;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
564: x_act_metric_rec.computed_using_function_value := Fnd_Api.G_MISS_NUM ;
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
565: x_act_metric_rec.metric_uom_code := Fnd_Api.G_MISS_CHAR ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
566: x_act_metric_rec.org_id := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
567: x_act_metric_rec.difference_since_last_calc := Fnd_Api.G_MISS_NUM ;
568: x_act_metric_rec.activity_metric_origin_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
569: x_act_metric_rec.arc_activity_metric_origin := Fnd_Api.G_MISS_CHAR ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
570: x_act_metric_rec.days_since_last_refresh := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
571: x_act_metric_rec.scenario_id := Fnd_Api.G_MISS_NUM ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
572: /* yzhao: 09/24/2001 add following lines */
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
573: x_act_metric_rec.summarize_to_metric := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
574: x_act_metric_rec.rollup_to_metric := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
575: x_act_metric_rec.hierarchy_id := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
576: x_act_metric_rec.start_node := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
577: x_act_metric_rec.from_level := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
578: x_act_metric_rec.to_level := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
579: x_act_metric_rec.from_date := Fnd_Api.G_MISS_DATE ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
580: x_act_metric_rec.TO_DATE := Fnd_Api.G_MISS_DATE ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
581: x_act_metric_rec.amount1 := Fnd_Api.G_MISS_NUM ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
582: x_act_metric_rec.amount2 := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
583: x_act_metric_rec.amount3 := Fnd_Api.G_MISS_NUM ;
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
584: x_act_metric_rec.percent1 := Fnd_Api.G_MISS_NUM ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
585: x_act_metric_rec.percent2 := Fnd_Api.G_MISS_NUM ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
586: x_act_metric_rec.percent3 := Fnd_Api.G_MISS_NUM ;
587: x_act_metric_rec.published_flag := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
588: x_act_metric_rec.pre_function_name := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
589: x_act_metric_rec.post_function_name := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
590: -- x_act_metric_rec.security_group_id := Fnd_Api.G_MISS_NUM ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
591: /* yzhao: 09/24/2001 ends */
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
592: x_act_metric_rec.attribute_category := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
593: x_act_metric_rec.attribute1 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
594: x_act_metric_rec.attribute2 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
595: x_act_metric_rec.attribute3 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
596: x_act_metric_rec.attribute4 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
597: x_act_metric_rec.attribute5 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
598: x_act_metric_rec.attribute6 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
599: x_act_metric_rec.attribute7 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
600: x_act_metric_rec.attribute8 := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
601: x_act_metric_rec.attribute9 := Fnd_Api.G_MISS_CHAR ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
602: x_act_metric_rec.attribute10 := Fnd_Api.G_MISS_CHAR ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
603: x_act_metric_rec.attribute11 := Fnd_Api.G_MISS_CHAR ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
604: x_act_metric_rec.attribute12 := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
605: x_act_metric_rec.attribute13 := Fnd_Api.G_MISS_CHAR ;
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
606: x_act_metric_rec.attribute14 := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
607: x_act_metric_rec.attribute15 := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
608: x_act_metric_rec.description := Fnd_Api.G_MISS_CHAR ;
609: x_act_metric_rec.act_metric_date := Fnd_Api.G_MISS_DATE ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
610: x_act_metric_rec.depend_act_metric := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
611: x_act_metric_rec.function_used_by_id := Fnd_Api.G_MISS_NUM ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
619: x_act_metric_rec.ex_start_node := Fnd_Api.G_MISS_CHAR ;
612: x_act_metric_rec.arc_function_used_by := Fnd_Api.G_MISS_CHAR ;
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
619: x_act_metric_rec.ex_start_node := Fnd_Api.G_MISS_CHAR ;
620: /* 05/15/2002 yzhao: add ends */
613: /* 05/15/2002 yzhao: 11.5.9 add 6 new columns for top-down bottom-up budgeting */
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
619: x_act_metric_rec.ex_start_node := Fnd_Api.G_MISS_CHAR ;
620: /* 05/15/2002 yzhao: add ends */
621: END Init_ActMetric_Rec;
614: x_act_metric_rec.hierarchy_type := Fnd_Api.G_MISS_CHAR ;
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
619: x_act_metric_rec.ex_start_node := Fnd_Api.G_MISS_CHAR ;
620: /* 05/15/2002 yzhao: add ends */
621: END Init_ActMetric_Rec;
622:
615: x_act_metric_rec.status_code := Fnd_Api.G_MISS_CHAR ;
616: x_act_metric_rec.method_code := Fnd_Api.G_MISS_CHAR ;
617: x_act_metric_rec.action_code := Fnd_Api.G_MISS_CHAR ;
618: x_act_metric_rec.basis_year := Fnd_Api.G_MISS_NUM ;
619: x_act_metric_rec.ex_start_node := Fnd_Api.G_MISS_CHAR ;
620: /* 05/15/2002 yzhao: add ends */
621: END Init_ActMetric_Rec;
622:
623:
733: -- End of comments
734:
735: PROCEDURE Create_ParentActMetric
736: (p_api_version IN NUMBER
737: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
738: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
739: ,p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full
740: ,p_act_metric_rec IN OUT NOCOPY act_metric_rec_type
741: ,x_act_metric_id OUT NOCOPY NUMBER
734:
735: PROCEDURE Create_ParentActMetric
736: (p_api_version IN NUMBER
737: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
738: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
739: ,p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full
740: ,p_act_metric_rec IN OUT NOCOPY act_metric_rec_type
741: ,x_act_metric_id OUT NOCOPY NUMBER
742: )
735: PROCEDURE Create_ParentActMetric
736: (p_api_version IN NUMBER
737: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
738: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
739: ,p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full
740: ,p_act_metric_rec IN OUT NOCOPY act_metric_rec_type
741: ,x_act_metric_id OUT NOCOPY NUMBER
742: )
743: IS
961: x_return_status => x_return_status,
962: x_msg_count => l_msg_count,
963: x_msg_data => l_msg_data);
964:
965: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
966: IF(l_msg_count > 0) THEN
967: FOR i IN 1 .. l_msg_count
968: LOOP
969: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
965: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
966: IF(l_msg_count > 0) THEN
967: FOR i IN 1 .. l_msg_count
968: LOOP
969: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
970: END LOOP;
971: END IF;
972: CLOSE c_get_rollup_metrics;
973: RAISE Fnd_Api.G_EXC_ERROR;
969: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
970: END LOOP;
971: END IF;
972: CLOSE c_get_rollup_metrics;
973: RAISE Fnd_Api.G_EXC_ERROR;
974: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
975: CLOSE c_get_rollup_metrics;
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
977: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
970: END LOOP;
971: END IF;
972: CLOSE c_get_rollup_metrics;
973: RAISE Fnd_Api.G_EXC_ERROR;
974: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
975: CLOSE c_get_rollup_metrics;
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
977: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
978: END IF; -- IF l_obj_trans_curr <> l_act_metric_trans_curr THEN
972: CLOSE c_get_rollup_metrics;
973: RAISE Fnd_Api.G_EXC_ERROR;
974: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
975: CLOSE c_get_rollup_metrics;
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
977: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
978: END IF; -- IF l_obj_trans_curr <> l_act_metric_trans_curr THEN
979: END LOOP;
980: CLOSE c_get_rollup_metrics;
973: RAISE Fnd_Api.G_EXC_ERROR;
974: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
975: CLOSE c_get_rollup_metrics;
976: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
977: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
978: END IF; -- IF l_obj_trans_curr <> l_act_metric_trans_curr THEN
979: END LOOP;
980: CLOSE c_get_rollup_metrics;
981:
1004: -- object's
1005: -- End of comments
1006:
1007: PROCEDURE Default_ActMetric(
1008: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1009: --p_act_metric_rec IN act_metric_rec_type,
1010: p_validation_mode IN VARCHAR2 ,
1011: x_complete_rec IN OUT NOCOPY act_metric_rec_type,
1012: x_return_status OUT NOCOPY VARCHAR2,
1026:
1027: l_met_det_rec c_met_det%ROWTYPE ;
1028: l_obj_trans_curr VARCHAR2(15);
1029: l_return_status VARCHAR2(1);
1030: l_curr_return_status VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS;
1031: l_current_date DATE := SYSDATE;
1032: l_trans_actual_value number;
1033: l_trans_forecasted_value number;
1034:
1035: BEGIN
1036: --
1037: -- Initialize message list if p_init_msg_list is set to TRUE.
1038: --
1039: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1040: Fnd_Msg_Pub.Initialize;
1041: END IF;
1042:
1043: --
1042:
1043: --
1044: -- Initialize API return status to success.
1045: --
1046: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1047:
1048: -- x_complete_rec := p_act_metric_rec;
1049:
1050: -- OPEN c_met_det(p_act_metric_rec.metric_id);
1109: -- drive with functional value.
1110:
1111: IF l_met_det_rec.metric_calculation_type IN ('MANUAL', 'FUNCTION') THEN
1112: IF x_complete_rec.transaction_currency_code IS NOT NULL AND
1113: x_complete_rec.transaction_currency_code <> Fnd_Api.G_MISS_CHAR THEN
1114:
1115: l_trans_actual_value := x_complete_rec.trans_actual_value;
1116: l_trans_forecasted_value := x_complete_rec.trans_forecasted_value;
1117: -- Round the transaction values to the Minimum Accountable Unit.
1123: p_from_amount => l_trans_actual_value,
1124: x_to_amount => x_complete_rec.trans_actual_value,
1125: p_from_amount2 => l_trans_forecasted_value,
1126: x_to_amount2 => x_complete_rec.trans_forecasted_value,
1127: p_round => Fnd_Api.G_TRUE);
1128:
1129: IF (x_complete_rec.func_actual_value IS NOT NULL AND
1130: x_complete_rec.func_actual_value <> Fnd_Api.G_MISS_NUM) AND
1131: (x_complete_rec.trans_actual_value IS NULL
1126: x_to_amount2 => x_complete_rec.trans_forecasted_value,
1127: p_round => Fnd_Api.G_TRUE);
1128:
1129: IF (x_complete_rec.func_actual_value IS NOT NULL AND
1130: x_complete_rec.func_actual_value <> Fnd_Api.G_MISS_NUM) AND
1131: (x_complete_rec.trans_actual_value IS NULL
1132: /* OR l_met_det_rec.accrual_type = 'VARIABLE' */) THEN
1133:
1134: -- drive with func value
1139: p_to_currency => x_complete_rec.transaction_currency_code,
1140: p_conv_date => l_current_date,
1141: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1142: x_to_amount => x_complete_rec.trans_actual_value,
1143: p_round => Fnd_Api.G_TRUE);
1144: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1145: RAISE Fnd_Api.G_EXC_ERROR;
1146: END IF;
1147: ELSIF x_complete_rec.trans_actual_value IS NOT NULL AND
1140: p_conv_date => l_current_date,
1141: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1142: x_to_amount => x_complete_rec.trans_actual_value,
1143: p_round => Fnd_Api.G_TRUE);
1144: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1145: RAISE Fnd_Api.G_EXC_ERROR;
1146: END IF;
1147: ELSIF x_complete_rec.trans_actual_value IS NOT NULL AND
1148: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM THEN
1141: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1142: x_to_amount => x_complete_rec.trans_actual_value,
1143: p_round => Fnd_Api.G_TRUE);
1144: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1145: RAISE Fnd_Api.G_EXC_ERROR;
1146: END IF;
1147: ELSIF x_complete_rec.trans_actual_value IS NOT NULL AND
1148: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM THEN
1149: -- drive with trans value
1144: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1145: RAISE Fnd_Api.G_EXC_ERROR;
1146: END IF;
1147: ELSIF x_complete_rec.trans_actual_value IS NOT NULL AND
1148: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM THEN
1149: -- drive with trans value
1150: Convert_Currency (
1151: x_return_status => l_curr_return_status,
1152: p_from_currency => x_complete_rec.transaction_currency_code,
1153: p_to_currency => x_complete_rec.functional_currency_code,
1154: p_conv_date => l_current_date,
1155: p_from_amount => NVL(x_complete_rec.trans_actual_value,0),
1156: x_to_amount => x_complete_rec.func_actual_value,
1157: p_round => Fnd_Api.G_FALSE);
1158:
1159: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1160: RAISE Fnd_Api.G_EXC_ERROR;
1161: END IF;
1155: p_from_amount => NVL(x_complete_rec.trans_actual_value,0),
1156: x_to_amount => x_complete_rec.func_actual_value,
1157: p_round => Fnd_Api.G_FALSE);
1158:
1159: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1160: RAISE Fnd_Api.G_EXC_ERROR;
1161: END IF;
1162: END IF;
1163:
1156: x_to_amount => x_complete_rec.func_actual_value,
1157: p_round => Fnd_Api.G_FALSE);
1158:
1159: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1160: RAISE Fnd_Api.G_EXC_ERROR;
1161: END IF;
1162: END IF;
1163:
1164: IF (x_complete_rec.func_forecasted_value IS NOT NULL AND
1161: END IF;
1162: END IF;
1163:
1164: IF (x_complete_rec.func_forecasted_value IS NOT NULL AND
1165: x_complete_rec.func_forecasted_value <> Fnd_Api.G_MISS_NUM) AND
1166: (x_complete_rec.trans_forecasted_value IS NULL) THEN
1167: -- drive with func value
1168: Convert_Currency (
1169: x_return_status => l_curr_return_status,
1171: p_to_currency => x_complete_rec.transaction_currency_code,
1172: p_conv_date => l_current_date,
1173: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1174: x_to_amount => x_complete_rec.trans_forecasted_value,
1175: p_round => Fnd_Api.G_TRUE);
1176: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1177: RAISE Fnd_Api.G_EXC_ERROR;
1178: END IF;
1179: ELSIF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1172: p_conv_date => l_current_date,
1173: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1174: x_to_amount => x_complete_rec.trans_forecasted_value,
1175: p_round => Fnd_Api.G_TRUE);
1176: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1177: RAISE Fnd_Api.G_EXC_ERROR;
1178: END IF;
1179: ELSIF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1180: x_complete_rec.trans_forecasted_value <> Fnd_Api.G_MISS_NUM) THEN
1173: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1174: x_to_amount => x_complete_rec.trans_forecasted_value,
1175: p_round => Fnd_Api.G_TRUE);
1176: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1177: RAISE Fnd_Api.G_EXC_ERROR;
1178: END IF;
1179: ELSIF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1180: x_complete_rec.trans_forecasted_value <> Fnd_Api.G_MISS_NUM) THEN
1181: --drive with trans value
1176: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1177: RAISE Fnd_Api.G_EXC_ERROR;
1178: END IF;
1179: ELSIF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1180: x_complete_rec.trans_forecasted_value <> Fnd_Api.G_MISS_NUM) THEN
1181: --drive with trans value
1182: Convert_Currency (
1183: x_return_status => l_curr_return_status,
1184: p_from_currency => x_complete_rec.transaction_currency_code,
1185: p_to_currency => x_complete_rec.functional_currency_code,
1186: p_conv_date => l_current_date,
1187: p_from_amount =>NVL(x_complete_rec.trans_forecasted_value,0),
1188: x_to_amount => x_complete_rec.func_forecasted_value,
1189: p_round => Fnd_Api.G_FALSE);
1190: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1191: RAISE Fnd_Api.G_EXC_ERROR;
1192: END IF;
1193:
1186: p_conv_date => l_current_date,
1187: p_from_amount =>NVL(x_complete_rec.trans_forecasted_value,0),
1188: x_to_amount => x_complete_rec.func_forecasted_value,
1189: p_round => Fnd_Api.G_FALSE);
1190: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1191: RAISE Fnd_Api.G_EXC_ERROR;
1192: END IF;
1193:
1194: END IF;
1187: p_from_amount =>NVL(x_complete_rec.trans_forecasted_value,0),
1188: x_to_amount => x_complete_rec.func_forecasted_value,
1189: p_round => Fnd_Api.G_FALSE);
1190: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1191: RAISE Fnd_Api.G_EXC_ERROR;
1192: END IF;
1193:
1194: END IF;
1195:
1195:
1196: -- in case of non-currencies handle in the same way as above.
1197: ELSE
1198: IF (x_complete_rec.func_actual_value IS NOT NULL AND
1199: x_complete_rec.func_actual_value <> Fnd_Api.G_MISS_NUM) AND
1200: (x_complete_rec.trans_actual_value IS NULL) THEN
1201: -- drive with func value
1202: x_complete_rec.trans_actual_value :=
1203: x_complete_rec.func_actual_value;
1207: x_complete_rec.trans_actual_value;
1208: END IF;
1209:
1210: IF (x_complete_rec.func_forecasted_value IS NOT NULL AND
1211: x_complete_rec.func_forecasted_value <> Fnd_Api.G_MISS_NUM) AND
1212: (x_complete_rec.trans_forecasted_value IS NULL) THEN
1213: -- drive with func value.
1214: x_complete_rec.trans_forecasted_value :=
1215: x_complete_rec.func_forecasted_value;
1231:
1232: -- Now do currency conversions if this metric is currency metric and
1233: -- transaction currency code is passed.
1234: IF (x_complete_rec.transaction_currency_code IS NOT NULL AND
1235: x_complete_rec.transaction_currency_code <> Fnd_Api.G_MISS_CHAR) THEN
1236: -- Convert transaction amount to functional amount when only
1237: -- transaction amount is passed.
1238: IF (x_complete_rec.trans_actual_value IS NOT NULL AND
1239: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM) AND
1235: x_complete_rec.transaction_currency_code <> Fnd_Api.G_MISS_CHAR) THEN
1236: -- Convert transaction amount to functional amount when only
1237: -- transaction amount is passed.
1238: IF (x_complete_rec.trans_actual_value IS NOT NULL AND
1239: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM) AND
1240: (x_complete_rec.func_actual_value IS NULL) THEN
1241: Convert_Currency (
1242: x_return_status => l_curr_return_status,
1243: p_from_currency => x_complete_rec.transaction_currency_code,
1244: p_to_currency => x_complete_rec.functional_currency_code,
1245: p_conv_date => l_current_date,
1246: p_from_amount => NVL(x_complete_rec.trans_actual_value,0),
1247: x_to_amount => x_complete_rec.func_actual_value,
1248: p_round => Fnd_Api.G_FALSE);
1249: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1245: p_conv_date => l_current_date,
1246: p_from_amount => NVL(x_complete_rec.trans_actual_value,0),
1247: x_to_amount => x_complete_rec.func_actual_value,
1248: p_round => Fnd_Api.G_FALSE);
1249: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- drive with func values.
1246: p_from_amount => NVL(x_complete_rec.trans_actual_value,0),
1247: x_to_amount => x_complete_rec.func_actual_value,
1248: p_round => Fnd_Api.G_FALSE);
1249: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- drive with func values.
1254: ELSIF (x_complete_rec.func_actual_value IS NOT NULL AND
1251: END IF;
1252:
1253: -- drive with func values.
1254: ELSIF (x_complete_rec.func_actual_value IS NOT NULL AND
1255: x_complete_rec.func_actual_value <> Fnd_Api.G_MISS_NUM) THEN
1256: Convert_Currency (
1257: x_return_status => l_curr_return_status,
1258: p_from_currency => x_complete_rec.functional_currency_code,
1259: p_to_currency => x_complete_rec.transaction_currency_code,
1259: p_to_currency => x_complete_rec.transaction_currency_code,
1260: p_conv_date => l_current_date,
1261: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1262: x_to_amount => x_complete_rec.trans_actual_value,
1263: p_round => Fnd_Api.G_TRUE);
1264: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1265: RAISE Fnd_Api.G_EXC_ERROR;
1266: END IF;
1267:
1260: p_conv_date => l_current_date,
1261: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1262: x_to_amount => x_complete_rec.trans_actual_value,
1263: p_round => Fnd_Api.G_TRUE);
1264: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1265: RAISE Fnd_Api.G_EXC_ERROR;
1266: END IF;
1267:
1268: END IF; -- (p_act_metric_rec.trans_actual_value IS NOT NULL AND
1261: p_from_amount => NVL(x_complete_rec.func_actual_value,0),
1262: x_to_amount => x_complete_rec.trans_actual_value,
1263: p_round => Fnd_Api.G_TRUE);
1264: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1265: RAISE Fnd_Api.G_EXC_ERROR;
1266: END IF;
1267:
1268: END IF; -- (p_act_metric_rec.trans_actual_value IS NOT NULL AND
1269:
1271: -- If func values are passed drive with them otherwise with
1272: -- trans values
1273:
1274: IF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1275: x_complete_rec.trans_forecasted_value <> Fnd_Api.G_MISS_NUM) AND
1276: (x_complete_rec.func_forecasted_value IS NULL) THEN
1277: Convert_Currency (
1278: x_return_status => l_curr_return_status,
1279: p_from_currency => x_complete_rec.transaction_currency_code,
1280: p_to_currency => x_complete_rec.functional_currency_code,
1281: p_conv_date => l_current_date,
1282: p_from_amount => NVL(x_complete_rec.trans_forecasted_value,0),
1283: x_to_amount => x_complete_rec.func_forecasted_value,
1284: p_round => Fnd_Api.G_FALSE);
1285: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1286: RAISE Fnd_Api.G_EXC_ERROR;
1287: END IF;
1288:
1281: p_conv_date => l_current_date,
1282: p_from_amount => NVL(x_complete_rec.trans_forecasted_value,0),
1283: x_to_amount => x_complete_rec.func_forecasted_value,
1284: p_round => Fnd_Api.G_FALSE);
1285: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1286: RAISE Fnd_Api.G_EXC_ERROR;
1287: END IF;
1288:
1289: -- drive with func values.
1282: p_from_amount => NVL(x_complete_rec.trans_forecasted_value,0),
1283: x_to_amount => x_complete_rec.func_forecasted_value,
1284: p_round => Fnd_Api.G_FALSE);
1285: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1286: RAISE Fnd_Api.G_EXC_ERROR;
1287: END IF;
1288:
1289: -- drive with func values.
1290: ELSIF (x_complete_rec.func_forecasted_value IS NOT NULL AND
1287: END IF;
1288:
1289: -- drive with func values.
1290: ELSIF (x_complete_rec.func_forecasted_value IS NOT NULL AND
1291: x_complete_rec.func_forecasted_value <> Fnd_Api.G_MISS_NUM) THEN
1292: Convert_Currency (
1293: x_return_status => l_curr_return_status,
1294: p_from_currency => x_complete_rec.functional_currency_code,
1295: p_to_currency => x_complete_rec.transaction_currency_code,
1295: p_to_currency => x_complete_rec.transaction_currency_code,
1296: p_conv_date => l_current_date,
1297: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1298: x_to_amount => x_complete_rec.trans_forecasted_value,
1299: p_round => Fnd_Api.G_TRUE);
1300: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1301: RAISE Fnd_Api.G_EXC_ERROR;
1302: END IF;
1303: END IF; --if for p_act_metric_rec.func_forecasted_value IS NOT NULL AND
1296: p_conv_date => l_current_date,
1297: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1298: x_to_amount => x_complete_rec.trans_forecasted_value,
1299: p_round => Fnd_Api.G_TRUE);
1300: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1301: RAISE Fnd_Api.G_EXC_ERROR;
1302: END IF;
1303: END IF; --if for p_act_metric_rec.func_forecasted_value IS NOT NULL AND
1304:
1297: p_from_amount => NVL(x_complete_rec.func_forecasted_value,0),
1298: x_to_amount => x_complete_rec.trans_forecasted_value,
1299: p_round => Fnd_Api.G_TRUE);
1300: IF l_curr_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1301: RAISE Fnd_Api.G_EXC_ERROR;
1302: END IF;
1303: END IF; --if for p_act_metric_rec.func_forecasted_value IS NOT NULL AND
1304:
1305: ELSE -- Transaction currency code is null
1303: END IF; --if for p_act_metric_rec.func_forecasted_value IS NOT NULL AND
1304:
1305: ELSE -- Transaction currency code is null
1306: IF (x_complete_rec.trans_actual_value IS NOT NULL AND
1307: x_complete_rec.trans_actual_value <> Fnd_Api.G_MISS_NUM) AND
1308: (x_complete_rec.func_actual_value IS NULL) THEN
1309: x_complete_rec.func_actual_value :=
1310: x_complete_rec.trans_actual_value;
1311: ELSE
1312: x_complete_rec.trans_actual_value :=
1313: x_complete_rec.func_actual_value;
1314: END IF;
1315: IF (x_complete_rec.trans_forecasted_value IS NOT NULL AND
1316: x_complete_rec.trans_forecasted_value <> Fnd_Api.G_MISS_NUM) AND
1317: (x_complete_rec.func_forecasted_value IS NULL) THEN
1318: x_complete_rec.func_forecasted_value :=
1319: x_complete_rec.trans_forecasted_value;
1320: ELSE
1332: -- transaction currency and functional currency
1333: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_NO_RATE');
1334: FND_MSG_PUB.Add;
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_ERROR;
1337:
1338: -- If any error happens abort API.
1339: RETURN;
1340: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1342: -- Atleast One of the two Currencies specified is invalid
1343: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_CURR');
1344: FND_MSG_PUB.Add;
1345: END IF;
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347:
1348: -- If any error happens abort API.
1349: RETURN;
1350: */
1358: IS
1359: -- Cursors for checking of statuses when the object is active.
1360: -- Relevant in Update.
1361: CURSOR c_camp_active(id NUMBER) IS
1362: SELECT Fnd_Api.G_TRUE
1363: FROM ams_campaigns_all_b
1364: WHERE campaign_id = id
1365: AND status_code IN ('SUBMITTED_BA', 'ACTIVE');
1366:
1364: WHERE campaign_id = id
1365: AND status_code IN ('SUBMITTED_BA', 'ACTIVE');
1366:
1367: CURSOR c_csch_active(id NUMBER) IS
1368: SELECT Fnd_Api.G_TRUE
1369: FROM ams_campaign_schedules_b
1370: WHERE schedule_id = id
1371: AND status_code = 'ACTIVE';
1372:
1370: WHERE schedule_id = id
1371: AND status_code = 'ACTIVE';
1372:
1373: CURSOR c_delv_active(id NUMBER) IS
1374: SELECT Fnd_Api.G_TRUE
1375: FROM ams_deliverables_all_b
1376: WHERE deliverable_id = id
1377: AND status_code IN ('SUBMITTED_BA', 'AVAILABLE');
1378:
1376: WHERE deliverable_id = id
1377: AND status_code IN ('SUBMITTED_BA', 'AVAILABLE');
1378:
1379: CURSOR c_eveh_active(id NUMBER) IS
1380: SELECT Fnd_Api.G_TRUE
1381: FROM ams_event_headers_all_b
1382: WHERE event_header_id = id
1383: AND system_status_code IN ('ACTIVE', 'SUBMITTED_BA');
1384:
1382: WHERE event_header_id = id
1383: AND system_status_code IN ('ACTIVE', 'SUBMITTED_BA');
1384:
1385: CURSOR c_eveo_active(id NUMBER) IS
1386: SELECT Fnd_Api.G_TRUE
1387: FROM ams_event_offers_all_b
1388: WHERE event_offer_id = id
1389: AND system_status_code IN ('SUBMITTED_BA', 'ACTIVE');
1390:
1391: --sunkumar 04/30/2003
1392: -- Added cursors for checking of statuses when the object is active,
1393: -- completed or cancelled. Relevant in delete.
1394: CURSOR c_camp_delete(id NUMBER) IS
1395: SELECT Fnd_Api.G_TRUE
1396: FROM ams_campaigns_all_b
1397: WHERE campaign_id = id
1398: AND status_code IN ('SUBMITTED_BA', 'ACTIVE', 'COMPLETED', 'CANCELLED');
1399:
1397: WHERE campaign_id = id
1398: AND status_code IN ('SUBMITTED_BA', 'ACTIVE', 'COMPLETED', 'CANCELLED');
1399:
1400: CURSOR c_csch_delete(id NUMBER) IS
1401: SELECT Fnd_Api.G_TRUE
1402: FROM ams_campaign_schedules_b
1403: WHERE schedule_id = id
1404: AND status_code IN ('SUBMITTED_BA', 'ACTIVE', 'COMPLETED', 'CANCELLED');
1405:
1403: WHERE schedule_id = id
1404: AND status_code IN ('SUBMITTED_BA', 'ACTIVE', 'COMPLETED', 'CANCELLED');
1405:
1406: CURSOR c_delv_delete(id NUMBER) IS
1407: SELECT Fnd_Api.G_TRUE
1408: FROM ams_deliverables_all_b
1409: WHERE deliverable_id = id
1410: AND status_code IN ('SUBMITTED_BA', 'AVAILABLE', 'CANCELLED', 'ARCHIVED');
1411:
1409: WHERE deliverable_id = id
1410: AND status_code IN ('SUBMITTED_BA', 'AVAILABLE', 'CANCELLED', 'ARCHIVED');
1411:
1412: CURSOR c_eveh_delete(id NUMBER) IS
1413: SELECT Fnd_Api.G_TRUE
1414: FROM ams_event_headers_all_b
1415: WHERE event_header_id = id
1416: AND system_status_code IN ('ACTIVE', 'CANCELLED', 'SUBMITTED_BA','COMPLETED');
1417:
1415: WHERE event_header_id = id
1416: AND system_status_code IN ('ACTIVE', 'CANCELLED', 'SUBMITTED_BA','COMPLETED');
1417:
1418: CURSOR c_eveo_delete(id NUMBER) IS
1419: SELECT Fnd_Api.G_TRUE
1420: FROM ams_event_offers_all_b
1421: WHERE event_offer_id = id
1422: AND system_status_code IN ('SUBMITTED_BA', 'ACTIVE', 'CANCELLED', 'COMPLETED');
1423:
1420: FROM ams_event_offers_all_b
1421: WHERE event_offer_id = id
1422: AND system_status_code IN ('SUBMITTED_BA', 'ACTIVE', 'CANCELLED', 'COMPLETED');
1423:
1424: l_return_value VARCHAR2(1) := Fnd_Api.G_FALSE;
1425:
1426: BEGIN
1427: IF p_operation_mode =G_UPDATE THEN
1428:
1524: p_operation_mode => p_operation_mode);
1525: --
1526: -- Initialize procedure return status to success.
1527: --
1528: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1529: -- make a call to API that will be provided in future, and based on that
1530: -- return OUT NOCOPY parameters.
1531: -- for time being, return FALSE always
1532: x_freeze_status := l_return_value;
1556: -- End of comments
1557:
1558: PROCEDURE Create_ActMetric2 (
1559: p_api_version IN NUMBER,
1560: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1561: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1562: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
1563:
1564: x_return_status OUT NOCOPY VARCHAR2,
1557:
1558: PROCEDURE Create_ActMetric2 (
1559: p_api_version IN NUMBER,
1560: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1561: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1562: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
1563:
1564: x_return_status OUT NOCOPY VARCHAR2,
1565: x_msg_count OUT NOCOPY NUMBER,
1558: PROCEDURE Create_ActMetric2 (
1559: p_api_version IN NUMBER,
1560: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1561: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1562: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
1563:
1564: x_return_status OUT NOCOPY VARCHAR2,
1565: x_msg_count OUT NOCOPY NUMBER,
1566: x_msg_data OUT NOCOPY VARCHAR2,
1636: l_summary_metric_id NUMBER;
1637: l_sensitive_data_flag VARCHAR2(1);
1638: -- Local record variable for the parent metric
1639: l_parent_act_metrics_rec act_metric_rec_type; -- := p_act_metric_rec;
1640: l_freeze_status VARCHAR2(1):= Fnd_Api.G_FALSE;
1641: l_summarize_to_metric NUMBER;
1642: l_today DATE := SYSDATE;
1643: l_org_id NUMBER;
1644:
1657:
1658: --
1659: -- Initialize message list if p_init_msg_list is set to TRUE.
1660: --
1661: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1662: Fnd_Msg_Pub.Initialize;
1663: END IF;
1664:
1665: --
1664:
1665: --
1666: -- Standard check for API version compatibility.
1667: --
1668: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
1669: p_api_version,
1670: L_API_NAME,
1671: G_PKG_NAME)
1672: THEN
1669: p_api_version,
1670: L_API_NAME,
1671: G_PKG_NAME)
1672: THEN
1673: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1674: END IF;
1675:
1676: --
1677: -- Initialize API return status to success.
1675:
1676: --
1677: -- Initialize API return status to success.
1678: --
1679: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1680: x_activity_metric_id := NULL;
1681: --
1682: -- Begin API Body.
1683: --
1702: Ams_Utility_Pvt.Debug_Message(l_full_name||': ignore metric id: ' || p_act_metric_rec.metric_id);
1703: END IF;
1704:
1705: RETURN;
1706: -- l_return_status := Fnd_Api.G_RET_STS_ERROR;
1707: -- RAISE Fnd_Api.G_EXC_ERROR;
1708: END IF;
1709: -- END
1710:
1703: END IF;
1704:
1705: RETURN;
1706: -- l_return_status := Fnd_Api.G_RET_STS_ERROR;
1707: -- RAISE Fnd_Api.G_EXC_ERROR;
1708: END IF;
1709: -- END
1710:
1711: -- Make a call-out to check the frozen status.
1714: G_CREATE, -- Create is operation mode
1715: l_freeze_status,
1716: l_return_status);
1717:
1718: IF (l_freeze_status = Fnd_Api.G_TRUE) THEN
1719: -- frozen to create the record
1720: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1721: Fnd_Message.Set_Name('AMS', 'AMS_METR_FROZEN');
1722: Fnd_Msg_Pub.ADD;
1720: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1721: Fnd_Message.Set_Name('AMS', 'AMS_METR_FROZEN');
1722: Fnd_Msg_Pub.ADD;
1723: END IF;
1724: l_return_status := Fnd_Api.G_RET_STS_ERROR;
1725: END IF;
1726: -- If it is frozen, or any errors happen abort API.
1727:
1728: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1724: l_return_status := Fnd_Api.G_RET_STS_ERROR;
1725: END IF;
1726: -- If it is frozen, or any errors happen abort API.
1727:
1728: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1729: RAISE Fnd_Api.G_EXC_ERROR;
1730: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1731: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1732: END IF;
1725: END IF;
1726: -- If it is frozen, or any errors happen abort API.
1727:
1728: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1729: RAISE Fnd_Api.G_EXC_ERROR;
1730: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1731: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1732: END IF;
1733:
1726: -- If it is frozen, or any errors happen abort API.
1727:
1728: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1729: RAISE Fnd_Api.G_EXC_ERROR;
1730: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1731: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1732: END IF;
1733:
1734: -- Check for existence of parent metric for this given metric_id
1727:
1728: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1729: RAISE Fnd_Api.G_EXC_ERROR;
1730: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1731: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1732: END IF;
1733:
1734: -- Check for existence of parent metric for this given metric_id
1735: IF l_summary_metric_id IS NOT NULL THEN
1748: -- Conditional test is in Create_ParentActMetric.
1749: Create_ParentActMetric
1750: (p_api_version => p_api_version
1751: ,p_init_msg_list => p_init_msg_list
1752: ,p_commit => Fnd_Api.g_false
1753: ,p_validation_level => p_validation_level
1754: ,p_act_metric_rec => l_parent_act_metrics_rec
1755: ,x_act_metric_id => l_summarize_to_metric
1756: );
1758: END IF;
1759:
1760: l_act_metrics_rec.summarize_to_metric := l_summarize_to_metric;
1761:
1762: IF l_act_metrics_rec.hierarchy_type = FND_API.G_MISS_CHAR then
1763: l_act_metrics_rec.hierarchy_type := NULL;
1764: END IF;
1765: IF l_act_metrics_rec.status_code = FND_API.G_MISS_CHAR then
1766: l_act_metrics_rec.status_code := NULL;
1761:
1762: IF l_act_metrics_rec.hierarchy_type = FND_API.G_MISS_CHAR then
1763: l_act_metrics_rec.hierarchy_type := NULL;
1764: END IF;
1765: IF l_act_metrics_rec.status_code = FND_API.G_MISS_CHAR then
1766: l_act_metrics_rec.status_code := NULL;
1767: END IF;
1768: IF l_act_metrics_rec.method_code = FND_API.G_MISS_CHAR then
1769: l_act_metrics_rec.method_code := NULL;
1764: END IF;
1765: IF l_act_metrics_rec.status_code = FND_API.G_MISS_CHAR then
1766: l_act_metrics_rec.status_code := NULL;
1767: END IF;
1768: IF l_act_metrics_rec.method_code = FND_API.G_MISS_CHAR then
1769: l_act_metrics_rec.method_code := NULL;
1770: END IF;
1771: IF l_act_metrics_rec.action_code = FND_API.G_MISS_CHAR then
1772: l_act_metrics_rec.action_code := NULL;
1767: END IF;
1768: IF l_act_metrics_rec.method_code = FND_API.G_MISS_CHAR then
1769: l_act_metrics_rec.method_code := NULL;
1770: END IF;
1771: IF l_act_metrics_rec.action_code = FND_API.G_MISS_CHAR then
1772: l_act_metrics_rec.action_code := NULL;
1773: END IF;
1774: IF l_act_metrics_rec.basis_year = FND_API.G_MISS_NUM then
1775: l_act_metrics_rec.basis_year := NULL;
1770: END IF;
1771: IF l_act_metrics_rec.action_code = FND_API.G_MISS_CHAR then
1772: l_act_metrics_rec.action_code := NULL;
1773: END IF;
1774: IF l_act_metrics_rec.basis_year = FND_API.G_MISS_NUM then
1775: l_act_metrics_rec.basis_year := NULL;
1776: END IF;
1777: IF l_act_metrics_rec.ex_start_node = FND_API.G_MISS_CHAR then
1778: l_act_metrics_rec.ex_start_node := NULL;
1773: END IF;
1774: IF l_act_metrics_rec.basis_year = FND_API.G_MISS_NUM then
1775: l_act_metrics_rec.basis_year := NULL;
1776: END IF;
1777: IF l_act_metrics_rec.ex_start_node = FND_API.G_MISS_CHAR then
1778: l_act_metrics_rec.ex_start_node := NULL;
1779: END IF;
1780:
1781:
1791: x_msg_data => x_msg_data
1792: );
1793:
1794: -- If any errors happen abort API.
1795: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1796: RAISE Fnd_Api.G_EXC_ERROR;
1797: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1798: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1792: );
1793:
1794: -- If any errors happen abort API.
1795: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1796: RAISE Fnd_Api.G_EXC_ERROR;
1797: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1798: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1793:
1794: -- If any errors happen abort API.
1795: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1796: RAISE Fnd_Api.G_EXC_ERROR;
1797: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1798: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1801: --
1794: -- If any errors happen abort API.
1795: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1796: RAISE Fnd_Api.G_EXC_ERROR;
1797: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1798: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1801: --
1802: -- Validate the record before inserting.
1811: p_act_metric_rec => l_act_metrics_rec
1812: );
1813:
1814: -- If any errors happen abort API.
1815: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1816: RAISE Fnd_Api.G_EXC_ERROR;
1817: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1818: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1819: END IF;
1812: );
1813:
1814: -- If any errors happen abort API.
1815: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1816: RAISE Fnd_Api.G_EXC_ERROR;
1817: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1818: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1819: END IF;
1820:
1813:
1814: -- If any errors happen abort API.
1815: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1816: RAISE Fnd_Api.G_EXC_ERROR;
1817: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1818: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1819: END IF;
1820:
1821: --
1814: -- If any errors happen abort API.
1815: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1816: RAISE Fnd_Api.G_EXC_ERROR;
1817: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1818: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1819: END IF;
1820:
1821: --
1822: -- Debug message.
2066: x_msg_data => x_msg_data,
2067: p_act_metric_rec => l_dep_act_metric_rec,
2068: x_activity_metric_id => l_dep_act_met_id);
2069: -- If any errors happen abort API.
2070: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2071: RAISE Fnd_Api.G_EXC_ERROR;
2072: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2073: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2074: END IF;
2067: p_act_metric_rec => l_dep_act_metric_rec,
2068: x_activity_metric_id => l_dep_act_met_id);
2069: -- If any errors happen abort API.
2070: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2071: RAISE Fnd_Api.G_EXC_ERROR;
2072: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2073: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2074: END IF;
2075:
2068: x_activity_metric_id => l_dep_act_met_id);
2069: -- If any errors happen abort API.
2070: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2071: RAISE Fnd_Api.G_EXC_ERROR;
2072: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2073: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2074: END IF;
2075:
2076: -- dmvincen 02/10/2004: no longer useful.
2069: -- If any errors happen abort API.
2070: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2071: RAISE Fnd_Api.G_EXC_ERROR;
2072: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2073: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2074: END IF;
2075:
2076: -- dmvincen 02/10/2004: no longer useful.
2077: -- UPDATE ams_act_metrics_all
2104:
2105: --
2106: -- Standard check for commit request.
2107: --
2108: --IF Fnd_Api.To_Boolean (p_commit) THEN
2109: -- COMMIT WORK;
2110: --END IF;
2111:
2112: --
2115: --
2116: --Fnd_Msg_Pub.Count_And_Get (
2117: -- p_count => x_msg_count,
2118: -- p_data => x_msg_data,
2119: -- p_encoded => Fnd_Api.G_FALSE
2120: --);
2121:
2122: --
2123: -- Add success message to message list.
2127: END IF;
2128:
2129: /*
2130: EXCEPTION
2131: WHEN Fnd_Api.G_EXC_ERROR THEN
2132: ROLLBACK TO Create_ActMetric2_pvt;
2133: --ROLLBACK;
2134: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2135: Fnd_Msg_Pub.Count_And_Get (
2130: EXCEPTION
2131: WHEN Fnd_Api.G_EXC_ERROR THEN
2132: ROLLBACK TO Create_ActMetric2_pvt;
2133: --ROLLBACK;
2134: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2135: Fnd_Msg_Pub.Count_And_Get (
2136: p_count => x_msg_count,
2137: p_data => x_msg_data,
2138: p_encoded => FND_API.G_FALSE
2134: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2135: Fnd_Msg_Pub.Count_And_Get (
2136: p_count => x_msg_count,
2137: p_data => x_msg_data,
2138: p_encoded => FND_API.G_FALSE
2139: );
2140: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2141: ROLLBACK TO Create_ActMetric2_pvt;
2142: --ROLLBACK;
2136: p_count => x_msg_count,
2137: p_data => x_msg_data,
2138: p_encoded => FND_API.G_FALSE
2139: );
2140: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2141: ROLLBACK TO Create_ActMetric2_pvt;
2142: --ROLLBACK;
2143: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2144: Fnd_Msg_Pub.Count_And_Get (
2139: );
2140: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2141: ROLLBACK TO Create_ActMetric2_pvt;
2142: --ROLLBACK;
2143: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2144: Fnd_Msg_Pub.Count_And_Get (
2145: p_count => x_msg_count,
2146: p_data => x_msg_data,
2147: p_encoded => FND_API.G_FALSE
2143: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2144: Fnd_Msg_Pub.Count_And_Get (
2145: p_count => x_msg_count,
2146: p_data => x_msg_data,
2147: p_encoded => FND_API.G_FALSE
2148: );
2149: WHEN OTHERS THEN
2150: ROLLBACK TO Create_ActMetric2_pvt;
2151: --ROLLBACK;
2148: );
2149: WHEN OTHERS THEN
2150: ROLLBACK TO Create_ActMetric2_pvt;
2151: --ROLLBACK;
2152: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2153: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2154: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2155: END IF;
2156: Fnd_Msg_Pub.Count_And_Get (
2155: END IF;
2156: Fnd_Msg_Pub.Count_And_Get (
2157: p_count => x_msg_count,
2158: p_data => x_msg_data,
2159: p_encoded => FND_API.G_FALSE
2160: );
2161: */
2162: END Create_ActMetric2;
2163:
2185:
2186:
2187: PROCEDURE Update_ActMetric (
2188: p_api_version IN NUMBER,
2189: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2190: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2191: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2192:
2193: x_return_status OUT NOCOPY VARCHAR2,
2186:
2187: PROCEDURE Update_ActMetric (
2188: p_api_version IN NUMBER,
2189: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2190: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2191: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2192:
2193: x_return_status OUT NOCOPY VARCHAR2,
2194: x_msg_count OUT NOCOPY NUMBER,
2187: PROCEDURE Update_ActMetric (
2188: p_api_version IN NUMBER,
2189: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2190: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2191: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2192:
2193: x_return_status OUT NOCOPY VARCHAR2,
2194: x_msg_count OUT NOCOPY NUMBER,
2195: x_msg_data OUT NOCOPY VARCHAR2,
2199: L_API_VERSION CONSTANT NUMBER := 1.0;
2200: L_API_NAME CONSTANT VARCHAR2(30) := 'UPDATE_ACTMETRIC';
2201: L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
2202:
2203: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2204: l_actmet_rec act_metric_rec_type := p_act_metric_rec;
2205: l_freeze_status VARCHAR2(1) := Fnd_Api.G_FALSE;
2206: l_reprocess_rec VARCHAR2(1) := Fnd_Api.G_FALSE;
2207:
2201: L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
2202:
2203: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2204: l_actmet_rec act_metric_rec_type := p_act_metric_rec;
2205: l_freeze_status VARCHAR2(1) := Fnd_Api.G_FALSE;
2206: l_reprocess_rec VARCHAR2(1) := Fnd_Api.G_FALSE;
2207:
2208: -- huili@ added to invalidate corresponding activity variable metrics
2209: l_depend_act_metric NUMBER;
2202:
2203: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2204: l_actmet_rec act_metric_rec_type := p_act_metric_rec;
2205: l_freeze_status VARCHAR2(1) := Fnd_Api.G_FALSE;
2206: l_reprocess_rec VARCHAR2(1) := Fnd_Api.G_FALSE;
2207:
2208: -- huili@ added to invalidate corresponding activity variable metrics
2209: l_depend_act_metric NUMBER;
2210: CURSOR c_check_var_met (l_activity_metric_id NUMBER) IS
2244: END IF;
2245: --
2246: -- Initialize message list if p_init_msg_list is set to TRUE.
2247: --
2248: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2249: Fnd_Msg_Pub.Initialize;
2250: END IF;
2251:
2252: --
2251:
2252: --
2253: -- Standard check for API version compatibility.
2254: --
2255: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
2256: p_api_version,
2257: L_API_NAME,
2258: G_PKG_NAME)
2259: THEN
2256: p_api_version,
2257: L_API_NAME,
2258: G_PKG_NAME)
2259: THEN
2260: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2261: END IF;
2262:
2263: --
2264: -- Initialize API return status to success.
2262:
2263: --
2264: -- Initialize API return status to success.
2265: --
2266: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2267:
2268: --
2269: -- Begin API Body
2270: --
2274: Ams_Utility_Pvt.debug_message(l_full_name ||': validate');
2275: END IF;
2276:
2277: -- BUG4391308: Added locking to prevent overwriting.
2278: Lock_ActMetric ( 1.0, fnd_api.G_FALSE,
2279: l_return_status, x_msg_count, x_msg_data,
2280: l_actmet_rec.activity_metric_id,
2281: l_actmet_rec.object_version_number);
2282:
2279: l_return_status, x_msg_count, x_msg_data,
2280: l_actmet_rec.activity_metric_id,
2281: l_actmet_rec.object_version_number);
2282:
2283: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2284: RAISE Fnd_Api.G_EXC_ERROR;
2285: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2280: l_actmet_rec.activity_metric_id,
2281: l_actmet_rec.object_version_number);
2282:
2283: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2284: RAISE Fnd_Api.G_EXC_ERROR;
2285: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288: -- BUG4391308: End
2281: l_actmet_rec.object_version_number);
2282:
2283: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2284: RAISE Fnd_Api.G_EXC_ERROR;
2285: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288: -- BUG4391308: End
2289:
2282:
2283: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2284: RAISE Fnd_Api.G_EXC_ERROR;
2285: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288: -- BUG4391308: End
2289:
2290: -- replace g_miss_char/num/date with current column values
2309:
2310: -- DMVINCEN 06/05/2001: If value is posted to budget do not update.
2311: IF l_actmet_rec.published_flag = 'Y' THEN
2312: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2313: l_actmet_rec.trans_actual_value := Fnd_Api.G_MISS_NUM;
2314: l_actmet_rec.func_actual_value := Fnd_Api.G_MISS_NUM;
2315: l_reprocess_rec := Fnd_Api.G_TRUE;
2316: END IF;
2317: END IF;
2310: -- DMVINCEN 06/05/2001: If value is posted to budget do not update.
2311: IF l_actmet_rec.published_flag = 'Y' THEN
2312: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2313: l_actmet_rec.trans_actual_value := Fnd_Api.G_MISS_NUM;
2314: l_actmet_rec.func_actual_value := Fnd_Api.G_MISS_NUM;
2315: l_reprocess_rec := Fnd_Api.G_TRUE;
2316: END IF;
2317: END IF;
2318:
2311: IF l_actmet_rec.published_flag = 'Y' THEN
2312: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2313: l_actmet_rec.trans_actual_value := Fnd_Api.G_MISS_NUM;
2314: l_actmet_rec.func_actual_value := Fnd_Api.G_MISS_NUM;
2315: l_reprocess_rec := Fnd_Api.G_TRUE;
2316: END IF;
2317: END IF;
2318:
2319: IF l_reprocess_rec = Fnd_Api.G_TRUE THEN
2315: l_reprocess_rec := Fnd_Api.G_TRUE;
2316: END IF;
2317: END IF;
2318:
2319: IF l_reprocess_rec = Fnd_Api.G_TRUE THEN
2320: Complete_ActMetric_Rec(l_actmet_rec, l_actmet_rec);
2321: END IF;
2322:
2323: -- Do Currency Conversion
2329: x_return_status => l_return_status,
2330: x_msg_count => x_msg_count,
2331: x_msg_data => x_msg_data ) ;
2332: -- If any errors happen abort API.
2333: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2334: RAISE Fnd_Api.G_EXC_ERROR;
2335: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2330: x_msg_count => x_msg_count,
2331: x_msg_data => x_msg_data ) ;
2332: -- If any errors happen abort API.
2333: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2334: RAISE Fnd_Api.G_EXC_ERROR;
2335: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2331: x_msg_data => x_msg_data ) ;
2332: -- If any errors happen abort API.
2333: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2334: RAISE Fnd_Api.G_EXC_ERROR;
2335: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2339: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
2332: -- If any errors happen abort API.
2333: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2334: RAISE Fnd_Api.G_EXC_ERROR;
2335: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2339: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
2340: Validate_ActMetric_items(
2341: p_act_metric_rec => l_actmet_rec,
2342: p_validation_mode => Jtf_Plsql_Api.g_update,
2343: x_return_status => l_return_status
2344: );
2345: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2348: RAISE Fnd_Api.g_exc_error;
2349: END IF;
2342: p_validation_mode => Jtf_Plsql_Api.g_update,
2343: x_return_status => l_return_status
2344: );
2345: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2348: RAISE Fnd_Api.g_exc_error;
2349: END IF;
2350: END IF;
2343: x_return_status => l_return_status
2344: );
2345: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2348: RAISE Fnd_Api.g_exc_error;
2349: END IF;
2350: END IF;
2351:
2344: );
2345: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2346: RAISE Fnd_Api.g_exc_unexpected_error;
2347: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2348: RAISE Fnd_Api.g_exc_error;
2349: END IF;
2350: END IF;
2351:
2352:
2360: p_complete_rec => l_actmet_rec,
2361: p_operation_mode => G_UPDATE,
2362: x_return_status => l_return_status
2363: );
2364: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2365: RAISE Fnd_Api.g_exc_unexpected_error;
2366: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2367: RAISE Fnd_Api.g_exc_error;
2368: END IF;
2361: p_operation_mode => G_UPDATE,
2362: x_return_status => l_return_status
2363: );
2364: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2365: RAISE Fnd_Api.g_exc_unexpected_error;
2366: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2367: RAISE Fnd_Api.g_exc_error;
2368: END IF;
2369: END IF;
2362: x_return_status => l_return_status
2363: );
2364: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2365: RAISE Fnd_Api.g_exc_unexpected_error;
2366: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2367: RAISE Fnd_Api.g_exc_error;
2368: END IF;
2369: END IF;
2370:
2363: );
2364: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2365: RAISE Fnd_Api.g_exc_unexpected_error;
2366: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2367: RAISE Fnd_Api.g_exc_error;
2368: END IF;
2369: END IF;
2370:
2371: -- Post a new cost item to the budget.
2369: END IF;
2370:
2371: -- Post a new cost item to the budget.
2372: IF l_actmet_rec.published_flag = 'T' THEN
2373: l_return_status := FND_API.G_RET_STS_SUCCESS;
2374: l_actmet_rec.published_flag := 'Y';
2375: l_cost_rec.cost_id := l_actmet_rec.activity_metric_id;
2376: l_cost_rec.cost_amount := l_actmet_rec.trans_actual_value;
2377: l_cost_rec.cost_desc := '';
2385: p_api_version => l_api_version,
2386: x_return_status => l_return_status,
2387: x_msg_count => x_msg_count,
2388: x_msg_data => x_msg_data);
2389: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2390: -- BUG2486379: Display budget utilization errors.
2391: -- Fnd_Msg_Pub.Initialize;
2392: Fnd_Message.set_name('AMS', 'AMS_MET_NO_POST');
2393: Fnd_Msg_Pub.ADD;
2394: --IF (AMS_DEBUG_HIGH_ON) THEN
2395: -- Ams_Utility_Pvt.debug_message('You can not post this cost!');
2396: --END IF;
2397: END IF;
2398: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2399: RAISE Fnd_Api.g_exc_unexpected_error;
2400: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2401: RAISE Fnd_Api.g_exc_error;
2402: END IF;
2395: -- Ams_Utility_Pvt.debug_message('You can not post this cost!');
2396: --END IF;
2397: END IF;
2398: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2399: RAISE Fnd_Api.g_exc_unexpected_error;
2400: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2401: RAISE Fnd_Api.g_exc_error;
2402: END IF;
2403: END IF;
2396: --END IF;
2397: END IF;
2398: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2399: RAISE Fnd_Api.g_exc_unexpected_error;
2400: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2401: RAISE Fnd_Api.g_exc_error;
2402: END IF;
2403: END IF;
2404:
2397: END IF;
2398: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2399: RAISE Fnd_Api.g_exc_unexpected_error;
2400: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
2401: RAISE Fnd_Api.g_exc_error;
2402: END IF;
2403: END IF;
2404:
2405: IF (AMS_DEBUG_HIGH_ON) THEN
2491: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2492: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2493: Fnd_Msg_Pub.ADD;
2494: END IF;
2495: RAISE Fnd_Api.g_exc_error;
2496: END IF;
2497:
2498: -- huili@ added to invalidate the corresponding variable activity metrics
2499: OPEN c_check_var_met (l_actmet_rec.activity_metric_id);
2510: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2511: Fnd_Message.set_name('AMS', 'AMS_API_VARREC_NOT_FOUND');
2512: Fnd_Msg_Pub.ADD;
2513: END IF;
2514: RAISE Fnd_Api.g_exc_error;
2515: END IF;
2516: END IF;
2517: CLOSE c_check_var_met;
2518: --END
2529: --
2530: -- End API Body
2531: --
2532:
2533: IF Fnd_Api.to_boolean(p_commit) THEN
2534: COMMIT;
2535: END IF;
2536:
2537: --
2540: --
2541: Fnd_Msg_Pub.Count_And_Get (
2542: p_count => x_msg_count,
2543: p_data => x_msg_data,
2544: p_encoded => Fnd_Api.G_FALSE
2545: );
2546:
2547: --
2548: -- Debug message.
2552: END IF;
2553:
2554:
2555: EXCEPTION
2556: WHEN Fnd_Api.G_EXC_ERROR THEN
2557: ROLLBACK TO Update_ActMetric_pvt;
2558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2559: Fnd_Msg_Pub.Count_And_Get (
2560: p_count => x_msg_count,
2554:
2555: EXCEPTION
2556: WHEN Fnd_Api.G_EXC_ERROR THEN
2557: ROLLBACK TO Update_ActMetric_pvt;
2558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2559: Fnd_Msg_Pub.Count_And_Get (
2560: p_count => x_msg_count,
2561: p_data => x_msg_data,
2562: p_encoded => FND_API.G_FALSE
2558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2559: Fnd_Msg_Pub.Count_And_Get (
2560: p_count => x_msg_count,
2561: p_data => x_msg_data,
2562: p_encoded => FND_API.G_FALSE
2563: );
2564: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2565: ROLLBACK TO Update_ActMetric_pvt;
2566: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2560: p_count => x_msg_count,
2561: p_data => x_msg_data,
2562: p_encoded => FND_API.G_FALSE
2563: );
2564: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2565: ROLLBACK TO Update_ActMetric_pvt;
2566: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2567: Fnd_Msg_Pub.Count_And_Get (
2568: p_count => x_msg_count,
2562: p_encoded => FND_API.G_FALSE
2563: );
2564: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2565: ROLLBACK TO Update_ActMetric_pvt;
2566: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2567: Fnd_Msg_Pub.Count_And_Get (
2568: p_count => x_msg_count,
2569: p_data => x_msg_data,
2570: p_encoded => FND_API.G_FALSE
2566: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2567: Fnd_Msg_Pub.Count_And_Get (
2568: p_count => x_msg_count,
2569: p_data => x_msg_data,
2570: p_encoded => FND_API.G_FALSE
2571: );
2572: WHEN OTHERS THEN
2573: ROLLBACK TO Update_ActMetric_pvt;
2574: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2570: p_encoded => FND_API.G_FALSE
2571: );
2572: WHEN OTHERS THEN
2573: ROLLBACK TO Update_ActMetric_pvt;
2574: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2575: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2576: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2577: END IF;
2578: Fnd_Msg_Pub.Count_And_Get (
2577: END IF;
2578: Fnd_Msg_Pub.Count_And_Get (
2579: p_count => x_msg_count,
2580: p_data => x_msg_data,
2581: p_encoded => FND_API.G_FALSE
2582: );
2583: END Update_ActMetric;
2584:
2585: -- Start of comments
2604: -- End of comments
2605:
2606: PROCEDURE Delete_ActMetric (
2607: p_api_version IN NUMBER,
2608: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2609: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2610: x_return_status OUT NOCOPY VARCHAR2,
2611: x_msg_count OUT NOCOPY NUMBER,
2612: x_msg_data OUT NOCOPY VARCHAR2,
2605:
2606: PROCEDURE Delete_ActMetric (
2607: p_api_version IN NUMBER,
2608: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2609: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2610: x_return_status OUT NOCOPY VARCHAR2,
2611: x_msg_count OUT NOCOPY NUMBER,
2612: x_msg_data OUT NOCOPY VARCHAR2,
2613: p_activity_metric_id IN NUMBER,
2618: L_API_NAME CONSTANT VARCHAR2(30) := 'DELETE_ACTMETRIC';
2619: L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
2620:
2621: l_return_status VARCHAR2(1);
2622: l_freeze_status VARCHAR2(1) := Fnd_Api.G_FALSE;
2623: l_act_metric_rec act_metric_rec_type;
2624: l_child_activity_metric_id NUMBER;
2625: l_child_type VARCHAR2(30);
2626:
2748:
2749: --
2750: -- Initialize message list if p_init_msg_list is set to TRUE.
2751: --
2752: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2753: Fnd_Msg_Pub.Initialize;
2754: END IF;
2755:
2756: --
2755:
2756: --
2757: -- Standard check for API version compatibility.
2758: --
2759: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
2760: p_api_version,
2761: L_API_NAME,
2762: G_PKG_NAME)
2763: THEN
2760: p_api_version,
2761: L_API_NAME,
2762: G_PKG_NAME)
2763: THEN
2764: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766:
2767:
2768: --
2775: -- Fnd_Message.set_name('AMS', 'AMS_METR_SEEDED_METR');
2776: -- Fnd_Msg_Pub.ADD;
2777: -- END IF;
2778: --
2779: -- RAISE Fnd_Api.G_EXC_ERROR;
2780: -- END IF;
2781:
2782:
2783: --
2782:
2783: --
2784: -- Initialize API return status to success.
2785: --
2786: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2787:
2788: --
2789: -- Begin API Body.
2790: --
2810: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2811: Fnd_Message.set_name('AMS', 'AMS_METR_CANT_DELETE_PARENT');
2812: Fnd_Msg_Pub.ADD;
2813: END IF;
2814: RAISE Fnd_Api.g_exc_error;
2815: END IF;
2816: -- end for the bug fix, sveerave.
2817:
2818: -- Get all the details of the activity metric record for passing to
2823: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2824: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2825: Fnd_Msg_Pub.ADD;
2826: END IF;
2827: RAISE Fnd_Api.g_exc_error;
2828: END IF;
2829:
2830: CLOSE c_actmet_details;
2831:
2835: G_DELETE, -- Delete is operation mode
2836: l_freeze_status,
2837: l_return_status);
2838:
2839: IF (l_freeze_status = Fnd_Api.G_TRUE) THEN
2840: -- frozen to create the record
2841: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2842: -- sunkumar 04/30/2003 added message for delete status of objects depending on status (ACTIVE, CANCELLED, COMPLETED)
2843: l_object_name := ams_utility_pvt.get_lookup_meaning(
2845: Fnd_Message.Set_Name('AMS', 'AMS_METR_DELETE');
2846: Fnd_Message.set_token('OBJECT', l_object_name);
2847: Fnd_Msg_Pub.ADD;
2848: END IF;
2849: l_return_status := Fnd_Api.G_RET_STS_ERROR;
2850: END IF;
2851:
2852:
2853: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2849: l_return_status := Fnd_Api.G_RET_STS_ERROR;
2850: END IF;
2851:
2852:
2853: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2854: RAISE Fnd_Api.G_EXC_ERROR;
2855: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2850: END IF;
2851:
2852:
2853: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2854: RAISE Fnd_Api.G_EXC_ERROR;
2855: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2858:
2851:
2852:
2853: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2854: RAISE Fnd_Api.G_EXC_ERROR;
2855: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2858:
2859:
2852:
2853: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2854: RAISE Fnd_Api.G_EXC_ERROR;
2855: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2858:
2859:
2860:
2857: END IF;
2858:
2859:
2860:
2861: IF (l_freeze_status = Fnd_Api.G_TRUE) THEN
2862: -- frozen to create the record
2863: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2864: Fnd_Message.Set_Name('AMS', 'AMS_METR_FROZEN');
2865: Fnd_Msg_Pub.ADD;
2863: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2864: Fnd_Message.Set_Name('AMS', 'AMS_METR_FROZEN');
2865: Fnd_Msg_Pub.ADD;
2866: END IF;
2867: l_return_status := Fnd_Api.G_RET_STS_ERROR;
2868: END IF;
2869:
2870: -- If it is frozen, or any errors happen abort API.
2871: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2867: l_return_status := Fnd_Api.G_RET_STS_ERROR;
2868: END IF;
2869:
2870: -- If it is frozen, or any errors happen abort API.
2871: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2872: RAISE Fnd_Api.G_EXC_ERROR;
2873: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2874: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2875: END IF;
2868: END IF;
2869:
2870: -- If it is frozen, or any errors happen abort API.
2871: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2872: RAISE Fnd_Api.G_EXC_ERROR;
2873: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2874: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2875: END IF;
2876:
2869:
2870: -- If it is frozen, or any errors happen abort API.
2871: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2872: RAISE Fnd_Api.G_EXC_ERROR;
2873: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2874: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2875: END IF;
2876:
2877: -- If the actual value has been posted to the budget do not delete.
2870: -- If it is frozen, or any errors happen abort API.
2871: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2872: RAISE Fnd_Api.G_EXC_ERROR;
2873: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2874: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2875: END IF;
2876:
2877: -- If the actual value has been posted to the budget do not delete.
2878: IF l_act_metric_rec.published_flag = 'Y' THEN
2879: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2880: Fnd_Message.SET_NAME('AMS', 'AMS_METR_PUBLISHED');
2881: Fnd_Msg_Pub.ADD;
2882: END IF;
2883: RAISE Fnd_Api.g_exc_error;
2884: END IF;
2885:
2886: -- Debug message.
2887: IF (AMS_DEBUG_HIGH_ON) THEN
2907: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2908: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2909: Fnd_Msg_Pub.ADD;
2910: END IF;
2911: RAISE Fnd_Api.g_exc_error;
2912: END IF;
2913:
2914: -- DMVINCEN 04/30/2001 Parent metrics need to be re-evaluated
2915: Make_ActMetric_Dirty(l_act_metric_rec.rollup_to_metric);
2922: WHERE activity_metric_id = l_depend_act_met_id;
2923:
2924: Delete_ActMetric (
2925: p_api_version => p_api_version,
2926: p_init_msg_list => Fnd_Api.G_FALSE,
2927: p_commit => Fnd_Api.G_FALSE,
2928: x_return_status => x_return_status,
2929: x_msg_count => x_msg_count,
2930: x_msg_data => x_msg_data,
2923:
2924: Delete_ActMetric (
2925: p_api_version => p_api_version,
2926: p_init_msg_list => Fnd_Api.G_FALSE,
2927: p_commit => Fnd_Api.G_FALSE,
2928: x_return_status => x_return_status,
2929: x_msg_count => x_msg_count,
2930: x_msg_data => x_msg_data,
2931: p_activity_metric_id => l_depend_act_met_id,
2930: x_msg_data => x_msg_data,
2931: p_activity_metric_id => l_depend_act_met_id,
2932: p_object_version_number => l_depend_version_num);
2933:
2934: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2935: RAISE Fnd_Api.G_EXC_ERROR;
2936: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2937: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2931: p_activity_metric_id => l_depend_act_met_id,
2932: p_object_version_number => l_depend_version_num);
2933:
2934: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2935: RAISE Fnd_Api.G_EXC_ERROR;
2936: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2937: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: END IF;
2932: p_object_version_number => l_depend_version_num);
2933:
2934: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2935: RAISE Fnd_Api.G_EXC_ERROR;
2936: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2937: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: END IF;
2940:
2933:
2934: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2935: RAISE Fnd_Api.G_EXC_ERROR;
2936: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2937: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2938: END IF;
2939: END IF;
2940:
2941: -- end
2943: --
2944: -- End API Body.
2945: --
2946:
2947: IF Fnd_Api.To_Boolean (p_commit) THEN
2948: COMMIT WORK;
2949: END IF;
2950:
2951: --
2961: --
2962: Fnd_Msg_Pub.Count_And_Get (
2963: p_count => x_msg_count,
2964: p_data => x_msg_data,
2965: p_encoded => Fnd_Api.G_FALSE
2966: );
2967:
2968: EXCEPTION
2969: WHEN Fnd_Api.G_EXC_ERROR THEN
2965: p_encoded => Fnd_Api.G_FALSE
2966: );
2967:
2968: EXCEPTION
2969: WHEN Fnd_Api.G_EXC_ERROR THEN
2970: ROLLBACK TO Delete_ActMetric_pvt;
2971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2972: Fnd_Msg_Pub.Count_And_Get (
2973: p_count => x_msg_count,
2967:
2968: EXCEPTION
2969: WHEN Fnd_Api.G_EXC_ERROR THEN
2970: ROLLBACK TO Delete_ActMetric_pvt;
2971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2972: Fnd_Msg_Pub.Count_And_Get (
2973: p_count => x_msg_count,
2974: p_data => x_msg_data,
2975: p_encoded => FND_API.G_FALSE
2971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2972: Fnd_Msg_Pub.Count_And_Get (
2973: p_count => x_msg_count,
2974: p_data => x_msg_data,
2975: p_encoded => FND_API.G_FALSE
2976: );
2977: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2978: ROLLBACK TO Delete_ActMetric_pvt;
2979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2973: p_count => x_msg_count,
2974: p_data => x_msg_data,
2975: p_encoded => FND_API.G_FALSE
2976: );
2977: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2978: ROLLBACK TO Delete_ActMetric_pvt;
2979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2980: Fnd_Msg_Pub.Count_And_Get (
2981: p_count => x_msg_count,
2975: p_encoded => FND_API.G_FALSE
2976: );
2977: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2978: ROLLBACK TO Delete_ActMetric_pvt;
2979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2980: Fnd_Msg_Pub.Count_And_Get (
2981: p_count => x_msg_count,
2982: p_data => x_msg_data,
2983: p_encoded => FND_API.G_FALSE
2979: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2980: Fnd_Msg_Pub.Count_And_Get (
2981: p_count => x_msg_count,
2982: p_data => x_msg_data,
2983: p_encoded => FND_API.G_FALSE
2984: );
2985: WHEN OTHERS THEN
2986: ROLLBACK TO Delete_ActMetric_pvt;
2987: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2983: p_encoded => FND_API.G_FALSE
2984: );
2985: WHEN OTHERS THEN
2986: ROLLBACK TO Delete_ActMetric_pvt;
2987: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2988: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2989: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2990: END IF;
2991: Fnd_Msg_Pub.Count_And_Get (
2990: END IF;
2991: Fnd_Msg_Pub.Count_And_Get (
2992: p_count => x_msg_count,
2993: p_data => x_msg_data,
2994: p_encoded => FND_API.G_FALSE
2995: );
2996: END Delete_ActMetric;
2997:
2998: -- Start of comments
3016: -- End of comments
3017:
3018: PROCEDURE Delete_ActMetric (
3019: p_api_version IN NUMBER,
3020: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
3021: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3022:
3023: x_return_status OUT NOCOPY VARCHAR2,
3024: x_msg_count OUT NOCOPY NUMBER,
3017:
3018: PROCEDURE Delete_ActMetric (
3019: p_api_version IN NUMBER,
3020: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
3021: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3022:
3023: x_return_status OUT NOCOPY VARCHAR2,
3024: x_msg_count OUT NOCOPY NUMBER,
3025: x_msg_data OUT NOCOPY VARCHAR2,
3074:
3075: --
3076: -- Initialize message list if p_init_msg_list is set to TRUE.
3077: --
3078: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3079: Fnd_Msg_Pub.Initialize;
3080: END IF;
3081:
3082: --
3081:
3082: --
3083: -- Standard check for API version compatibility.
3084: --
3085: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3086: p_api_version,
3087: L_API_NAME,
3088: G_PKG_NAME)
3089: THEN
3086: p_api_version,
3087: L_API_NAME,
3088: G_PKG_NAME)
3089: THEN
3090: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3091: END IF;
3092:
3093: --
3094: -- Initialize API return status to success.
3092:
3093: --
3094: -- Initialize API return status to success.
3095: --
3096: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3097:
3098: --
3099: -- Begin API Body.
3100: --
3115: LOOP
3116: -- Recursively delete the next level down.
3117: Delete_actmetric(
3118: p_api_version => p_api_version,
3119: p_init_msg_list => Fnd_Api.G_FALSE,
3120: p_commit => Fnd_Api.G_FALSE,
3121: x_return_status => l_return_status,
3122: x_msg_count => x_msg_count,
3123: x_msg_data => x_msg_data,
3116: -- Recursively delete the next level down.
3117: Delete_actmetric(
3118: p_api_version => p_api_version,
3119: p_init_msg_list => Fnd_Api.G_FALSE,
3120: p_commit => Fnd_Api.G_FALSE,
3121: x_return_status => l_return_status,
3122: x_msg_count => x_msg_count,
3123: x_msg_data => x_msg_data,
3124: p_arc_act_metric_used_by => p_arc_act_metric_used_by,
3125: p_act_metric_used_by_id => p_act_metric_used_by_id,
3126: p_activity_metric_id => l_activity_metric_ids(l_index),
3127: p_object_version_number => l_object_version_numbers(l_index));
3128:
3129: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3130: RAISE Fnd_Api.G_EXC_ERROR;
3131: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3126: p_activity_metric_id => l_activity_metric_ids(l_index),
3127: p_object_version_number => l_object_version_numbers(l_index));
3128:
3129: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3130: RAISE Fnd_Api.G_EXC_ERROR;
3131: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3127: p_object_version_number => l_object_version_numbers(l_index));
3128:
3129: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3130: RAISE Fnd_Api.G_EXC_ERROR;
3131: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: END LOOP;
3128:
3129: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3130: RAISE Fnd_Api.G_EXC_ERROR;
3131: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: END LOOP;
3136: END IF;
3151:
3152: -- Recursively delete the next level down.
3153: Delete_actmetric(
3154: p_api_version => p_api_version,
3155: p_init_msg_list => Fnd_Api.G_FALSE,
3156: p_commit => Fnd_Api.G_FALSE,
3157: x_return_status => l_return_status,
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data,
3152: -- Recursively delete the next level down.
3153: Delete_actmetric(
3154: p_api_version => p_api_version,
3155: p_init_msg_list => Fnd_Api.G_FALSE,
3156: p_commit => Fnd_Api.G_FALSE,
3157: x_return_status => l_return_status,
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data,
3160: p_arc_act_metric_used_by => p_arc_act_metric_used_by,
3161: p_act_metric_used_by_id => p_act_metric_used_by_id,
3162: p_activity_metric_id => l_activity_metric_ids(l_index),
3163: p_object_version_number => l_object_version_numbers(l_index));
3164:
3165: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3162: p_activity_metric_id => l_activity_metric_ids(l_index),
3163: p_object_version_number => l_object_version_numbers(l_index));
3164:
3165: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3163: p_object_version_number => l_object_version_numbers(l_index));
3164:
3165: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3171: END LOOP;
3164:
3165: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3169: END IF;
3170:
3171: END LOOP;
3172: END IF;
3173:
3174: -- Delete the top activity metric passed in.
3175: Delete_actmetric(
3176: p_api_version => p_api_version,
3177: p_init_msg_list => Fnd_Api.G_FALSE,
3178: p_commit => Fnd_Api.G_FALSE,
3179: x_return_status => l_return_status,
3180: x_msg_count => x_msg_count,
3181: x_msg_data => x_msg_data,
3174: -- Delete the top activity metric passed in.
3175: Delete_actmetric(
3176: p_api_version => p_api_version,
3177: p_init_msg_list => Fnd_Api.G_FALSE,
3178: p_commit => Fnd_Api.G_FALSE,
3179: x_return_status => l_return_status,
3180: x_msg_count => x_msg_count,
3181: x_msg_data => x_msg_data,
3182: p_activity_metric_id => p_activity_metric_id,
3181: x_msg_data => x_msg_data,
3182: p_activity_metric_id => p_activity_metric_id,
3183: p_object_version_number => p_object_version_number);
3184:
3185: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3186: RAISE Fnd_Api.G_EXC_ERROR;
3187: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3188: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3182: p_activity_metric_id => p_activity_metric_id,
3183: p_object_version_number => p_object_version_number);
3184:
3185: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3186: RAISE Fnd_Api.G_EXC_ERROR;
3187: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3188: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3190:
3183: p_object_version_number => p_object_version_number);
3184:
3185: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3186: RAISE Fnd_Api.G_EXC_ERROR;
3187: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3188: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3190:
3191: END IF;
3184:
3185: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3186: RAISE Fnd_Api.G_EXC_ERROR;
3187: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3188: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3190:
3191: END IF;
3192:
3193: --
3194: -- End API Body.
3195: --
3196:
3197: IF Fnd_Api.To_Boolean (p_commit) THEN
3198: COMMIT WORK;
3199: END IF;
3200:
3201: --
3211: --
3212: Fnd_Msg_Pub.Count_And_Get (
3213: p_count => x_msg_count,
3214: p_data => x_msg_data,
3215: p_encoded => Fnd_Api.G_FALSE
3216: );
3217:
3218: EXCEPTION
3219: WHEN Fnd_Api.G_EXC_ERROR THEN
3215: p_encoded => Fnd_Api.G_FALSE
3216: );
3217:
3218: EXCEPTION
3219: WHEN Fnd_Api.G_EXC_ERROR THEN
3220: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3221: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3222: Fnd_Msg_Pub.Count_And_Get (
3223: p_count => x_msg_count,
3217:
3218: EXCEPTION
3219: WHEN Fnd_Api.G_EXC_ERROR THEN
3220: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3221: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3222: Fnd_Msg_Pub.Count_And_Get (
3223: p_count => x_msg_count,
3224: p_data => x_msg_data,
3225: p_encoded => FND_API.G_FALSE
3221: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3222: Fnd_Msg_Pub.Count_And_Get (
3223: p_count => x_msg_count,
3224: p_data => x_msg_data,
3225: p_encoded => FND_API.G_FALSE
3226: );
3227: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3228: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3229: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3223: p_count => x_msg_count,
3224: p_data => x_msg_data,
3225: p_encoded => FND_API.G_FALSE
3226: );
3227: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3228: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3229: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3230: Fnd_Msg_Pub.Count_And_Get (
3231: p_count => x_msg_count,
3225: p_encoded => FND_API.G_FALSE
3226: );
3227: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3228: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3229: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3230: Fnd_Msg_Pub.Count_And_Get (
3231: p_count => x_msg_count,
3232: p_data => x_msg_data,
3233: p_encoded => FND_API.G_FALSE
3229: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3230: Fnd_Msg_Pub.Count_And_Get (
3231: p_count => x_msg_count,
3232: p_data => x_msg_data,
3233: p_encoded => FND_API.G_FALSE
3234: );
3235: WHEN OTHERS THEN
3236: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3237: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3233: p_encoded => FND_API.G_FALSE
3234: );
3235: WHEN OTHERS THEN
3236: -- ROLLBACK TO Delete_ActMetric_By_Object_pvt;
3237: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3238: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3239: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3240: END IF;
3241: Fnd_Msg_Pub.Count_And_Get (
3240: END IF;
3241: Fnd_Msg_Pub.Count_And_Get (
3242: p_count => x_msg_count,
3243: p_data => x_msg_data,
3244: p_encoded => FND_API.G_FALSE
3245: );
3246: END Delete_ActMetric;
3247:
3248:
3262: -- End of comments
3263:
3264: PROCEDURE Lock_ActMetric (
3265: p_api_version IN NUMBER,
3266: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
3267:
3268: x_return_status OUT NOCOPY VARCHAR2,
3269: x_msg_count OUT NOCOPY NUMBER,
3270: x_msg_data OUT NOCOPY VARCHAR2,
3302:
3303: --
3304: -- Initialize message list if p_init_msg_list is set to TRUE.
3305: --
3306: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3307: Fnd_Msg_Pub.Initialize;
3308: END IF;
3309:
3310: --
3309:
3310: --
3311: -- Standard check for API version compatibility.
3312: --
3313: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3314: p_api_version,
3315: L_API_NAME,
3316: G_PKG_NAME)
3317: THEN
3314: p_api_version,
3315: L_API_NAME,
3316: G_PKG_NAME)
3317: THEN
3318: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3319: END IF;
3320:
3321: --
3322: -- Initialize API return status to success.
3320:
3321: --
3322: -- Initialize API return status to success.
3323: --
3324: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3325:
3326: --
3327: -- Begin API Body
3328: --
3351: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3352: Fnd_Msg_Pub.ADD;
3353: END IF;
3354: END IF;
3355: RAISE Fnd_Api.g_exc_error;
3356: END IF;
3357: CLOSE c_act_metrics_info;
3358:
3359:
3363: --
3364: Fnd_Msg_Pub.Count_And_Get (
3365: p_count => x_msg_count,
3366: p_data => x_msg_data,
3367: p_encoded => Fnd_Api.G_FALSE
3368: );
3369:
3370: --
3371: -- Debug message.
3375: END IF;
3376:
3377:
3378: EXCEPTION
3379: WHEN Fnd_Api.G_EXC_ERROR THEN
3380: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3381: Fnd_Msg_Pub.Count_And_Get (
3382: p_count => x_msg_count,
3383: p_data => x_msg_data,
3376:
3377:
3378: EXCEPTION
3379: WHEN Fnd_Api.G_EXC_ERROR THEN
3380: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3381: Fnd_Msg_Pub.Count_And_Get (
3382: p_count => x_msg_count,
3383: p_data => x_msg_data,
3384: p_encoded => FND_API.G_FALSE
3380: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3381: Fnd_Msg_Pub.Count_And_Get (
3382: p_count => x_msg_count,
3383: p_data => x_msg_data,
3384: p_encoded => FND_API.G_FALSE
3385: );
3386: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3387: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3388: Fnd_Msg_Pub.Count_And_Get (
3382: p_count => x_msg_count,
3383: p_data => x_msg_data,
3384: p_encoded => FND_API.G_FALSE
3385: );
3386: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3387: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3388: Fnd_Msg_Pub.Count_And_Get (
3389: p_count => x_msg_count,
3390: p_data => x_msg_data,
3383: p_data => x_msg_data,
3384: p_encoded => FND_API.G_FALSE
3385: );
3386: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3387: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3388: Fnd_Msg_Pub.Count_And_Get (
3389: p_count => x_msg_count,
3390: p_data => x_msg_data,
3391: p_encoded => FND_API.G_FALSE
3387: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3388: Fnd_Msg_Pub.Count_And_Get (
3389: p_count => x_msg_count,
3390: p_data => x_msg_data,
3391: p_encoded => FND_API.G_FALSE
3392: );
3393: WHEN Ams_Utility_Pvt.RESOURCE_LOCKED THEN
3394: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3395:
3390: p_data => x_msg_data,
3391: p_encoded => FND_API.G_FALSE
3392: );
3393: WHEN Ams_Utility_Pvt.RESOURCE_LOCKED THEN
3394: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
3395:
3396: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3397: Fnd_Message.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
3398: Fnd_Msg_Pub.ADD;
3400:
3401: Fnd_Msg_Pub.Count_And_Get (
3402: p_count => x_msg_count,
3403: p_data => x_msg_data,
3404: p_encoded => Fnd_Api.G_FALSE
3405: );
3406: WHEN OTHERS THEN
3407: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3408: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3403: p_data => x_msg_data,
3404: p_encoded => Fnd_Api.G_FALSE
3405: );
3406: WHEN OTHERS THEN
3407: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3408: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3409: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3410: END IF;
3411: Fnd_Msg_Pub.Count_And_Get (
3410: END IF;
3411: Fnd_Msg_Pub.Count_And_Get (
3412: p_count => x_msg_count,
3413: p_data => x_msg_data,
3414: p_encoded => Fnd_Api.G_FALSE
3415: );
3416: END Lock_ActMetric;
3417:
3418: -- Start of comments
3432: -- End of comments
3433:
3434: PROCEDURE Validate_ActMetric (
3435: p_api_version IN NUMBER,
3436: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
3437: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
3438:
3439: x_return_status OUT NOCOPY VARCHAR2,
3440: x_msg_count OUT NOCOPY NUMBER,
3433:
3434: PROCEDURE Validate_ActMetric (
3435: p_api_version IN NUMBER,
3436: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
3437: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
3438:
3439: x_return_status OUT NOCOPY VARCHAR2,
3440: x_msg_count OUT NOCOPY NUMBER,
3441: x_msg_data OUT NOCOPY VARCHAR2,
3459:
3460: --
3461: -- Initialize message list if p_init_msg_list is set to TRUE.
3462: --
3463: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3464: Fnd_Msg_Pub.Initialize;
3465: END IF;
3466:
3467: --
3466:
3467: --
3468: -- Standard check for API version compatibility.
3469: --
3470: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3471: p_api_version,
3472: L_API_NAME,
3473: G_PKG_NAME)
3474: THEN
3471: p_api_version,
3472: L_API_NAME,
3473: G_PKG_NAME)
3474: THEN
3475: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3476: END IF;
3477:
3478: --
3479: -- Initialize API return status to success.
3477:
3478: --
3479: -- Initialize API return status to success.
3480: --
3481: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3482:
3483: --
3484: -- Begin API Body.
3485: --
3497: x_return_status => l_return_status
3498: );
3499:
3500: -- If any errors happen abort API.
3501: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3503: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3504: RAISE Fnd_Api.G_EXC_ERROR;
3505: END IF;
3498: );
3499:
3500: -- If any errors happen abort API.
3501: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3503: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3504: RAISE Fnd_Api.G_EXC_ERROR;
3505: END IF;
3506: END IF;
3499:
3500: -- If any errors happen abort API.
3501: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3503: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3504: RAISE Fnd_Api.G_EXC_ERROR;
3505: END IF;
3506: END IF;
3507:
3500: -- If any errors happen abort API.
3501: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3502: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3503: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3504: RAISE Fnd_Api.G_EXC_ERROR;
3505: END IF;
3506: END IF;
3507:
3508: IF (AMS_DEBUG_HIGH_ON) THEN
3515: p_complete_rec => NULL,
3516: x_return_status => l_return_status
3517: );
3518:
3519: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3520: RAISE Fnd_Api.g_exc_unexpected_error;
3521: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3522: RAISE Fnd_Api.g_exc_error;
3523: END IF;
3516: x_return_status => l_return_status
3517: );
3518:
3519: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3520: RAISE Fnd_Api.g_exc_unexpected_error;
3521: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3522: RAISE Fnd_Api.g_exc_error;
3523: END IF;
3524: END IF;
3517: );
3518:
3519: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3520: RAISE Fnd_Api.g_exc_unexpected_error;
3521: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3522: RAISE Fnd_Api.g_exc_error;
3523: END IF;
3524: END IF;
3525:
3518:
3519: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3520: RAISE Fnd_Api.g_exc_unexpected_error;
3521: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
3522: RAISE Fnd_Api.g_exc_error;
3523: END IF;
3524: END IF;
3525:
3526: --
3533: --
3534: Fnd_Msg_Pub.Count_And_Get (
3535: p_count => x_msg_count,
3536: p_data => x_msg_data,
3537: p_encoded => Fnd_Api.G_FALSE
3538: );
3539:
3540: IF (AMS_DEBUG_HIGH_ON) THEN
3541: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
3541: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
3542: END IF;
3543:
3544: EXCEPTION
3545: WHEN Fnd_Api.G_EXC_ERROR THEN
3546: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3547: Fnd_Msg_Pub.Count_And_Get (
3548: p_count => x_msg_count,
3549: p_data => x_msg_data,
3542: END IF;
3543:
3544: EXCEPTION
3545: WHEN Fnd_Api.G_EXC_ERROR THEN
3546: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3547: Fnd_Msg_Pub.Count_And_Get (
3548: p_count => x_msg_count,
3549: p_data => x_msg_data,
3550: p_encoded => FND_API.G_FALSE
3546: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3547: Fnd_Msg_Pub.Count_And_Get (
3548: p_count => x_msg_count,
3549: p_data => x_msg_data,
3550: p_encoded => FND_API.G_FALSE
3551: );
3552: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3553: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3554: Fnd_Msg_Pub.Count_And_Get (
3548: p_count => x_msg_count,
3549: p_data => x_msg_data,
3550: p_encoded => FND_API.G_FALSE
3551: );
3552: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3553: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3554: Fnd_Msg_Pub.Count_And_Get (
3555: p_count => x_msg_count,
3556: p_data => x_msg_data,
3549: p_data => x_msg_data,
3550: p_encoded => FND_API.G_FALSE
3551: );
3552: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3553: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3554: Fnd_Msg_Pub.Count_And_Get (
3555: p_count => x_msg_count,
3556: p_data => x_msg_data,
3557: p_encoded => FND_API.G_FALSE
3553: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3554: Fnd_Msg_Pub.Count_And_Get (
3555: p_count => x_msg_count,
3556: p_data => x_msg_data,
3557: p_encoded => FND_API.G_FALSE
3558: );
3559: WHEN OTHERS THEN
3560: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3561: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3556: p_data => x_msg_data,
3557: p_encoded => FND_API.G_FALSE
3558: );
3559: WHEN OTHERS THEN
3560: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3561: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3562: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3563: END IF;
3564: Fnd_Msg_Pub.Count_And_Get (
3563: END IF;
3564: Fnd_Msg_Pub.Count_And_Get (
3565: p_count => x_msg_count,
3566: p_data => x_msg_data,
3567: p_encoded => FND_API.G_FALSE
3568: );
3569: END Validate_ActMetric;
3570:
3571:
3592: )
3593: IS
3594: BEGIN
3595: -- Initialize return status to success.
3596: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3597:
3598: -- APPLICATION_ID
3599:
3600: IF p_act_metric_rec.application_id IS NULL
3605: Fnd_Message.Set_Name('AMS', 'AMS_METR_MISSING_APP_ID');
3606: Fnd_Msg_Pub.ADD;
3607: END IF;
3608:
3609: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3610:
3611: -- If any error happens abort API.
3612: RETURN;
3613: END IF;
3622: Fnd_Message.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
3623: Fnd_Msg_Pub.ADD;
3624: END IF;
3625:
3626: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3627:
3628: -- If any error happens abort API.
3629: RETURN;
3630: END IF;
3640: Fnd_Message.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
3641: Fnd_Msg_Pub.ADD;
3642: END IF;
3643:
3644: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3645:
3646: -- If any error happens abort API.
3647: RETURN;
3648: END IF;
3657: Fnd_Message.Set_Name('AMS', 'AMS_METR_MISSING_METRIC_ID');
3658: Fnd_Msg_Pub.ADD;
3659: END IF;
3660:
3661: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3662:
3663: -- If any error happens abort API.
3664: RETURN;
3665: END IF;
3676: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_UOM');
3677: FND_MSG_PUB.Add;
3678: END IF;
3679:
3680: x_return_status := FND_API.G_RET_STS_ERROR;
3681:
3682: -- If any error happens abort API.
3683: RETURN;
3684: END IF;
3696: Fnd_Message.Set_Name('AMS', 'AMS_METR_MISSING_SENSITIVE');
3697: Fnd_Msg_Pub.ADD;
3698: END IF;
3699:
3700: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3701:
3702: -- If any error happens abort API.
3703: RETURN;
3704: END IF;
3756: OR metric_calculation_type <> 'FUNCTION');
3757:
3758: BEGIN
3759:
3760: x_return_status := Fnd_Api.g_ret_sts_success;
3761:
3762: -- For Create_ActMetric2, when activity_metric_id is passed in, we need to
3763: -- check if this activity_metric_id is unique.
3764: IF p_validation_mode = Jtf_Plsql_Api.g_create
3768:
3769: IF Ams_Utility_Pvt.Check_Uniqueness(
3770: p_table_name => 'ams_act_metrics_all',
3771: p_where_clause => l_where_clause
3772: ) = Fnd_Api.g_false
3773: THEN
3774: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
3775: THEN
3776: Fnd_Message.set_name('AMS', 'AMS_METR_ACT_DUP_ID');
3775: THEN
3776: Fnd_Message.set_name('AMS', 'AMS_METR_ACT_DUP_ID');
3777: Fnd_Msg_Pub.ADD;
3778: END IF;
3779: x_return_status := Fnd_Api.g_ret_sts_error;
3780: RETURN;
3781: END IF;
3782: END IF;
3783:
3798: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3799: Fnd_Message.set_name('AMS', 'AMS_ACT_MET_DUP_FUNCTION');
3800: Fnd_Msg_Pub.ADD;
3801: END IF;
3802: x_return_status := Fnd_Api.g_ret_sts_error;
3803: END IF;
3804:
3805: END IF;
3806:
3865: and enabled_flag = p_enabled_flag;
3866:
3867: BEGIN
3868: -- Initialize return status to success.
3869: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3870:
3871: --
3872: -- Begin Validate Referential
3873: --
3885: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_MET');
3886: FND_MSG_PUB.ADD;
3887: END IF;
3888:
3889: x_return_status := FND_API.G_RET_STS_ERROR;
3890: CLOSE c_check_metric_id;
3891: RETURN;
3892: END IF;
3893: CLOSE c_check_metric_id;
3893: CLOSE c_check_metric_id;
3894:
3895: -- TRANSACTION_CURRENCY_CODE
3896: -- Do not validate FK if NULL
3897: IF l_act_metrics_rec.transaction_currency_code <> Fnd_Api.G_MISS_CHAR THEN
3898:
3899: OPEN c_check_currency(l_act_metrics_rec.transaction_currency_code,'Y');
3900: IF c_check_currency%NOTFOUND
3901: THEN
3904: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_TRANS_CUR');
3905: FND_MSG_PUB.ADD;
3906: END IF;
3907:
3908: x_return_status := FND_API.G_RET_STS_ERROR;
3909: CLOSE c_check_currency;
3910: RETURN;
3911: END IF;
3912: CLOSE c_check_currency;
3915:
3916:
3917: -- FUNCTIONAL_CURRENCY_CODE
3918: -- Do not validate FK if NULL
3919: IF l_act_metrics_rec.functional_currency_code <> Fnd_Api.G_MISS_CHAR THEN
3920:
3921: OPEN c_check_currency(l_act_metrics_rec.functional_currency_code,'Y');
3922: IF c_check_currency%NOTFOUND
3923: THEN
3926: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_FUNC_CUR');
3927: FND_MSG_PUB.ADD;
3928: END IF;
3929:
3930: x_return_status := FND_API.G_RET_STS_ERROR;
3931: RETURN;
3932: END IF;
3933: CLOSE c_check_currency;
3934:
3946: ,p_pk_name => l_pk_name
3947: ,p_pk_value => l_pk_value
3948: ,p_pk_data_type => l_pk_data_type
3949: ,p_additional_where_clause => l_additional_where_clause
3950: ) = Fnd_Api.G_FALSE
3951: THEN
3952: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
3953: THEN
3954: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_TRANS_CUR');
3954: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_TRANS_CUR');
3955: Fnd_Msg_Pub.ADD;
3956: END IF;
3957:
3958: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3959: RETURN;
3960: END IF; -- Check_FK_Exists*/
3961:
3962:
3972: ,p_pk_name => l_pk_name
3973: ,p_pk_value => l_pk_value
3974: ,p_pk_data_type => l_pk_data_type
3975: ,p_additional_where_clause => l_additional_where_clause
3976: ) = Fnd_Api.G_FALSE
3977: THEN
3978: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
3979: THEN
3980: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_FUNC_CUR');
3980: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_FUNC_CUR');
3981: Fnd_Msg_Pub.ADD;
3982: END IF;
3983:
3984: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3985: RETURN;
3986: END IF; -- Check_FK_Exists*/
3987:
3988:
3995: -- Begin Validate Flags
3996: --
3997:
3998: -- SENSITIVE_DATA_FLAG
3999: IF l_act_metrics_rec.sensitive_data_flag <> Fnd_Api.G_MISS_CHAR THEN
4000: IF Ams_Utility_Pvt.Is_Y_Or_N (l_act_metrics_rec.sensitive_data_flag)
4001: = Fnd_Api.G_FALSE
4002: THEN
4003: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
3997:
3998: -- SENSITIVE_DATA_FLAG
3999: IF l_act_metrics_rec.sensitive_data_flag <> Fnd_Api.G_MISS_CHAR THEN
4000: IF Ams_Utility_Pvt.Is_Y_Or_N (l_act_metrics_rec.sensitive_data_flag)
4001: = Fnd_Api.G_FALSE
4002: THEN
4003: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
4004: THEN
4005: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_SENS_FLAG');
4005: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_SENS_FLAG');
4006: Fnd_Msg_Pub.ADD;
4007: END IF;
4008:
4009: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4010: RETURN;
4011: END IF; -- Is_Y_Or_N
4012: END IF;
4013:
4020: --
4021: -- choang - 30-oct-2003 - enh 3141834: use lookup AMS_METRIC_OBJECT_TYPE,
4022: -- AMS_METRIC_ALLOCATION_TYPE, AMS_METRIC_ROLLUP_TYPE
4023: -- ARC_METRIC_USED_FOR_OBJECT
4024: IF l_act_metrics_rec.arc_act_metric_used_by <> FND_API.g_miss_char THEN
4025: l_dummy := NULL;
4026: OPEN c_arc_metric_usage(l_act_metrics_rec.arc_act_metric_used_by);
4027: FETCH c_arc_metric_usage INTO l_dummy;
4028: CLOSE c_arc_metric_usage;
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4031: Fnd_Message.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
4032: FND_MSG_PUB.add;
4033: END IF;
4034: x_return_status := FND_API.g_ret_sts_error;
4035: END IF;
4036: END IF;
4037:
4038: -- ARC_ACTIVITY_METRIC_ORIGIN
4037:
4038: -- ARC_ACTIVITY_METRIC_ORIGIN
4039: -- DMVINCEN 03/11/2002: Added Dialog Components.
4040: -- DMVINCEN 03/11/2003: Removed Dialogue Components.
4041: IF l_act_metrics_rec.arc_activity_metric_origin <> Fnd_Api.G_MISS_CHAR THEN
4042: l_dummy := NULL;
4043: OPEN c_arc_metric_usage(l_act_metrics_rec.arc_activity_metric_origin);
4044: FETCH c_arc_metric_usage INTO l_dummy;
4045: CLOSE c_arc_metric_usage;
4047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4048: Fnd_Message.Set_Name ('AMS', 'AMS_METR_INVALID_ORIGIN');
4049: FND_MSG_PUB.add;
4050: END IF;
4051: x_return_status := FND_API.g_ret_sts_error;
4052: END IF;
4053: END IF;
4054:
4055: --
4061: --
4062:
4063: EXCEPTION
4064: WHEN OTHERS THEN
4065: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4066: END Check_ActMetric_Items;
4067:
4068: --
4069: -- Start of comments.
4167:
4168: l_ref_metric_rec c_ref_metric%ROWTYPE;
4169: BEGIN
4170:
4171: x_return_status := Fnd_Api.g_ret_sts_success;
4172:
4173: -- Initialize any values that are needed from
4174: -- the database to do comparisons in the validation.
4175: OPEN c_metric_details (l_act_metrics_rec.metric_id);
4195: p_object_id => l_act_metrics_rec.act_metric_used_by_id,
4196: p_object_type => l_act_metrics_rec.arc_act_metric_used_by,
4197: p_user_or_role_id => AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id),
4198: p_user_or_role_type => 'USER') <> 'F' THEN
4199: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4200: FND_MESSAGE.set_name ('AMS', 'AMS_NO_METRIC_UPDATE_ACCESS');
4201: FND_MESSAGE.set_token('OBJECT',
4202: AMS_Utility_PVT.get_object_name(l_act_metrics_rec.arc_act_metric_used_by,
4203: l_act_metrics_rec.act_metric_used_by_id)
4215: --
4216: -- choang - 01-may-2003 - validate forecast value update
4217: -- moved from the main update api
4218: --
4219: IF (l_freeze_status = Fnd_Api.G_TRUE)
4220: AND ((nvl(l_act_metrics_rec.trans_forecasted_value,0) <> FND_API.g_miss_num
4221: AND NVL (l_act_metrics_rec.trans_forecasted_value, 0) <>
4222: NVL (l_ref_metric_rec.trans_forecasted_value, 0) )
4223: OR ( nvl(l_act_metrics_rec.forecasted_variable_value,0) <> FND_API.g_miss_num
4216: -- choang - 01-may-2003 - validate forecast value update
4217: -- moved from the main update api
4218: --
4219: IF (l_freeze_status = Fnd_Api.G_TRUE)
4220: AND ((nvl(l_act_metrics_rec.trans_forecasted_value,0) <> FND_API.g_miss_num
4221: AND NVL (l_act_metrics_rec.trans_forecasted_value, 0) <>
4222: NVL (l_ref_metric_rec.trans_forecasted_value, 0) )
4223: OR ( nvl(l_act_metrics_rec.forecasted_variable_value,0) <> FND_API.g_miss_num
4224: AND NVL (l_act_metrics_rec.forecasted_variable_value, 0) <>
4219: IF (l_freeze_status = Fnd_Api.G_TRUE)
4220: AND ((nvl(l_act_metrics_rec.trans_forecasted_value,0) <> FND_API.g_miss_num
4221: AND NVL (l_act_metrics_rec.trans_forecasted_value, 0) <>
4222: NVL (l_ref_metric_rec.trans_forecasted_value, 0) )
4223: OR ( nvl(l_act_metrics_rec.forecasted_variable_value,0) <> FND_API.g_miss_num
4224: AND NVL (l_act_metrics_rec.forecasted_variable_value, 0) <>
4225: NVL (l_ref_metric_rec.forecasted_variable_value, 0) ) )
4226: AND l_metric_details_rec.metric_category IN
4227: (G_CATEGORY_COSTS, G_CATEGORY_REVENUES)
4239: Fnd_Message.set_name('AMS', 'AMS_UPDATE_FORECAST');
4240: Fnd_Message.set_token('OBJECT', l_object_name);
4241: Fnd_Msg_Pub.ADD;
4242: END IF; --msg_pub if
4243: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4244: END IF;
4245:
4246: --
4247: -- bug 2931351 - disallow update of actuals before active
4249: -- Make a call-out to check the frozen status.
4250: -- If it is frozen, disallow the operation.
4251: -- Use NVL for comparison of NULLs to 0 because
4252: -- refresh engine updates NULL metrics to 0.
4253: IF l_act_metrics_rec.trans_actual_value <> FND_API.g_miss_num
4254: AND NVL (l_act_metrics_rec.trans_actual_value, 0) <>
4255: NVL (l_ref_metric_rec.func_actual_value, 0)
4256: AND l_metric_details_rec.metric_category IN
4257: (G_CATEGORY_COSTS, G_CATEGORY_REVENUES)
4263: --sunkumar 04/30/2003
4264: --added profile option to restrict updation of actuals
4265: IF (l_allow_actual_update = 'N') THEN
4266: --object is not active and profile is N hence do not allow update
4267: IF (l_freeze_status = Fnd_Api.G_FALSE) THEN
4268: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4269: Fnd_Message.set_name('AMS', 'AMS_METR_UPDATE_ACTUAL');
4270: Fnd_Msg_Pub.ADD;
4271: END IF; --msg_pub if
4269: Fnd_Message.set_name('AMS', 'AMS_METR_UPDATE_ACTUAL');
4270: Fnd_Msg_Pub.ADD;
4271: END IF; --msg_pub if
4272:
4273: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4274: END IF; --freeze status if
4275: END IF; --profile if
4276: END IF; -- check if func_actual_value changed
4277: -- Validate Create Mode --
4282: -- Make a call-out to check the frozen status.
4283: -- If it is frozen, disallow the operation.
4284: -- Use NVL for comparison of NULLs to 0 because
4285: -- refresh engine updates NULL metrics to 0.
4286: IF l_act_metrics_rec.trans_actual_value <> FND_API.g_miss_num
4287: AND NVL (l_act_metrics_rec.trans_actual_value, 0) <> 0
4288: AND l_metric_details_rec.metric_category IN
4289: (G_CATEGORY_COSTS, G_CATEGORY_REVENUES)
4290: AND l_metric_details_rec.metric_calculation_type IN
4294:
4295: -- Profile option to restrict updation of actuals.
4296: IF (l_allow_actual_update = 'N') THEN
4297: --object is not active and profile is N hence do not allow update
4298: IF (l_freeze_status = Fnd_Api.G_FALSE) THEN
4299: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4300: Fnd_Message.set_name('AMS', 'AMS_METR_UPDATE_ACTUAL');
4301: Fnd_Msg_Pub.ADD;
4302: END IF; --msg_pub if
4300: Fnd_Message.set_name('AMS', 'AMS_METR_UPDATE_ACTUAL');
4301: Fnd_Msg_Pub.ADD;
4302: END IF; --msg_pub if
4303:
4304: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4305: END IF; --freeze status if
4306: END IF; --profile if
4307: END IF; -- check if func_actual_value changed
4308:
4313: NULL; -- nothing here yet
4314: END IF;
4315:
4316: -- Validate All Modes --
4317: IF l_act_metrics_rec.arc_act_metric_used_by <> Fnd_Api.G_MISS_CHAR THEN
4318:
4319: IF l_act_metrics_rec.act_metric_used_by_id = Fnd_Api.G_MISS_NUM THEN
4320: l_act_metrics_rec.act_metric_used_by_id :=
4321: p_complete_rec.act_metric_used_by_id;
4315:
4316: -- Validate All Modes --
4317: IF l_act_metrics_rec.arc_act_metric_used_by <> Fnd_Api.G_MISS_CHAR THEN
4318:
4319: IF l_act_metrics_rec.act_metric_used_by_id = Fnd_Api.G_MISS_NUM THEN
4320: l_act_metrics_rec.act_metric_used_by_id :=
4321: p_complete_rec.act_metric_used_by_id;
4322: END IF;
4323:
4320: l_act_metrics_rec.act_metric_used_by_id :=
4321: p_complete_rec.act_metric_used_by_id;
4322: END IF;
4323:
4324: IF l_act_metrics_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4325: l_act_metrics_rec.metric_id := p_complete_rec.metric_id;
4326: END IF;
4327:
4328: -- DMVINCEN 06/07/2001
4339: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_ACT_USAGE');
4340: Fnd_Msg_Pub.ADD;
4341: END IF;
4342:
4343: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4344: END IF; -- Check_FK_Exists
4345:
4346: -- Get table_name and pk_name for the ARC qualifier.
4347: /*sunkumar 21-apr-2004 added*/
4347: /*sunkumar 21-apr-2004 added*/
4348: IF Validate_Object_Exists(
4349: p_object_type => l_act_metrics_rec.arc_act_metric_used_by
4350: ,p_object_id => l_act_metrics_rec.act_metric_used_by_id
4351: ) = Fnd_Api.G_FALSE
4352: THEN
4353: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
4354: l_object_name := ams_utility_pvt.get_lookup_meaning(
4355: 'AMS_SYS_ARC_QUALIFIER',l_act_metrics_rec.arc_act_metric_used_by);
4358: Fnd_Message.Set_Token('OBJID',l_pk_value);
4359: Fnd_Msg_Pub.ADD;
4360: END IF;
4361:
4362: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4363: END IF;
4364:
4365: END IF;
4366:
4364:
4365: END IF;
4366:
4367: -- METRIC_UOM_CODE
4368: IF l_act_metrics_rec.metric_uom_code <> Fnd_Api.G_MISS_CHAR THEN
4369: IF l_act_metrics_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4370: l_act_metrics_rec.metric_id := p_complete_rec.metric_id ;
4371: END IF;
4372:
4365: END IF;
4366:
4367: -- METRIC_UOM_CODE
4368: IF l_act_metrics_rec.metric_uom_code <> Fnd_Api.G_MISS_CHAR THEN
4369: IF l_act_metrics_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4370: l_act_metrics_rec.metric_id := p_complete_rec.metric_id ;
4371: END IF;
4372:
4373: OPEN c_check_uom(l_act_metrics_rec.metric_uom_code,l_metric_details_rec.uom_type);
4378: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
4379: FND_MSG_PUB.ADD;
4380: END IF;
4381:
4382: x_return_status := FND_API.G_RET_STS_ERROR;
4383: CLOSE c_check_uom;
4384: RETURN;
4385: END IF;
4386: CLOSE c_check_uom;
4385: END IF;
4386: CLOSE c_check_uom;
4387: END IF;
4388:
4389: IF l_act_metrics_rec.arc_activity_metric_origin <> Fnd_Api.G_MISS_CHAR THEN
4390: IF l_act_metrics_rec.activity_metric_origin_id = Fnd_Api.G_MISS_NUM THEN
4391: l_act_metrics_rec.activity_metric_origin_id :=
4392: p_complete_rec.activity_metric_origin_id;
4393: END IF;
4386: CLOSE c_check_uom;
4387: END IF;
4388:
4389: IF l_act_metrics_rec.arc_activity_metric_origin <> Fnd_Api.G_MISS_CHAR THEN
4390: IF l_act_metrics_rec.activity_metric_origin_id = Fnd_Api.G_MISS_NUM THEN
4391: l_act_metrics_rec.activity_metric_origin_id :=
4392: p_complete_rec.activity_metric_origin_id;
4393: END IF;
4394:
4396: /*sunkumar 21-apr-2004 added*/
4397: IF Validate_Object_Exists(
4398: p_object_type => l_act_metrics_rec.arc_act_metric_used_by
4399: ,p_object_id => l_act_metrics_rec.act_metric_used_by_id
4400: ) = Fnd_Api.G_FALSE
4401: THEN
4402: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
4403: Fnd_Message.Set_Name ('AMS', 'AMS_METR_INVALID_ORIGIN');
4404: Fnd_Msg_Pub.ADD;
4403: Fnd_Message.Set_Name ('AMS', 'AMS_METR_INVALID_ORIGIN');
4404: Fnd_Msg_Pub.ADD;
4405: END IF;
4406:
4407: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4408: END IF;
4409: END IF;
4410:
4411: --
4442: Check_Req_ActMetrics_Items(
4443: p_act_metric_rec => p_act_metric_rec,
4444: x_return_status => x_return_status
4445: );
4446: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
4447: RETURN;
4448: END IF;
4449:
4450: Check_ActMetric_Uk_Items(
4452: p_validation_mode => p_validation_mode,
4453: x_return_status => x_return_status
4454: );
4455:
4456: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
4457: RETURN;
4458: END IF;
4459:
4460: Check_ActMetric_Items(
4461: p_act_metric_rec => p_act_metric_rec,
4462: x_return_status => x_return_status
4463: );
4464:
4465: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
4466: RETURN;
4467: END IF;
4468:
4469:
4506: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4507: Fnd_Message.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
4508: Fnd_Msg_Pub.ADD;
4509: END IF;
4510: RAISE Fnd_Api.g_exc_error;
4511: END IF;
4512: CLOSE c_act_metric;
4513:
4514:
4511: END IF;
4512: CLOSE c_act_metric;
4513:
4514:
4515: IF p_act_metric_rec.act_metric_used_by_id = Fnd_Api.G_MISS_NUM THEN
4516: x_complete_rec.act_metric_used_by_id := l_act_metric_rec.act_metric_used_by_id;
4517: END IF;
4518:
4519: IF p_act_metric_rec.arc_act_metric_used_by = Fnd_Api.G_MISS_CHAR THEN
4515: IF p_act_metric_rec.act_metric_used_by_id = Fnd_Api.G_MISS_NUM THEN
4516: x_complete_rec.act_metric_used_by_id := l_act_metric_rec.act_metric_used_by_id;
4517: END IF;
4518:
4519: IF p_act_metric_rec.arc_act_metric_used_by = Fnd_Api.G_MISS_CHAR THEN
4520: x_complete_rec.arc_act_metric_used_by := l_act_metric_rec.arc_act_metric_used_by;
4521: END IF;
4522:
4523: IF p_act_metric_rec.purchase_req_raised_flag = Fnd_Api.G_MISS_CHAR THEN
4519: IF p_act_metric_rec.arc_act_metric_used_by = Fnd_Api.G_MISS_CHAR THEN
4520: x_complete_rec.arc_act_metric_used_by := l_act_metric_rec.arc_act_metric_used_by;
4521: END IF;
4522:
4523: IF p_act_metric_rec.purchase_req_raised_flag = Fnd_Api.G_MISS_CHAR THEN
4524: x_complete_rec.purchase_req_raised_flag := l_act_metric_rec.purchase_req_raised_flag;
4525: END IF;
4526:
4527: IF p_act_metric_rec.application_id = Fnd_Api.G_MISS_NUM THEN
4523: IF p_act_metric_rec.purchase_req_raised_flag = Fnd_Api.G_MISS_CHAR THEN
4524: x_complete_rec.purchase_req_raised_flag := l_act_metric_rec.purchase_req_raised_flag;
4525: END IF;
4526:
4527: IF p_act_metric_rec.application_id = Fnd_Api.G_MISS_NUM THEN
4528: x_complete_rec.application_id := l_act_metric_rec.application_id;
4529: END IF;
4530:
4531: IF p_act_metric_rec.sensitive_data_flag = Fnd_Api.G_MISS_CHAR THEN
4527: IF p_act_metric_rec.application_id = Fnd_Api.G_MISS_NUM THEN
4528: x_complete_rec.application_id := l_act_metric_rec.application_id;
4529: END IF;
4530:
4531: IF p_act_metric_rec.sensitive_data_flag = Fnd_Api.G_MISS_CHAR THEN
4532: x_complete_rec.sensitive_data_flag := l_act_metric_rec.sensitive_data_flag;
4533: END IF;
4534:
4535: IF p_act_metric_rec.budget_id = Fnd_Api.G_MISS_NUM THEN
4531: IF p_act_metric_rec.sensitive_data_flag = Fnd_Api.G_MISS_CHAR THEN
4532: x_complete_rec.sensitive_data_flag := l_act_metric_rec.sensitive_data_flag;
4533: END IF;
4534:
4535: IF p_act_metric_rec.budget_id = Fnd_Api.G_MISS_NUM THEN
4536: x_complete_rec.budget_id := l_act_metric_rec.budget_id;
4537: END IF;
4538:
4539: IF p_act_metric_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4535: IF p_act_metric_rec.budget_id = Fnd_Api.G_MISS_NUM THEN
4536: x_complete_rec.budget_id := l_act_metric_rec.budget_id;
4537: END IF;
4538:
4539: IF p_act_metric_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4540: x_complete_rec.metric_id := l_act_metric_rec.metric_id;
4541: END IF;
4542:
4543: IF p_act_metric_rec.transaction_currency_code = Fnd_Api.G_MISS_CHAR THEN
4539: IF p_act_metric_rec.metric_id = Fnd_Api.G_MISS_NUM THEN
4540: x_complete_rec.metric_id := l_act_metric_rec.metric_id;
4541: END IF;
4542:
4543: IF p_act_metric_rec.transaction_currency_code = Fnd_Api.G_MISS_CHAR THEN
4544: x_complete_rec.transaction_currency_code := l_act_metric_rec.transaction_currency_code;
4545: END IF;
4546:
4547: IF NVL(p_act_metric_rec.trans_forecasted_value,-1) = Fnd_Api.G_MISS_NUM THEN
4543: IF p_act_metric_rec.transaction_currency_code = Fnd_Api.G_MISS_CHAR THEN
4544: x_complete_rec.transaction_currency_code := l_act_metric_rec.transaction_currency_code;
4545: END IF;
4546:
4547: IF NVL(p_act_metric_rec.trans_forecasted_value,-1) = Fnd_Api.G_MISS_NUM THEN
4548: x_complete_rec.trans_forecasted_value := l_act_metric_rec.trans_forecasted_value;
4549: END IF;
4550:
4551: IF p_act_metric_rec.trans_committed_value = Fnd_Api.G_MISS_NUM THEN
4547: IF NVL(p_act_metric_rec.trans_forecasted_value,-1) = Fnd_Api.G_MISS_NUM THEN
4548: x_complete_rec.trans_forecasted_value := l_act_metric_rec.trans_forecasted_value;
4549: END IF;
4550:
4551: IF p_act_metric_rec.trans_committed_value = Fnd_Api.G_MISS_NUM THEN
4552: x_complete_rec.trans_committed_value := l_act_metric_rec.trans_committed_value;
4553: END IF;
4554:
4555: IF p_act_metric_rec.trans_actual_value = Fnd_Api.G_MISS_NUM THEN
4551: IF p_act_metric_rec.trans_committed_value = Fnd_Api.G_MISS_NUM THEN
4552: x_complete_rec.trans_committed_value := l_act_metric_rec.trans_committed_value;
4553: END IF;
4554:
4555: IF p_act_metric_rec.trans_actual_value = Fnd_Api.G_MISS_NUM THEN
4556: x_complete_rec.trans_actual_value := l_act_metric_rec.trans_actual_value;
4557: END IF;
4558:
4559: IF p_act_metric_rec.functional_currency_code = Fnd_Api.G_MISS_CHAR THEN
4555: IF p_act_metric_rec.trans_actual_value = Fnd_Api.G_MISS_NUM THEN
4556: x_complete_rec.trans_actual_value := l_act_metric_rec.trans_actual_value;
4557: END IF;
4558:
4559: IF p_act_metric_rec.functional_currency_code = Fnd_Api.G_MISS_CHAR THEN
4560: x_complete_rec.functional_currency_code := l_act_metric_rec.functional_currency_code;
4561: END IF;
4562:
4563: IF p_act_metric_rec.func_forecasted_value = Fnd_Api.G_MISS_NUM THEN
4559: IF p_act_metric_rec.functional_currency_code = Fnd_Api.G_MISS_CHAR THEN
4560: x_complete_rec.functional_currency_code := l_act_metric_rec.functional_currency_code;
4561: END IF;
4562:
4563: IF p_act_metric_rec.func_forecasted_value = Fnd_Api.G_MISS_NUM THEN
4564: x_complete_rec.func_forecasted_value := l_act_metric_rec.func_forecasted_value;
4565: END IF;
4566:
4567: IF p_act_metric_rec.func_committed_value = Fnd_Api.G_MISS_NUM THEN
4563: IF p_act_metric_rec.func_forecasted_value = Fnd_Api.G_MISS_NUM THEN
4564: x_complete_rec.func_forecasted_value := l_act_metric_rec.func_forecasted_value;
4565: END IF;
4566:
4567: IF p_act_metric_rec.func_committed_value = Fnd_Api.G_MISS_NUM THEN
4568: x_complete_rec.func_committed_value := l_act_metric_rec.func_committed_value;
4569: END IF;
4570:
4571: IF p_act_metric_rec.func_actual_value = Fnd_Api.G_MISS_NUM THEN
4567: IF p_act_metric_rec.func_committed_value = Fnd_Api.G_MISS_NUM THEN
4568: x_complete_rec.func_committed_value := l_act_metric_rec.func_committed_value;
4569: END IF;
4570:
4571: IF p_act_metric_rec.func_actual_value = Fnd_Api.G_MISS_NUM THEN
4572: x_complete_rec.func_actual_value := l_act_metric_rec.func_actual_value;
4573: END IF;
4574:
4575: IF p_act_metric_rec.dirty_flag = Fnd_Api.G_MISS_CHAR THEN
4571: IF p_act_metric_rec.func_actual_value = Fnd_Api.G_MISS_NUM THEN
4572: x_complete_rec.func_actual_value := l_act_metric_rec.func_actual_value;
4573: END IF;
4574:
4575: IF p_act_metric_rec.dirty_flag = Fnd_Api.G_MISS_CHAR THEN
4576: IF (l_act_metric_rec.trans_actual_value <>
4577: x_complete_rec.trans_actual_value) OR
4578: (l_act_metric_rec.transaction_currency_code <>
4579: x_complete_rec.transaction_currency_code) OR
4591: x_complete_rec.dirty_flag := NVL(l_act_metric_rec.dirty_flag,G_IS_DIRTY);
4592: END IF;
4593: END IF;
4594:
4595: IF p_act_metric_rec.last_calculated_date = Fnd_Api.G_MISS_DATE THEN
4596: x_complete_rec.last_calculated_date := l_act_metric_rec.last_calculated_date;
4597: END IF;
4598:
4599: IF p_act_metric_rec.variable_value = Fnd_Api.G_MISS_NUM THEN
4595: IF p_act_metric_rec.last_calculated_date = Fnd_Api.G_MISS_DATE THEN
4596: x_complete_rec.last_calculated_date := l_act_metric_rec.last_calculated_date;
4597: END IF;
4598:
4599: IF p_act_metric_rec.variable_value = Fnd_Api.G_MISS_NUM THEN
4600: x_complete_rec.variable_value := l_act_metric_rec.variable_value;
4601: END IF;
4602:
4603: IF p_act_metric_rec.forecasted_variable_value = Fnd_Api.G_MISS_NUM THEN
4599: IF p_act_metric_rec.variable_value = Fnd_Api.G_MISS_NUM THEN
4600: x_complete_rec.variable_value := l_act_metric_rec.variable_value;
4601: END IF;
4602:
4603: IF p_act_metric_rec.forecasted_variable_value = Fnd_Api.G_MISS_NUM THEN
4604: x_complete_rec.forecasted_variable_value := l_act_metric_rec.forecasted_variable_value;
4605: END IF;
4606:
4607: IF p_act_metric_rec.computed_using_function_value = Fnd_Api.G_MISS_NUM THEN
4603: IF p_act_metric_rec.forecasted_variable_value = Fnd_Api.G_MISS_NUM THEN
4604: x_complete_rec.forecasted_variable_value := l_act_metric_rec.forecasted_variable_value;
4605: END IF;
4606:
4607: IF p_act_metric_rec.computed_using_function_value = Fnd_Api.G_MISS_NUM THEN
4608: x_complete_rec.computed_using_function_value := l_act_metric_rec.computed_using_function_value;
4609: END IF;
4610:
4611: IF p_act_metric_rec.metric_uom_code = Fnd_Api.G_MISS_CHAR THEN
4607: IF p_act_metric_rec.computed_using_function_value = Fnd_Api.G_MISS_NUM THEN
4608: x_complete_rec.computed_using_function_value := l_act_metric_rec.computed_using_function_value;
4609: END IF;
4610:
4611: IF p_act_metric_rec.metric_uom_code = Fnd_Api.G_MISS_CHAR THEN
4612: x_complete_rec.metric_uom_code := l_act_metric_rec.metric_uom_code;
4613: END IF;
4614:
4615: IF p_act_metric_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
4611: IF p_act_metric_rec.metric_uom_code = Fnd_Api.G_MISS_CHAR THEN
4612: x_complete_rec.metric_uom_code := l_act_metric_rec.metric_uom_code;
4613: END IF;
4614:
4615: IF p_act_metric_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
4616: x_complete_rec.attribute_category := l_act_metric_rec.attribute_category;
4617: END IF;
4618:
4619: IF p_act_metric_rec.difference_since_last_calc = Fnd_Api.G_MISS_NUM THEN
4615: IF p_act_metric_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
4616: x_complete_rec.attribute_category := l_act_metric_rec.attribute_category;
4617: END IF;
4618:
4619: IF p_act_metric_rec.difference_since_last_calc = Fnd_Api.G_MISS_NUM THEN
4620: x_complete_rec.difference_since_last_calc := l_act_metric_rec.difference_since_last_calc;
4621: END IF;
4622:
4623: IF p_act_metric_rec.activity_metric_origin_id = Fnd_Api.G_MISS_NUM THEN
4619: IF p_act_metric_rec.difference_since_last_calc = Fnd_Api.G_MISS_NUM THEN
4620: x_complete_rec.difference_since_last_calc := l_act_metric_rec.difference_since_last_calc;
4621: END IF;
4622:
4623: IF p_act_metric_rec.activity_metric_origin_id = Fnd_Api.G_MISS_NUM THEN
4624: x_complete_rec.activity_metric_origin_id := l_act_metric_rec.activity_metric_origin_id;
4625: END IF;
4626:
4627: IF p_act_metric_rec.arc_activity_metric_origin = Fnd_Api.G_MISS_CHAR THEN
4623: IF p_act_metric_rec.activity_metric_origin_id = Fnd_Api.G_MISS_NUM THEN
4624: x_complete_rec.activity_metric_origin_id := l_act_metric_rec.activity_metric_origin_id;
4625: END IF;
4626:
4627: IF p_act_metric_rec.arc_activity_metric_origin = Fnd_Api.G_MISS_CHAR THEN
4628: x_complete_rec.arc_activity_metric_origin := l_act_metric_rec.arc_activity_metric_origin;
4629: END IF;
4630:
4631: IF p_act_metric_rec.days_since_last_refresh = Fnd_Api.G_MISS_NUM THEN
4627: IF p_act_metric_rec.arc_activity_metric_origin = Fnd_Api.G_MISS_CHAR THEN
4628: x_complete_rec.arc_activity_metric_origin := l_act_metric_rec.arc_activity_metric_origin;
4629: END IF;
4630:
4631: IF p_act_metric_rec.days_since_last_refresh = Fnd_Api.G_MISS_NUM THEN
4632: x_complete_rec.days_since_last_refresh := l_act_metric_rec.days_since_last_refresh;
4633: END IF;
4634:
4635: IF p_act_metric_rec.scenario_id = Fnd_Api.G_MISS_NUM THEN
4631: IF p_act_metric_rec.days_since_last_refresh = Fnd_Api.G_MISS_NUM THEN
4632: x_complete_rec.days_since_last_refresh := l_act_metric_rec.days_since_last_refresh;
4633: END IF;
4634:
4635: IF p_act_metric_rec.scenario_id = Fnd_Api.G_MISS_NUM THEN
4636: x_complete_rec.scenario_id := l_act_metric_rec.scenario_id;
4637: END IF;
4638:
4639: /***************************************************************/
4639: /***************************************************************/
4640: /*added 17-Apr-2000 tdonohoe@us support 11.5.2 columns */
4641: /***************************************************************/
4642:
4643: IF p_act_metric_rec.hierarchy_id = Fnd_Api.G_MISS_NUM THEN
4644: x_complete_rec.hierarchy_id := l_act_metric_rec.hierarchy_id;
4645: END IF;
4646:
4647: IF p_act_metric_rec.start_node = Fnd_Api.G_MISS_NUM THEN
4643: IF p_act_metric_rec.hierarchy_id = Fnd_Api.G_MISS_NUM THEN
4644: x_complete_rec.hierarchy_id := l_act_metric_rec.hierarchy_id;
4645: END IF;
4646:
4647: IF p_act_metric_rec.start_node = Fnd_Api.G_MISS_NUM THEN
4648: x_complete_rec.start_node := l_act_metric_rec.start_node;
4649: END IF;
4650:
4651: IF p_act_metric_rec.from_level = Fnd_Api.G_MISS_NUM THEN
4647: IF p_act_metric_rec.start_node = Fnd_Api.G_MISS_NUM THEN
4648: x_complete_rec.start_node := l_act_metric_rec.start_node;
4649: END IF;
4650:
4651: IF p_act_metric_rec.from_level = Fnd_Api.G_MISS_NUM THEN
4652: x_complete_rec.from_level := l_act_metric_rec.from_level;
4653: END IF;
4654:
4655: IF p_act_metric_rec.to_level = Fnd_Api.G_MISS_NUM THEN
4651: IF p_act_metric_rec.from_level = Fnd_Api.G_MISS_NUM THEN
4652: x_complete_rec.from_level := l_act_metric_rec.from_level;
4653: END IF;
4654:
4655: IF p_act_metric_rec.to_level = Fnd_Api.G_MISS_NUM THEN
4656: x_complete_rec.to_level := l_act_metric_rec.to_level;
4657: END IF;
4658:
4659: IF p_act_metric_rec.from_date = Fnd_Api.G_MISS_DATE THEN
4655: IF p_act_metric_rec.to_level = Fnd_Api.G_MISS_NUM THEN
4656: x_complete_rec.to_level := l_act_metric_rec.to_level;
4657: END IF;
4658:
4659: IF p_act_metric_rec.from_date = Fnd_Api.G_MISS_DATE THEN
4660: x_complete_rec.from_date := l_act_metric_rec.from_date;
4661: END IF;
4662:
4663: IF p_act_metric_rec.TO_DATE = Fnd_Api.G_MISS_DATE THEN
4659: IF p_act_metric_rec.from_date = Fnd_Api.G_MISS_DATE THEN
4660: x_complete_rec.from_date := l_act_metric_rec.from_date;
4661: END IF;
4662:
4663: IF p_act_metric_rec.TO_DATE = Fnd_Api.G_MISS_DATE THEN
4664: x_complete_rec.TO_DATE := l_act_metric_rec.TO_DATE;
4665: END IF;
4666:
4667: IF p_act_metric_rec.amount1 = Fnd_Api.G_MISS_NUM THEN
4663: IF p_act_metric_rec.TO_DATE = Fnd_Api.G_MISS_DATE THEN
4664: x_complete_rec.TO_DATE := l_act_metric_rec.TO_DATE;
4665: END IF;
4666:
4667: IF p_act_metric_rec.amount1 = Fnd_Api.G_MISS_NUM THEN
4668: x_complete_rec.amount1 := l_act_metric_rec.amount1;
4669: END IF;
4670:
4671: IF p_act_metric_rec.amount2 = Fnd_Api.G_MISS_NUM THEN
4667: IF p_act_metric_rec.amount1 = Fnd_Api.G_MISS_NUM THEN
4668: x_complete_rec.amount1 := l_act_metric_rec.amount1;
4669: END IF;
4670:
4671: IF p_act_metric_rec.amount2 = Fnd_Api.G_MISS_NUM THEN
4672: x_complete_rec.amount2 := l_act_metric_rec.amount2;
4673: END IF;
4674:
4675: IF p_act_metric_rec.amount3 = Fnd_Api.G_MISS_NUM THEN
4671: IF p_act_metric_rec.amount2 = Fnd_Api.G_MISS_NUM THEN
4672: x_complete_rec.amount2 := l_act_metric_rec.amount2;
4673: END IF;
4674:
4675: IF p_act_metric_rec.amount3 = Fnd_Api.G_MISS_NUM THEN
4676: x_complete_rec.amount3 := l_act_metric_rec.amount3;
4677: END IF;
4678:
4679: IF p_act_metric_rec.percent1 = Fnd_Api.G_MISS_NUM THEN
4675: IF p_act_metric_rec.amount3 = Fnd_Api.G_MISS_NUM THEN
4676: x_complete_rec.amount3 := l_act_metric_rec.amount3;
4677: END IF;
4678:
4679: IF p_act_metric_rec.percent1 = Fnd_Api.G_MISS_NUM THEN
4680: x_complete_rec.percent1 := l_act_metric_rec.percent1;
4681: END IF;
4682:
4683: IF p_act_metric_rec.percent2 = Fnd_Api.G_MISS_NUM THEN
4679: IF p_act_metric_rec.percent1 = Fnd_Api.G_MISS_NUM THEN
4680: x_complete_rec.percent1 := l_act_metric_rec.percent1;
4681: END IF;
4682:
4683: IF p_act_metric_rec.percent2 = Fnd_Api.G_MISS_NUM THEN
4684: x_complete_rec.percent2 := l_act_metric_rec.percent2;
4685: END IF;
4686:
4687: IF p_act_metric_rec.percent3 = Fnd_Api.G_MISS_NUM THEN
4683: IF p_act_metric_rec.percent2 = Fnd_Api.G_MISS_NUM THEN
4684: x_complete_rec.percent2 := l_act_metric_rec.percent2;
4685: END IF;
4686:
4687: IF p_act_metric_rec.percent3 = Fnd_Api.G_MISS_NUM THEN
4688: x_complete_rec.percent3 := l_act_metric_rec.percent3;
4689: END IF;
4690:
4691: IF p_act_metric_rec.published_flag = Fnd_Api.G_MISS_CHAR THEN
4687: IF p_act_metric_rec.percent3 = Fnd_Api.G_MISS_NUM THEN
4688: x_complete_rec.percent3 := l_act_metric_rec.percent3;
4689: END IF;
4690:
4691: IF p_act_metric_rec.published_flag = Fnd_Api.G_MISS_CHAR THEN
4692: x_complete_rec.published_flag := l_act_metric_rec.published_flag;
4693: END IF;
4694:
4695: IF p_act_metric_rec.pre_function_name = Fnd_Api.G_MISS_CHAR THEN
4691: IF p_act_metric_rec.published_flag = Fnd_Api.G_MISS_CHAR THEN
4692: x_complete_rec.published_flag := l_act_metric_rec.published_flag;
4693: END IF;
4694:
4695: IF p_act_metric_rec.pre_function_name = Fnd_Api.G_MISS_CHAR THEN
4696: x_complete_rec.pre_function_name := l_act_metric_rec.pre_function_name;
4697: END IF;
4698:
4699: IF p_act_metric_rec.post_function_name = Fnd_Api.G_MISS_CHAR THEN
4695: IF p_act_metric_rec.pre_function_name = Fnd_Api.G_MISS_CHAR THEN
4696: x_complete_rec.pre_function_name := l_act_metric_rec.pre_function_name;
4697: END IF;
4698:
4699: IF p_act_metric_rec.post_function_name = Fnd_Api.G_MISS_CHAR THEN
4700: x_complete_rec.post_function_name := l_act_metric_rec.post_function_name;
4701: END IF;
4702:
4703: IF p_act_metric_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
4699: IF p_act_metric_rec.post_function_name = Fnd_Api.G_MISS_CHAR THEN
4700: x_complete_rec.post_function_name := l_act_metric_rec.post_function_name;
4701: END IF;
4702:
4703: IF p_act_metric_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
4704: x_complete_rec.attribute1 := l_act_metric_rec.attribute1;
4705: END IF;
4706:
4707: IF p_act_metric_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
4703: IF p_act_metric_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
4704: x_complete_rec.attribute1 := l_act_metric_rec.attribute1;
4705: END IF;
4706:
4707: IF p_act_metric_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
4708: x_complete_rec.attribute2 := l_act_metric_rec.attribute2;
4709: END IF;
4710:
4711: IF p_act_metric_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
4707: IF p_act_metric_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
4708: x_complete_rec.attribute2 := l_act_metric_rec.attribute2;
4709: END IF;
4710:
4711: IF p_act_metric_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
4712: x_complete_rec.attribute3 := l_act_metric_rec.attribute3;
4713: END IF;
4714:
4715: IF p_act_metric_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
4711: IF p_act_metric_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
4712: x_complete_rec.attribute3 := l_act_metric_rec.attribute3;
4713: END IF;
4714:
4715: IF p_act_metric_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
4716: x_complete_rec.attribute4 := l_act_metric_rec.attribute4;
4717: END IF;
4718:
4719: IF p_act_metric_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
4715: IF p_act_metric_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
4716: x_complete_rec.attribute4 := l_act_metric_rec.attribute4;
4717: END IF;
4718:
4719: IF p_act_metric_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
4720: x_complete_rec.attribute5 := l_act_metric_rec.attribute5;
4721: END IF;
4722:
4723: IF p_act_metric_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
4719: IF p_act_metric_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
4720: x_complete_rec.attribute5 := l_act_metric_rec.attribute5;
4721: END IF;
4722:
4723: IF p_act_metric_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
4724: x_complete_rec.attribute6 := l_act_metric_rec.attribute6;
4725: END IF;
4726:
4727: IF p_act_metric_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
4723: IF p_act_metric_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
4724: x_complete_rec.attribute6 := l_act_metric_rec.attribute6;
4725: END IF;
4726:
4727: IF p_act_metric_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
4728: x_complete_rec.attribute7 := l_act_metric_rec.attribute7;
4729: END IF;
4730:
4731: IF p_act_metric_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
4727: IF p_act_metric_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
4728: x_complete_rec.attribute7 := l_act_metric_rec.attribute7;
4729: END IF;
4730:
4731: IF p_act_metric_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
4732: x_complete_rec.attribute8 := l_act_metric_rec.attribute8;
4733: END IF;
4734:
4735: IF p_act_metric_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
4731: IF p_act_metric_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
4732: x_complete_rec.attribute8 := l_act_metric_rec.attribute8;
4733: END IF;
4734:
4735: IF p_act_metric_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
4736: x_complete_rec.attribute9 := l_act_metric_rec.attribute9;
4737: END IF;
4738:
4739: IF p_act_metric_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
4735: IF p_act_metric_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
4736: x_complete_rec.attribute9 := l_act_metric_rec.attribute9;
4737: END IF;
4738:
4739: IF p_act_metric_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
4740: x_complete_rec.attribute10 := l_act_metric_rec.attribute10;
4741: END IF;
4742:
4743: IF p_act_metric_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
4739: IF p_act_metric_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
4740: x_complete_rec.attribute10 := l_act_metric_rec.attribute10;
4741: END IF;
4742:
4743: IF p_act_metric_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
4744: x_complete_rec.attribute11 := l_act_metric_rec.attribute11;
4745: END IF;
4746:
4747: IF p_act_metric_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
4743: IF p_act_metric_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
4744: x_complete_rec.attribute11 := l_act_metric_rec.attribute11;
4745: END IF;
4746:
4747: IF p_act_metric_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
4748: x_complete_rec.attribute12 := l_act_metric_rec.attribute12;
4749: END IF;
4750:
4751: IF p_act_metric_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
4747: IF p_act_metric_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
4748: x_complete_rec.attribute12 := l_act_metric_rec.attribute12;
4749: END IF;
4750:
4751: IF p_act_metric_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
4752: x_complete_rec.attribute13 := l_act_metric_rec.attribute13;
4753: END IF;
4754:
4755: IF p_act_metric_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
4751: IF p_act_metric_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
4752: x_complete_rec.attribute13 := l_act_metric_rec.attribute13;
4753: END IF;
4754:
4755: IF p_act_metric_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
4756: x_complete_rec.attribute14 := l_act_metric_rec.attribute14;
4757: END IF;
4758:
4759: IF p_act_metric_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
4755: IF p_act_metric_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
4756: x_complete_rec.attribute14 := l_act_metric_rec.attribute14;
4757: END IF;
4758:
4759: IF p_act_metric_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
4760: x_complete_rec.attribute15 := l_act_metric_rec.attribute15;
4761: END IF;
4762:
4763: -- DMVINCEN 05/01/2001: New columns.
4760: x_complete_rec.attribute15 := l_act_metric_rec.attribute15;
4761: END IF;
4762:
4763: -- DMVINCEN 05/01/2001: New columns.
4764: IF p_act_metric_rec.act_metric_date = Fnd_Api.G_MISS_DATE THEN
4765: x_complete_rec.act_metric_date := l_act_metric_rec.act_metric_date;
4766: END IF;
4767:
4768: IF p_act_metric_rec.description = Fnd_Api.G_MISS_CHAR THEN
4764: IF p_act_metric_rec.act_metric_date = Fnd_Api.G_MISS_DATE THEN
4765: x_complete_rec.act_metric_date := l_act_metric_rec.act_metric_date;
4766: END IF;
4767:
4768: IF p_act_metric_rec.description = Fnd_Api.G_MISS_CHAR THEN
4769: x_complete_rec.description := l_act_metric_rec.description;
4770: END IF;
4771:
4772: -- DMVINCEN 05/01/2001: End new columns.
4770: END IF;
4771:
4772: -- DMVINCEN 05/01/2001: End new columns.
4773:
4774: IF p_act_metric_rec.depend_act_metric = Fnd_Api.G_MISS_NUM THEN
4775: x_complete_rec.depend_act_metric := l_act_metric_rec.depend_act_metric;
4776: END IF;
4777:
4778: -- DMVINCEN 03/08/2002:
4776: END IF;
4777:
4778: -- DMVINCEN 03/08/2002:
4779:
4780: IF p_act_metric_rec.function_used_by_id = Fnd_Api.G_MISS_NUM THEN
4781: x_complete_rec.function_used_by_id := l_act_metric_rec.function_used_by_id;
4782: END IF;
4783:
4784: IF p_act_metric_rec.arc_function_used_by = Fnd_Api.G_MISS_CHAR THEN
4780: IF p_act_metric_rec.function_used_by_id = Fnd_Api.G_MISS_NUM THEN
4781: x_complete_rec.function_used_by_id := l_act_metric_rec.function_used_by_id;
4782: END IF;
4783:
4784: IF p_act_metric_rec.arc_function_used_by = Fnd_Api.G_MISS_CHAR THEN
4785: x_complete_rec.arc_function_used_by := l_act_metric_rec.arc_function_used_by;
4786: END IF;
4787:
4788: /* 05/15/2002 yzhao: add 6 new columns for top-down bottom-up budgeting */
4785: x_complete_rec.arc_function_used_by := l_act_metric_rec.arc_function_used_by;
4786: END IF;
4787:
4788: /* 05/15/2002 yzhao: add 6 new columns for top-down bottom-up budgeting */
4789: IF p_act_metric_rec.hierarchy_type = Fnd_Api.G_MISS_CHAR THEN
4790: x_complete_rec.hierarchy_type := l_act_metric_rec.hierarchy_type;
4791: END IF;
4792:
4793: IF p_act_metric_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
4789: IF p_act_metric_rec.hierarchy_type = Fnd_Api.G_MISS_CHAR THEN
4790: x_complete_rec.hierarchy_type := l_act_metric_rec.hierarchy_type;
4791: END IF;
4792:
4793: IF p_act_metric_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
4794: x_complete_rec.status_code := l_act_metric_rec.status_code;
4795: END IF;
4796:
4797: IF p_act_metric_rec.method_code = Fnd_Api.G_MISS_CHAR THEN
4793: IF p_act_metric_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
4794: x_complete_rec.status_code := l_act_metric_rec.status_code;
4795: END IF;
4796:
4797: IF p_act_metric_rec.method_code = Fnd_Api.G_MISS_CHAR THEN
4798: x_complete_rec.method_code := l_act_metric_rec.method_code;
4799: END IF;
4800:
4801: IF p_act_metric_rec.action_code = Fnd_Api.G_MISS_CHAR THEN
4797: IF p_act_metric_rec.method_code = Fnd_Api.G_MISS_CHAR THEN
4798: x_complete_rec.method_code := l_act_metric_rec.method_code;
4799: END IF;
4800:
4801: IF p_act_metric_rec.action_code = Fnd_Api.G_MISS_CHAR THEN
4802: x_complete_rec.action_code := l_act_metric_rec.action_code;
4803: END IF;
4804:
4805: IF p_act_metric_rec.basis_year = Fnd_Api.G_MISS_NUM THEN
4801: IF p_act_metric_rec.action_code = Fnd_Api.G_MISS_CHAR THEN
4802: x_complete_rec.action_code := l_act_metric_rec.action_code;
4803: END IF;
4804:
4805: IF p_act_metric_rec.basis_year = Fnd_Api.G_MISS_NUM THEN
4806: x_complete_rec.basis_year := l_act_metric_rec.basis_year;
4807: END IF;
4808:
4809: IF p_act_metric_rec.ex_start_node = Fnd_Api.G_MISS_CHAR THEN
4805: IF p_act_metric_rec.basis_year = Fnd_Api.G_MISS_NUM THEN
4806: x_complete_rec.basis_year := l_act_metric_rec.basis_year;
4807: END IF;
4808:
4809: IF p_act_metric_rec.ex_start_node = Fnd_Api.G_MISS_CHAR THEN
4810: x_complete_rec.ex_start_node := l_act_metric_rec.ex_start_node;
4811: END IF;
4812: /* 05/15/2002 yzhao: add ends */
4813:
4832: --
4833:
4834: PROCEDURE SetCommittedVal (
4835: p_api_version IN NUMBER,
4836: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
4837: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
4838: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
4839:
4840: x_return_status OUT NOCOPY VARCHAR2,
4833:
4834: PROCEDURE SetCommittedVal (
4835: p_api_version IN NUMBER,
4836: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
4837: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
4838: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
4839:
4840: x_return_status OUT NOCOPY VARCHAR2,
4841: x_msg_count OUT NOCOPY NUMBER,
4834: PROCEDURE SetCommittedVal (
4835: p_api_version IN NUMBER,
4836: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
4837: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
4838: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
4839:
4840: x_return_status OUT NOCOPY VARCHAR2,
4841: x_msg_count OUT NOCOPY NUMBER,
4842: x_msg_data OUT NOCOPY VARCHAR2,
4868:
4869: --
4870: -- Initialize message list if p_init_msg_list is set to TRUE.
4871: --
4872: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
4873: Fnd_Msg_Pub.Initialize;
4874: END IF;
4875:
4876: --
4875:
4876: --
4877: -- Standard check for API version compatibility.
4878: --
4879: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
4880: p_api_version,
4881: L_API_NAME,
4882: G_PKG_NAME)
4883: THEN
4880: p_api_version,
4881: L_API_NAME,
4882: G_PKG_NAME)
4883: THEN
4884: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4885: END IF;
4886:
4887: --
4888: -- Initialize API return status to success.
4886:
4887: --
4888: -- Initialize API return status to success.
4889: --
4890: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4891:
4892: --
4893: -- Begin API Body.
4894: --
4908: IF SQL%NOTFOUND THEN
4909: --
4910: -- The metric for the given business entity does not
4911: -- exist. Add the proper message and raise an error.
4912: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4913: END IF;
4914:
4915: --
4916: -- End API Body.
4918:
4919: --
4920: -- Standard check for commit request.
4921: --
4922: IF Fnd_Api.To_Boolean (p_commit) THEN
4923: COMMIT WORK;
4924: END IF;
4925:
4926:
4930: --
4931: Fnd_Msg_Pub.Count_And_Get (
4932: p_count => x_msg_count,
4933: p_data => x_msg_data,
4934: p_encoded => Fnd_Api.G_FALSE
4935: );
4936:
4937: --
4938: -- Output debug message.
4942: END IF;
4943:
4944:
4945: EXCEPTION
4946: WHEN Fnd_Api.G_EXC_ERROR THEN
4947: ROLLBACK TO SetCommittedVal_SavePoint;
4948: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4949: Fnd_Msg_Pub.Count_And_Get (
4950: p_count => x_msg_count,
4944:
4945: EXCEPTION
4946: WHEN Fnd_Api.G_EXC_ERROR THEN
4947: ROLLBACK TO SetCommittedVal_SavePoint;
4948: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4949: Fnd_Msg_Pub.Count_And_Get (
4950: p_count => x_msg_count,
4951: p_data => x_msg_data,
4952: p_encoded => FND_API.G_FALSE
4948: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4949: Fnd_Msg_Pub.Count_And_Get (
4950: p_count => x_msg_count,
4951: p_data => x_msg_data,
4952: p_encoded => FND_API.G_FALSE
4953: );
4954: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4955: ROLLBACK TO SetCommittedVal_SavePoint;
4956: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4950: p_count => x_msg_count,
4951: p_data => x_msg_data,
4952: p_encoded => FND_API.G_FALSE
4953: );
4954: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4955: ROLLBACK TO SetCommittedVal_SavePoint;
4956: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4957: Fnd_Msg_Pub.Count_And_Get (
4958: p_count => x_msg_count,
4952: p_encoded => FND_API.G_FALSE
4953: );
4954: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4955: ROLLBACK TO SetCommittedVal_SavePoint;
4956: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4957: Fnd_Msg_Pub.Count_And_Get (
4958: p_count => x_msg_count,
4959: p_data => x_msg_data,
4960: p_encoded => FND_API.G_FALSE
4956: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4957: Fnd_Msg_Pub.Count_And_Get (
4958: p_count => x_msg_count,
4959: p_data => x_msg_data,
4960: p_encoded => FND_API.G_FALSE
4961: );
4962: WHEN OTHERS THEN
4963: ROLLBACK TO SetCommittedVal_SavePoint;
4964: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4960: p_encoded => FND_API.G_FALSE
4961: );
4962: WHEN OTHERS THEN
4963: ROLLBACK TO SetCommittedVal_SavePoint;
4964: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4965: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4966: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4967: END IF;
4968: Fnd_Msg_Pub.Count_And_Get (
4967: END IF;
4968: Fnd_Msg_Pub.Count_And_Get (
4969: p_count => x_msg_count,
4970: p_data => x_msg_data,
4971: p_encoded => FND_API.G_FALSE
4972: );
4973: END SetCommittedVal;
4974:
4975: --
5152: p_to_currency => l_default_func_curr_code,
5153: p_conv_date => l_current_date,
5154: p_from_amount => NVL(l_actmet_func_fore_amount,0),
5155: x_to_amount => l_actmet_func_fore_amount,
5156: p_round => Fnd_Api.G_FALSE);
5157: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5160: RAISE Fnd_Api.G_EXC_ERROR;
5153: p_conv_date => l_current_date,
5154: p_from_amount => NVL(l_actmet_func_fore_amount,0),
5155: x_to_amount => l_actmet_func_fore_amount,
5156: p_round => Fnd_Api.G_FALSE);
5157: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5160: RAISE Fnd_Api.G_EXC_ERROR;
5161: END IF;
5154: p_from_amount => NVL(l_actmet_func_fore_amount,0),
5155: x_to_amount => l_actmet_func_fore_amount,
5156: p_round => Fnd_Api.G_FALSE);
5157: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5160: RAISE Fnd_Api.G_EXC_ERROR;
5161: END IF;
5162: END IF;
5155: x_to_amount => l_actmet_func_fore_amount,
5156: p_round => Fnd_Api.G_FALSE);
5157: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5160: RAISE Fnd_Api.G_EXC_ERROR;
5161: END IF;
5162: END IF;
5163: l_sum_func_fore_amount := l_sum_func_fore_amount
5156: p_round => Fnd_Api.G_FALSE);
5157: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5158: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5159: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5160: RAISE Fnd_Api.G_EXC_ERROR;
5161: END IF;
5162: END IF;
5163: l_sum_func_fore_amount := l_sum_func_fore_amount
5164: + NVL(l_actmet_func_fore_amount,0);
5180: l_func_budget_amount,
5181: l_func_budget_curr_code;
5182: IF c_get_camp_budget_amounts%NOTFOUND THEN
5183: CLOSE c_get_camp_budget_amounts;
5184: RAISE Fnd_Api.G_EXC_ERROR;
5185: END IF;
5186: CLOSE c_get_camp_budget_amounts;
5187: -- for campaign schedules
5188: ELSIF p_obj_type = 'CSCH' THEN
5193: l_func_budget_amount,
5194: l_func_budget_curr_code;
5195: IF c_get_csch_budget_amounts%NOTFOUND THEN
5196: CLOSE c_get_csch_budget_amounts;
5197: RAISE Fnd_Api.G_EXC_ERROR;
5198: END IF;
5199: CLOSE c_get_csch_budget_amounts;
5200: -- for event offers
5201: ELSIF p_obj_type IN ('EONE', 'EVEO') THEN
5206: l_func_budget_amount,
5207: l_func_budget_curr_code;
5208: IF c_get_eveof_budget_amounts%NOTFOUND THEN
5209: CLOSE c_get_eveof_budget_amounts;
5210: RAISE Fnd_Api.G_EXC_ERROR;
5211: END IF;
5212: CLOSE c_get_eveof_budget_amounts;
5213: -- for event headers
5214: ELSIF p_obj_type = 'EVEH' THEN
5219: l_func_budget_amount,
5220: l_func_budget_curr_code;
5221: IF c_get_evehd_budget_amounts%NOTFOUND THEN
5222: CLOSE c_get_evehd_budget_amounts;
5223: RAISE Fnd_Api.G_EXC_ERROR;
5224: END IF;
5225: CLOSE c_get_evehd_budget_amounts;
5226: -- for deliverables
5227: ELSIF p_obj_type = 'DELV' THEN
5232: l_func_budget_amount,
5233: l_func_budget_curr_code;
5234: IF c_get_deliv_budget_amounts%NOTFOUND THEN
5235: CLOSE c_get_deliv_budget_amounts;
5236: RAISE Fnd_Api.G_EXC_ERROR;
5237: END IF;
5238: CLOSE c_get_deliv_budget_amounts;
5239:
5240: END IF; -- IF p_obj_type = 'CAMP'
5247: p_to_currency => l_trans_budget_curr_code,
5248: p_conv_date => l_current_date,
5249: p_from_amount => NVL(l_sum_func_fore_amount,0),
5250: x_to_amount => l_sum_tran_fore_amount,
5251: p_round => Fnd_Api.G_TRUE);
5252: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5255: RAISE Fnd_Api.G_EXC_ERROR;
5248: p_conv_date => l_current_date,
5249: p_from_amount => NVL(l_sum_func_fore_amount,0),
5250: x_to_amount => l_sum_tran_fore_amount,
5251: p_round => Fnd_Api.G_TRUE);
5252: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5255: RAISE Fnd_Api.G_EXC_ERROR;
5256: END IF;
5249: p_from_amount => NVL(l_sum_func_fore_amount,0),
5250: x_to_amount => l_sum_tran_fore_amount,
5251: p_round => Fnd_Api.G_TRUE);
5252: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5255: RAISE Fnd_Api.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5250: x_to_amount => l_sum_tran_fore_amount,
5251: p_round => Fnd_Api.G_TRUE);
5252: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5255: RAISE Fnd_Api.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5258:
5251: p_round => Fnd_Api.G_TRUE);
5252: IF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
5255: RAISE Fnd_Api.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5258:
5259: -- compare values in the same defualt functional currency
5263: END IF;
5264:
5265: IF x_exceeded = 'Y' THEN
5266: x_message := 'AMS_METR_EXCEED_FORECAST';
5267: END IF; -- IF x_exceeded = FND_API.G_TRUE
5268:
5269: END IF; -- IF p_category_id = 901
5270:
5271: END check_forecasted_cost;
5298: -- to a businness object.
5299: ----------------------------------------------------------------------
5300: PROCEDURE Invalidate_Rollup(
5301: p_api_version IN NUMBER,
5302: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5303: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5304:
5305: x_return_status OUT NOCOPY VARCHAR2,
5306: x_msg_count OUT NOCOPY NUMBER,
5299: ----------------------------------------------------------------------
5300: PROCEDURE Invalidate_Rollup(
5301: p_api_version IN NUMBER,
5302: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5303: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5304:
5305: x_return_status OUT NOCOPY VARCHAR2,
5306: x_msg_count OUT NOCOPY NUMBER,
5307: x_msg_data OUT NOCOPY VARCHAR2,
5347:
5348: --
5349: -- Initialize message list if p_init_msg_list is set to TRUE.
5350: --
5351: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
5352: Fnd_Msg_Pub.Initialize;
5353: END IF;
5354:
5355: --
5354:
5355: --
5356: -- Standard check for API version compatibility.
5357: --
5358: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
5359: p_api_version,
5360: L_API_NAME,
5361: G_PKG_NAME)
5362: THEN
5359: p_api_version,
5360: L_API_NAME,
5361: G_PKG_NAME)
5362: THEN
5363: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5364: END IF;
5365:
5366: --
5367: -- Initialize API return status to success.
5365:
5366: --
5367: -- Initialize API return status to success.
5368: --
5369: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5370:
5371: --
5372: -- Begin API Body
5373: --
5382: WHERE arc_act_metric_used_by = l_used_by_type
5383: AND act_metric_used_by_id = p_used_by_id
5384: AND rollup_to_metric IS NOT NULL;
5385:
5386: IF Fnd_Api.to_boolean(p_commit) THEN
5387: COMMIT;
5388: END IF;
5389:
5390: --
5393: --
5394: Fnd_Msg_Pub.Count_And_Get (
5395: p_count => x_msg_count,
5396: p_data => x_msg_data,
5397: p_encoded => Fnd_Api.G_FALSE
5398: );
5399:
5400: --
5401: -- Debug message.
5405: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
5406: END IF;
5407:
5408: EXCEPTION
5409: WHEN Fnd_Api.G_EXC_ERROR THEN
5410: ROLLBACK TO Invalidate_Rollup_pvt;
5411: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5412: Fnd_Msg_Pub.Count_And_Get (
5413: p_count => x_msg_count,
5407:
5408: EXCEPTION
5409: WHEN Fnd_Api.G_EXC_ERROR THEN
5410: ROLLBACK TO Invalidate_Rollup_pvt;
5411: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5412: Fnd_Msg_Pub.Count_And_Get (
5413: p_count => x_msg_count,
5414: p_data => x_msg_data,
5415: p_encoded => FND_API.G_FALSE
5411: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5412: Fnd_Msg_Pub.Count_And_Get (
5413: p_count => x_msg_count,
5414: p_data => x_msg_data,
5415: p_encoded => FND_API.G_FALSE
5416: );
5417: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5418: ROLLBACK TO Invalidate_Rollup_pvt;
5419: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5413: p_count => x_msg_count,
5414: p_data => x_msg_data,
5415: p_encoded => FND_API.G_FALSE
5416: );
5417: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5418: ROLLBACK TO Invalidate_Rollup_pvt;
5419: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5420: Fnd_Msg_Pub.Count_And_Get (
5421: p_count => x_msg_count,
5415: p_encoded => FND_API.G_FALSE
5416: );
5417: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5418: ROLLBACK TO Invalidate_Rollup_pvt;
5419: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5420: Fnd_Msg_Pub.Count_And_Get (
5421: p_count => x_msg_count,
5422: p_data => x_msg_data,
5423: p_encoded => FND_API.G_FALSE
5419: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5420: Fnd_Msg_Pub.Count_And_Get (
5421: p_count => x_msg_count,
5422: p_data => x_msg_data,
5423: p_encoded => FND_API.G_FALSE
5424: );
5425: WHEN OTHERS THEN
5426: ROLLBACK TO Invalidate_Rollup_pvt;
5427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5423: p_encoded => FND_API.G_FALSE
5424: );
5425: WHEN OTHERS THEN
5426: ROLLBACK TO Invalidate_Rollup_pvt;
5427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5428: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5429: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
5430: END IF;
5431: Fnd_Msg_Pub.Count_And_Get (
5430: END IF;
5431: Fnd_Msg_Pub.Count_And_Get (
5432: p_count => x_msg_count,
5433: p_data => x_msg_data,
5434: p_encoded => FND_API.G_FALSE
5435: );
5436: END Invalidate_Rollup;
5437:
5438: -- Start of comments
5450: -- End of comments
5451:
5452: PROCEDURE Post_Costs (
5453: p_api_version IN NUMBER,
5454: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5455: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5457:
5458: x_return_status OUT NOCOPY VARCHAR2,
5451:
5452: PROCEDURE Post_Costs (
5453: p_api_version IN NUMBER,
5454: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5455: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5457:
5458: x_return_status OUT NOCOPY VARCHAR2,
5459: x_msg_count OUT NOCOPY NUMBER,
5452: PROCEDURE Post_Costs (
5453: p_api_version IN NUMBER,
5454: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
5455: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
5456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
5457:
5458: x_return_status OUT NOCOPY VARCHAR2,
5459: x_msg_count OUT NOCOPY NUMBER,
5460: x_msg_data OUT NOCOPY VARCHAR2,
5506:
5507: --
5508: -- Initialize message list if p_init_msg_list is set to TRUE.
5509: --
5510: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
5511: Fnd_Msg_Pub.Initialize;
5512: END IF;
5513:
5514: --
5513:
5514: --
5515: -- Standard check for API version compatibility.
5516: --
5517: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
5518: p_api_version,
5519: L_API_NAME,
5520: G_PKG_NAME)
5521: THEN
5518: p_api_version,
5519: L_API_NAME,
5520: G_PKG_NAME)
5521: THEN
5522: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5523: END IF;
5524:
5525: --
5526: -- Initialize API return status to success.
5524:
5525: --
5526: -- Initialize API return status to success.
5527: --
5528: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5529:
5530: --
5531: -- Begin API Body
5532: --
5561: --
5562: -- End API Body
5563: --
5564:
5565: IF Fnd_Api.to_boolean(p_commit) THEN
5566: COMMIT;
5567: END IF;
5568:
5569: --
5572: --
5573: Fnd_Msg_Pub.Count_And_Get (
5574: p_count => x_msg_count,
5575: p_data => x_msg_data,
5576: p_encoded => Fnd_Api.G_FALSE
5577: );
5578:
5579: --
5580: -- Debug message.
5584: END IF;
5585:
5586:
5587: EXCEPTION
5588: WHEN Fnd_Api.G_EXC_ERROR THEN
5589: ROLLBACK TO Post_ActMetric_pvt;
5590: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5591: Fnd_Msg_Pub.Count_And_Get (
5592: p_count => x_msg_count,
5586:
5587: EXCEPTION
5588: WHEN Fnd_Api.G_EXC_ERROR THEN
5589: ROLLBACK TO Post_ActMetric_pvt;
5590: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5591: Fnd_Msg_Pub.Count_And_Get (
5592: p_count => x_msg_count,
5593: p_data => x_msg_data,
5594: p_encoded => FND_API.G_FALSE
5590: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5591: Fnd_Msg_Pub.Count_And_Get (
5592: p_count => x_msg_count,
5593: p_data => x_msg_data,
5594: p_encoded => FND_API.G_FALSE
5595: );
5596: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5597: ROLLBACK TO Post_ActMetric_pvt;
5598: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5592: p_count => x_msg_count,
5593: p_data => x_msg_data,
5594: p_encoded => FND_API.G_FALSE
5595: );
5596: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5597: ROLLBACK TO Post_ActMetric_pvt;
5598: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5599: Fnd_Msg_Pub.Count_And_Get (
5600: p_count => x_msg_count,
5594: p_encoded => FND_API.G_FALSE
5595: );
5596: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5597: ROLLBACK TO Post_ActMetric_pvt;
5598: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5599: Fnd_Msg_Pub.Count_And_Get (
5600: p_count => x_msg_count,
5601: p_data => x_msg_data,
5602: p_encoded => FND_API.G_FALSE
5598: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5599: Fnd_Msg_Pub.Count_And_Get (
5600: p_count => x_msg_count,
5601: p_data => x_msg_data,
5602: p_encoded => FND_API.G_FALSE
5603: );
5604: WHEN OTHERS THEN
5605: ROLLBACK TO Post_ActMetric_pvt;
5606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5602: p_encoded => FND_API.G_FALSE
5603: );
5604: WHEN OTHERS THEN
5605: ROLLBACK TO Post_ActMetric_pvt;
5606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5607: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5608: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
5609: END IF;
5610: Fnd_Msg_Pub.Count_And_Get (
5609: END IF;
5610: Fnd_Msg_Pub.Count_And_Get (
5611: p_count => x_msg_count,
5612: p_data => x_msg_data,
5613: p_encoded => FND_API.G_FALSE
5614: );
5615: END Post_Costs;
5616:
5617: --
5727: to_type VARCHAR2(8);
5728: l_conversion_type VARCHAR2(30); -- Currency conversion type; see API documention for details.
5729: BEGIN
5730: -- Initialize return status.
5731: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5732:
5733: -- Get the currency conversion type from profile option
5734: l_conversion_type := Fnd_Profile.Value (L_CONVERSION_TYPE_PROFILE);
5735:
5737: IF ( p_from_currency = p_to_currency ) THEN
5738: -- l_denominator := 1;
5739: -- l_numerator := 1;
5740: -- l_rate := 1;
5741: IF p_round = Fnd_Api.G_TRUE THEN
5742: get_info( p_to_currency, to_mau, to_xau );
5743: IF p_from_amount IS NOT NULL THEN
5744: x_to_amount := ROUND( p_from_amount / to_mau ) * to_mau;
5745: END IF;
5773: -- Calculate the converted amount using triangulation method
5774: x_to_amount := ( p_from_amount / l_denominator ) * l_numerator;
5775: x_to_amount2 := ( p_from_amount2 / l_denominator ) * l_numerator;
5776:
5777: IF p_round = Fnd_Api.G_TRUE THEN
5778: -- Rounding to the correct precision and minumum accountable units
5779: x_to_amount := ROUND( x_to_amount / to_mau ) * to_mau;
5780: x_to_amount2 := ROUND( x_to_amount2 / to_mau ) * to_mau;
5781: END IF;
5787: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5788: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5789: Fnd_Msg_Pub.ADD;
5790: END IF;
5791: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5792: WHEN Gl_Currency_Api.INVALID_CURRENCY THEN
5793: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5794: Fnd_Message.Set_Name ('AMS', 'AMS_INVALID_CURR');
5795: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5795: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5796: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5797: Fnd_Msg_Pub.ADD;
5798: END IF;
5799: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5800: END Convert_Currency2;
5801:
5802: ---------------------------------------------------------------------
5803: -- PROCEDURE
5835: l_conversion_type VARCHAR2(30); -- Currency conversion type; see API documention for details.
5836: l_index NUMBER;
5837: BEGIN
5838: -- Initialize return status.
5839: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5840:
5841: -- Get the currency conversion type from profile option
5842: l_conversion_type := Fnd_Profile.Value (L_CONVERSION_TYPE_PROFILE);
5843:
5864: LOOP
5865: EXIT WHEN l_index IS NULL;
5866: IF p_amounts.EXISTS(l_index) AND p_amounts(l_index) IS NOT NULL THEN
5867: p_amounts(l_index) := ( p_amounts(l_index) / l_denominator ) * l_numerator;
5868: IF p_round = Fnd_Api.G_TRUE THEN
5869: p_amounts(l_index) := ROUND( p_amounts(l_index) / to_mau ) * to_mau;
5870: END IF;
5871: END IF;
5872: l_index := p_amounts.NEXT(l_index);
5879: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5880: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5881: Fnd_Msg_Pub.ADD;
5882: END IF;
5883: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5884: WHEN Gl_Currency_Api.INVALID_CURRENCY THEN
5885: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
5886: Fnd_Message.Set_Name ('AMS', 'AMS_INVALID_CURR');
5887: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5887: Fnd_Message.Set_Token ('CURRENCY_FROM', p_from_currency);
5888: Fnd_Message.Set_Token ('CURRENCY_TO', p_to_currency);
5889: Fnd_Msg_Pub.ADD;
5890: END IF;
5891: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5892: END Convert_Currency_Vector;
5893:
5894: ---------------------------------------------------------------------
5895: -- PROCEDURE
5961: p_from_currency => l_func_curr_code,
5962: p_to_currency => l_trans_curr_code,
5963: p_from_amount => NVL(p_func_value,0),
5964: x_to_amount => l_return_value,
5965: p_round => Fnd_Api.G_TRUE
5966: );
5967: ELSE
5968: l_return_value := p_func_value;
5969: END IF;
6110: l_func_forecasted_value NUMBER;
6111: l_func_actual_value NUMBER;
6112: l_functional_currency_code VARCHAR2(15);
6113: l_last_update_date DATE;
6114: l_new_record CHAR(1) := FND_API.G_FALSE;
6115: l_act_met_hst_id NUMBER;
6116: l_history_id_count NUMBER;
6117: l_object_version_number NUMBER;
6118: l_func_forecasted_delta NUMBER;
6124:
6125: --
6126: -- Initialize API return status to success.
6127: --
6128: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6129:
6130: OPEN c_actmet_details(p_actmet_id);
6131: FETCH c_actmet_details INTO l_actmet_rec;
6132: IF c_actmet_details%NOTFOUND THEN
6130: OPEN c_actmet_details(p_actmet_id);
6131: FETCH c_actmet_details INTO l_actmet_rec;
6132: IF c_actmet_details%NOTFOUND THEN
6133: CLOSE c_actmet_details;
6134: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6135: END IF;
6136: CLOSE c_actmet_details;
6137:
6138: -- BUG2813600: Delete history, set to current date and zero.
6150: END IF;
6151: -- BUG2813600: end.
6152:
6153: IF p_action = G_CREATE THEN
6154: l_new_record := FND_API.G_TRUE;
6155: l_func_forecasted_delta := NVL(l_actmet_rec.func_forecasted_value,0);
6156: l_func_actual_delta := NVL(l_actmet_rec.func_actual_value,0);
6157: ELSE
6158: OPEN c_get_history_by_id(p_actmet_id);
6165: l_object_version_number,
6166: l_func_forecasted_delta,
6167: l_func_actual_delta;
6168: IF c_get_history_by_id%NOTFOUND THEN
6169: l_new_record := FND_API.G_TRUE;
6170: END IF;
6171: CLOSE c_get_history_by_id;
6172: END IF;
6173:
6171: CLOSE c_get_history_by_id;
6172: END IF;
6173:
6174: -- Validate a change since the last fact.
6175: IF l_new_record = FND_API.G_FALSE AND
6176: (p_action = G_DELETE OR
6177: NVL(l_func_forecasted_value,0) <>
6178: NVL(l_actmet_rec.func_forecasted_value,0) OR
6179: NVL(l_func_actual_value,0) <> NVL(l_actmet_rec.func_actual_value,0) OR
6275: WHERE act_met_hst_id = l_act_met_hst_id
6276: AND object_version_number = l_object_version_number;
6277: ELSE
6278: -- Values have not changed since yesterday, insert for today.
6279: l_new_record := FND_API.G_TRUE;
6280: END IF;
6281: END IF;
6282:
6283: IF l_new_record = FND_API.G_TRUE THEN
6279: l_new_record := FND_API.G_TRUE;
6280: END IF;
6281: END IF;
6282:
6283: IF l_new_record = FND_API.G_TRUE THEN
6284: -- Generate a new fact id.
6285: LOOP
6286: OPEN c_get_new_history_id;
6287: FETCH c_get_new_history_id INTO l_act_met_hst_id;
6469: );
6470: END IF;
6471:
6472: EXCEPTION
6473: WHEN Fnd_Api.G_EXC_ERROR THEN
6474: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6475: Fnd_Msg_Pub.Count_And_Get (
6476: p_count => x_msg_count,
6477: p_data => x_msg_data,
6470: END IF;
6471:
6472: EXCEPTION
6473: WHEN Fnd_Api.G_EXC_ERROR THEN
6474: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6475: Fnd_Msg_Pub.Count_And_Get (
6476: p_count => x_msg_count,
6477: p_data => x_msg_data,
6478: p_encoded => FND_API.G_FALSE
6474: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6475: Fnd_Msg_Pub.Count_And_Get (
6476: p_count => x_msg_count,
6477: p_data => x_msg_data,
6478: p_encoded => FND_API.G_FALSE
6479: );
6480: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6481: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6482: Fnd_Msg_Pub.Count_And_Get (
6476: p_count => x_msg_count,
6477: p_data => x_msg_data,
6478: p_encoded => FND_API.G_FALSE
6479: );
6480: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6481: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6482: Fnd_Msg_Pub.Count_And_Get (
6483: p_count => x_msg_count,
6484: p_data => x_msg_data,
6477: p_data => x_msg_data,
6478: p_encoded => FND_API.G_FALSE
6479: );
6480: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6481: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6482: Fnd_Msg_Pub.Count_And_Get (
6483: p_count => x_msg_count,
6484: p_data => x_msg_data,
6485: p_encoded => FND_API.G_FALSE
6481: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6482: Fnd_Msg_Pub.Count_And_Get (
6483: p_count => x_msg_count,
6484: p_data => x_msg_data,
6485: p_encoded => FND_API.G_FALSE
6486: );
6487: WHEN OTHERS THEN
6488: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6489: error_message := SQLERRM;
6484: p_data => x_msg_data,
6485: p_encoded => FND_API.G_FALSE
6486: );
6487: WHEN OTHERS THEN
6488: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6489: error_message := SQLERRM;
6490: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6491: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
6492: END IF;
6492: END IF;
6493: Fnd_Msg_Pub.Count_And_Get (
6494: p_count => x_msg_count,
6495: p_data => x_msg_data,
6496: p_encoded => FND_API.G_FALSE
6497: );
6498: END Record_History;
6499:
6500: -- API Name Get_Date_Buckets
6534: BEGIN
6535: --
6536: -- Initialize API return status to success.
6537: --
6538: x_return_status := FND_API.G_RET_STS_SUCCESS;
6539:
6540: -- BUG 3815334: Use profile for max buckets.
6541: -- This is the same profile that DCF uses for report page length.
6542: l_max_bucket_count :=
6547: OR p_interval_amount IS NULL
6548: OR p_interval_amount < 0
6549: OR p_interval_unit IS NULL
6550: OR p_interval_unit NOT IN ('DAY', 'WEEK', 'MONTH', 'YEAR') THEN
6551: x_return_status := FND_API.G_RET_STS_ERROR;
6552: RETURN;
6553: END IF;
6554:
6555: -- Initialize first date bucket to the prior period for incrementals.
6602: -- 01-JAN-2006 dmvincen BUG4669529: Calculate first incremental value.
6603: ---------------------------------------------------------------------
6604: PROCEDURE GET_RESULTS(
6605: p_api_version IN NUMBER,
6606: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
6607: x_return_status OUT NOCOPY VARCHAR2,
6608: x_msg_count OUT NOCOPY NUMBER,
6609: x_msg_data OUT NOCOPY VARCHAR2,
6610:
6702:
6703: --
6704: -- Initialize message list if p_init_msg_list is set to TRUE.
6705: --
6706: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
6707: Fnd_Msg_Pub.Initialize;
6708: END IF;
6709:
6710: --
6709:
6710: --
6711: -- Standard check for API version compatibility.
6712: --
6713: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
6714: p_api_version,
6715: L_API_NAME,
6716: G_PKG_NAME)
6717: THEN
6714: p_api_version,
6715: L_API_NAME,
6716: G_PKG_NAME)
6717: THEN
6718: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6719: END IF;
6720:
6721: --
6722: -- Initialize API return status to success.
6720:
6721: --
6722: -- Initialize API return status to success.
6723: --
6724: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6725:
6726: --
6727: -- Begin API Body
6728: --
6735: OPEN c_metric_details(p_metric_id);
6736: FETCH c_metric_details INTO l_metric_details;
6737: IF c_metric_details%NOTFOUND THEN
6738: CLOSE c_metric_details;
6739: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6740: RAISE Fnd_Api.G_EXC_ERROR;
6741: END IF;
6742: CLOSE c_metric_details;
6743:
6736: FETCH c_metric_details INTO l_metric_details;
6737: IF c_metric_details%NOTFOUND THEN
6738: CLOSE c_metric_details;
6739: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6740: RAISE Fnd_Api.G_EXC_ERROR;
6741: END IF;
6742: CLOSE c_metric_details;
6743:
6744: OPEN c_get_hist_details(p_metric_id, p_object_type, p_object_id);
6744: OPEN c_get_hist_details(p_metric_id, p_object_type, p_object_id);
6745: FETCH c_get_hist_details INTO l_start_date;
6746: IF c_get_hist_details%NOTFOUND OR l_start_date IS NULL THEN
6747: CLOSE c_get_hist_details;
6748: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6749: RAISE Fnd_Api.G_EXC_ERROR;
6750: END IF;
6751: CLOSE c_get_hist_details;
6752:
6745: FETCH c_get_hist_details INTO l_start_date;
6746: IF c_get_hist_details%NOTFOUND OR l_start_date IS NULL THEN
6747: CLOSE c_get_hist_details;
6748: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6749: RAISE Fnd_Api.G_EXC_ERROR;
6750: END IF;
6751: CLOSE c_get_hist_details;
6752:
6753: IF TRUNC(p_from_date) > TRUNC(l_start_date) THEN
6775: p_interval_unit => p_interval_unit, -- 'DAY', 'WK', 'MTH', 'YR'
6776: x_date_buckets => l_date_buckets,
6777: x_return_status => x_return_status
6778: );
6779: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
6780: RETURN;
6781: END IF;
6782:
6783: l_result_table := result_table();
6818: p_from_amount => NVL(l_result_record.forecasted_value,0),
6819: x_to_amount => l_result_record.forecasted_value,
6820: p_from_amount2 => NVL(l_result_record.actual_value,0),
6821: x_to_amount2 => l_result_record.actual_value,
6822: p_round => Fnd_Api.G_TRUE
6823: );
6824: l_result_record.currency_code := l_trans_currency_code;
6825: END IF;
6826: l_result_table(l_result_index).forecasted_value :=
6848: p_from_amount => NVL(l_result_record.forecasted_value,0),
6849: x_to_amount => l_result_record.forecasted_value,
6850: p_from_amount2 => NVL(l_result_record.actual_value,0),
6851: x_to_amount2 => l_result_record.actual_value,
6852: p_round => Fnd_Api.G_TRUE
6853: );
6854: l_result_record.currency_code := l_trans_currency_code;
6855: END IF;
6856: l_result_table(l_result_index) := l_result_record;
6898: --
6899: Fnd_Msg_Pub.Count_And_Get (
6900: p_count => x_msg_count,
6901: p_data => x_msg_data,
6902: p_encoded => Fnd_Api.G_FALSE
6903: );
6904:
6905: --
6906: -- Debug message.
6909: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
6910: END IF;
6911:
6912: EXCEPTION
6913: WHEN Fnd_Api.G_EXC_ERROR THEN
6914: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6915: Fnd_Msg_Pub.Count_And_Get (
6916: p_count => x_msg_count,
6917: p_data => x_msg_data,
6910: END IF;
6911:
6912: EXCEPTION
6913: WHEN Fnd_Api.G_EXC_ERROR THEN
6914: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6915: Fnd_Msg_Pub.Count_And_Get (
6916: p_count => x_msg_count,
6917: p_data => x_msg_data,
6918: p_encoded => FND_API.G_FALSE
6914: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6915: Fnd_Msg_Pub.Count_And_Get (
6916: p_count => x_msg_count,
6917: p_data => x_msg_data,
6918: p_encoded => FND_API.G_FALSE
6919: );
6920: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6921: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6922: Fnd_Msg_Pub.Count_And_Get (
6916: p_count => x_msg_count,
6917: p_data => x_msg_data,
6918: p_encoded => FND_API.G_FALSE
6919: );
6920: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6921: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6922: Fnd_Msg_Pub.Count_And_Get (
6923: p_count => x_msg_count,
6924: p_data => x_msg_data,
6917: p_data => x_msg_data,
6918: p_encoded => FND_API.G_FALSE
6919: );
6920: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6921: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6922: Fnd_Msg_Pub.Count_And_Get (
6923: p_count => x_msg_count,
6924: p_data => x_msg_data,
6925: p_encoded => FND_API.G_FALSE
6921: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6922: Fnd_Msg_Pub.Count_And_Get (
6923: p_count => x_msg_count,
6924: p_data => x_msg_data,
6925: p_encoded => FND_API.G_FALSE
6926: );
6927: WHEN OTHERS THEN
6928: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6929: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6924: p_data => x_msg_data,
6925: p_encoded => FND_API.G_FALSE
6926: );
6927: WHEN OTHERS THEN
6928: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6929: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
6930: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
6931: END IF;
6932: Fnd_Msg_Pub.Count_And_Get (
6931: END IF;
6932: Fnd_Msg_Pub.Count_And_Get (
6933: p_count => x_msg_count,
6934: p_data => x_msg_data,
6935: p_encoded => FND_API.G_FALSE
6936: );
6937: END get_results;
6938:
6939: --======================================================================
6947: -- 13-may-2003 sunkumar created
6948: --======================================================================
6949: procedure copy_act_metrics (
6950: p_api_version IN NUMBER,
6951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6952: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
6953: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
6954: p_source_object_type IN VARCHAR2,
6955: p_source_object_id IN NUMBER,
6948: --======================================================================
6949: procedure copy_act_metrics (
6950: p_api_version IN NUMBER,
6951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6952: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
6953: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
6954: p_source_object_type IN VARCHAR2,
6955: p_source_object_id IN NUMBER,
6956: p_target_object_id IN NUMBER,
6949: procedure copy_act_metrics (
6950: p_api_version IN NUMBER,
6951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6952: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
6953: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
6954: p_source_object_type IN VARCHAR2,
6955: p_source_object_id IN NUMBER,
6956: p_target_object_id IN NUMBER,
6957: x_return_status OUT NOCOPY VARCHAR2,
6963: L_API_VERSION CONSTANT NUMBER := 1.0;
6964: L_API_NAME CONSTANT VARCHAR2(30) := 'COPY_ACT_METRICS';
6965: L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
6966:
6967: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6968:
6969: l_source_object_type VARCHAR2(30) := p_source_object_type;
6970: l_source_object_id NUMBER := p_source_object_id;
6971: l_target_object_id NUMBER := p_target_object_id;
7087: Ams_Utility_Pvt.Debug_Message(l_full_name||': start');
7088: END IF;
7089:
7090: -- Initialize message list if p_init_msg_list is set to TRUE.
7091: IF FND_API.To_Boolean (p_init_msg_list) THEN
7092: FND_MSG_PUB.Initialize;
7093: END IF;
7094:
7095: -- Standard check for API version compatibility.
7092: FND_MSG_PUB.Initialize;
7093: END IF;
7094:
7095: -- Standard check for API version compatibility.
7096: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
7097: p_api_version,
7098: L_API_NAME,
7099: G_PKG_NAME)
7100: THEN
7097: p_api_version,
7098: L_API_NAME,
7099: G_PKG_NAME)
7100: THEN
7101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7102: END IF;
7103:
7104: -- Initialize API return status to success.
7105: x_return_status := FND_API.G_RET_STS_SUCCESS;
7101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7102: END IF;
7103:
7104: -- Initialize API return status to success.
7105: x_return_status := FND_API.G_RET_STS_SUCCESS;
7106:
7107: validate_objects(
7108: p_api_version => p_api_version,
7109: p_init_msg_list => p_init_msg_list,
7116: x_msg_count => x_msg_count,
7117: x_msg_data => x_msg_data
7118: );
7119:
7120: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
7121: RAISE Fnd_Api.G_EXC_ERROR;
7122:
7123: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
7124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7117: x_msg_data => x_msg_data
7118: );
7119:
7120: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
7121: RAISE Fnd_Api.G_EXC_ERROR;
7122:
7123: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
7124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7125: END IF;
7119:
7120: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
7121: RAISE Fnd_Api.G_EXC_ERROR;
7122:
7123: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
7124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7125: END IF;
7126:
7127: open c_act_met_details(l_source_object_type,l_source_object_id);
7120: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
7121: RAISE Fnd_Api.G_EXC_ERROR;
7122:
7123: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
7124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7125: END IF;
7126:
7127: open c_act_met_details(l_source_object_type,l_source_object_id);
7128: LOOP
7184: p_act_metric_rec => metrics_rec,
7185: x_activity_metric_id => x_activity_metric_id);
7186:
7187: -- If any errors happen abort API.
7188: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7189: RAISE Fnd_Api.G_EXC_ERROR;
7190: END IF;
7191: END IF; --if activity metric exist for target.
7192:
7185: x_activity_metric_id => x_activity_metric_id);
7186:
7187: -- If any errors happen abort API.
7188: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7189: RAISE Fnd_Api.G_EXC_ERROR;
7190: END IF;
7191: END IF; --if activity metric exist for target.
7192:
7193: END LOOP;
7195:
7196: -- End API Body.
7197:
7198: -- Standard check for commit request.
7199: IF FND_API.To_Boolean (p_commit) THEN
7200: COMMIT;
7201: END IF;
7202:
7203: Fnd_Msg_Pub.Count_And_Get (
7202:
7203: Fnd_Msg_Pub.Count_And_Get (
7204: p_count => x_msg_count,
7205: p_data => x_msg_data,
7206: p_encoded => Fnd_Api.G_FALSE
7207: );
7208:
7209: --
7210: -- Debug message.
7213: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
7214: END IF;
7215:
7216: EXCEPTION
7217: WHEN FND_API.G_EXC_ERROR THEN
7218: ROLLBACK TO Copy_Metric_pvt;
7219: x_return_status := FND_API.G_RET_STS_ERROR;
7220: FND_MSG_PUB.Count_And_Get (
7221: p_encoded => FND_API.g_false,
7215:
7216: EXCEPTION
7217: WHEN FND_API.G_EXC_ERROR THEN
7218: ROLLBACK TO Copy_Metric_pvt;
7219: x_return_status := FND_API.G_RET_STS_ERROR;
7220: FND_MSG_PUB.Count_And_Get (
7221: p_encoded => FND_API.g_false,
7222: p_count => x_msg_count,
7223: p_data => x_msg_data
7217: WHEN FND_API.G_EXC_ERROR THEN
7218: ROLLBACK TO Copy_Metric_pvt;
7219: x_return_status := FND_API.G_RET_STS_ERROR;
7220: FND_MSG_PUB.Count_And_Get (
7221: p_encoded => FND_API.g_false,
7222: p_count => x_msg_count,
7223: p_data => x_msg_data
7224: );
7225:
7222: p_count => x_msg_count,
7223: p_data => x_msg_data
7224: );
7225:
7226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7227: ROLLBACK TO Copy_Metric_pvt;
7228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7229: FND_MSG_PUB.Count_And_Get (
7230: p_encoded => FND_API.g_false,
7224: );
7225:
7226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7227: ROLLBACK TO Copy_Metric_pvt;
7228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7229: FND_MSG_PUB.Count_And_Get (
7230: p_encoded => FND_API.g_false,
7231: p_count => x_msg_count,
7232: p_data => x_msg_data
7226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7227: ROLLBACK TO Copy_Metric_pvt;
7228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7229: FND_MSG_PUB.Count_And_Get (
7230: p_encoded => FND_API.g_false,
7231: p_count => x_msg_count,
7232: p_data => x_msg_data
7233: );
7234:
7233: );
7234:
7235: WHEN OTHERS THEN
7236: ROLLBACK TO Copy_Metric_pvt;
7237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7238: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7239: THEN
7240: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
7241: END IF;
7240: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
7241: END IF;
7242:
7243: FND_MSG_PUB.Count_And_Get (
7244: p_encoded => FND_API.g_false,
7245: p_count => x_msg_count,
7246: p_data => x_msg_data
7247: );
7248:
7260: --======================================================================
7261:
7262: PROCEDURE validate_objects(
7263: p_api_version IN NUMBER,
7264: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7265: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
7266: p_source_object_type IN VARCHAR2,
7267: p_source_object_id IN NUMBER,
7268: p_target_object_id IN NUMBER,
7261:
7262: PROCEDURE validate_objects(
7263: p_api_version IN NUMBER,
7264: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7265: p_validation_level IN NUMBER := Fnd_Api.G_Valid_Level_Full,
7266: p_source_object_type IN VARCHAR2,
7267: p_source_object_id IN NUMBER,
7268: p_target_object_id IN NUMBER,
7269: x_return_status OUT NOCOPY VARCHAR2,
7275: L_API_VERSION CONSTANT NUMBER := 1.0;
7276: L_API_NAME CONSTANT VARCHAR2(30) := 'VALIDATE_OBJECTS';
7277: L_FULL_NAME CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
7278:
7279: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
7280: l_source_object_type VARCHAR2(30) := p_source_object_type;
7281: l_source_object_id NUMBER := p_source_object_id;
7282: l_target_object_id NUMBER := p_target_object_id;
7283:
7280: l_source_object_type VARCHAR2(30) := p_source_object_type;
7281: l_source_object_id NUMBER := p_source_object_id;
7282: l_target_object_id NUMBER := p_target_object_id;
7283:
7284: l_source_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7285: l_target_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7286: l_valid_object VARCHAR2(1) := Fnd_Api.G_FALSE;
7287:
7288: l_object_name AMS_LOOKUPS.MEANING%TYPE;
7281: l_source_object_id NUMBER := p_source_object_id;
7282: l_target_object_id NUMBER := p_target_object_id;
7283:
7284: l_source_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7285: l_target_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7286: l_valid_object VARCHAR2(1) := Fnd_Api.G_FALSE;
7287:
7288: l_object_name AMS_LOOKUPS.MEANING%TYPE;
7289: --cursors to check for existance of various objects.
7282: l_target_object_id NUMBER := p_target_object_id;
7283:
7284: l_source_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7285: l_target_object_exists VARCHAR2(1) := Fnd_Api.G_FALSE;
7286: l_valid_object VARCHAR2(1) := Fnd_Api.G_FALSE;
7287:
7288: l_object_name AMS_LOOKUPS.MEANING%TYPE;
7289: --cursors to check for existance of various objects.
7290: CURSOR c_check_camp(id NUMBER) IS
7287:
7288: l_object_name AMS_LOOKUPS.MEANING%TYPE;
7289: --cursors to check for existance of various objects.
7290: CURSOR c_check_camp(id NUMBER) IS
7291: SELECT Fnd_Api.G_TRUE
7292: FROM ams_campaigns_all_b
7293: WHERE campaign_id = id;
7294:
7295: CURSOR c_check_csch(id NUMBER) IS
7292: FROM ams_campaigns_all_b
7293: WHERE campaign_id = id;
7294:
7295: CURSOR c_check_csch(id NUMBER) IS
7296: SELECT Fnd_Api.G_TRUE
7297: FROM ams_campaign_schedules_b
7298: WHERE schedule_id = id;
7299:
7300: CURSOR c_check_delv(id NUMBER) IS
7297: FROM ams_campaign_schedules_b
7298: WHERE schedule_id = id;
7299:
7300: CURSOR c_check_delv(id NUMBER) IS
7301: SELECT Fnd_Api.G_TRUE
7302: FROM ams_deliverables_all_b
7303: WHERE deliverable_id = id;
7304:
7305: CURSOR c_check_eveh(id NUMBER) IS
7302: FROM ams_deliverables_all_b
7303: WHERE deliverable_id = id;
7304:
7305: CURSOR c_check_eveh(id NUMBER) IS
7306: SELECT Fnd_Api.G_TRUE
7307: FROM ams_event_headers_all_b
7308: WHERE event_header_id = id;
7309:
7310: CURSOR c_check_eveo(id NUMBER) IS
7307: FROM ams_event_headers_all_b
7308: WHERE event_header_id = id;
7309:
7310: CURSOR c_check_eveo(id NUMBER) IS
7311: SELECT Fnd_Api.G_TRUE
7312: FROM ams_event_offers_all_b
7313: WHERE event_offer_id = id;
7314:
7315: BEGIN
7319: Ams_Utility_Pvt.debug_message(l_full_name||': start');
7320: END IF;
7321:
7322: -- Initialize message list if p_init_msg_list is set to TRUE.
7323: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
7324: Fnd_Msg_Pub.Initialize;
7325: END IF;
7326:
7327: -- Standard check for API version compatibility.
7324: Fnd_Msg_Pub.Initialize;
7325: END IF;
7326:
7327: -- Standard check for API version compatibility.
7328: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
7329: p_api_version,
7330: L_API_NAME,
7331: G_PKG_NAME)
7332: THEN
7329: p_api_version,
7330: L_API_NAME,
7331: G_PKG_NAME)
7332: THEN
7333: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7334: END IF;
7335:
7336: -- Initialize API return status to success.
7337: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7333: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7334: END IF;
7335:
7336: -- Initialize API return status to success.
7337: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7338:
7339: -- Begin API Body.
7340: IF (AMS_DEBUG_HIGH_ON) THEN
7341: Ams_Utility_Pvt.debug_message(l_full_name||': Validate items');
7345: IF (l_source_object_type IN ('RCAM', 'CAMP')) THEN
7346: OPEN c_check_camp(l_source_object_id);
7347: FETCH c_check_camp INTO l_source_object_exists;
7348: CLOSE c_check_camp;
7349: l_valid_object := Fnd_Api.G_TRUE;
7350:
7351: ELSIF (l_source_object_type = 'CSCH') THEN
7352: OPEN c_check_csch(l_source_object_id);
7353: FETCH c_check_csch INTO l_source_object_exists;
7351: ELSIF (l_source_object_type = 'CSCH') THEN
7352: OPEN c_check_csch(l_source_object_id);
7353: FETCH c_check_csch INTO l_source_object_exists;
7354: CLOSE c_check_csch;
7355: l_valid_object := Fnd_Api.G_TRUE;
7356:
7357: ELSIF (l_source_object_type = 'DELV') THEN
7358: OPEN c_check_delv(l_source_object_id);
7359: FETCH c_check_delv INTO l_source_object_exists;
7357: ELSIF (l_source_object_type = 'DELV') THEN
7358: OPEN c_check_delv(l_source_object_id);
7359: FETCH c_check_delv INTO l_source_object_exists;
7360: CLOSE c_check_delv;
7361: l_valid_object := Fnd_Api.G_TRUE;
7362:
7363: ELSIF (l_source_object_type = 'EVEH') THEN
7364: OPEN c_check_eveh(l_source_object_id);
7365: FETCH c_check_eveh INTO l_source_object_exists;
7363: ELSIF (l_source_object_type = 'EVEH') THEN
7364: OPEN c_check_eveh(l_source_object_id);
7365: FETCH c_check_eveh INTO l_source_object_exists;
7366: CLOSE c_check_eveh;
7367: l_valid_object := Fnd_Api.G_TRUE;
7368:
7369: ELSIF (l_source_object_type IN ('EONE' , 'EVEO')) THEN
7370: OPEN c_check_eveo(l_source_object_id);
7371: FETCH c_check_eveo INTO l_source_object_exists;
7369: ELSIF (l_source_object_type IN ('EONE' , 'EVEO')) THEN
7370: OPEN c_check_eveo(l_source_object_id);
7371: FETCH c_check_eveo INTO l_source_object_exists;
7372: CLOSE c_check_eveo;
7373: l_valid_object := Fnd_Api.G_TRUE;
7374:
7375: END IF;
7376:
7377: l_object_name := ams_utility_pvt.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', l_source_object_type);
7376:
7377: l_object_name := ams_utility_pvt.get_lookup_meaning('AMS_SYS_ARC_QUALIFIER', l_source_object_type);
7378:
7379: --the object type passed is not a valid one for metrics.
7380: IF (l_valid_object = Fnd_Api.G_FALSE) THEN
7381: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
7382: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_OBJECTS');
7383: Fnd_Msg_Pub.ADD;
7384: END IF;
7381: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
7382: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_OBJECTS');
7383: Fnd_Msg_Pub.ADD;
7384: END IF;
7385: l_return_status := Fnd_Api.G_RET_STS_ERROR;
7386:
7387: END IF;
7388:
7389: --check if source object was not found
7386:
7387: END IF;
7388:
7389: --check if source object was not found
7390: IF (l_source_object_exists = Fnd_Api.G_FALSE) THEN
7391: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
7392: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_SOURCE');
7393: Fnd_Message.set_token('OBJECT', l_object_name);
7394: Fnd_Msg_Pub.ADD;
7392: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_SOURCE');
7393: Fnd_Message.set_token('OBJECT', l_object_name);
7394: Fnd_Msg_Pub.ADD;
7395: END IF;
7396: l_return_status := Fnd_Api.G_RET_STS_ERROR;
7397: END IF;
7398:
7399: --check target object exists
7400: IF (l_source_object_type IN ('RCAM', 'CAMP')) THEN
7424:
7425: END IF;
7426:
7427: --check if target object was not found
7428: IF (l_target_object_exists = Fnd_Api.G_FALSE) THEN
7429: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
7430: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_TARGET');
7431: Fnd_Message.set_token('OBJECT', l_object_name);
7432: Fnd_Msg_Pub.ADD;
7430: Fnd_Message.Set_Name('AMS', 'AMS_COPY_INVALID_TARGET');
7431: Fnd_Message.set_token('OBJECT', l_object_name);
7432: Fnd_Msg_Pub.ADD;
7433: END IF;
7434: l_return_status := Fnd_Api.G_RET_STS_ERROR;
7435:
7436: END IF;
7437:
7438: -- End API Body.
7441: -- set the message data OUT variable.
7442: FND_MSG_PUB.Count_And_Get (
7443: p_count => x_msg_count,
7444: p_data => x_msg_data,
7445: p_encoded => FND_API.G_FALSE
7446: );
7447:
7448: -- Add success message to message list.
7449: IF (AMS_DEBUG_HIGH_ON) THEN
7465: --
7466: --======================================================================
7467: FUNCTION Lock_Object(
7468: p_api_version IN NUMBER,
7469: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7470: p_arc_act_metric_used_by IN VARCHAR2,
7471: p_act_metric_used_by_id IN NUMBER,
7472: x_return_status OUT NOCOPY VARCHAR2,
7473: x_msg_count OUT NOCOPY NUMBER,
7487: BEGIN
7488: --
7489: -- Initialize message list if p_init_msg_list is set to TRUE.
7490: --
7491: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
7492: Fnd_Msg_Pub.Initialize;
7493: END IF;
7494:
7495: --
7494:
7495: --
7496: -- Standard check for API version compatibility.
7497: --
7498: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
7499: p_api_version,
7500: L_API_NAME,
7501: G_PKG_NAME)
7502: THEN
7499: p_api_version,
7500: L_API_NAME,
7501: G_PKG_NAME)
7502: THEN
7503: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7504: END IF;
7505:
7506: --
7507: -- Initialize API return status to success.
7505:
7506: --
7507: -- Initialize API return status to success.
7508: --
7509: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7510: IF (p_arc_act_metric_used_by ='CSCH') THEN
7511: l_table_name := 'AMS_CAMPAIGN_SCHEDULES_B';
7512: l_pk_name := 'SCHEDULE_ID';
7513: ELSIF (p_arc_act_metric_used_by ='CAMP') THEN
7532: l_table_name := 'AMS_ACT_LISTS';
7533: l_pk_name := 'ACT_LIST_HEADER_ID';
7534: ELSE
7535: AMS_Utility_PVT.error_message ('AMS_INVALID_SYS_QUAL', 'SYS_QUALIFIER', p_arc_act_metric_used_by);
7536: x_return_status := FND_API.g_ret_sts_unexp_error;
7537: l_table_name := NULL;
7538: l_pk_name := NULL;
7539: END IF;
7540:
7538: l_pk_name := NULL;
7539: END IF;
7540:
7541: l_count := 0;
7542: if x_return_status = Fnd_Api.G_RET_STS_SUCCESS then
7543: l_sql := 'UPDATE ' || UPPER(l_table_name) ||
7544: ' SET object_version_number = object_version_number '||
7545: ' WHERE ' || UPPER(l_pk_name) || ' = :b1 ';
7546:
7567: l_count := 0;
7568: END;
7569:
7570: IF l_count = 0 THEN
7571: RETURN FND_API.g_false;
7572: ELSE
7573: RETURN FND_API.g_true;
7574: END IF;
7575:
7569:
7570: IF l_count = 0 THEN
7571: RETURN FND_API.g_false;
7572: ELSE
7573: RETURN FND_API.g_true;
7574: END IF;
7575:
7576: END Lock_Object;
7577:
7589: -- 30-Jan-2004 choang Created.
7590: --
7591: PROCEDURE delete_actmetrics_assoc (
7592: p_api_version IN NUMBER,
7593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7594: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7595: p_object_type IN VARCHAR2,
7596: p_object_id IN NUMBER,
7597: x_return_status OUT NOCOPY VARCHAR2,
7590: --
7591: PROCEDURE delete_actmetrics_assoc (
7592: p_api_version IN NUMBER,
7593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7594: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7595: p_object_type IN VARCHAR2,
7596: p_object_id IN NUMBER,
7597: x_return_status OUT NOCOPY VARCHAR2,
7598: x_msg_count OUT NOCOPY NUMBER,
7606:
7607: --
7608: -- Initialize message list if p_init_msg_list is set to TRUE.
7609: --
7610: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
7611: Fnd_Msg_Pub.Initialize;
7612: END IF;
7613:
7614: --
7613:
7614: --
7615: -- Standard check for API version compatibility.
7616: --
7617: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
7618: p_api_version,
7619: L_API_NAME,
7620: G_PKG_NAME)
7621: THEN
7618: p_api_version,
7619: L_API_NAME,
7620: G_PKG_NAME)
7621: THEN
7622: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7623: END IF;
7624:
7625: --
7626: -- Initialize API return status to success.
7624:
7625: --
7626: -- Initialize API return status to success.
7627: --
7628: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7629:
7630: DELETE FROM ams_act_metrics_all
7631: WHERE arc_act_metric_used_by = p_object_type
7632: AND act_metric_used_by_id = p_object_id;
7630: DELETE FROM ams_act_metrics_all
7631: WHERE arc_act_metric_used_by = p_object_type
7632: AND act_metric_used_by_id = p_object_id;
7633:
7634: IF p_commit = FND_API.G_TRUE THEN
7635: COMMIT;
7636: END IF;
7637: EXCEPTION
7638: WHEN OTHERS THEN
7636: END IF;
7637: EXCEPTION
7638: WHEN OTHERS THEN
7639: ROLLBACK TO delete_actmetrics_assoc;
7640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7642: THEN
7643: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
7644: END IF;
7643: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
7644: END IF;
7645:
7646: FND_MSG_PUB.Count_And_Get (
7647: p_encoded => FND_API.g_false,
7648: p_count => x_msg_count,
7649: p_data => x_msg_data
7650: );
7651: END delete_actmetrics_assoc;
7783:
7784: END IF;
7785:
7786: IF l_count = 0 THEN
7787: RETURN FND_API.g_false;
7788: ELSE
7789: RETURN FND_API.g_true;
7790: END IF;
7791:
7785:
7786: IF l_count = 0 THEN
7787: RETURN FND_API.g_false;
7788: ELSE
7789: RETURN FND_API.g_true;
7790: END IF;
7791:
7792:
7793: END Validate_Object_Exists;
7820: and act_budget_used_by_id = l_object_id
7821: and budget_source_type = 'FUND'
7822: and status_code = 'APPROVED';
7823:
7824: l_return_val VARCHAR2(30) := FND_API.G_FALSE;
7825: l_budget_count NUMBER;
7826: l_status VARCHAR2(30);
7827: l_currency VARCHAR2(30);
7828: BEGIN
7837: x_currency => l_currency
7838: );
7839:
7840: IF l_budget_count > 0 AND l_status = 'Y' THEN
7841: l_return_val := FND_API.G_TRUE;
7842: END IF;
7843:
7844: return l_return_val;
7845: