MANTENIMIENTO

CREATE OR REPLACE PACKAGE MANTENIMIENTO AS

PROCEDURE UPDATE_ALUMNO(CODIGO INTEGER,NOMB VARCHAR2,APELL VARCHAR2,
FECNAC DATE,SEX VARCHAR2,DOMI VARCHAR2,RESPONSABLE VARCHAR2,TEL NUMBER);

PROCEDURE UPDATE_MATRICULA(CODIGO INTEGER,GRADO NUMBER,SECCION NUMBER,
ESPECIALIDAD NUMBER);

PROCEDURE UPDATE_GRADO(CODIGO INTEGER,GRDO VARCHAR2);

PROCEDURE UPDATE_SECCION(CODIGO INTEGER,NOMBRE VARCHAR2);

PROCEDURE UPDATE_MATERIAS(CODIGO INTEGER, MATERIA VARCHAR2);

PROCEDURE UPDATE_PERIODO(CODIGO INTEGER,PERODO VARCHAR2);

PROCEDURE UPDATE_OPCION(CODIGO INTEGER,ESPECIALIDA VARCHAR2);

PROCEDURE UPDATE_DOCENTE(CODIGO INTEGER,NOMB VARCHAR2,APELL VARCHAR,FECNAC DATE,
SEX VARCHAR2,DOMI VARCHAR2,TEL NUMBER);

PROCEDURE UPDATE_CARGADOCENT(CODIGO INTEGER,MATERIA INTEGER,GRADO INTEGER,
ESPECIALIDAD INTEGER,SECCION INTEGER);

PROCEDURE UPDATE_ENCARGADOGRDO(CODIGO INTEGER,GRADO INTEGER,SECCION INTEGER,
ESPECIALIDAD INTEGER);

PROCEDURE UPDATE_NOTAS(CODIGO INTEGER,MATERIA INTEGER,ACT NUMBER,LAB NUMBER,
EXAM NUMBER, PERIODO INTEGER);

PROCEDURE DELETE_ALUMNO(CODIGO INTEGER);

PROCEDURE DELETE_MATRICULA(CODIGO INTEGER);

PROCEDURE DELETE_GRADO(CODIGO INTEGER);

PROCEDURE DELETE_SECCION(CODIGO INTEGER);

PROCEDURE DELETE_OPCION(CODIGO INTEGER);

PROCEDURE DELETE_MATERIA(CODIGO INTEGER);

PROCEDURE DELETE_PERIODO(CODIGO INTEGER);

PROCEDURE DELETE_DOCENTE(CODIGO INTEGER);

PROCEDURE DELETE_CARGA(CODIGO INTEGER, MATERIA INTEGER);

PROCEDURE DELETE_ENCARGADO(CODIGO INTEGER);

PROCEDURE DELETE_NOTAS(CODIGO INTEGER, MATERIA INTEGER);

END MANTENIMIENTO;
/

CREATE OR REPLACE PACKAGE BODY MANTENIMIENTO AS

PROCEDURE UPDATE_ALUMNO(CODIGO INTEGER,NOMB VARCHAR2,APELL VARCHAR2,
FECNAC DATE,SEX VARCHAR2,DOMI VARCHAR2,RESPONSABLE VARCHAR2,TEL NUMBER)
 IS
 BEGIN
        UPDATE ALUMNO SET NOMBRE=NOMB,APELLIDO=APELL,FECHA_NACIMIENTO=FECNAC,
        SEXO=SEX,DOMICILIO=DOMI,ENCARGADO=RESPONSABLE,TELEFONO=TEL WHERE    CODALUMNO=CODIGO;

END UPDATE_ALUMNO;

PROCEDURE UPDATE_MATRICULA(CODIGO INTEGER,GRADO NUMBER,SECCION NUMBER,
ESPECIALIDAD NUMBER)
IS
BEGIN
    UPDATE MATRICULA SET CODIGOGRADO=GRADO,CODSECCION=SECCION,
    CODESPECIALIDAD=ESPECIALIDAD WHERE CODALUMNO=CODIGO;


END UPDATE_MATRICULA;

PROCEDURE UPDATE_GRADO(CODIGO INTEGER,GRDO VARCHAR2)
IS
BEGIN
        UPDATE GRADO SET NOMBRE=GRDO WHERE CODIGOGRADO=CODIGO;



END UPDATE_GRADO;

PROCEDURE UPDATE_SECCION(CODIGO INTEGER,NOMBRE VARCHAR2)
IS
BEGIN
        UPDATE SECCIONES SET SECCION=NOMBRE WHERE CODSECCION=CODIGO;

END UPDATE_SECCION;

PROCEDURE UPDATE_MATERIAS(CODIGO INTEGER, MATERIA VARCHAR2)
IS
BEGIN
        UPDATE MATERIAS SET NOMBRE=MATERIA WHERE CODMATERIA=CODIGO;

