[Home] [Help]
622:
623: begin
624:
625: begin
626: update AD_PATCH_RUNS
627: set success_flag = p_flag, failure_comments = p_reason_text
628: where patch_run_id = p_patch_run_id;
629: exception when others then
630: g_errm := sqlerrm;
630: g_errm := sqlerrm;
631: raise_application_error(-20001, g_errm ||
632: 'Error occurred in mark_patch_succ() '||
633: 'while trying to update success_flag '||
634: 'in AD_PATCH_RUNS '||
635: 'for patch_run_id = ' || p_patch_run_id);
636: end;
637:
638: begin
659: to get all the bugs for a given patch and check if all the bugs have
660: success_flag set to 'Y' or 'N' and return true or false accordingly.
661: *************************************************************************/
662: function are_all_bugs_for_patch_succ(p_patch_run_id in
663: ad_patch_runs.patch_run_id%TYPE)
664: return boolean
665: is
666: l_flag varchar2(1);
667: begin
684: end are_all_bugs_for_patch_succ;
685:
686: /*************************************************************************
687: Given a patch_run_id and a bug number, mark the bug as successful or
688: unsuccessful and cascade to ad_patch_runs and ad_bugs in the following
689: manner:
690: - update AD_PATCH_RUN_BUGS for the specified patch run and bug
691: - Also update AD_PATCH_RUNS in the following cases:
692: - if updating bug to successful and all other bugs for this patch run
687: Given a patch_run_id and a bug number, mark the bug as successful or
688: unsuccessful and cascade to ad_patch_runs and ad_bugs in the following
689: manner:
690: - update AD_PATCH_RUN_BUGS for the specified patch run and bug
691: - Also update AD_PATCH_RUNS in the following cases:
692: - if updating bug to successful and all other bugs for this patch run
693: are successful and patch run marked as unsuccessful, update patch run
694: to successful.
695: - if updating bug to unsuccessful and patch run marked
729: end;
730:
731:
732: /* Case I:
733: update ad_patch_runs for the specified patch run and bug.
734: */
735:
736: begin
737: update AD_PATCH_RUN_BUGS
742: g_errm := sqlerrm;
743: raise_application_error(-20001, g_errm ||
744: 'Error occurred in mark_bug_succ() '||
745: 'while trying to update case I success_flag '||
746: 'in AD_PATCH_RUNS '||
747: 'for patch_run_id = ' || p_patch_run_id);
748: end;
749:
750: /* Case II:
747: 'for patch_run_id = ' || p_patch_run_id);
748: end;
749:
750: /* Case II:
751: update ad_patch_runs in the following manner.
752: 1.if updating bug to successful and all other bugs for this patch run
753: are successful and patch run marked as unsuccessful, update patch run
754: to successful.
755: */
755: */
756:
757: begin
758: select success_flag into l_patch_succ
759: from AD_PATCH_RUNS
760: where patch_run_id = p_patch_run_id;
761: exception
762: when no_data_found then
763: /* bug 2770858 Do not rollback */
768: are_all_bugs_for_patch_succ(p_patch_run_id) = TRUE and
769: l_patch_succ = 'N') then
770:
771: begin
772: update AD_PATCH_RUNS
773: set success_flag = p_flag, failure_comments = p_reason_text
774: where patch_run_id = p_patch_run_id;
775: exception when others then
776: g_errm := sqlerrm;
776: g_errm := sqlerrm;
777: raise_application_error(-20001, g_errm ||
778: 'Error occurred in mark_bug_succ() '||
779: 'while trying to update case II success_flag '||
780: 'in AD_PATCH_RUNS '||
781: 'for patch_run_id = ' || p_patch_run_id);
782: end;
783:
784: -- case III. if updating bug to unsuccessful and patch run marked
786:
787: elsif (p_flag = 'N' and l_patch_succ = 'Y') then
788:
789: begin
790: update AD_PATCH_RUNS
791: set success_flag = p_flag, failure_comments = p_reason_text
792: where patch_run_id = p_patch_run_id;
793: exception when others then
794: g_errm := sqlerrm;
794: g_errm := sqlerrm;
795: raise_application_error(-20001, g_errm ||
796: 'Error occurred in mark_bug_succ() '||
797: 'while trying to update case III success_flag '||
798: 'in AD_PATCH_RUNS '||
799: 'for patch_run_id = ' || p_patch_run_id);
800: end;
801:
802: end if;