--присваиваем новый статус
    l_result := I111PC_BS_BUSINESS_OBJECT.Set_Status
                  (P_IN_ID => l_id_BO
                  ,P_IN_ID_ROLE => p_in_id_role                  
                  ,P_IN_ID_STATUS => l_AP_res.id_status_after
                  ,P_OUT_MESSAGE => l_message
                  ,P_IN_IS_CHECK_NEED => FALSE
                  ,P_IN_COMMIT => FALSE
                  );

  l_result := I111PC_BS_BUSINESS_OBJECT.Set_Status
                  (P_IN_ID => 48517106
                  ,P_IN_ID_ROLE => 1782878 
                  ,P_IN_ID_STATUS => 1782448
                  ,P_OUT_MESSAGE => l_message
                  ,P_IN_IS_CHECK_NEED => FALSE
                  ,P_IN_COMMIT => FALSE
                  );

declare
...
begin
...
end