9: -- in order to have the necessary views on top of them.
10: /*
11: PROCEDURE create_strategicobj_objects_AW
12: (
13: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14: p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
15: x_return_status OUT NOCOPY VARCHAR2,
16: x_msg_count OUT NOCOPY NUMBER,
17: x_msg_data OUT NOCOPY VARCHAR2
58: IF (p_Investment_rec_type.create_strategic_obj_status_r = 'Y') THEN
59: DBMS_AW.Execute('define strategic_obj_status_r relation attribute_library_d
60: END IF;
61:
62: IF (p_commit = FND_API.G_TRUE) THEN
63: DBMS_AW.Execute('UPDATE');
64: COMMIT;
65: END IF;
66:
67:
68: EXCEPTION
69: WHEN OTHERS THEN
70: rollback;
71: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
73: ,p_data => x_msg_data);
74: raise;
75:
90: -- if procedure called for SEEDING or for run time use. We use the p_seeding parameter
91: -- for this purpose.
92: PROCEDURE create_strategicobj_aw
93: (
94: p_commit IN VARCHAR2 := FND_API.G_FALSE,
95: p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
96: p_seeding IN VARCHAR2,
97: x_strategic_obj_id OUT NOCOPY VARCHAR2,
98: x_return_status OUT NOCOPY VARCHAR2,
209:
210: EXCEPTION
211: WHEN OTHERS THEN
212: ROLLBACK;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.Count_And_Get
215: (
216: p_count => x_msg_count,
217: p_data => x_msg_data
259:
260: EXCEPTION
261: WHEN OTHERS THEN
262: ROLLBACK;
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.Count_And_Get
265: (
266: p_count => x_msg_count,
267: p_data => x_msg_data
277: -- investment criteria.
278:
279: PROCEDURE update_strategicobj
280: (
281: p_commit IN VARCHAR2 := FND_API.G_FALSE,
282: p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
283: x_return_status OUT NOCOPY VARCHAR2,
284: x_msg_count OUT NOCOPY NUMBER,
285: x_msg_data OUT NOCOPY VARCHAR2
322:
323: EXCEPTION
324: WHEN OTHERS THEN
325: ROLLBACK;
326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: FND_MSG_PUB.Count_And_Get
328: (
329: p_count => x_msg_count,
330: p_data => x_msg_data
341: -- Used by UI for the switcher bean for Add and Delete.
342:
343: PROCEDURE update_strategicobj_status_aw
344: (
345: p_commit IN VARCHAR2 := FND_API.G_FALSE,
346: p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
347: x_return_status OUT NOCOPY VARCHAR2,
348: x_msg_count OUT NOCOPY NUMBER,
349: x_msg_data OUT NOCOPY VARCHAR2
369:
370: EXCEPTION
371: WHEN OTHERS THEN
372: ROLLBACK;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MSG_PUB.Count_And_Get
375: (
376: p_count => x_msg_count,
377: p_data => x_msg_data
384: *******************************************************************************/
385:
386: PROCEDURE update_strategicobj_level_aw
387: (
388: p_commit IN VARCHAR2 := FND_API.G_FALSE,
389: p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
390: x_return_status OUT NOCOPY VARCHAR2,
391: x_msg_count OUT NOCOPY NUMBER,
392: x_msg_data OUT NOCOPY VARCHAR2
411:
412: EXCEPTION
413: WHEN OTHERS THEN
414: ROLLBACK;
415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416: FND_MSG_PUB.Count_And_Get
417: (
418: p_count => x_msg_count,
419: p_data => x_msg_data
502:
503: EXCEPTION
504: WHEN OTHERS THEN
505: ROLLBACK;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: FND_MSG_PUB.Count_And_Get
508: (
509: p_count => x_msg_count,
510: p_data => x_msg_data
516: -- This procedure updates the Strategic Objective Scores for the Project Type
517: -- We will add all scores for all Projects and then we will take the average.
518: PROCEDURE Update_ProjectTypeObjScore_AW
519: (
520: p_commit IN VARCHAR2 := FND_API.G_FALSE,
521: p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
522: x_return_status OUT NOCOPY VARCHAR2,
523: x_msg_count OUT NOCOPY NUMBER,
524: x_msg_data OUT NOCOPY VARCHAR2
547: -- the number of projects in status.
548: DBMS_AW.Execute('scenario_project_type_obj_score_m = '
549: || ' total(scenario_project_obj_score_m, strategic_obj_d)/statlen(project_d)');
550:
551: IF (p_commit = FND_API.G_TRUE) THEN
552: DBMS_AW.Execute('update');
553: COMMIT;
554: END IF;
555:
556:
557: EXCEPTION
558: WHEN OTHERS THEN
559: ROLLBACK;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.Count_And_Get
562: (
563: p_count => x_msg_count,
564: p_data => x_msg_data
574: -- in AW. (strategic_obj_wscore_m).
575: PROCEDURE update_strategicobj_wscore_aw
576: (
577: p_api_version IN NUMBER,
578: p_commit IN VARCHAR2 := FND_API.G_FALSE,
579: p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
580: x_return_status OUT NOCOPY VARCHAR2,
581: x_msg_count OUT NOCOPY NUMBER,
582: x_msg_data OUT NOCOPY VARCHAR2
597:
598: -- Set the strategic_obj_weight_m value equal to the one passed.
599: DBMS_AW.Execute('scenario_project_obj_wscore_m = (strategic_obj_weight_m/100) * (scenario_project_obj_score_m)');
600:
601: IF (p_commit = FND_API.G_TRUE) THEN
602: DBMS_AW.Execute('update');
603: COMMIT;
604: END IF;
605:
606:
607: EXCEPTION
608: WHEN OTHERS THEN
609: ROLLBACK;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: FND_MSG_PUB.Count_And_Get
612: (
613: p_count => x_msg_count,
614: p_data => x_msg_data
623: -- This procedure Updates the Weighted Objective Scores for Project Types.
624: PROCEDURE Update_ProjectTypeObjWScore_AW
625: (
626: p_api_version IN NUMBER,
627: p_commit IN VARCHAR2 := FND_API.G_FALSE,
628: p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
629: x_return_status OUT NOCOPY VARCHAR2,
630: x_msg_count OUT NOCOPY NUMBER,
631: x_msg_data OUT NOCOPY VARCHAR2
662: -- projects.
663: DBMS_AW.Execute('scenario_project_type_obj_wscore_m =
664: total(scenario_project_obj_wscore_m, strategic_obj_d)/statlen(project_d)');
665:
666: IF (p_commit = FND_API.G_TRUE) THEN
667: DBMS_AW.Execute('update');
668: COMMIT;
669: END IF;
670:
671:
672: EXCEPTION
673: WHEN OTHERS THEN
674: ROLLBACK;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: FND_MSG_PUB.Count_And_Get
677: (
678: p_count => x_msg_count,
679: p_data => x_msg_data
690: -- individual scores are not entered at the Group level.
691: PROCEDURE Update_StrategicObj_AScore_AW
692: (
693: p_api_version IN number,
694: p_commit IN varchar2 := FND_API.G_FALSE,
695: p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
696: x_return_status OUT NOCOPY varchar2,
697: x_msg_count OUT NOCOPY number,
698: x_msg_data OUT NOCOPY varchar2
771: DBMS_AW.Execute('scenario_project_obj_score_m(strategic_obj_d ''FPASTRALIGN'') = total(scenario_project_obj_score_m)/5');
772:
773: DBMS_AW.Execute('update');
774:
775: if (p_commit = FND_API.G_TRUE) then
776: commit;
777: end if;
778:
779:
779:
780: EXCEPTION
781: WHEN OTHERS THEN
782: ROLLBACK;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
785: ,p_data => x_msg_data);
786: RAISE;
787:
792:
793: /*
794: -- Update the Average Score for the Project Type for the particular Objective Group.
795: procedure Update_ProjectTypeObjAScore_AW(
796: p_commit IN varchar2 := FND_API.G_FALSE
797: ,p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type
798: ,x_return_status OUT NOCOPY varchar2
799: ,x_msg_count OUT NOCOPY number
800: ,x_msg_data OUT NOCOPY varchar2
825: DBMS_AW.Execute('scenario_project_type_obj
826:
827:
828: EXCEPTION
829: WHEN FND_API.G_EXC_ERROR THEN
830: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
831: rollback;
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
828: EXCEPTION
829: WHEN FND_API.G_EXC_ERROR THEN
830: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
831: rollback;
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
834: ,p_data => x_msg_data);
835: raise;
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
834: ,p_data => x_msg_data);
835: raise;
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
838: rollback;
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
840: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
835: raise;
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
838: rollback;
839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
840: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
841: ,p_data => x_msg_data);
842: raise;
843: WHEN NO_DATA_FOUND THEN
842: raise;
843: WHEN NO_DATA_FOUND THEN
844: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
845: rollback;
846: x_return_status := FND_API.G_RET_STS_ERROR;
847: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
848: ,p_data => x_msg_data);
849: raise;
850: WHEN OTHERS THEN
849: raise;
850: WHEN OTHERS THEN
851: DBMS_AW.Execute('aw detach ' || p_Investment_rec_type.AW_space);
852: rollback;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
855: ,p_data => x_msg_data);
856: raise;
857:
863: /*
864: PROCEDURE Rollup_StrategicObj_WScore_AW
865: (
866: p_api_version IN NUMBER,
867: p_commit IN VARCHAR2 := FND_API.G_FALSE,
868: p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
869: x_return_status OUT NOCOPY VARCHAR2,
870: x_msg_count OUT NOCOPY NUMBER,
871: x_msg_data OUT NOCOPY VARCHAR2
910: -- At this point we are done rolling up data and weighting it. If by some
911: -- reason more levels are added to the hierarchy this will have to be
912: -- revistited.
913:
914: IF (p_commit = FND_API.G_TRUE) THEN
915: DBMS_AW.Execute('update');
916: COMMIT;
917: END IF;
918:
919:
920: EXCEPTION
921: WHEN OTHERS THEN
922: ROLLBACK;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_And_Get
925: (
926: p_count => x_msg_count,
927: p_data => x_msg_data
950: -- p_strategic_obj_parent IN VARCHAR2
951: -------------------------------------------------------------------------------
952: PROCEDURE create_strategicobj_aw
953: (
954: p_commit IN VARCHAR2 := FND_API.G_FALSE,
955: p_seeding IN VARCHAR2,
956: p_strategic_obj_shortname IN NUMBER,
957: p_strategic_obj_desc IN VARCHAR2,
958: p_strategic_obj_name IN VARCHAR2,
997: -- p_strategic_obj_status IN VARCHAR2
998: --------------------------------------------------------------------------------
999: PROCEDURE update_strategicobj_status_aw
1000: (
1001: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1002: p_strategic_obj_shortname IN NUMBER,
1003: p_strategic_obj_desc IN VARCHAR2,
1004: p_strategic_obj_name IN VARCHAR2,
1005: p_strategic_obj_level IN VARCHAR2,
1041: -- p_strategic_obj_parent IN VARCHAR2
1042: -------------------------------------------------------------------------------
1043: PROCEDURE update_strategicobj_level_aw
1044: (
1045: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1046: p_strategic_obj_shortname IN NUMBER,
1047: p_strategic_obj_desc IN VARCHAR2,
1048: p_strategic_obj_name IN VARCHAR2,
1049: p_strategic_obj_level IN VARCHAR2,