gistfile1.sql

CREATE OR REPLACE PACKAGE BODY AEGPA_EP.mod_licencias IS
    
    PROCEDURE entrada (name_array    IN OUT OWA.vc_arr,
                       value_array   IN OUT OWA.vc_arr)
    IS
       submitAction       VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');   
    BEGIN
        IF submitAction IS NOT NULL THEN
            mod_licencias_validators.entrada(name_array, value_array);   
            IF pspgen_parameter.get_value(name_array, value_array, '_form_action') IS NOT NULL THEN
                mod_licencias_actions.entrada(name_array, value_array);  
            END IF;       
        END IF;               
         
        IF  submitAction IS NULL OR 
            pspgen_parameter.get_value(name_array, value_array, '_form_status') = pspgen_validators.invalid_status 
        THEN
            mod_licencias_templates.entrada(name_array, value_array);
        END IF;
        
        pspgen_parameter.remove_extra_parameters(name_array, value_array);
    END entrada;

    PROCEDURE entrada
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        entrada(name_array, value_array);
    END entrada;

    PROCEDURE home_usuario (name_array    IN OUT OWA.vc_arr,
                            value_array   IN OUT OWA.vc_arr)
    IS
       submitAction       VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');   
    BEGIN
        IF pspgen_util.sesion_correcta THEN
            mod_licencias_templates.home_usuario(name_array, value_array); 
        ELSE
            entrada;
        END IF;
    END home_usuario;

    PROCEDURE home_usuario
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        home_usuario(name_array, value_array);
    END home_usuario;

    PROCEDURE info_licencia (name_array    IN OUT OWA.vc_arr,
                             value_array   IN OUT OWA.vc_arr)
    IS
       submitAction       VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');   
    BEGIN
        IF pspgen_util.sesion_correcta THEN
            IF submitAction = 'Aceptar' THEN
                mod_licencias_validators.info_licencia(name_array, value_array);     
            END IF;               
             
            IF  submitAction IS NULL OR 
                submitAction = 'Volver' OR
                pspgen_parameter.get_value(name_array, value_array, '_form_status') = pspgen_validators.invalid_status 
            THEN
                mod_licencias_templates.elegir_licencia(name_array, value_array);
            ELSIF submitAction = 'Aceptar' THEN
                mod_licencias_templates.info_licencia(name_array, value_array);
            END IF;
            
            pspgen_parameter.remove_extra_parameters(name_array, value_array);
        ELSE
            entrada;
        END IF;
    END info_licencia;

    PROCEDURE info_licencia
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        info_licencia(name_array, value_array);
    END info_licencia;
    
    PROCEDURE datos_personales (name_array    IN OUT OWA.vc_arr,
                                value_array   IN OUT OWA.vc_arr)
    IS
       submitAction         VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');
       submitFirma          VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitFirma');   
       form_status          VARCHAR2(255);   
    BEGIN
        IF pspgen_util.sesion_correcta THEN
            IF submitAction = 'Aceptar' THEN
                mod_licencias_validators.datos_personales(name_array, value_array);        
                IF pspgen_parameter.get_value(name_array, value_array, '_form_action') IS NOT NULL THEN
                    mod_licencias_actions.datos_personales(name_array, value_array);  
                END IF;  
            ELSIF submitFirma = 'Firmar' THEN
                mod_licencias_validators.firmar_datos_personales(name_array, value_array);   
                IF pspgen_parameter.get_value(name_array, value_array, '_form_action') IS NOT NULL THEN
                    mod_licencias_actions.firmar_datos_personales(name_array, value_array);  
                END IF;  
            END IF;               

            form_status := pspgen_parameter.get_value(name_array, value_array, '_form_status');

            IF (submitFirma = 'Firmar' AND  form_status = pspgen_validators.valid_status) THEN
                pspgen_templates.confirmacion_firma_digital(name_array, value_array);
            ELSIF (submitAction = 'Aceptar' AND  form_status = pspgen_validators.valid_status)
            OR (submitFirma = 'Firmar' AND form_status = pspgen_validators.invalid_status) THEN
                mod_licencias_templates.firmar_datos_personales(name_array, value_array);
            ELSE
                mod_licencias_templates.datos_personales(name_array, value_array);
            END IF;
            
            pspgen_parameter.remove_extra_parameters(name_array, value_array);
        ELSE
            entrada;
        END IF;
    END datos_personales;

    PROCEDURE datos_personales
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        mod_licencias_util.cargar_datos_personales(name_array, value_array);
        datos_personales(name_array, value_array);
    END datos_personales;

    PROCEDURE verificacion_firma (name_array    IN OUT OWA.vc_arr,
                                  value_array   IN OUT OWA.vc_arr)
    IS
       submitAction       VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');   
    BEGIN
        IF pspgen_util.sesion_correcta THEN
            pspgen_templates.en_construccion(name_array, value_array);
        ELSE
            entrada;
        END IF;
    END verificacion_firma;

    PROCEDURE verificacion_firma
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        verificacion_firma(name_array, value_array);
    END verificacion_firma;
    
    PROCEDURE soporte_tecnico (name_array    IN OUT OWA.vc_arr,
                               value_array   IN OUT OWA.vc_arr)
    IS
       submitAction       VARCHAR2(255) := pspgen_parameter.get_value(name_array, value_array, 'submitAction');   
    BEGIN
        IF pspgen_util.sesion_correcta THEN
            pspgen_templates.en_construccion(name_array, value_array);
        ELSE
            entrada;
        END IF;
    END soporte_tecnico;

    PROCEDURE soporte_tecnico
    IS      
        name_array   OWA.vc_arr;
        value_array  OWA.vc_arr; 
    BEGIN
        soporte_tecnico(name_array, value_array);
    END soporte_tecnico;

    PROCEDURE cerrar_sesion IS      
    BEGIN
        pspgen_util.cerrar_sesion('mod_licencias.entrada');
    END cerrar_sesion;      
END mod_licencias;
/