[Home] [Help]
612: Into x_err_stage,x_allow_deletion_flag
613: From dual
614: Where exists
615: (select '1'
616: from PA_NEXT_ALLOW_STATUSES N
617: where N.next_allowable_status_code=p_project_status_code);
618: if (x_allow_deletion_flag='N') then
619: return;
620: end if;
667: RETURN VARCHAR2 IS
668:
669: CURSOR c_allow_status_change IS
670: SELECT STATUS_CODE, NEXT_ALLOWABLE_STATUS_CODE
671: FROM pa_next_allow_statuses
672: WHERE STATUS_CODE=o_status_code
673: -- AND NEXT_ALLOWABLE_STATUS_CODE=n_status_code
674: ;
675: c_rec c_allow_status_change%ROWTYPE;
736: RETURN v_change_allowed;
737: END Allow_Status_Change;
738:
739: -- STATUS MODEL addition
740: -- The following procedure was added to delete from PA_NEXT_ALLOW_STATUSES
741: -- This procedure deletes all the rows which are not for the
742: --- current next_allow_status_flag
743: PROCEDURE Delete_from_Next_Status (p_current_status_code IN VARCHAR2) IS
744:
743: PROCEDURE Delete_from_Next_Status (p_current_status_code IN VARCHAR2) IS
744:
745: BEGIN
746:
747: Delete from PA_NEXT_ALLOW_STATUSES N
748: where N.status_code = p_current_status_code
749: ;
750: END Delete_from_Next_Status;
751:
750: END Delete_from_Next_Status;
751:
752:
753: -- STATUS MODEL addition
754: -- The following procedure was added to insert into PA_NEXT_ALLOW_STATUSES.
755: -- This procedure inserts the status_code and the next_allowable_status_code
756: -- passed.
757: PROCEDURE Insert_into_Next_Status(
758: p_current_status_code IN VARCHAR2
758: p_current_status_code IN VARCHAR2
759: , p_next_status_code IN VARCHAR2) IS
760: cursor c_check1 IS
761: select status_code
762: from PA_NEXT_ALLOW_STATUSES
763: where STATUS_CODE = p_current_status_code
764: and NEXT_ALLOWABLE_STATUS_CODE = p_next_status_code;
765:
766: v_check1 VARCHAR2(30);
770: OPEN c_check1;
771: FETCH c_check1 INTO v_check1;
772: IF c_check1%NOTFOUND THEN
773: CLOSE c_check1;
774: Insert into PA_NEXT_ALLOW_STATUSES(
775: STATUS_CODE
776: , NEXT_ALLOWABLE_STATUS_CODE
777: , LAST_UPDATE_DATE
778: , LAST_UPDATED_BY