[Home] [Help]
70:
71: -- Forward Declaration for Calculate_Metric as it is removed from specs, SVEERAVE, 10/19/00
72: PROCEDURE Calculate_Metric (
73: p_api_version IN NUMBER,
74: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
75: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_msg_count OUT NOCOPY NUMBER,
78: x_msg_data OUT NOCOPY VARCHAR2,
71: -- Forward Declaration for Calculate_Metric as it is removed from specs, SVEERAVE, 10/19/00
72: PROCEDURE Calculate_Metric (
73: p_api_version IN NUMBER,
74: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
75: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_msg_count OUT NOCOPY NUMBER,
78: x_msg_data OUT NOCOPY VARCHAR2,
79: p_activity_metric_id IN NUMBER,
81: -- p_arc_act_metric_used_by IN VARCHAR2,
82: -- p_act_metric_uom_code IN VARCHAR2,
83: x_actual_value OUT NOCOPY NUMBER,
84: x_forecasted_value OUT NOCOPY NUMBER,
85: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE,
86: p_func_currency_code IN VARCHAR2);
87:
88: PROCEDURE Exec_Procedure (
89: p_arc_act_metric_used_by IN VARCHAR2,
100: are obsolete.
101:
102: PROCEDURE Refresh_Components(
103: p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
105: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
106: x_return_status OUT NOCOPY VARCHAR2,
107: x_msg_count OUT NOCOPY NUMBER,
108: x_msg_data OUT NOCOPY VARCHAR2,
101:
102: PROCEDURE Refresh_Components(
103: p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
105: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
106: x_return_status OUT NOCOPY VARCHAR2,
107: x_msg_count OUT NOCOPY NUMBER,
108: x_msg_data OUT NOCOPY VARCHAR2,
109: p_arc_act_metric_used_by IN VARCHAR2,
107: x_msg_count OUT NOCOPY NUMBER,
108: x_msg_data OUT NOCOPY VARCHAR2,
109: p_arc_act_metric_used_by IN VARCHAR2,
110: p_act_metric_used_by_id IN NUMBER,
111: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE
112: );
113: **/
114: -- NAME
115: -- create_refresh_parent_level
268:
269: IF l_parent_obj IS NOT NULL THEN
270: l_is_locked := ams_actmetric_pvt.lock_object(
271: p_api_version => 1 ,
272: p_init_msg_list => Fnd_Api.G_FALSE,
273: p_arc_act_metric_used_by => l_parent_obj_code,
274: p_act_metric_used_by_id => l_parent_obj,
275: x_return_status => l_return_status,
276: x_msg_count => l_msg_count,
275: x_return_status => l_return_status,
276: x_msg_count => l_msg_count,
277: x_msg_data => l_msg_data);
278:
279: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
280: RAISE Fnd_Api.G_EXC_ERROR;
281: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
283: elsif l_is_locked = FND_API.G_FALSE THEN
276: x_msg_count => l_msg_count,
277: x_msg_data => l_msg_data);
278:
279: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
280: RAISE Fnd_Api.G_EXC_ERROR;
281: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
283: elsif l_is_locked = FND_API.G_FALSE THEN
284: -- the object needs to be lock by this process.
277: x_msg_data => l_msg_data);
278:
279: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
280: RAISE Fnd_Api.G_EXC_ERROR;
281: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
283: elsif l_is_locked = FND_API.G_FALSE THEN
284: -- the object needs to be lock by this process.
285: RAISE ams_utility_pvt.resource_locked;
278:
279: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
280: RAISE Fnd_Api.G_EXC_ERROR;
281: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
283: elsif l_is_locked = FND_API.G_FALSE THEN
284: -- the object needs to be lock by this process.
285: RAISE ams_utility_pvt.resource_locked;
286: END IF;
279: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
280: RAISE Fnd_Api.G_EXC_ERROR;
281: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
283: elsif l_is_locked = FND_API.G_FALSE THEN
284: -- the object needs to be lock by this process.
285: RAISE ams_utility_pvt.resource_locked;
286: END IF;
287:
306: x_msg_count => l_msg_count,
307: x_msg_data => l_msg_data,
308: x_activity_metric_id => l_act_met_id);
309:
310: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
311: RAISE Fnd_Api.G_EXC_ERROR;
312: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
313: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
314: END IF;
307: x_msg_data => l_msg_data,
308: x_activity_metric_id => l_act_met_id);
309:
310: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
311: RAISE Fnd_Api.G_EXC_ERROR;
312: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
313: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
314: END IF;
315:
308: x_activity_metric_id => l_act_met_id);
309:
310: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
311: RAISE Fnd_Api.G_EXC_ERROR;
312: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
313: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
314: END IF;
315:
316: -- DMVINCEN: After selecting the primary key this is not null.
309:
310: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
311: RAISE Fnd_Api.G_EXC_ERROR;
312: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
313: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
314: END IF;
315:
316: -- DMVINCEN: After selecting the primary key this is not null.
317: -- ELSIF l_act_met_id is NOT NULL
322: -- but do not refresh the data.
323: Ams_Actmetric_Pvt.Make_actmetric_dirty(l_act_met_id);
324: END IF;
325:
326: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
327: RAISE Fnd_Api.G_EXC_ERROR;
328: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
330: END IF;
323: Ams_Actmetric_Pvt.Make_actmetric_dirty(l_act_met_id);
324: END IF;
325:
326: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
327: RAISE Fnd_Api.G_EXC_ERROR;
328: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331:
324: END IF;
325:
326: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
327: RAISE Fnd_Api.G_EXC_ERROR;
328: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331:
332: END IF; -- IF c_verify_act_metric%NOTFOUND THEN
325:
326: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
327: RAISE Fnd_Api.G_EXC_ERROR;
328: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331:
332: END IF; -- IF c_verify_act_metric%NOTFOUND THEN
333: CLOSE c_verify_act_metric;
375: SELECT using_object, used_object, metric_id, metric_type_id
376: FROM ams_metric_accruals
377: WHERE ams_metric_acc_id = l_accr_met_acc_id;
378: l_accr_met_rec c_get_accr_met_details%ROWTYPE;
379: l_accr_found VARCHAR2(1) := Fnd_Api.G_FALSE;
380:
381: --Get top level metrics details for the child object.
382: CURSOR c_get_child_summary_metrics(l_master_obj_type VARCHAR2,
383: l_master_obj_id NUMBER,
409: FROM ams_act_metrics_all
410: WHERE arc_act_metric_used_by = l_master_object_type
411: AND act_metric_used_by_id = l_master_object_id
412: AND metric_id = l_metric_id;
413: l_master_found VARCHAR2(1) := Fnd_Api.G_FALSE;
414: l_sum_forecasted_value NUMBER;
415: l_sum_actual_value NUMBER;
416: l_refresh VARCHAR2(1) := 'N';
417: l_default_currency VARCHAR2(15) := Ams_Actmetric_Pvt.Default_Func_Currency;
428: -- get accrual metric details
429: OPEN c_get_accr_met_details(p_accr_met_acc_id);
430: FETCH c_get_accr_met_details INTO l_accr_met_rec;
431: IF c_get_accr_met_details%FOUND THEN
432: l_accr_found := Fnd_Api.G_TRUE;
433: END IF;
434: CLOSE c_get_accr_met_details;
435: IF l_accr_found = Fnd_Api.G_TRUE THEN
436: -- initialize the sum values;
431: IF c_get_accr_met_details%FOUND THEN
432: l_accr_found := Fnd_Api.G_TRUE;
433: END IF;
434: CLOSE c_get_accr_met_details;
435: IF l_accr_found = Fnd_Api.G_TRUE THEN
436: -- initialize the sum values;
437: l_sum_actual_value := 0;
438: l_sum_forecasted_value := 0;
439: -- get toplevel metric for one or more child objects
458: p_from_amount => l_child_summary_actmet_rec.func_actual_value,
459: x_to_amount => l_child_summary_actmet_rec.func_actual_value,
460: p_from_amount2 => l_child_summary_actmet_rec.func_forecasted_value,
461: x_to_amount2 => l_child_summary_actmet_rec.func_forecasted_value,
462: p_round => Fnd_Api.G_FALSE);
463: END IF;
464: END IF; -- IF (l_child_summary_actmet_rec.transaction_currency_code IS NOT NULL) AND
465: l_sum_actual_value := l_sum_actual_value +
466: l_child_summary_actmet_rec.func_actual_value;
473: OPEN c_get_master_accrual_actmet( p_master_obj_type, p_master_obj_id,
474: l_accr_met_rec.metric_id);
475: FETCH c_get_master_accrual_actmet INTO l_act_metric_id;
476: IF c_get_master_accrual_actmet%FOUND THEN
477: l_master_found := Fnd_Api.G_TRUE;
478: END IF;
479: CLOSE c_get_master_accrual_actmet;
480: IF l_master_found = Fnd_Api.G_TRUE THEN
481: -- Update the accrual metrics's VALUES FROM child object's summary level metric
476: IF c_get_master_accrual_actmet%FOUND THEN
477: l_master_found := Fnd_Api.G_TRUE;
478: END IF;
479: CLOSE c_get_master_accrual_actmet;
480: IF l_master_found = Fnd_Api.G_TRUE THEN
481: -- Update the accrual metrics's VALUES FROM child object's summary level metric
482: -- Initialize the record type for Activity Metric update
483: Ams_Actmetric_Pvt.Init_ActMetric_Rec(x_act_metric_rec => l_act_metric_rec );
484: l_act_metric_rec.activity_metric_id := l_act_metric_id;
492: l_act_metric_rec.functional_currency_code := NULL;
493: END IF;
494: Ams_Actmetric_Pvt.update_actmetric (
495: p_api_version => 1.0,
496: p_commit => Fnd_Api.G_FALSE,
497: p_validation_level => Fnd_Api.g_valid_level_full,
498: p_act_metric_rec => l_act_metric_rec,
499: x_return_status => l_return_status,
500: x_msg_count => l_msg_count,
493: END IF;
494: Ams_Actmetric_Pvt.update_actmetric (
495: p_api_version => 1.0,
496: p_commit => Fnd_Api.G_FALSE,
497: p_validation_level => Fnd_Api.g_valid_level_full,
498: p_act_metric_rec => l_act_metric_rec,
499: x_return_status => l_return_status,
500: x_msg_count => l_msg_count,
501: x_msg_data => l_msg_data);
499: x_return_status => l_return_status,
500: x_msg_count => l_msg_count,
501: x_msg_data => l_msg_data);
502:
503: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
504: IF(l_msg_count > 0) THEN
505: FOR i IN 1 .. l_msg_count
506: LOOP
507: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
503: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
504: IF(l_msg_count > 0) THEN
505: FOR i IN 1 .. l_msg_count
506: LOOP
507: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
508: END LOOP;
509: END IF;
510: RAISE Fnd_Api.G_EXC_ERROR;
511: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
506: LOOP
507: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
508: END LOOP;
509: END IF;
510: RAISE Fnd_Api.G_EXC_ERROR;
511: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
512: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
513: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
514: ELSE -- for c_get_master_accrual_actmet%FOUND
507: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
508: END LOOP;
509: END IF;
510: RAISE Fnd_Api.G_EXC_ERROR;
511: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
512: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
513: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
514: ELSE -- for c_get_master_accrual_actmet%FOUND
515:
508: END LOOP;
509: END IF;
510: RAISE Fnd_Api.G_EXC_ERROR;
511: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
512: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
513: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
514: ELSE -- for c_get_master_accrual_actmet%FOUND
515:
516: --Create the instance of accrual metric in the master object metrics.
509: END IF;
510: RAISE Fnd_Api.G_EXC_ERROR;
511: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
512: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
513: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
514: ELSE -- for c_get_master_accrual_actmet%FOUND
515:
516: --Create the instance of accrual metric in the master object metrics.
517: l_act_metric_rec.act_metric_used_by_id := p_master_obj_id;
534: x_return_status => l_return_status,
535: x_msg_count => l_msg_count,
536: x_msg_data => l_msg_data,
537: x_activity_metric_id => l_act_metric_id);
538: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
539: IF l_msg_count > 0 THEN
540: FOR i IN 1 .. l_msg_count
541: LOOP
542: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
538: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
539: IF l_msg_count > 0 THEN
540: FOR i IN 1 .. l_msg_count
541: LOOP
542: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
543: END LOOP;
544: END IF;
545: RAISE Fnd_Api.G_EXC_ERROR;
546: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
541: LOOP
542: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
543: END LOOP;
544: END IF;
545: RAISE Fnd_Api.G_EXC_ERROR;
546: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
547: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
548: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
549: END IF; -- for c_get_master_accrual_actmet%FOUND
542: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
543: END LOOP;
544: END IF;
545: RAISE Fnd_Api.G_EXC_ERROR;
546: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
547: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
548: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
549: END IF; -- for c_get_master_accrual_actmet%FOUND
550: END IF; -- for IF l_refresh = 'Y'
543: END LOOP;
544: END IF;
545: RAISE Fnd_Api.G_EXC_ERROR;
546: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
547: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
548: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
549: END IF; -- for c_get_master_accrual_actmet%FOUND
550: END IF; -- for IF l_refresh = 'Y'
551: END IF; --for IF c_get_accr_met_details%FOUND
544: END IF;
545: RAISE Fnd_Api.G_EXC_ERROR;
546: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
547: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
548: END IF; -- for IF l_return_status = FND_API.G_RET_STS_ERROR
549: END IF; -- for c_get_master_accrual_actmet%FOUND
550: END IF; -- for IF l_refresh = 'Y'
551: END IF; --for IF c_get_accr_met_details%FOUND
552:
630: AND accr.used_object = l_child_object_type
631: AND accr.metric_type_id = l_metric_type_id
632: AND accr.metric_id = met.metric_id;
633: -- AND met.enabled_flag = 'Y';
634: l_metric_accr_found VARCHAR2(1) := Fnd_Api.G_FALSE;
635:
636: -- Get category name when id is passed
637: CURSOR c_get_category_name(l_category_id NUMBER) IS
638: SELECT category_name
678: l_child_summary_actmet_rec.child_metric_type_id);
679: FETCH c_get_metric_accrual INTO l_accrual_metric_id;
680:
681: IF c_get_metric_accrual%FOUND THEN
682: l_metric_accr_found := Fnd_Api.G_TRUE;
683: END IF;
684: CLOSE c_get_metric_accrual;
685: IF l_metric_accr_found = Fnd_Api.G_FALSE THEN
686: -- Create new accrual metric in metrics table and register it in
681: IF c_get_metric_accrual%FOUND THEN
682: l_metric_accr_found := Fnd_Api.G_TRUE;
683: END IF;
684: CLOSE c_get_metric_accrual;
685: IF l_metric_accr_found = Fnd_Api.G_FALSE THEN
686: -- Create new accrual metric in metrics table and register it in
687: -- ams_metric_accruals populate accrual metric name as child
688: -- object name + - + metrics type get metric type name from
689: -- the category id
728: CLOSE c_get_parent_summary_metrics;
729:
730: Ams_Metric_Pvt.Create_Metric(
731: p_api_version => 1.0,
732: p_init_msg_list => Fnd_Api.G_TRUE,
733: x_return_status => l_return_status,
734: x_msg_count => l_msg_count,
735: x_msg_data => l_msg_data,
736: p_metric_rec => l_metric_rec,
735: x_msg_data => l_msg_data,
736: p_metric_rec => l_metric_rec,
737: x_metric_id => l_metric_id);
738:
739: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
740: IF l_msg_count > 0 THEN
741: FOR i IN 1 .. l_msg_count
742: LOOP
743: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
739: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
740: IF l_msg_count > 0 THEN
741: FOR i IN 1 .. l_msg_count
742: LOOP
743: l_msg_data := Fnd_Msg_Pub.get(i, Fnd_Api.g_false);
744: END LOOP;
745: END IF;
746: --CLOSE c_get_metric_accrual;
747: CLOSE c_get_child_summary_metrics;
745: END IF;
746: --CLOSE c_get_metric_accrual;
747: CLOSE c_get_child_summary_metrics;
748: CLOSE c_get_child_objects;
749: RAISE Fnd_Api.G_EXC_ERROR;
750: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
751: --CLOSE c_get_metric_accrual;
752: CLOSE c_get_child_summary_metrics;
753: CLOSE c_get_child_objects;
746: --CLOSE c_get_metric_accrual;
747: CLOSE c_get_child_summary_metrics;
748: CLOSE c_get_child_objects;
749: RAISE Fnd_Api.G_EXC_ERROR;
750: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
751: --CLOSE c_get_metric_accrual;
752: CLOSE c_get_child_summary_metrics;
753: CLOSE c_get_child_objects;
754: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
750: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
751: --CLOSE c_get_metric_accrual;
752: CLOSE c_get_child_summary_metrics;
753: CLOSE c_get_child_objects;
754: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: OPEN c_next_metric_accrual_id;
758: FETCH c_next_metric_accrual_id INTO l_accrual_metric_id;
847: BEGIN
848: --
849: -- Initialize API return status to success.
850: --
851: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
852: --
853: -- Begin API Body.
854: --
855: -- Take the First Metric ID of all the Metrics attached to this Usage and of
861: -- this usage type (for e.g. Total Cost )
862: OPEN c_sum_metrics(l_cat_met_rec.metric_id, p_arc_act_metric_used_by) ;
863: FETCH c_sum_metrics INTO l_sum_met_rec;
864: IF c_sum_metrics%NOTFOUND THEN
865: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
866: RETURN;
867: END IF ;
868: CLOSE c_sum_metrics;
869: -- Following Cursor will Find out the value for this summary metric and
888: -- End API Body.
889: --
890: EXCEPTION
891: WHEN OTHERS THEN
892: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
893: RETURN;
894: END GetMetCatVal;
895: -- NAME
896: -- Get_Met_Apport_Val
930: BEGIN
931: --
932: -- Initialize API return status to success.
933: --
934: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
935: --
936: -- Begin API Body
937: --
938: OPEN c_obj_det ;
948: p_metric_category => 'COST', --Apportioning only for Cost
949: p_return_type => 'ACTUAL', -- Return the Actual Value
950: x_value => l_amount
951: );
952: IF l_return_status = Fnd_Api.G_RET_STS_SUCCESS THEN
953: l_apport_value :=
954: l_amount * l_obj_det_rec.pct_of_cost_to_charge_used_by/100 ;
955: ELSE
956: x_return_status := l_return_status ;
969: -- End API Body.
970: --
971: EXCEPTION
972: WHEN OTHERS THEN
973: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
974: END Get_Met_Apport_Val;
975: --
976: -- NAME
977: -- Convert_Uom
1071: p_from_amount => l_trans_actual_value,
1072: x_to_amount => x_func_actual_value,
1073: p_from_amount2 => l_trans_forecasted_value,
1074: x_to_amount2 => x_func_forecasted_value,
1075: p_round => Fnd_Api.G_FALSE
1076: );
1077: END IF;
1078:
1079: END Fetch_Manual;
1175: l_act_metric_rec.dirty_flag := 'Y';
1176:
1177: Ams_Actmetric_Pvt.Update_ActMetric (
1178: p_api_version => 1.0,
1179: p_init_msg_list => Fnd_Api.g_false,
1180: p_commit => Fnd_Api.G_FALSE,
1181: p_validation_level => Fnd_Api.g_valid_level_full,
1182: p_act_metric_rec => l_act_metric_rec,
1183: x_return_status => l_return_status,
1176:
1177: Ams_Actmetric_Pvt.Update_ActMetric (
1178: p_api_version => 1.0,
1179: p_init_msg_list => Fnd_Api.g_false,
1180: p_commit => Fnd_Api.G_FALSE,
1181: p_validation_level => Fnd_Api.g_valid_level_full,
1182: p_act_metric_rec => l_act_metric_rec,
1183: x_return_status => l_return_status,
1184: x_msg_count => l_msg_count,
1177: Ams_Actmetric_Pvt.Update_ActMetric (
1178: p_api_version => 1.0,
1179: p_init_msg_list => Fnd_Api.g_false,
1180: p_commit => Fnd_Api.G_FALSE,
1181: p_validation_level => Fnd_Api.g_valid_level_full,
1182: p_act_metric_rec => l_act_metric_rec,
1183: x_return_status => l_return_status,
1184: x_msg_count => l_msg_count,
1185: x_msg_data => l_msg_data);
1182: p_act_metric_rec => l_act_metric_rec,
1183: x_return_status => l_return_status,
1184: x_msg_count => l_msg_count,
1185: x_msg_data => l_msg_data);
1186: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1189: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1183: x_return_status => l_return_status,
1184: x_msg_count => l_msg_count,
1185: x_msg_data => l_msg_data);
1186: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1189: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1191: END IF;
1184: x_msg_count => l_msg_count,
1185: x_msg_data => l_msg_data);
1186: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1189: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1191: END IF;
1192: END LOOP;
1185: x_msg_data => l_msg_data);
1186: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1189: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1191: END IF;
1192: END LOOP;
1193: CLOSE c_functions;
1212: x_is_canceled OUT NOCOPY VARCHAR2
1213: )
1214: IS
1215: CURSOR c_camp(id NUMBER) IS
1216: SELECT Fnd_Api.G_TRUE
1217: FROM ams_campaigns_all_b
1218: WHERE campaign_id = id
1219: AND status_code = 'CANCELLED';
1220:
1218: WHERE campaign_id = id
1219: AND status_code = 'CANCELLED';
1220:
1221: CURSOR c_csch(id NUMBER) IS
1222: SELECT Fnd_Api.G_TRUE
1223: FROM ams_campaign_schedules_b
1224: WHERE schedule_id = id
1225: AND status_code = 'CANCELLED';
1226:
1224: WHERE schedule_id = id
1225: AND status_code = 'CANCELLED';
1226:
1227: CURSOR c_delv(id NUMBER) IS
1228: SELECT Fnd_Api.G_TRUE
1229: FROM ams_deliverables_all_b
1230: WHERE deliverable_id = id
1231: AND status_code = 'CANCELLED';
1232:
1230: WHERE deliverable_id = id
1231: AND status_code = 'CANCELLED';
1232:
1233: CURSOR c_eveh(id NUMBER) IS
1234: SELECT Fnd_Api.G_TRUE
1235: FROM ams_event_headers_all_b
1236: WHERE event_header_id = id
1237: AND system_status_code = 'CANCELLED';
1238:
1236: WHERE event_header_id = id
1237: AND system_status_code = 'CANCELLED';
1238:
1239: CURSOR c_eveo(id NUMBER) IS
1240: SELECT Fnd_Api.G_TRUE
1241: FROM ams_event_offers_all_b
1242: WHERE event_offer_id = id
1243: AND system_status_code IN ('CANCELLED');
1244:
1241: FROM ams_event_offers_all_b
1242: WHERE event_offer_id = id
1243: AND system_status_code IN ('CANCELLED');
1244:
1245: l_is_canceled VARCHAR2(1) := Fnd_Api.G_FALSE;
1246:
1247: BEGIN
1248: IF p_arc_act_metric_used_by IN ('RCAM', 'CAMP') THEN
1249: OPEN c_camp(p_act_metric_used_by_id);
1298: -- 08/16/2001 dmvincen Check if the child object is canceled. No not rollup
1299: -- values if no actual value has accrued.
1300: PROCEDURE Exec_Rollup (
1301: p_api_version IN NUMBER,
1302: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
1303: p_commit IN VARCHAR2 := Fnd_Api.G_False,
1304: x_return_status OUT NOCOPY VARCHAR2,
1305: x_msg_count OUT NOCOPY NUMBER,
1306: x_msg_data OUT NOCOPY VARCHAR2,
1299: -- values if no actual value has accrued.
1300: PROCEDURE Exec_Rollup (
1301: p_api_version IN NUMBER,
1302: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
1303: p_commit IN VARCHAR2 := Fnd_Api.G_False,
1304: x_return_status OUT NOCOPY VARCHAR2,
1305: x_msg_count OUT NOCOPY NUMBER,
1306: x_msg_data OUT NOCOPY VARCHAR2,
1307: p_act_metric_id IN NUMBER,
1341: -- Variables to store final calculated Values (These will be passed Along
1342: -- with Activity Metric to Update Activity Metric API
1343: l_final_actual_value NUMBER := 0 ;
1344: l_final_forecasted_value NUMBER := 0;
1345: l_valid_chld_flg VARCHAR2(1):= Fnd_Api.G_False;
1346: l_arc_act_metric_used_by VARCHAR2(80);
1347: l_act_metric_used_by_id NUMBER;
1348: l_is_canceled VARCHAR2(1);
1349: l_return_status VARCHAR2(1);
1356: END IF;
1357: --
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: --
1360: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1361: Fnd_Msg_Pub.Initialize;
1362: END IF;
1363: -- Standard check for API version compatibility.
1364: --
1361: Fnd_Msg_Pub.Initialize;
1362: END IF;
1363: -- Standard check for API version compatibility.
1364: --
1365: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
1366: p_api_version,
1367: L_API_NAME,
1368: G_PKG_NAME)
1369: THEN
1366: p_api_version,
1367: L_API_NAME,
1368: G_PKG_NAME)
1369: THEN
1370: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1371: END IF;
1372: --
1373: -- Initialize API return status to success.
1374: --
1371: END IF;
1372: --
1373: -- Initialize API return status to success.
1374: --
1375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1376: --
1377: -- Begin API Body.
1378: --
1379: OPEN c_met_child_rollup(p_act_metric_id);
1386: l_act_metric_used_by_id <> l_met_child_rec.act_metric_used_by_id)
1387: THEN
1388: l_arc_act_metric_used_by := l_met_child_rec.arc_act_metric_used_by;
1389: l_act_metric_used_by_id := l_met_child_rec.act_metric_used_by_id;
1390: l_is_canceled := Fnd_Api.G_FALSE;
1391: check_object_status( l_arc_act_metric_used_by,
1392: l_act_metric_used_by_id,
1393: l_is_canceled);
1394: END IF;
1392: l_act_metric_used_by_id,
1393: l_is_canceled);
1394: END IF;
1395: -- canceled must only rollup if actual costs were accrued.
1396: IF l_is_canceled = Fnd_Api.G_FALSE OR
1397: l_met_child_rec.func_actual_value <> 0
1398: THEN
1399: IF l_met_child_rec.functional_currency_code IS NOT NULL AND
1400: l_met_child_rec.functional_currency_code <> p_func_currency_code
1408: p_from_amount => l_met_child_rec.trans_actual_value,
1409: x_to_amount => l_actual_value,
1410: p_from_amount2 => l_met_child_rec.trans_forecasted_value,
1411: x_to_amount2 => l_forecasted_value,
1412: p_round => Fnd_Api.G_FALSE
1413: );
1414: ELSE
1415: l_actual_value := l_met_child_rec.func_actual_value;
1416: l_forecasted_value := l_met_child_rec.func_forecasted_value;
1439: --
1440: --
1441: -- Standard check for commit request.
1442: --
1443: IF Fnd_Api.To_Boolean(p_commit) THEN
1444: COMMIT WORK;
1445: END IF;
1446: --
1447: -- Standard API to get message count, and if 1,
1449: --
1450: Fnd_Msg_Pub.Count_And_Get (
1451: p_count => x_msg_count,
1452: p_data => x_msg_data,
1453: p_encoded => Fnd_Api.G_FALSE
1454: );
1455: --Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1456: EXCEPTION
1457: WHEN Fnd_Api.G_EXC_ERROR THEN
1453: p_encoded => Fnd_Api.G_FALSE
1454: );
1455: --Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1456: EXCEPTION
1457: WHEN Fnd_Api.G_EXC_ERROR THEN
1458: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1459: Fnd_Msg_Pub.Count_And_Get (
1460: p_count => x_msg_count,
1461: p_data => x_msg_data,
1454: );
1455: --Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1456: EXCEPTION
1457: WHEN Fnd_Api.G_EXC_ERROR THEN
1458: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1459: Fnd_Msg_Pub.Count_And_Get (
1460: p_count => x_msg_count,
1461: p_data => x_msg_data,
1462: p_encoded => FND_API.G_FALSE
1458: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1459: Fnd_Msg_Pub.Count_And_Get (
1460: p_count => x_msg_count,
1461: p_data => x_msg_data,
1462: p_encoded => FND_API.G_FALSE
1463: );
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465:
1466: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1460: p_count => x_msg_count,
1461: p_data => x_msg_data,
1462: p_encoded => FND_API.G_FALSE
1463: );
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465:
1466: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: Fnd_Msg_Pub.Count_And_Get (
1462: p_encoded => FND_API.G_FALSE
1463: );
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465:
1466: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: Fnd_Msg_Pub.Count_And_Get (
1469: p_count => x_msg_count,
1470: p_data => x_msg_data,
1463: );
1464: RAISE Fnd_Api.G_EXC_ERROR;
1465:
1466: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: Fnd_Msg_Pub.Count_And_Get (
1469: p_count => x_msg_count,
1470: p_data => x_msg_data,
1471: p_encoded => FND_API.G_FALSE
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: Fnd_Msg_Pub.Count_And_Get (
1469: p_count => x_msg_count,
1470: p_data => x_msg_data,
1471: p_encoded => FND_API.G_FALSE
1472: );
1473: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1474: WHEN OTHERS THEN
1475: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1469: p_count => x_msg_count,
1470: p_data => x_msg_data,
1471: p_encoded => FND_API.G_FALSE
1472: );
1473: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1474: WHEN OTHERS THEN
1475: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1476: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1477: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1471: p_encoded => FND_API.G_FALSE
1472: );
1473: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1474: WHEN OTHERS THEN
1475: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1476: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1477: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1478: END IF;
1479: Fnd_Msg_Pub.Count_And_Get (
1478: END IF;
1479: Fnd_Msg_Pub.Count_And_Get (
1480: p_count => x_msg_count,
1481: p_data => x_msg_data,
1482: p_encoded => FND_API.G_FALSE
1483: );
1484: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1485: END Exec_Rollup;
1486:
1480: p_count => x_msg_count,
1481: p_data => x_msg_data,
1482: p_encoded => FND_API.G_FALSE
1483: );
1484: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1485: END Exec_Rollup;
1486:
1487: --
1488: -- Begin of section added by ptendulk- 09/29/1999
1503: -- Added p_refresh_function parameter.
1504: -- 08/16/2001 dmvincen Add up all the child values as the same currency.
1505: PROCEDURE Exec_Summary (
1506: p_api_version IN NUMBER,
1507: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
1508: p_commit IN VARCHAR2 := Fnd_Api.G_False,
1509: x_return_status OUT NOCOPY VARCHAR2,
1510: x_msg_count OUT NOCOPY NUMBER,
1511: x_msg_data OUT NOCOPY VARCHAR2,
1504: -- 08/16/2001 dmvincen Add up all the child values as the same currency.
1505: PROCEDURE Exec_Summary (
1506: p_api_version IN NUMBER,
1507: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
1508: p_commit IN VARCHAR2 := Fnd_Api.G_False,
1509: x_return_status OUT NOCOPY VARCHAR2,
1510: x_msg_count OUT NOCOPY NUMBER,
1511: x_msg_data OUT NOCOPY VARCHAR2,
1512: p_act_metric_id IN NUMBER,
1512: p_act_metric_id IN NUMBER,
1513: p_metric_value_type IN VARCHAR2,
1514: x_actual_value OUT NOCOPY NUMBER,
1515: x_forecasted_value OUT NOCOPY NUMBER,
1516: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE,
1517: p_func_currency_code IN VARCHAR2
1518: )
1519: IS
1520: L_API_VERSION CONSTANT NUMBER := 1.0;
1542: -- Variables to store final calculated Values (These will be passed Along
1543: -- with Activity Metric to Update Activity Metric API
1544: l_final_actual_value NUMBER := 0 ;
1545: l_final_forecasted_value NUMBER := 0;
1546: l_valid_chld_flg VARCHAR2(1):= Fnd_Api.G_False ;
1547: BEGIN
1548: --
1549: -- Output debug message.
1550: --
1553: END IF;
1554: --
1555: -- Initialize message list if p_init_msg_list is set to TRUE.
1556: --
1557: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1558: Fnd_Msg_Pub.Initialize;
1559: END IF;
1560: -- Standard check for API version compatibility.
1561: --
1558: Fnd_Msg_Pub.Initialize;
1559: END IF;
1560: -- Standard check for API version compatibility.
1561: --
1562: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
1563: p_api_version,
1564: L_API_NAME,
1565: G_PKG_NAME)
1566: THEN
1563: p_api_version,
1564: L_API_NAME,
1565: G_PKG_NAME)
1566: THEN
1567: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1568: END IF;
1569: --
1570: -- Initialize API return status to success.
1571: --
1568: END IF;
1569: --
1570: -- Initialize API return status to success.
1571: --
1572: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1573: --
1574: -- Begin API Body.
1575: --
1576: OPEN c_met_child_sum(p_act_metric_id);
1594: p_refresh_function => p_refresh_function,
1595: p_func_currency_code => p_func_currency_code
1596: );
1597: -- If any errors happen abort API.
1598: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1599: CLOSE c_met_child_sum ;
1600: RAISE Fnd_Api.G_EXC_ERROR;
1601: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1602: CLOSE c_met_child_sum ;
1596: );
1597: -- If any errors happen abort API.
1598: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1599: CLOSE c_met_child_sum ;
1600: RAISE Fnd_Api.G_EXC_ERROR;
1601: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1602: CLOSE c_met_child_sum ;
1603: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1604: END IF;
1597: -- If any errors happen abort API.
1598: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1599: CLOSE c_met_child_sum ;
1600: RAISE Fnd_Api.G_EXC_ERROR;
1601: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1602: CLOSE c_met_child_sum ;
1603: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1604: END IF;
1605:
1599: CLOSE c_met_child_sum ;
1600: RAISE Fnd_Api.G_EXC_ERROR;
1601: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1602: CLOSE c_met_child_sum ;
1603: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1604: END IF;
1605:
1606: l_final_actual_value :=
1607: l_final_actual_value + NVL(l_actual_value,0);
1624: --
1625: --
1626: -- Standard check for commit request.
1627: --
1628: IF Fnd_Api.To_Boolean(p_commit) THEN
1629: COMMIT WORK;
1630: END IF;
1631: --
1632: -- Standard API to get message count, and if 1,
1634: --
1635: Fnd_Msg_Pub.Count_And_Get (
1636: p_count => x_msg_count,
1637: p_data => x_msg_data,
1638: p_encoded => Fnd_Api.G_FALSE
1639: );
1640: IF AMS_DEBUG_HIGH_ON THEN
1641: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1642: END IF;
1640: IF AMS_DEBUG_HIGH_ON THEN
1641: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1642: END IF;
1643: EXCEPTION
1644: WHEN Fnd_Api.G_EXC_ERROR THEN
1645: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1646: Fnd_Msg_Pub.Count_And_Get (
1647: p_count => x_msg_count,
1648: p_data => x_msg_data,
1641: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1642: END IF;
1643: EXCEPTION
1644: WHEN Fnd_Api.G_EXC_ERROR THEN
1645: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1646: Fnd_Msg_Pub.Count_And_Get (
1647: p_count => x_msg_count,
1648: p_data => x_msg_data,
1649: p_encoded => FND_API.G_FALSE
1645: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1646: Fnd_Msg_Pub.Count_And_Get (
1647: p_count => x_msg_count,
1648: p_data => x_msg_data,
1649: p_encoded => FND_API.G_FALSE
1650: );
1651: RAISE Fnd_Api.G_EXC_ERROR;
1652:
1653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1647: p_count => x_msg_count,
1648: p_data => x_msg_data,
1649: p_encoded => FND_API.G_FALSE
1650: );
1651: RAISE Fnd_Api.G_EXC_ERROR;
1652:
1653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1654: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1655: Fnd_Msg_Pub.Count_And_Get (
1649: p_encoded => FND_API.G_FALSE
1650: );
1651: RAISE Fnd_Api.G_EXC_ERROR;
1652:
1653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1654: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1655: Fnd_Msg_Pub.Count_And_Get (
1656: p_count => x_msg_count,
1657: p_data => x_msg_data,
1650: );
1651: RAISE Fnd_Api.G_EXC_ERROR;
1652:
1653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1654: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1655: Fnd_Msg_Pub.Count_And_Get (
1656: p_count => x_msg_count,
1657: p_data => x_msg_data,
1658: p_encoded => FND_API.G_FALSE
1654: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1655: Fnd_Msg_Pub.Count_And_Get (
1656: p_count => x_msg_count,
1657: p_data => x_msg_data,
1658: p_encoded => FND_API.G_FALSE
1659: );
1660: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1661: WHEN OTHERS THEN
1662: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1656: p_count => x_msg_count,
1657: p_data => x_msg_data,
1658: p_encoded => FND_API.G_FALSE
1659: );
1660: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1661: WHEN OTHERS THEN
1662: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1663: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1664: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1658: p_encoded => FND_API.G_FALSE
1659: );
1660: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1661: WHEN OTHERS THEN
1662: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1663: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1664: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1665: END IF;
1666: Fnd_Msg_Pub.Count_And_Get (
1665: END IF;
1666: Fnd_Msg_Pub.Count_And_Get (
1667: p_count => x_msg_count,
1668: p_data => x_msg_data,
1669: p_encoded => FND_API.G_FALSE
1670: );
1671: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1672: END Exec_Summary;
1673:
1667: p_count => x_msg_count,
1668: p_data => x_msg_data,
1669: p_encoded => FND_API.G_FALSE
1670: );
1671: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
1672: END Exec_Summary;
1673:
1674: --
1675: -- Begin of section added by ptendulk - 09/28/1999
1702:
1703:
1704: PROCEDURE Calculate_Metric (
1705: p_api_version IN NUMBER,
1706: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1707: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1708: x_return_status OUT NOCOPY VARCHAR2,
1709: x_msg_count OUT NOCOPY NUMBER,
1710: x_msg_data OUT NOCOPY VARCHAR2,
1703:
1704: PROCEDURE Calculate_Metric (
1705: p_api_version IN NUMBER,
1706: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1707: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1708: x_return_status OUT NOCOPY VARCHAR2,
1709: x_msg_count OUT NOCOPY NUMBER,
1710: x_msg_data OUT NOCOPY VARCHAR2,
1711: -- p_metric_id IN NUMBER,
1714: -- p_arc_act_metric_used_by IN VARCHAR2,
1715: -- p_act_metric_uom_code IN VARCHAR2,
1716: x_actual_value OUT NOCOPY NUMBER,
1717: x_forecasted_value OUT NOCOPY NUMBER,
1718: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE,
1719: p_func_currency_code IN VARCHAR2)
1720: IS
1721: L_API_VERSION CONSTANT NUMBER := 1.0;
1722: L_API_NAME VARCHAR2(30) := 'Calculate_Metric';
1739: --FROM ams_metrics_vl
1740: FROM ams_metrics_all_b
1741: WHERE metric_id = l_metric_id;
1742: l_cal_type_rec c_met_cal_type%ROWTYPE;
1743: l_metric_found VARCHAR2(1) := Fnd_Api.G_FALSE;
1744: -------------------------------------------
1745: -- Variables to store calculated Values
1746: -------------------------------------------
1747: l_actual_value NUMBER ;
1828: END IF;
1829: --
1830: -- Initialize message list if p_init_msg_list is set to TRUE.
1831: --
1832: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
1833: Fnd_Msg_Pub.Initialize;
1834: END IF;
1835: --
1836: -- Standard check for API version compatibility.
1834: END IF;
1835: --
1836: -- Standard check for API version compatibility.
1837: --
1838: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
1839: p_api_version,
1840: L_API_NAME,
1841: G_PKG_NAME)
1842: THEN
1839: p_api_version,
1840: L_API_NAME,
1841: G_PKG_NAME)
1842: THEN
1843: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1844: END IF;
1845: --
1846: -- Initialize API return status to success.
1847: --
1844: END IF;
1845: --
1846: -- Initialize API return status to success.
1847: --
1848: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1849: --
1850: -- Begin API Body.
1851: --
1852: -- Store the Original values of the Metric
1871:
1872: OPEN c_met_cal_type(l_origin_rec.metric_id);
1873: FETCH c_met_cal_type INTO l_cal_type_rec;
1874: IF c_met_cal_type%FOUND THEN
1875: l_metric_found := Fnd_Api.G_TRUE;
1876: END IF;
1877: CLOSE c_met_cal_type;
1878:
1879: ------------------------------------------
1878:
1879: ------------------------------------------
1880: -- If details exist in ams_metrics_all_b
1881: ------------------------------------------
1882: IF l_metric_found = Fnd_Api.G_TRUE THEN
1883: -----------------------------------------------------
1884: -- If this metrics is of FIXED calculation type
1885: -----------------------------------------------------
1886: IF l_cal_type_rec.accrual_type = 'FIXED' THEN
1912: IF (l_final_actual_value < 0) OR (l_final_forecasted_value < 0)
1913: THEN
1914: l_final_actual_value := 0 ;
1915: l_final_forecasted_value := 0 ;
1916: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1917: END IF; --check final value
1918: ELSE
1919: l_final_actual_value := l_actual_value;
1920: l_final_forecasted_value := l_forecasted_value;
1928: ELSIF l_cal_type_rec.metric_calculation_type = 'FUNCTION' THEN
1929: --AND l_cal_type_rec.function_type = 'Y' THEN
1930: -- Calculate the value only when refresh_function is TRUE,
1931: -- SVEERAVE, 10/16/00
1932: IF p_refresh_function = Fnd_Api.G_TRUE
1933: AND l_cal_type_rec.function_type = 'Y' THEN
1934: l_actual_value := Exec_Function(
1935: p_activity_metric_id => p_activity_metric_id,
1936: p_function_name => l_cal_type_rec.function_name);
1961: p_to_uom_code => l_cal_type_rec.default_uom_code,
1962: p_from_quantity => NVL(l_forecasted_value,0));
1963: IF l_final_actual_value < 0 THEN
1964: l_final_actual_value := 0 ;
1965: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1966: END IF; --check final value
1967: ELSE
1968: IF l_origin_rec.transaction_currency_code IS NOT NULL AND
1969: l_origin_rec.functional_currency_code IS NOT NULL AND
1978: p_from_amount => l_origin_rec.trans_actual_value,
1979: x_to_amount => l_actual_value,
1980: p_from_amount2 => l_origin_rec.trans_forecasted_value,
1981: x_to_amount2 => l_forecasted_value,
1982: p_round => Fnd_Api.G_FALSE
1983: );
1984: ELSE
1985: l_func_currency_code := l_origin_rec.functional_currency_code;
1986: END IF;
2032: p_to_uom_code => l_cal_type_rec.default_uom_code,
2033: p_from_quantity => l_actual_value);
2034: IF l_final_actual_value < 0 THEN
2035: l_final_actual_value := 0 ;
2036: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2037: END IF; --check final value
2038: ELSE
2039: l_final_actual_value := l_actual_value;
2040: END IF; --if there is UOM
2074: p_func_currency_code => p_func_currency_code);
2075: ------------------------------------
2076: -- If any errors happen abort API.
2077: ------------------------------------
2078: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2081: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2075: ------------------------------------
2076: -- If any errors happen abort API.
2077: ------------------------------------
2078: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2081: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2083: ---------------------------------------
2076: -- If any errors happen abort API.
2077: ------------------------------------
2078: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2081: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2083: ---------------------------------------
2084: -- Sum-up the values returned for the
2077: ------------------------------------
2078: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2081: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2083: ---------------------------------------
2084: -- Sum-up the values returned for the
2085: -- child metrics
2132: p_func_currency_code => p_func_currency_code);
2133: ----------------------------------
2134: -- If any errors happen abort API.
2135: ----------------------------------
2136: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2137: RAISE Fnd_Api.G_EXC_ERROR;
2138: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2133: ----------------------------------
2134: -- If any errors happen abort API.
2135: ----------------------------------
2136: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2137: RAISE Fnd_Api.G_EXC_ERROR;
2138: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: ---------------------------------------
2134: -- If any errors happen abort API.
2135: ----------------------------------
2136: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2137: RAISE Fnd_Api.G_EXC_ERROR;
2138: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: ---------------------------------------
2142: -- Sum-up the values returned for the
2135: ----------------------------------
2136: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2137: RAISE Fnd_Api.G_EXC_ERROR;
2138: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: ---------------------------------------
2142: -- Sum-up the values returned for the
2143: -- child metrics
2218: p_from_quantity => l_forecasted_value);
2219:
2220: IF l_final_actual_value < 0 THEN
2221: l_final_actual_value := 0 ;
2222: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2223: END IF; --check final value
2224: ELSE
2225: IF l_origin_rec.functional_currency_code IS NOT NULL THEN
2226: l_func_currency_code := p_func_currency_code;
2257: p_from_quantity => l_final_forecasted_value);
2258: IF (l_conv_uom_actual_value < 0) OR (l_conv_uom_forecasted_value < 0) THEN
2259: l_final_actual_value := 0 ;
2260: l_final_forecasted_value := 0;
2261: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2262: END IF;
2263: END IF;
2264: ----------------------------------------------
2265: -- set return value for this procedure
2289:
2290: Ams_Actmetric_Pvt.update_actmetric (
2291: p_api_version => l_api_version,
2292: p_init_msg_list => p_init_msg_list,
2293: p_commit => Fnd_Api.G_FALSE,
2294: p_validation_level => Fnd_Api.g_valid_level_full,
2295: p_act_metric_rec => l_act_metrics_rec,
2296: x_return_status => x_return_status,
2297: x_msg_count => x_msg_count,
2290: Ams_Actmetric_Pvt.update_actmetric (
2291: p_api_version => l_api_version,
2292: p_init_msg_list => p_init_msg_list,
2293: p_commit => Fnd_Api.G_FALSE,
2294: p_validation_level => Fnd_Api.g_valid_level_full,
2295: p_act_metric_rec => l_act_metrics_rec,
2296: x_return_status => x_return_status,
2297: x_msg_count => x_msg_count,
2298: x_msg_data => x_msg_data);
2296: x_return_status => x_return_status,
2297: x_msg_count => x_msg_count,
2298: x_msg_data => x_msg_data);
2299:
2300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2301: RAISE Fnd_Api.G_EXC_ERROR;
2302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2304: END IF;
2297: x_msg_count => x_msg_count,
2298: x_msg_data => x_msg_data);
2299:
2300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2301: RAISE Fnd_Api.G_EXC_ERROR;
2302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2304: END IF;
2305:
2298: x_msg_data => x_msg_data);
2299:
2300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2301: RAISE Fnd_Api.G_EXC_ERROR;
2302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2304: END IF;
2305:
2306: -- Call Campaign API /Deliverable API/Events API to update the values
2299:
2300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2301: RAISE Fnd_Api.G_EXC_ERROR;
2302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2304: END IF;
2305:
2306: -- Call Campaign API /Deliverable API/Events API to update the values
2307: -- Chect the x_return_status after the Update
2311: --
2312: --
2313: -- Standard check for commit request.
2314: --
2315: IF Fnd_Api.To_Boolean (p_commit) THEN
2316: COMMIT WORK;
2317: END IF;
2318: --
2319: -- Standard API to get message count, and if 1,
2321: --
2322: Fnd_Msg_Pub.Count_And_Get (
2323: p_count => x_msg_count,
2324: p_data => x_msg_data,
2325: p_encoded => Fnd_Api.G_FALSE
2326: );
2327: --
2328: -- Add success message to message list.
2329: --
2330: IF AMS_DEBUG_HIGH_ON THEN
2331: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
2332: END IF;
2333: EXCEPTION
2334: WHEN Fnd_Api.G_EXC_ERROR THEN
2335: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2336: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2337: Fnd_Msg_Pub.Count_And_Get (
2338: p_count => x_msg_count,
2332: END IF;
2333: EXCEPTION
2334: WHEN Fnd_Api.G_EXC_ERROR THEN
2335: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2336: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2337: Fnd_Msg_Pub.Count_And_Get (
2338: p_count => x_msg_count,
2339: p_data => x_msg_data,
2340: p_encoded => FND_API.G_FALSE
2336: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2337: Fnd_Msg_Pub.Count_And_Get (
2338: p_count => x_msg_count,
2339: p_data => x_msg_data,
2340: p_encoded => FND_API.G_FALSE
2341: );
2342: RAISE Fnd_Api.G_EXC_ERROR;
2343: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2344: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2338: p_count => x_msg_count,
2339: p_data => x_msg_data,
2340: p_encoded => FND_API.G_FALSE
2341: );
2342: RAISE Fnd_Api.G_EXC_ERROR;
2343: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2344: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2345: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2346: Fnd_Msg_Pub.Count_And_Get (
2339: p_data => x_msg_data,
2340: p_encoded => FND_API.G_FALSE
2341: );
2342: RAISE Fnd_Api.G_EXC_ERROR;
2343: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2344: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2345: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2346: Fnd_Msg_Pub.Count_And_Get (
2347: p_count => x_msg_count,
2341: );
2342: RAISE Fnd_Api.G_EXC_ERROR;
2343: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2344: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2345: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2346: Fnd_Msg_Pub.Count_And_Get (
2347: p_count => x_msg_count,
2348: p_data => x_msg_data,
2349: p_encoded => FND_API.G_FALSE
2345: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2346: Fnd_Msg_Pub.Count_And_Get (
2347: p_count => x_msg_count,
2348: p_data => x_msg_data,
2349: p_encoded => FND_API.G_FALSE
2350: );
2351: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2352: when ams_utility_pvt.resource_locked then
2353: Fnd_Message.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2347: p_count => x_msg_count,
2348: p_data => x_msg_data,
2349: p_encoded => FND_API.G_FALSE
2350: );
2351: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2352: when ams_utility_pvt.resource_locked then
2353: Fnd_Message.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2354: Fnd_Msg_Pub.ADD;
2355: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2351: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2352: when ams_utility_pvt.resource_locked then
2353: Fnd_Message.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2354: Fnd_Msg_Pub.ADD;
2355: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2356: WHEN OTHERS THEN
2357: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2358:
2359: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2355: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2356: WHEN OTHERS THEN
2357: -- ROLLBACK TO CALCULATE_METRIC_SAVEPOINT;
2358:
2359: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2360: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2361: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2362: END IF;
2363: Fnd_Msg_Pub.Count_And_Get (
2362: END IF;
2363: Fnd_Msg_Pub.Count_And_Get (
2364: p_count => x_msg_count,
2365: p_data => x_msg_data,
2366: p_encoded => FND_API.G_FALSE
2367: );
2368: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2369:
2370: END Calculate_Metric;
2364: p_count => x_msg_count,
2365: p_data => x_msg_data,
2366: p_encoded => FND_API.G_FALSE
2367: );
2368: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR ;
2369:
2370: END Calculate_Metric;
2371:
2372: -- Start of comments
2400: -- End of comments
2401:
2402: PROCEDURE Copy_Seeded_Metric (
2403: p_api_version IN NUMBER,
2404: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2405: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2406: x_return_status OUT NOCOPY VARCHAR2,
2407: x_msg_count OUT NOCOPY NUMBER,
2408: x_msg_data OUT NOCOPY VARCHAR2,
2401:
2402: PROCEDURE Copy_Seeded_Metric (
2403: p_api_version IN NUMBER,
2404: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2405: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2406: x_return_status OUT NOCOPY VARCHAR2,
2407: x_msg_count OUT NOCOPY NUMBER,
2408: x_msg_data OUT NOCOPY VARCHAR2,
2409: p_arc_act_metric_used_by IN VARCHAR2 ,
2553: END IF;
2554: --
2555: -- Initialize message list if p_init_msg_list is set to TRUE.
2556: --
2557: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2558: Fnd_Msg_Pub.Initialize;
2559: END IF;
2560: --
2561: -- Standard check for API version compatibility.
2559: END IF;
2560: --
2561: -- Standard check for API version compatibility.
2562: --
2563: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
2564: p_api_version,
2565: L_API_NAME,
2566: G_PKG_NAME)
2567: THEN
2564: p_api_version,
2565: L_API_NAME,
2566: G_PKG_NAME)
2567: THEN
2568: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2569: END IF;
2570: --
2571: -- Initialize API return status to success.
2572: --
2569: END IF;
2570: --
2571: -- Initialize API return status to success.
2572: --
2573: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2574: --
2575: -- Begin API Body
2576: --
2577: IF p_arc_act_metric_used_by IN ('RCAM', 'CAMP') THEN
2600: FETCH c_get_dilg_setup INTO l_custom_setup_id;
2601: CLOSE c_get_dilg_setup;
2602: ELSIF p_arc_act_metric_used_by in
2603: ('AMS_COMP_START', 'AMS_COMP_SHOW_WEB_PAGE', 'AMS_COMP_END') THEN
2604: l_has_amet := fnd_api.g_true;
2605: ****** BUG2845365 ******/
2606: END IF;
2607:
2608: -- choang - 27-oct-2003 - flag consists of 1 or 0
2631: IF AMS_DEBUG_HIGH_ON THEN
2632: Ams_Utility_Pvt.debug_message(l_full_name||': Metric_Id='||l_metric_id);
2633: END IF;
2634: /*** choang - 27-oct-2003 - optimized to filter in the metric query
2635: IF (l_has_cost = FND_API.G_TRUE AND l_metric_category IN (901,902)) OR
2636: (l_has_amet = FND_API.G_TRUE AND l_metric_category NOT IN (901,902)) THEN
2637: ***/
2638: l_act_metrics_rec.metric_id := l_metric_id ;
2639: l_act_metrics_rec.arc_act_metric_used_by := p_arc_act_metric_used_by;
2632: Ams_Utility_Pvt.debug_message(l_full_name||': Metric_Id='||l_metric_id);
2633: END IF;
2634: /*** choang - 27-oct-2003 - optimized to filter in the metric query
2635: IF (l_has_cost = FND_API.G_TRUE AND l_metric_category IN (901,902)) OR
2636: (l_has_amet = FND_API.G_TRUE AND l_metric_category NOT IN (901,902)) THEN
2637: ***/
2638: l_act_metrics_rec.metric_id := l_metric_id ;
2639: l_act_metrics_rec.arc_act_metric_used_by := p_arc_act_metric_used_by;
2640: l_act_metrics_rec.act_metric_used_by_id := p_act_metric_used_by_id;
2640: l_act_metrics_rec.act_metric_used_by_id := p_act_metric_used_by_id;
2641: l_act_metrics_rec.application_id := 530 ; -- Oracle Marketing
2642: Ams_Actmetric_Pub.Create_ActMetric (
2643: p_api_version => p_api_version,
2644: p_init_msg_list => Fnd_Api.G_FALSE,
2645: p_commit => Fnd_Api.G_FALSE,
2646: p_validation_level => Fnd_Api.g_valid_level_full,
2647: p_act_metric_rec => l_act_metrics_rec,
2648: x_return_status => x_return_status,
2641: l_act_metrics_rec.application_id := 530 ; -- Oracle Marketing
2642: Ams_Actmetric_Pub.Create_ActMetric (
2643: p_api_version => p_api_version,
2644: p_init_msg_list => Fnd_Api.G_FALSE,
2645: p_commit => Fnd_Api.G_FALSE,
2646: p_validation_level => Fnd_Api.g_valid_level_full,
2647: p_act_metric_rec => l_act_metrics_rec,
2648: x_return_status => x_return_status,
2649: x_msg_count => x_msg_count,
2642: Ams_Actmetric_Pub.Create_ActMetric (
2643: p_api_version => p_api_version,
2644: p_init_msg_list => Fnd_Api.G_FALSE,
2645: p_commit => Fnd_Api.G_FALSE,
2646: p_validation_level => Fnd_Api.g_valid_level_full,
2647: p_act_metric_rec => l_act_metrics_rec,
2648: x_return_status => x_return_status,
2649: x_msg_count => x_msg_count,
2650: x_msg_data => x_msg_data,
2650: x_msg_data => x_msg_data,
2651: x_activity_metric_id => l_activity_metric_id
2652: );
2653: -- If any errors happen abort API.
2654: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2655: RAISE Fnd_Api.G_EXC_ERROR;
2656: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2657: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2651: x_activity_metric_id => l_activity_metric_id
2652: );
2653: -- If any errors happen abort API.
2654: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2655: RAISE Fnd_Api.G_EXC_ERROR;
2656: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2657: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659: /*** END IF; ***/
2652: );
2653: -- If any errors happen abort API.
2654: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2655: RAISE Fnd_Api.G_EXC_ERROR;
2656: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2657: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659: /*** END IF; ***/
2660: END LOOP;
2653: -- If any errors happen abort API.
2654: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2655: RAISE Fnd_Api.G_EXC_ERROR;
2656: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2657: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2658: END IF;
2659: /*** END IF; ***/
2660: END LOOP;
2661: CLOSE c_tpl_all_metrics;
2671: --
2672: Fnd_Msg_Pub.Count_And_Get (
2673: p_count => x_msg_count,
2674: p_data => x_msg_data,
2675: p_encoded => Fnd_Api.G_FALSE
2676: );
2677: --
2678: -- Debug message.
2679: --
2680: IF AMS_DEBUG_HIGH_ON THEN
2681: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
2682: END IF;
2683: EXCEPTION
2684: WHEN Fnd_Api.G_EXC_ERROR THEN
2685: ROLLBACK TO Copy_Seeded_Metric_pvt;
2686: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2687: Fnd_Msg_Pub.Count_And_Get (
2688: p_count => x_msg_count,
2682: END IF;
2683: EXCEPTION
2684: WHEN Fnd_Api.G_EXC_ERROR THEN
2685: ROLLBACK TO Copy_Seeded_Metric_pvt;
2686: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2687: Fnd_Msg_Pub.Count_And_Get (
2688: p_count => x_msg_count,
2689: p_data => x_msg_data,
2690: p_encoded => FND_API.G_FALSE
2686: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2687: Fnd_Msg_Pub.Count_And_Get (
2688: p_count => x_msg_count,
2689: p_data => x_msg_data,
2690: p_encoded => FND_API.G_FALSE
2691: );
2692: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2693: ROLLBACK TO Copy_Seeded_Metric_pvt;
2694: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2688: p_count => x_msg_count,
2689: p_data => x_msg_data,
2690: p_encoded => FND_API.G_FALSE
2691: );
2692: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2693: ROLLBACK TO Copy_Seeded_Metric_pvt;
2694: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2695: Fnd_Msg_Pub.Count_And_Get (
2696: p_count => x_msg_count,
2690: p_encoded => FND_API.G_FALSE
2691: );
2692: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2693: ROLLBACK TO Copy_Seeded_Metric_pvt;
2694: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2695: Fnd_Msg_Pub.Count_And_Get (
2696: p_count => x_msg_count,
2697: p_data => x_msg_data,
2698: p_encoded => FND_API.G_FALSE
2694: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2695: Fnd_Msg_Pub.Count_And_Get (
2696: p_count => x_msg_count,
2697: p_data => x_msg_data,
2698: p_encoded => FND_API.G_FALSE
2699: );
2700: WHEN OTHERS THEN
2701: ROLLBACK TO Copy_Seeded_Metric_pvt;
2702: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2698: p_encoded => FND_API.G_FALSE
2699: );
2700: WHEN OTHERS THEN
2701: ROLLBACK TO Copy_Seeded_Metric_pvt;
2702: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2703: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2704: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2705: END IF;
2706: Fnd_Msg_Pub.Count_And_Get (
2705: END IF;
2706: Fnd_Msg_Pub.Count_And_Get (
2707: p_count => x_msg_count,
2708: p_data => x_msg_data,
2709: p_encoded => FND_API.G_FALSE
2710: );
2711: END Copy_seeded_Metric;
2712: --
2713: -- NAME
2745: --
2746: -- End of comments
2747: PROCEDURE Create_Apport_Metric(
2748: p_api_version IN NUMBER,
2749: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2750: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2751: x_return_status OUT NOCOPY VARCHAR2,
2752: x_msg_count OUT NOCOPY NUMBER,
2753: x_msg_data OUT NOCOPY VARCHAR2,
2746: -- End of comments
2747: PROCEDURE Create_Apport_Metric(
2748: p_api_version IN NUMBER,
2749: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2750: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2751: x_return_status OUT NOCOPY VARCHAR2,
2752: x_msg_count OUT NOCOPY NUMBER,
2753: x_msg_data OUT NOCOPY VARCHAR2,
2754: p_obj_association_id IN NUMBER
2786: END IF;
2787: --
2788: -- Initialize message list if p_init_msg_list is set to TRUE.
2789: --
2790: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
2791: Fnd_Msg_Pub.Initialize;
2792: END IF;
2793: --
2794: -- Standard check for API version compatibility.
2792: END IF;
2793: --
2794: -- Standard check for API version compatibility.
2795: --
2796: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
2797: p_api_version,
2798: L_API_NAME,
2799: G_PKG_NAME)
2800: THEN
2797: p_api_version,
2798: L_API_NAME,
2799: G_PKG_NAME)
2800: THEN
2801: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2802: END IF;
2803: --
2804: -- Initialize API return status to success.
2805: --
2802: END IF;
2803: --
2804: -- Initialize API return status to success.
2805: --
2806: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2807: --
2808: -- Begin API Body
2809: --
2810: Get_Met_Apport_Val(
2826: l_act_metrics_rec.func_actual_value ;
2827: Ams_Actmetric_Pvt.Update_ActMetric (
2828: p_api_version => l_api_version,
2829: p_init_msg_list => p_init_msg_list,
2830: p_commit => Fnd_Api.G_FALSE,
2831: p_validation_level => Fnd_Api.g_valid_level_full,
2832: p_act_metric_rec => l_act_metrics_rec,
2833: x_return_status => l_return_status,
2834: x_msg_count => x_msg_count,
2827: Ams_Actmetric_Pvt.Update_ActMetric (
2828: p_api_version => l_api_version,
2829: p_init_msg_list => p_init_msg_list,
2830: p_commit => Fnd_Api.G_FALSE,
2831: p_validation_level => Fnd_Api.g_valid_level_full,
2832: p_act_metric_rec => l_act_metrics_rec,
2833: x_return_status => l_return_status,
2834: x_msg_count => x_msg_count,
2835: x_msg_data => x_msg_data
2858: l_act_metrics_rec.functional_currency_code ;
2859: Ams_Actmetric_Pub.Create_ActMetric (
2860: p_api_version => l_api_version,
2861: p_init_msg_list => p_init_msg_list,
2862: p_commit => Fnd_Api.G_FALSE,
2863: p_validation_level => Fnd_Api.g_valid_level_full,
2864: p_act_metric_rec => l_act_metrics_rec,
2865: x_return_status => l_return_status,
2866: x_msg_count => x_msg_count,
2859: Ams_Actmetric_Pub.Create_ActMetric (
2860: p_api_version => l_api_version,
2861: p_init_msg_list => p_init_msg_list,
2862: p_commit => Fnd_Api.G_FALSE,
2863: p_validation_level => Fnd_Api.g_valid_level_full,
2864: p_act_metric_rec => l_act_metrics_rec,
2865: x_return_status => l_return_status,
2866: x_msg_count => x_msg_count,
2867: x_msg_data => x_msg_data,
2868: x_activity_metric_id => l_activity_metric_id
2869: );
2870: END IF;
2871: -- If any errors happen abort API.
2872: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2873: RAISE Fnd_Api.G_EXC_ERROR;
2874: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2876: END IF;
2869: );
2870: END IF;
2871: -- If any errors happen abort API.
2872: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2873: RAISE Fnd_Api.G_EXC_ERROR;
2874: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2876: END IF;
2877: --
2870: END IF;
2871: -- If any errors happen abort API.
2872: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2873: RAISE Fnd_Api.G_EXC_ERROR;
2874: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2876: END IF;
2877: --
2878: -- Standard API to get message count, and if 1,
2871: -- If any errors happen abort API.
2872: IF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
2873: RAISE Fnd_Api.G_EXC_ERROR;
2874: ELSIF l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
2875: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2876: END IF;
2877: --
2878: -- Standard API to get message count, and if 1,
2879: -- set the message data OUT variable.
2880: --
2881: Fnd_Msg_Pub.Count_And_Get (
2882: p_count => x_msg_count,
2883: p_data => x_msg_data,
2884: p_encoded => Fnd_Api.G_FALSE
2885: );
2886: --
2887: -- Add success message to message list.
2888: --
2889: IF AMS_DEBUG_HIGH_ON THEN
2890: Ams_Utility_Pvt.debug_message(l_full_name ||': END Success');
2891: END IF;
2892: EXCEPTION
2893: WHEN Fnd_Api.G_EXC_ERROR THEN
2894: ROLLBACK TO Create_App_Metric_pvt;
2895: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2896: Fnd_Msg_Pub.Count_And_Get (
2897: p_count => x_msg_count,
2891: END IF;
2892: EXCEPTION
2893: WHEN Fnd_Api.G_EXC_ERROR THEN
2894: ROLLBACK TO Create_App_Metric_pvt;
2895: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2896: Fnd_Msg_Pub.Count_And_Get (
2897: p_count => x_msg_count,
2898: p_data => x_msg_data,
2899: p_encoded => FND_API.G_FALSE
2895: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2896: Fnd_Msg_Pub.Count_And_Get (
2897: p_count => x_msg_count,
2898: p_data => x_msg_data,
2899: p_encoded => FND_API.G_FALSE
2900: );
2901: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2902: ROLLBACK TO Create_App_Metric_pvt;
2903: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2897: p_count => x_msg_count,
2898: p_data => x_msg_data,
2899: p_encoded => FND_API.G_FALSE
2900: );
2901: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2902: ROLLBACK TO Create_App_Metric_pvt;
2903: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2904: Fnd_Msg_Pub.Count_And_Get (
2905: p_count => x_msg_count,
2899: p_encoded => FND_API.G_FALSE
2900: );
2901: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2902: ROLLBACK TO Create_App_Metric_pvt;
2903: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2904: Fnd_Msg_Pub.Count_And_Get (
2905: p_count => x_msg_count,
2906: p_data => x_msg_data,
2907: p_encoded => FND_API.G_FALSE
2903: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2904: Fnd_Msg_Pub.Count_And_Get (
2905: p_count => x_msg_count,
2906: p_data => x_msg_data,
2907: p_encoded => FND_API.G_FALSE
2908: );
2909: WHEN OTHERS THEN
2910: ROLLBACK TO Create_App_Metric_pvt;
2911: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2907: p_encoded => FND_API.G_FALSE
2908: );
2909: WHEN OTHERS THEN
2910: ROLLBACK TO Create_App_Metric_pvt;
2911: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2912: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
2913: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2914: END IF;
2915: Fnd_Msg_Pub.Count_And_Get (
2914: END IF;
2915: Fnd_Msg_Pub.Count_And_Get (
2916: p_count => x_msg_count,
2917: p_data => x_msg_data,
2918: p_encoded => FND_API.G_FALSE
2919: );
2920: END Create_Apport_Metric;
2921:
2922: -- Start of Comments
2938:
2939: PROCEDURE Refresh_Act_metrics (
2940: errbuf OUT NOCOPY VARCHAR2,
2941: retcode OUT NOCOPY NUMBER,
2942: p_update_history IN VARCHAR2 := Fnd_Api.G_FALSE
2943: )
2944: IS
2945: BEGIN
2946: -- DMVINCEN: 04-APR-2001: New routine.
2966: -- 08/16/2001 dmvincen Removed unused parameters from calculate_metric
2967: -- 08/30/2001 huili Added call to the procedure "Run_Object_Procedures".
2968: PROCEDURE Refresh_Metric (
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
2971: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2967: -- 08/30/2001 huili Added call to the procedure "Run_Object_Procedures".
2968: PROCEDURE Refresh_Metric (
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
2971: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2975: p_activity_metric_id IN NUMBER,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2975: p_activity_metric_id IN NUMBER,
2976: p_refresh_type IN VARCHAR2,
2977: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE
2978: )
2979: IS
2980: L_API_VERSION CONSTANT NUMBER := 1.0;
2981: L_API_NAME VARCHAR2(30) := 'Refresh_Metric';
3026: END IF;
3027: --
3028: -- Initialize message list if p_init_msg_list is set to TRUE.
3029: --
3030: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3031: Fnd_Msg_Pub.Initialize;
3032: END IF;
3033: --
3034: -- Standard check for API version compatibility.
3032: END IF;
3033: --
3034: -- Standard check for API version compatibility.
3035: --
3036: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3037: p_api_version,
3038: L_API_NAME,
3039: G_PKG_NAME)
3040: THEN
3037: p_api_version,
3038: L_API_NAME,
3039: G_PKG_NAME)
3040: THEN
3041: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043: --
3044: -- Initialize API return status to success.
3045: --
3042: END IF;
3043: --
3044: -- Initialize API return status to success.
3045: --
3046: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3047: --
3048: -- Begin API Body.
3049: --
3050:
3059: Fnd_Message.Set_Name('AMS', 'AMS_METR_INVALID_ACT_METR');
3060: Fnd_Msg_Pub.ADD;
3061: END IF;
3062: CLOSE c_act_metric;
3063: RAISE Fnd_Api.G_EXC_ERROR;
3064: END IF;
3065: CLOSE c_act_metric;
3066:
3067: Run_Object_Procedures (
3080: -- Only Current Activity Metric Has to be refreshed
3081: Calculate_Metric (
3082: p_api_version => l_api_version ,
3083: p_init_msg_list => p_init_msg_list,
3084: p_commit => Fnd_Api.G_FALSE,
3085: x_return_status => x_return_status,
3086: x_msg_count => x_msg_count,
3087: x_msg_data => x_msg_data,
3088: p_activity_metric_id => p_activity_metric_id,
3093: x_forecasted_value => l_forecasted_value,
3094: p_refresh_function => p_refresh_function,
3095: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3096: -- If any errors happen abort API.
3097: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3098: RAISE Fnd_Api.G_EXC_ERROR;
3099: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3100: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3094: p_refresh_function => p_refresh_function,
3095: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3096: -- If any errors happen abort API.
3097: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3098: RAISE Fnd_Api.G_EXC_ERROR;
3099: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3100: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3095: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3096: -- If any errors happen abort API.
3097: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3098: RAISE Fnd_Api.G_EXC_ERROR;
3099: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3100: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: ELSIF p_refresh_type = 'ALL'
3096: -- If any errors happen abort API.
3097: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3098: RAISE Fnd_Api.G_EXC_ERROR;
3099: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3100: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: ELSIF p_refresh_type = 'ALL'
3104: THEN
3115: END IF;
3116: Calculate_Metric (
3117: p_api_version => l_api_version ,
3118: p_init_msg_list => p_init_msg_list,
3119: p_commit => Fnd_Api.G_FALSE,
3120: x_return_status => x_return_status,
3121: x_msg_count => x_msg_count,
3122: x_msg_data => x_msg_data,
3123: p_activity_metric_id => l_all_metrics_rec.activity_metric_id,
3129: p_refresh_function => p_refresh_function,
3130: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3131:
3132: -- If any errors happen abort API.
3133: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3134: RAISE Fnd_Api.G_EXC_ERROR;
3135: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3130: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3131:
3132: -- If any errors happen abort API.
3133: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3134: RAISE Fnd_Api.G_EXC_ERROR;
3135: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138: END LOOP;
3131:
3132: -- If any errors happen abort API.
3133: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3134: RAISE Fnd_Api.G_EXC_ERROR;
3135: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138: END LOOP;
3139: END IF;
3132: -- If any errors happen abort API.
3133: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3134: RAISE Fnd_Api.G_EXC_ERROR;
3135: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3137: END IF;
3138: END LOOP;
3139: END IF;
3140: --
3142: --
3143: --
3144: -- Standard check for commit request.
3145: --
3146: IF Fnd_Api.To_Boolean (p_commit) THEN
3147: COMMIT WORK;
3148: END IF;
3149: --
3150: -- Standard API to get message count, and if 1,
3152: --
3153: Fnd_Msg_Pub.Count_And_Get (
3154: p_count => x_msg_count,
3155: p_data => x_msg_data,
3156: p_encoded => Fnd_Api.G_FALSE
3157: );
3158: --
3159: -- Add success message to message list.
3160: --
3161: IF AMS_DEBUG_HIGH_ON THEN
3162: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
3163: END IF;
3164: EXCEPTION
3165: WHEN Fnd_Api.G_EXC_ERROR THEN
3166: ROLLBACK TO Refresh_Metric_SavePoint;
3167: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3168: Fnd_Msg_Pub.Count_And_Get (
3169: p_count => x_msg_count,
3163: END IF;
3164: EXCEPTION
3165: WHEN Fnd_Api.G_EXC_ERROR THEN
3166: ROLLBACK TO Refresh_Metric_SavePoint;
3167: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3168: Fnd_Msg_Pub.Count_And_Get (
3169: p_count => x_msg_count,
3170: p_data => x_msg_data,
3171: p_encoded => FND_API.G_FALSE
3167: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3168: Fnd_Msg_Pub.Count_And_Get (
3169: p_count => x_msg_count,
3170: p_data => x_msg_data,
3171: p_encoded => FND_API.G_FALSE
3172: );
3173: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3174: ROLLBACK TO Refresh_Metric_SavePoint;
3175: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3169: p_count => x_msg_count,
3170: p_data => x_msg_data,
3171: p_encoded => FND_API.G_FALSE
3172: );
3173: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3174: ROLLBACK TO Refresh_Metric_SavePoint;
3175: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3176: Fnd_Msg_Pub.Count_And_Get (
3177: p_count => x_msg_count,
3171: p_encoded => FND_API.G_FALSE
3172: );
3173: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3174: ROLLBACK TO Refresh_Metric_SavePoint;
3175: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3176: Fnd_Msg_Pub.Count_And_Get (
3177: p_count => x_msg_count,
3178: p_data => x_msg_data,
3179: p_encoded => FND_API.G_FALSE
3175: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3176: Fnd_Msg_Pub.Count_And_Get (
3177: p_count => x_msg_count,
3178: p_data => x_msg_data,
3179: p_encoded => FND_API.G_FALSE
3180: );
3181: WHEN OTHERS THEN
3182: ROLLBACK TO Refresh_Metric_SavePoint;
3183: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3179: p_encoded => FND_API.G_FALSE
3180: );
3181: WHEN OTHERS THEN
3182: ROLLBACK TO Refresh_Metric_SavePoint;
3183: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3184: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3185: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3186: END IF;
3187: Fnd_Msg_Pub.Count_And_Get (
3186: END IF;
3187: Fnd_Msg_Pub.Count_And_Get (
3188: p_count => x_msg_count,
3189: p_data => x_msg_data,
3190: p_encoded => FND_API.G_FALSE
3191: );
3192: END Refresh_Metric;
3193:
3194: -- Start of comments
3205: -- 08/16/2001 dmvincen Created
3206: --
3207: PROCEDURE Refresh_Metric (
3208: p_api_version IN NUMBER,
3209: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
3210: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3211: x_return_status OUT NOCOPY VARCHAR2,
3212: x_msg_count OUT NOCOPY NUMBER,
3213: x_msg_data OUT NOCOPY VARCHAR2,
3206: --
3207: PROCEDURE Refresh_Metric (
3208: p_api_version IN NUMBER,
3209: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
3210: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3211: x_return_status OUT NOCOPY VARCHAR2,
3212: x_msg_count OUT NOCOPY NUMBER,
3213: x_msg_data OUT NOCOPY VARCHAR2,
3214: p_arc_act_metric_used_by IN VARCHAR2,
3212: x_msg_count OUT NOCOPY NUMBER,
3213: x_msg_data OUT NOCOPY VARCHAR2,
3214: p_arc_act_metric_used_by IN VARCHAR2,
3215: p_act_metric_used_by_id IN NUMBER,
3216: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE
3217: )
3218: IS
3219: L_API_VERSION CONSTANT NUMBER := 1.0;
3220: L_API_NAME VARCHAR2(30) := 'Refresh_Metric';
3267: END IF;
3268: --
3269: -- Initialize message list if p_init_msg_list is set to TRUE.
3270: --
3271: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3272: Fnd_Msg_Pub.Initialize;
3273: END IF;
3274: --
3275: -- Standard check for API version compatibility.
3273: END IF;
3274: --
3275: -- Standard check for API version compatibility.
3276: --
3277: IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3278: p_api_version,
3279: L_API_NAME,
3280: G_PKG_NAME)
3281: THEN
3278: p_api_version,
3279: L_API_NAME,
3280: G_PKG_NAME)
3281: THEN
3282: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3283: END IF;
3284: --
3285: -- Initialize API return status to success.
3286: --
3283: END IF;
3284: --
3285: -- Initialize API return status to success.
3286: --
3287: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3288: --
3289: -- Begin API Body.
3290:
3291: l_is_locked := ams_actmetric_pvt.lock_object(
3289: -- Begin API Body.
3290:
3291: l_is_locked := ams_actmetric_pvt.lock_object(
3292: p_api_version => l_api_version ,
3293: p_init_msg_list => Fnd_Api.G_FALSE,
3294: p_arc_act_metric_used_by => p_arc_act_metric_used_by,
3295: p_act_metric_used_by_id => p_act_metric_used_by_id,
3296: x_return_status => x_return_status,
3297: x_msg_count => x_msg_count,
3296: x_return_status => x_return_status,
3297: x_msg_count => x_msg_count,
3298: x_msg_data => x_msg_data);
3299:
3300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3301: RAISE Fnd_Api.G_EXC_ERROR;
3302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3304: elsif l_is_locked = FND_API.G_FALSE THEN
3297: x_msg_count => x_msg_count,
3298: x_msg_data => x_msg_data);
3299:
3300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3301: RAISE Fnd_Api.G_EXC_ERROR;
3302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3304: elsif l_is_locked = FND_API.G_FALSE THEN
3305: -- the object needs to be lock by this process.
3298: x_msg_data => x_msg_data);
3299:
3300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3301: RAISE Fnd_Api.G_EXC_ERROR;
3302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3304: elsif l_is_locked = FND_API.G_FALSE THEN
3305: -- the object needs to be lock by this process.
3306: RAISE ams_utility_pvt.resource_locked;
3299:
3300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3301: RAISE Fnd_Api.G_EXC_ERROR;
3302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3304: elsif l_is_locked = FND_API.G_FALSE THEN
3305: -- the object needs to be lock by this process.
3306: RAISE ams_utility_pvt.resource_locked;
3307: END IF;
3300: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3301: RAISE Fnd_Api.G_EXC_ERROR;
3302: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3303: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3304: elsif l_is_locked = FND_API.G_FALSE THEN
3305: -- the object needs to be lock by this process.
3306: RAISE ams_utility_pvt.resource_locked;
3307: END IF;
3308:
3315: p_act_metric_used_by_id => p_act_metric_used_by_id,
3316: x_return_status => x_return_status,
3317: x_msg_count => x_msg_count,
3318: x_msg_data => x_msg_data,
3319: p_commit => FND_API.G_FALSE,
3320: p_run_functions => FND_API.G_TRUE--,
3321: --p_update_history => fnd_api.g_false
3322: );
3323: /****** OBSOLETE 11/19/2002: Using engine.
3316: x_return_status => x_return_status,
3317: x_msg_count => x_msg_count,
3318: x_msg_data => x_msg_data,
3319: p_commit => FND_API.G_FALSE,
3320: p_run_functions => FND_API.G_TRUE--,
3321: --p_update_history => fnd_api.g_false
3322: );
3323: /****** OBSOLETE 11/19/2002: Using engine.
3324: Run_Object_Procedures (
3317: x_msg_count => x_msg_count,
3318: x_msg_data => x_msg_data,
3319: p_commit => FND_API.G_FALSE,
3320: p_run_functions => FND_API.G_TRUE--,
3321: --p_update_history => fnd_api.g_false
3322: );
3323: /****** OBSOLETE 11/19/2002: Using engine.
3324: Run_Object_Procedures (
3325: p_arc_act_metric_used_by => p_arc_act_metric_used_by,
3336: -- p_act_metric_used_by_id);
3337: Calculate_Metric (
3338: p_api_version => l_api_version ,
3339: p_init_msg_list => p_init_msg_list,
3340: p_commit => Fnd_Api.G_FALSE,
3341: x_return_status => x_return_status,
3342: x_msg_count => x_msg_count,
3343: x_msg_data => x_msg_data,
3344: p_activity_metric_id => l_all_metrics_rec.activity_metric_id,
3350: p_refresh_function => p_refresh_function,
3351: p_func_currency_code => Ams_Actmetric_Pvt.DEFAULT_FUNC_CURRENCY);
3352:
3353: -- If any errors happen abort API.
3354: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3355: CLOSE c_all_metrics;
3356: RAISE Fnd_Api.G_EXC_ERROR;
3357: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3358: CLOSE c_all_metrics;
3352:
3353: -- If any errors happen abort API.
3354: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3355: CLOSE c_all_metrics;
3356: RAISE Fnd_Api.G_EXC_ERROR;
3357: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3358: CLOSE c_all_metrics;
3359: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3353: -- If any errors happen abort API.
3354: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3355: CLOSE c_all_metrics;
3356: RAISE Fnd_Api.G_EXC_ERROR;
3357: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3358: CLOSE c_all_metrics;
3359: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: END LOOP;
3355: CLOSE c_all_metrics;
3356: RAISE Fnd_Api.G_EXC_ERROR;
3357: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3358: CLOSE c_all_metrics;
3359: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3360: END IF;
3361: END LOOP;
3362: CLOSE c_all_metrics;
3363:
3365: -- BUG2845365: Removed dialogue support.
3366: IF p_arc_act_metric_used_by = 'DILG' THEN
3367: Refresh_Components(
3368: p_api_version => p_api_version,
3369: p_init_msg_list => Fnd_Api.G_FALSE,
3370: p_commit => p_commit,
3371: x_return_status => x_return_status,
3372: x_msg_count => x_msg_count,
3373: x_msg_data => x_msg_data,
3382: --
3383: --
3384: -- Standard check for commit request.
3385: --
3386: IF Fnd_Api.To_Boolean (p_commit) THEN
3387: COMMIT WORK;
3388: END IF;
3389: --
3390: -- Standard API to get message count, and if 1,
3392: --
3393: Fnd_Msg_Pub.Count_And_Get (
3394: p_count => x_msg_count,
3395: p_data => x_msg_data,
3396: p_encoded => Fnd_Api.G_FALSE
3397: );
3398: --
3399: -- Add success message to message list.
3400: --
3405: when ams_utility_pvt.resource_locked then
3406: ROLLBACK TO Refresh_Metric_SavePoint2;
3407: Fnd_Message.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
3408: Fnd_Msg_Pub.ADD;
3409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3410: Fnd_Msg_Pub.Count_And_Get (
3411: p_count => x_msg_count,
3412: p_data => x_msg_data,
3413: p_encoded => FND_API.G_FALSE
3409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3410: Fnd_Msg_Pub.Count_And_Get (
3411: p_count => x_msg_count,
3412: p_data => x_msg_data,
3413: p_encoded => FND_API.G_FALSE
3414: );
3415: /*
3416: EXCEPTION
3417: WHEN Fnd_Api.G_EXC_ERROR THEN
3413: p_encoded => FND_API.G_FALSE
3414: );
3415: /*
3416: EXCEPTION
3417: WHEN Fnd_Api.G_EXC_ERROR THEN
3418: --ROLLBACK TO Refresh_Metric_SavePoint;
3419: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3420: Fnd_Msg_Pub.Count_And_Get (
3421: p_count => x_msg_count,
3415: /*
3416: EXCEPTION
3417: WHEN Fnd_Api.G_EXC_ERROR THEN
3418: --ROLLBACK TO Refresh_Metric_SavePoint;
3419: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3420: Fnd_Msg_Pub.Count_And_Get (
3421: p_count => x_msg_count,
3422: p_data => x_msg_data,
3423: p_encoded => FND_API.G_FALSE
3419: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3420: Fnd_Msg_Pub.Count_And_Get (
3421: p_count => x_msg_count,
3422: p_data => x_msg_data,
3423: p_encoded => FND_API.G_FALSE
3424: );
3425: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3426: --ROLLBACK TO Refresh_Metric_SavePoint;
3427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3421: p_count => x_msg_count,
3422: p_data => x_msg_data,
3423: p_encoded => FND_API.G_FALSE
3424: );
3425: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3426: --ROLLBACK TO Refresh_Metric_SavePoint;
3427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3428: Fnd_Msg_Pub.Count_And_Get (
3429: p_count => x_msg_count,
3423: p_encoded => FND_API.G_FALSE
3424: );
3425: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3426: --ROLLBACK TO Refresh_Metric_SavePoint;
3427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3428: Fnd_Msg_Pub.Count_And_Get (
3429: p_count => x_msg_count,
3430: p_data => x_msg_data,
3431: p_encoded => FND_API.G_FALSE
3427: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3428: Fnd_Msg_Pub.Count_And_Get (
3429: p_count => x_msg_count,
3430: p_data => x_msg_data,
3431: p_encoded => FND_API.G_FALSE
3432: );
3433: WHEN OTHERS THEN
3434: --ROLLBACK TO Refresh_Metric_SavePoint;
3435: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3431: p_encoded => FND_API.G_FALSE
3432: );
3433: WHEN OTHERS THEN
3434: --ROLLBACK TO Refresh_Metric_SavePoint;
3435: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3436: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3437: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3438: END IF;
3439: Fnd_Msg_Pub.Count_And_Get (
3438: END IF;
3439: Fnd_Msg_Pub.Count_And_Get (
3440: p_count => x_msg_count,
3441: p_data => x_msg_data,
3442: p_encoded => FND_API.G_FALSE
3443: );
3444: */
3445: END Refresh_Metric;
3446:
3554: -- 03/28/2002 dmvincen Created
3555: --
3556: PROCEDURE Refresh_Components(
3557: p_api_version IN NUMBER,
3558: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
3559: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3560: x_return_status OUT NOCOPY VARCHAR2,
3561: x_msg_count OUT NOCOPY NUMBER,
3562: x_msg_data OUT NOCOPY VARCHAR2,
3555: --
3556: PROCEDURE Refresh_Components(
3557: p_api_version IN NUMBER,
3558: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE,
3559: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
3560: x_return_status OUT NOCOPY VARCHAR2,
3561: x_msg_count OUT NOCOPY NUMBER,
3562: x_msg_data OUT NOCOPY VARCHAR2,
3563: p_arc_act_metric_used_by IN VARCHAR2,
3561: x_msg_count OUT NOCOPY NUMBER,
3562: x_msg_data OUT NOCOPY VARCHAR2,
3563: p_arc_act_metric_used_by IN VARCHAR2,
3564: p_act_metric_used_by_id IN NUMBER,
3565: p_refresh_function IN VARCHAR2 := Fnd_Api.G_TRUE
3566: )
3567: IS
3568: L_API_VERSION CONSTANT NUMBER := 1.0;
3569: L_API_NAME VARCHAR2(30) := 'Refresh_Component';
3586: END IF;
3587: --
3588: -- Initialize message list if p_init_msg_list is set to TRUE.
3589: --
3590: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
3591: Fnd_Msg_Pub.Initialize;
3592: END IF;
3593: --
3594: -- Standard check for API version compatibility.
3592: END IF;
3593: --
3594: -- Standard check for API version compatibility.
3595: --
3596: -- IF NOT Fnd_Api.Compatible_API_Call (L_API_VERSION,
3597: -- p_api_version,
3598: -- L_API_NAME,
3599: -- G_PKG_NAME)
3600: -- THEN
3597: -- p_api_version,
3598: -- L_API_NAME,
3599: -- G_PKG_NAME)
3600: -- THEN
3601: -- RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3602: -- END IF;
3603: --
3604: -- Initialize API return status to success.
3605: --
3602: -- END IF;
3603: --
3604: -- Initialize API return status to success.
3605: --
3606: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3607: OPEN c_get_components(p_act_metric_used_by_id);
3608: LOOP
3609: FETCH c_get_components INTO l_object_id, l_object_type;
3610: EXIT WHEN c_get_components%NOTFOUND;
3613: l_object_type||'/'||l_object_id);
3614: END IF;
3615: Refresh_Metric(
3616: p_api_version => p_api_version,
3617: p_init_msg_list => Fnd_Api.G_FALSE,
3618: p_commit => Fnd_Api.G_FALSE,
3619: x_return_status => x_return_status,
3620: x_msg_count => x_msg_count,
3621: x_msg_data => x_msg_data,
3614: END IF;
3615: Refresh_Metric(
3616: p_api_version => p_api_version,
3617: p_init_msg_list => Fnd_Api.G_FALSE,
3618: p_commit => Fnd_Api.G_FALSE,
3619: x_return_status => x_return_status,
3620: x_msg_count => x_msg_count,
3621: x_msg_data => x_msg_data,
3622: p_arc_act_metric_used_by => l_object_type,
3620: x_msg_count => x_msg_count,
3621: x_msg_data => x_msg_data,
3622: p_arc_act_metric_used_by => l_object_type,
3623: p_act_metric_used_by_id => l_object_id,
3624: p_refresh_function => Fnd_Api.G_FALSE);
3625: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3626: CLOSE c_get_components;
3627: RAISE Fnd_Api.G_EXC_ERROR;
3628: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3621: x_msg_data => x_msg_data,
3622: p_arc_act_metric_used_by => l_object_type,
3623: p_act_metric_used_by_id => l_object_id,
3624: p_refresh_function => Fnd_Api.G_FALSE);
3625: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3626: CLOSE c_get_components;
3627: RAISE Fnd_Api.G_EXC_ERROR;
3628: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3629: CLOSE c_get_components;
3623: p_act_metric_used_by_id => l_object_id,
3624: p_refresh_function => Fnd_Api.G_FALSE);
3625: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3626: CLOSE c_get_components;
3627: RAISE Fnd_Api.G_EXC_ERROR;
3628: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3629: CLOSE c_get_components;
3630: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3631: END IF;
3624: p_refresh_function => Fnd_Api.G_FALSE);
3625: IF x_return_status = Fnd_Api.G_RET_STS_ERROR THEN
3626: CLOSE c_get_components;
3627: RAISE Fnd_Api.G_EXC_ERROR;
3628: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3629: CLOSE c_get_components;
3630: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3631: END IF;
3632: END LOOP;
3626: CLOSE c_get_components;
3627: RAISE Fnd_Api.G_EXC_ERROR;
3628: ELSIF x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
3629: CLOSE c_get_components;
3630: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3631: END IF;
3632: END LOOP;
3633: CLOSE c_get_components;
3634:
3634:
3635: --
3636: -- Standard check for commit request.
3637: --
3638: IF Fnd_Api.To_Boolean (p_commit) THEN
3639: COMMIT WORK;
3640: END IF;
3641: --
3642: -- Standard API to get message count, and if 1,
3644: --
3645: Fnd_Msg_Pub.Count_And_Get (
3646: p_count => x_msg_count,
3647: p_data => x_msg_data,
3648: p_encoded => Fnd_Api.G_FALSE
3649: );
3650: --
3651: -- Add success message to message list.
3652: --
3653: IF AMS_DEBUG_HIGH_ON THEN
3654: Ams_Utility_Pvt.debug_message(l_full_name ||': END');
3655: END IF;
3656: EXCEPTION
3657: WHEN Fnd_Api.G_EXC_ERROR THEN
3658: ROLLBACK TO Refresh_Metric_SavePoint;
3659: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3660: Fnd_Msg_Pub.Count_And_Get (
3661: p_count => x_msg_count,
3655: END IF;
3656: EXCEPTION
3657: WHEN Fnd_Api.G_EXC_ERROR THEN
3658: ROLLBACK TO Refresh_Metric_SavePoint;
3659: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3660: Fnd_Msg_Pub.Count_And_Get (
3661: p_count => x_msg_count,
3662: p_data => x_msg_data,
3663: p_encoded => FND_API.G_FALSE
3659: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3660: Fnd_Msg_Pub.Count_And_Get (
3661: p_count => x_msg_count,
3662: p_data => x_msg_data,
3663: p_encoded => FND_API.G_FALSE
3664: );
3665: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3666: ROLLBACK TO Refresh_Metric_SavePoint;
3667: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3661: p_count => x_msg_count,
3662: p_data => x_msg_data,
3663: p_encoded => FND_API.G_FALSE
3664: );
3665: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3666: ROLLBACK TO Refresh_Metric_SavePoint;
3667: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3668: Fnd_Msg_Pub.Count_And_Get (
3669: p_count => x_msg_count,
3663: p_encoded => FND_API.G_FALSE
3664: );
3665: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3666: ROLLBACK TO Refresh_Metric_SavePoint;
3667: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3668: Fnd_Msg_Pub.Count_And_Get (
3669: p_count => x_msg_count,
3670: p_data => x_msg_data,
3671: p_encoded => FND_API.G_FALSE
3667: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3668: Fnd_Msg_Pub.Count_And_Get (
3669: p_count => x_msg_count,
3670: p_data => x_msg_data,
3671: p_encoded => FND_API.G_FALSE
3672: );
3673: WHEN OTHERS THEN
3674: ROLLBACK TO Refresh_Metric_SavePoint;
3675: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3671: p_encoded => FND_API.G_FALSE
3672: );
3673: WHEN OTHERS THEN
3674: ROLLBACK TO Refresh_Metric_SavePoint;
3675: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3676: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
3677: Fnd_Msg_Pub.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3678: END IF;
3679: Fnd_Msg_Pub.Count_And_Get (
3678: END IF;
3679: Fnd_Msg_Pub.Count_And_Get (
3680: p_count => x_msg_count,
3681: p_data => x_msg_data,
3682: p_encoded => FND_API.G_FALSE
3683: );
3684: END Refresh_Components;
3685:
3686: **/