END UPDATE_MATERIAS;

PROCEDURE UPDATE_PERIODO(CODIGO INTEGER,PERODO VARCHAR2)
IS
BEGIN
        UPDATE PERIODOS SET PERIODOO=PERODO WHERE CODPERIODO=CODIGO;

END UPDATE_PERIODO;

PROCEDURE UPDATE_OPCION(CODIGO INTEGER,ESPECIALIDA VARCHAR2)
IS
BEGIN
        UPDATE ESPECIALIDAD SET NOMBRE=ESPECIALIDA WHERE CODESPECIALIDAD=CODIGO;

END UPDATE_OPCION;

PROCEDURE UPDATE_DOCENTE(CODIGO INTEGER,NOMB VARCHAR2,APELL VARCHAR,FECNAC DATE,
SEX VARCHAR2,DOMI VARCHAR2,TEL NUMBER)
IS
BEGIN
        UPDATE DOCENTE SET NOMBRE=NOMB,APELLIDO=APELL,FECHA_NACIMIENTO=FECNAC,
        SEXO=SEX,DOMICILIO=DOMI,TELEFONO=TEL WHERE CODDOCENTE=CODIGO;

END UPDATE_DOCENTE;

PROCEDURE UPDATE_CARGADOCENT(CODIGO INTEGER,MATERIA INTEGER,GRADO INTEGER,
ESPECIALIDAD INTEGER,SECCION INTEGER)
IS
BEGIN
        UPDATE CARGA_DOCENTE SET CODGRADO=GRADO,CODESPECIALIDAD=ESPECIALIDAD,
        CODSECCION=SECCION WHERE CODDOCENTE=CODIGO AND CODMATERIA=MATERIA;

END UPDATE_CARGADOCENT;

PROCEDURE UPDATE_ENCARGADOGRDO(CODIGO INTEGER,GRADO INTEGER,SECCION INTEGER,
ESPECIALIDAD INTEGER)
IS
BEGIN
        UPDATE ENCARGADOS_GRADO SET CODGRADO=GRADO,CODSECCION=SECCION,
        CODESPECIALIDAD=ESPECIALIDAD WHERE CODDOCENTE=CODIGO;

END UPDATE_ENCARGADOGRDO;

PROCEDURE UPDATE_NOTAS(CODIGO INTEGER,MATERIA INTEGER,ACT NUMBER,LAB NUMBER,
EXAM NUMBER, PERIODO INTEGER)
IS
BEGIN
        UPDATE NOTAS SET ACTIVIDAD=ACT,LABORATORIO=LAB,EXAMEN=EXAM,CODPERIODO=PERIODO
        WHERE CODALUMNO=CODIGO AND CODMATERIA=MATERIA;

END UPDATE_NOTAS;

PROCEDURE DELETE_ALUMNO(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM ALUMNO WHERE CODALUMNO=CODIGO;

END DELETE_ALUMNO;

PROCEDURE DELETE_MATRICULA(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM MATRICULA WHERE CODALUMNO=CODIGO;

END DELETE_MATRICULA;

PROCEDURE DELETE_GRADO(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM GRADO WHERE CODIGOGRADO=CODIGO;

END DELETE_GRADO;

PROCEDURE DELETE_SECCION(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM SECCIONES WHERE CODSECCION=CODIGO;

END DELETE_SECCION;

PROCEDURE DELETE_OPCION(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM ESPECIALIDAD WHERE CODESPECIALIDAD=CODIGO;

END DELETE_OPCION;

PROCEDURE DELETE_MATERIA(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM MATERIAS WHERE CODMATERIA=CODIGO;

END DELETE_MATERIA;

PROCEDURE DELETE_PERIODO(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM PERIODOS WHERE CODPERIODO=CODIGO;

END DELETE_PERIODO;

PROCEDURE DELETE_DOCENTE(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM DOCENTE WHERE CODDOCENTE=CODIGO;

END DELETE_DOCENTE;

PROCEDURE DELETE_CARGA(CODIGO INTEGER, MATERIA INTEGER)
IS
BEGIN
        DELETE FROM CARGA_DOCENTE WHERE CODDOCENTE=CODIGO
        AND CODMATERIA=MATERIA;

END DELETE_CARGA;

PROCEDURE DELETE_ENCARGADO(CODIGO INTEGER)
IS
BEGIN
        DELETE FROM ENCARGADOS_GRADO WHERE CODDOCENTE=CODIGO;

END DELETE_ENCARGADO;

PROCEDURE DELETE_NOTAS(CODIGO INTEGER, MATERIA INTEGER)
IS
BEGIN
        DELETE FROM NOTAS WHERE CODALUMNO=CODIGO AND CODMATERIA=MATERIA;

END DELETE_NOTAS;


END MANTENIMIENTO;
/