387: l_control_objective_id number;
388: BEGIN
389:
390: -- create savepoint if p_commit is true
391: IF p_commit = FND_API.G_TRUE THEN
392: SAVEPOINT process_objective_save_point;
393: END IF;
394:
395: -- initialize message list if p_init_msg_list is set to true
392: SAVEPOINT process_objective_save_point;
393: END IF;
394:
395: -- initialize message list if p_init_msg_list is set to true
396: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
397: fnd_msg_pub.initialize;
398: end if;
399:
400: -- initialize return status to success
397: fnd_msg_pub.initialize;
398: end if;
399:
400: -- initialize return status to success
401: x_return_status := fnd_api.g_ret_sts_success;
402:
403:
404: delete from amw_control_objectives
405: where control_rev_id = p_control_rev_id
434: l_last_update_login);
435:
436: end if;
437: EXCEPTION
438: WHEN FND_API.G_EXC_ERROR THEN
439: IF p_commit = FND_API.G_TRUE THEN
440: ROLLBACK TO process_objective_save_point;
441: END IF;
442:
435:
436: end if;
437: EXCEPTION
438: WHEN FND_API.G_EXC_ERROR THEN
439: IF p_commit = FND_API.G_TRUE THEN
440: ROLLBACK TO process_objective_save_point;
441: END IF;
442:
443: x_return_status := FND_API.G_RET_STS_ERROR;
439: IF p_commit = FND_API.G_TRUE THEN
440: ROLLBACK TO process_objective_save_point;
441: END IF;
442:
443: x_return_status := FND_API.G_RET_STS_ERROR;
444:
445: fnd_msg_pub.count_and_get(p_count => x_msg_count,
446: p_data => x_msg_data);
447:
445: fnd_msg_pub.count_and_get(p_count => x_msg_count,
446: p_data => x_msg_data);
447:
448: WHEN OTHERS THEN
449: IF p_commit = FND_API.G_TRUE THEN
450: ROLLBACK TO create_prop_person_support;
451: END IF;
452:
453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: IF p_commit = FND_API.G_TRUE THEN
450: ROLLBACK TO create_prop_person_support;
451: END IF;
452:
453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
454:
455: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
456: p_procedure_name => 'PROCESS_OBJECTIVE',
457: p_error_text => SUBSTRB(SQLERRM,1,240));
481: l_control_assertion_id number;
482: BEGIN
483:
484: -- create savepoint if p_commit is true
485: IF p_commit = FND_API.G_TRUE THEN
486: SAVEPOINT process_assertion_save_point;
487: END IF;
488:
489: -- initialize message list if p_init_msg_list is set to true
486: SAVEPOINT process_assertion_save_point;
487: END IF;
488:
489: -- initialize message list if p_init_msg_list is set to true
490: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
491: fnd_msg_pub.initialize;
492: end if;
493:
494: -- initialize return status to success
491: fnd_msg_pub.initialize;
492: end if;
493:
494: -- initialize return status to success
495: x_return_status := fnd_api.g_ret_sts_success;
496:
497:
498: delete from amw_control_assertions
499: where control_rev_id = p_control_rev_id
528: l_last_update_login);
529:
530: end if;
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
533: IF p_commit = FND_API.G_TRUE THEN
534: ROLLBACK TO process_assertion_save_point;
535: END IF;
536:
529:
530: end if;
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
533: IF p_commit = FND_API.G_TRUE THEN
534: ROLLBACK TO process_assertion_save_point;
535: END IF;
536:
537: x_return_status := FND_API.G_RET_STS_ERROR;
533: IF p_commit = FND_API.G_TRUE THEN
534: ROLLBACK TO process_assertion_save_point;
535: END IF;
536:
537: x_return_status := FND_API.G_RET_STS_ERROR;
538:
539: fnd_msg_pub.count_and_get(p_count => x_msg_count,
540: p_data => x_msg_data);
541:
539: fnd_msg_pub.count_and_get(p_count => x_msg_count,
540: p_data => x_msg_data);
541:
542: WHEN OTHERS THEN
543: IF p_commit = FND_API.G_TRUE THEN
544: ROLLBACK TO create_prop_person_support;
545: END IF;
546:
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: IF p_commit = FND_API.G_TRUE THEN
544: ROLLBACK TO create_prop_person_support;
545: END IF;
546:
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548:
549: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
550: p_procedure_name => 'PROCESS_ASSERTION',
551: p_error_text => SUBSTRB(SQLERRM,1,240));
575: l_assessment_component_id number;
576: BEGIN
577:
578: -- create savepoint if p_commit is true
579: IF p_commit = FND_API.G_TRUE THEN
580: SAVEPOINT process_component_save_point;
581: END IF;
582:
583: -- initialize message list if p_init_msg_list is set to true
580: SAVEPOINT process_component_save_point;
581: END IF;
582:
583: -- initialize message list if p_init_msg_list is set to true
584: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
585: fnd_msg_pub.initialize;
586: end if;
587:
588: -- initialize return status to success
585: fnd_msg_pub.initialize;
586: end if;
587:
588: -- initialize return status to success
589: x_return_status := fnd_api.g_ret_sts_success;
590:
591:
592: delete from amw_assessment_components
593: where object_id = p_control_rev_id
627: 1);
628: end if;
629:
630: EXCEPTION
631: WHEN FND_API.G_EXC_ERROR THEN
632: IF p_commit = FND_API.G_TRUE THEN
633: ROLLBACK TO process_component_save_point;
634: END IF;
635:
628: end if;
629:
630: EXCEPTION
631: WHEN FND_API.G_EXC_ERROR THEN
632: IF p_commit = FND_API.G_TRUE THEN
633: ROLLBACK TO process_component_save_point;
634: END IF;
635:
636: x_return_status := FND_API.G_RET_STS_ERROR;
632: IF p_commit = FND_API.G_TRUE THEN
633: ROLLBACK TO process_component_save_point;
634: END IF;
635:
636: x_return_status := FND_API.G_RET_STS_ERROR;
637:
638: fnd_msg_pub.count_and_get(p_count => x_msg_count,
639: p_data => x_msg_data);
640:
638: fnd_msg_pub.count_and_get(p_count => x_msg_count,
639: p_data => x_msg_data);
640:
641: WHEN OTHERS THEN
642: IF p_commit = FND_API.G_TRUE THEN
643: ROLLBACK TO create_prop_person_support;
644: END IF;
645:
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: IF p_commit = FND_API.G_TRUE THEN
643: ROLLBACK TO create_prop_person_support;
644: END IF;
645:
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
647:
648: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
649: p_procedure_name => 'PROCESS_COMPONENT',
650: p_error_text => SUBSTRB(SQLERRM,1,240));
683:
684: BEGIN
685:
686: -- create savepoint if p_commit is true
687: IF p_commit = FND_API.G_TRUE THEN
688: SAVEPOINT update_association_save_point;
689: END IF;
690:
691: -- initialize message list if p_init_msg_list is set to true
688: SAVEPOINT update_association_save_point;
689: END IF;
690:
691: -- initialize message list if p_init_msg_list is set to true
692: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
693: fnd_msg_pub.initialize;
694: end if;
695:
696: -- initialize return status to success
693: fnd_msg_pub.initialize;
694: end if;
695:
696: -- initialize return status to success
697: x_return_status := fnd_api.g_ret_sts_success;
698:
699: OPEN get_association_row(p_object_type,p_orig_control_id,p_risk_association_id);
700: FETCH get_association_row INTO l_control_association_id;
701: CLOSE get_association_row;
707: if (sql%notfound) then
708: raise no_data_found;
709: end if;
710: else
711: raise fnd_api.g_exc_error;
712: end if;
713:
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
711: raise fnd_api.g_exc_error;
712: end if;
713:
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: IF p_commit = FND_API.G_TRUE THEN
717: ROLLBACK TO update_association_save_point;
718: END IF;
719:
712: end if;
713:
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: IF p_commit = FND_API.G_TRUE THEN
717: ROLLBACK TO update_association_save_point;
718: END IF;
719:
720: x_return_status := FND_API.G_RET_STS_ERROR;
716: IF p_commit = FND_API.G_TRUE THEN
717: ROLLBACK TO update_association_save_point;
718: END IF;
719:
720: x_return_status := FND_API.G_RET_STS_ERROR;
721:
722: fnd_msg_pub.count_and_get(p_count => x_msg_count,
723: p_data => x_msg_data);
724:
722: fnd_msg_pub.count_and_get(p_count => x_msg_count,
723: p_data => x_msg_data);
724:
725: WHEN OTHERS THEN
726: IF p_commit = FND_API.G_TRUE THEN
727: ROLLBACK TO create_prop_person_support;
728: END IF;
729:
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726: IF p_commit = FND_API.G_TRUE THEN
727: ROLLBACK TO create_prop_person_support;
728: END IF;
729:
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731:
732: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
733: p_procedure_name => 'UPDATE_CONTROL_ASSOCIATION',
734: p_error_text => SUBSTRB(SQLERRM,1,240));
764:
765: BEGIN
766:
767: -- create savepoint if p_commit is true
768: IF p_commit = FND_API.G_TRUE THEN
769: SAVEPOINT delete_save_point;
770: END IF;
771:
772: -- initialize message list if p_init_msg_list is set to true
769: SAVEPOINT delete_save_point;
770: END IF;
771:
772: -- initialize message list if p_init_msg_list is set to true
773: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
774: fnd_msg_pub.initialize;
775: end if;
776:
777: -- initialize return status to success
774: fnd_msg_pub.initialize;
775: end if;
776:
777: -- initialize return status to success
778: x_return_status := fnd_api.g_ret_sts_success;
779: delete from amw_control_objectives where control_rev_id = p_control_rev_id;
780:
781: /*
782: if (sql%notfound) then
782: if (sql%notfound) then
783: raise no_data_found;
784: end if;
785: */
786: ---if(x_return_status = fnd_api.g_ret_sts_success) then
787: delete from amw_control_assertions where control_rev_id = p_control_rev_id;
788: /*
789: if(sql%notfound) then
790: raise no_data_found;
790: raise no_data_found;
791: end if;
792: */
793: ---end if;
794: ---if(x_return_status = fnd_api.g_ret_sts_success) then
795: delete from amw_assessment_components
796: where object_id = p_control_rev_id
797: and object_type = 'CONTROL';
798: /*
802: */
803: ---end if;
804:
805: EXCEPTION
806: WHEN FND_API.G_EXC_ERROR THEN
807: IF p_commit = FND_API.G_TRUE THEN
808: ROLLBACK TO delete_save_point;
809: END IF;
810: x_return_status := FND_API.G_RET_STS_ERROR;
803: ---end if;
804:
805: EXCEPTION
806: WHEN FND_API.G_EXC_ERROR THEN
807: IF p_commit = FND_API.G_TRUE THEN
808: ROLLBACK TO delete_save_point;
809: END IF;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: fnd_msg_pub.count_and_get(p_count => x_msg_count,
806: WHEN FND_API.G_EXC_ERROR THEN
807: IF p_commit = FND_API.G_TRUE THEN
808: ROLLBACK TO delete_save_point;
809: END IF;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: fnd_msg_pub.count_and_get(p_count => x_msg_count,
812: p_data => x_msg_data);
813:
814: WHEN OTHERS THEN
811: fnd_msg_pub.count_and_get(p_count => x_msg_count,
812: p_data => x_msg_data);
813:
814: WHEN OTHERS THEN
815: IF p_commit = FND_API.G_TRUE THEN
816: ROLLBACK TO create_prop_person_support;
817: END IF;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
814: WHEN OTHERS THEN
815: IF p_commit = FND_API.G_TRUE THEN
816: ROLLBACK TO create_prop_person_support;
817: END IF;
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PKG',
820: p_procedure_name => 'UPDATE_CONTROL_ASSOCIATION',
821: p_error_text => SUBSTRB(SQLERRM,1,240));
822: fnd_msg_pub.count_and_get(p_count => x_msg_count,
891:
892: PROCEDURE IS_WKFLW_APPR_DISBLD(
893: P_CONTROL_REV_ID IN NUMBER
894: ,P_PROFILE_OPTION OUT NOCOPY VARCHAR2
895: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
896: ,x_return_status OUT NOCOPY VARCHAR2
897: ,x_msg_count OUT NOCOPY NUMBER
898: ,x_msg_data OUT NOCOPY VARCHAR2
899: )
912:
913: L_API_NAME CONSTANT VARCHAR2(30) := 'IS_WKFLW_APPR_DISBLD';
914: L_DATE DATE;
915: BEGIN
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
917: IF FND_API.to_Boolean( p_init_msg_list ) THEN
918: FND_MSG_PUB.initialize;
919: END IF;
920:
913: L_API_NAME CONSTANT VARCHAR2(30) := 'IS_WKFLW_APPR_DISBLD';
914: L_DATE DATE;
915: BEGIN
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
917: IF FND_API.to_Boolean( p_init_msg_list ) THEN
918: FND_MSG_PUB.initialize;
919: END IF;
920:
921: IF FND_GLOBAL.User_Id IS NULL THEN
919: END IF;
920:
921: IF FND_GLOBAL.User_Id IS NULL THEN
922: AMW_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925:
926: L_PROFILE_OPTION_VALUE := NVL(fnd_profile.VALUE('AMW_DISABLE_WORKFLOW_APPROVAL'),'N');
927: --HARDCODING PURELY FOR TESTINGP PURPOSES!! REMOVE THIS ASAP!!!
961: END IF;
962:
963: p_profile_option := L_WKFLW_APPR_DISBLD;
964: EXCEPTION
965: WHEN FND_API.G_EXC_ERROR THEN
966: ROLLBACK;
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
969:
963: p_profile_option := L_WKFLW_APPR_DISBLD;
964: EXCEPTION
965: WHEN FND_API.G_EXC_ERROR THEN
966: ROLLBACK;
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
969:
970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
971: ROLLBACK;
964: EXCEPTION
965: WHEN FND_API.G_EXC_ERROR THEN
966: ROLLBACK;
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
969:
970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
971: ROLLBACK;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
966: ROLLBACK;
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
969:
970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
971: ROLLBACK;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
974:
968: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
969:
970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
971: ROLLBACK;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
974:
975: WHEN OTHERS THEN
976: ROLLBACK;
969:
970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
971: ROLLBACK;
972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
974:
975: WHEN OTHERS THEN
976: ROLLBACK;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
973: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
974:
975: WHEN OTHERS THEN
976: ROLLBACK;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
979: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
980: END IF;
981: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
979: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
980: END IF;
981: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,p_count => x_msg_count,p_data => x_msg_data);
982: END IS_WKFLW_APPR_DISBLD;
983:
984: ---------------------------------------------------------------------
985: ----npanandi 12.02.2004: Added below function to get UnitOfMeasureTL
1105: l_last_update_login number;
1106: l_control_PURPOSE_id number;
1107: BEGIN
1108: -- create savepoint if p_commit is true
1109: IF p_commit = FND_API.G_TRUE THEN
1110: SAVEPOINT process_PURPOSE_save_point;
1111: END IF;
1112:
1113: -- initialize message list if p_init_msg_list is set to true
1110: SAVEPOINT process_PURPOSE_save_point;
1111: END IF;
1112:
1113: -- initialize message list if p_init_msg_list is set to true
1114: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1115: fnd_msg_pub.initialize;
1116: end if;
1117:
1118: -- initialize return status to success
1115: fnd_msg_pub.initialize;
1116: end if;
1117:
1118: -- initialize return status to success
1119: x_return_status := fnd_api.g_ret_sts_success;
1120:
1121: delete from amw_control_PURPOSES
1122: where control_rev_id = p_control_rev_id
1123: and PURPOSE_code = p_PURPOSE_code;
1141: ,FND_GLOBAL.USER_ID
1142: ,FND_GLOBAL.LOGIN_ID);
1143: end if;
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: IF p_commit = FND_API.G_TRUE THEN
1147: ROLLBACK TO process_PURPOSE_save_point;
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1142: ,FND_GLOBAL.LOGIN_ID);
1143: end if;
1144: EXCEPTION
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: IF p_commit = FND_API.G_TRUE THEN
1147: ROLLBACK TO process_PURPOSE_save_point;
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: fnd_msg_pub.count_and_get(p_count => x_msg_count,p_data => x_msg_data);
1145: WHEN FND_API.G_EXC_ERROR THEN
1146: IF p_commit = FND_API.G_TRUE THEN
1147: ROLLBACK TO process_PURPOSE_save_point;
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: fnd_msg_pub.count_and_get(p_count => x_msg_count,p_data => x_msg_data);
1151: WHEN OTHERS THEN
1152: IF p_commit = FND_API.G_TRUE THEN
1153: ROLLBACK TO process_PURPOSE_save_point;
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: fnd_msg_pub.count_and_get(p_count => x_msg_count,p_data => x_msg_data);
1151: WHEN OTHERS THEN
1152: IF p_commit = FND_API.G_TRUE THEN
1153: ROLLBACK TO process_PURPOSE_save_point;
1154: END IF;
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PAGE_PKG',
1151: WHEN OTHERS THEN
1152: IF p_commit = FND_API.G_TRUE THEN
1153: ROLLBACK TO process_PURPOSE_save_point;
1154: END IF;
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_CONTROLS_PAGE_PKG',
1157: p_procedure_name => 'PROCESS_PURPOSE',
1158: p_error_text => SUBSTRB(SQLERRM,1,240));
1159: fnd_msg_pub.count_and_get(p_count => x_msg_count,p_data => x_msg_data);