[Home] [Help]
635:
636: begin
637:
638: begin
639: update AD_PATCH_RUNS
640: set success_flag = p_flag, failure_comments = p_reason_text
641: where patch_run_id = p_patch_run_id;
642: exception when others then
643: g_errm := sqlerrm;
643: g_errm := sqlerrm;
644: raise_application_error(-20001, g_errm ||
645: 'Error occurred in mark_patch_succ() '||
646: 'while trying to update success_flag '||
647: 'in AD_PATCH_RUNS '||
648: 'for patch_run_id = ' || p_patch_run_id);
649: end;
650:
651: begin
672: to get all the bugs for a given patch and check if all the bugs have
673: success_flag set to 'Y' or 'N' and return true or false accordingly.
674: *************************************************************************/
675: function are_all_bugs_for_patch_succ(p_patch_run_id in
676: ad_patch_runs.patch_run_id%TYPE)
677: return boolean
678: is
679: l_flag varchar2(1);
680: begin
697: end are_all_bugs_for_patch_succ;
698:
699: /*************************************************************************
700: Given a patch_run_id and a bug number, mark the bug as successful or
701: unsuccessful and cascade to ad_patch_runs and ad_bugs in the following
702: manner:
703: - update AD_PATCH_RUN_BUGS for the specified patch run and bug
704: - Also update AD_PATCH_RUNS in the following cases:
705: - if updating bug to successful and all other bugs for this patch run
700: Given a patch_run_id and a bug number, mark the bug as successful or
701: unsuccessful and cascade to ad_patch_runs and ad_bugs in the following
702: manner:
703: - update AD_PATCH_RUN_BUGS for the specified patch run and bug
704: - Also update AD_PATCH_RUNS in the following cases:
705: - if updating bug to successful and all other bugs for this patch run
706: are successful and patch run marked as unsuccessful, update patch run
707: to successful.
708: - if updating bug to unsuccessful and patch run marked
742: end;
743:
744:
745: /* Case I:
746: update ad_patch_runs for the specified patch run and bug.
747: */
748:
749: begin
750: update AD_PATCH_RUN_BUGS
755: g_errm := sqlerrm;
756: raise_application_error(-20001, g_errm ||
757: 'Error occurred in mark_bug_succ() '||
758: 'while trying to update case I success_flag '||
759: 'in AD_PATCH_RUNS '||
760: 'for patch_run_id = ' || p_patch_run_id);
761: end;
762:
763: /* Case II:
760: 'for patch_run_id = ' || p_patch_run_id);
761: end;
762:
763: /* Case II:
764: update ad_patch_runs in the following manner.
765: 1.if updating bug to successful and all other bugs for this patch run
766: are successful and patch run marked as unsuccessful, update patch run
767: to successful.
768: */
768: */
769:
770: begin
771: select success_flag into l_patch_succ
772: from AD_PATCH_RUNS
773: where patch_run_id = p_patch_run_id;
774: exception
775: when no_data_found then
776: /* bug 2770858 Do not rollback */
781: are_all_bugs_for_patch_succ(p_patch_run_id) = TRUE and
782: l_patch_succ = 'N') then
783:
784: begin
785: update AD_PATCH_RUNS
786: set success_flag = p_flag, failure_comments = p_reason_text
787: where patch_run_id = p_patch_run_id;
788: exception when others then
789: g_errm := sqlerrm;
789: g_errm := sqlerrm;
790: raise_application_error(-20001, g_errm ||
791: 'Error occurred in mark_bug_succ() '||
792: 'while trying to update case II success_flag '||
793: 'in AD_PATCH_RUNS '||
794: 'for patch_run_id = ' || p_patch_run_id);
795: end;
796:
797: -- case III. if updating bug to unsuccessful and patch run marked
799:
800: elsif (p_flag = 'N' and l_patch_succ = 'Y') then
801:
802: begin
803: update AD_PATCH_RUNS
804: set success_flag = p_flag, failure_comments = p_reason_text
805: where patch_run_id = p_patch_run_id;
806: exception when others then
807: g_errm := sqlerrm;
807: g_errm := sqlerrm;
808: raise_application_error(-20001, g_errm ||
809: 'Error occurred in mark_bug_succ() '||
810: 'while trying to update case III success_flag '||
811: 'in AD_PATCH_RUNS '||
812: 'for patch_run_id = ' || p_patch_run_id);
813: end;
814:
815: end if;