FUNCTION BE_P_CONTAR_NODOS_XML(
    xml_string IN VARCHAR2,
    tipo IN VARCHAR2,
    path_arreglo IN VARCHAR2)
  RETURN NUMBER AS
    sub_xml XMLType;              
    indice NUMBER;                
    path_buscar VARCHAR2(300);    
    existeNodo NUMBER;            
    cantidad_nodos NUMBER;       
    xpath_nodo_principal VARCHAR2(200);
    Lv_mensajeError VARCHAR2(200);    
            
  BEGIN
    cantidad_nodos := 0;
    BEGIN
        SELECT xmltype(xml_string) INTO sub_xml from dual;
    EXCEPTION
        WHEN OTHERS THEN            
            Lv_mensajeError :=  length(Lv_XML) ||' '|| length(xml_string) ||' '|| SQLERRM;
            INSERT INTO TEMP_XML VALUES (xml_string);
            COMMIT;
    END;
    --EL XPATH ES GENERALEMNTE EN TODOS LOS REPONSE XML IGUAL A ESTE
    xpath_nodo_principal := '/' || tipo || 'Response/' || tipo || 'Result/child::node()';
  
    --SE EXTRAE LA RESPUESTA ELIMINANDO LOS ENCABEZADOS PRINCIPALES
    sub_xml := sub_xml.EXTRACT(XPATH_ENCABEZADO, NAME_SPACE_GENERAL);
    --EXTRAE EL CONTENIDO DE LA RESPUESTA
    IF(sub_xml IS NOT NULL) THEN
    --EXTRAE EL CUERPO DEL MENSAJE
      sub_xml := sub_xml.EXTRACT(xpath_nodo_principal, NAME_SPACE_NODO);
      LOOP
        indice := cantidad_nodos + 1;
        path_buscar := path_arreglo || '[' || TO_CHAR(indice) || ']';
        existeNodo := sub_xml.EXISTSNODE(path_buscar, NAME_SPACE_NODO);
        IF (existeNodo = 0) THEN
          EXIT;
        ELSE
          cantidad_nodos := cantidad_nodos + 1;
        END IF;
      END LOOP;
    ELSE
      RETURN NULL;
    END IF;
    RETURN cantidad_nodos;
  END BE_P_CONTAR_NODOS_XML;

SQL> create or replace
  2  FUNCTION BE_P_CONTAR_NODOS_XML(
  3      xml_string IN VARCHAR2,
  4      tipo IN VARCHAR2,
  5      path_arreglo IN VARCHAR2)
  6    RETURN NUMBER AS
  7      sub_xml XMLType;              
  8      indice NUMBER;                
  9      path_buscar VARCHAR2(300);    
 10      existeNodo NUMBER;            
 11      cantidad_nodos NUMBER;       
 12      xpath_nodo_principal VARCHAR2(200);
 13      Lv_mensajeError VARCHAR2(200);    
 14              
 15    BEGIN
 16      cantidad_nodos := 0;
 17  --    BEGIN
 18          SELECT xmltype(xml_string) INTO sub_xml from dual;
 19  /*
 20      EXCEPTION
 21          WHEN OTHERS THEN            
 22              Lv_mensajeError :=  length(Lv_XML) ||' '|| length(xml_string) ||' '|| SQLERRM;
 23              INSERT INTO TEMP_XML VALUES (xml_string);
 24              COMMIT;
 25      END;
 26  */
 27      --EL XPATH ES GENERALEMNTE EN TODOS LOS REPONSE XML IGUAL A ESTE
 28      xpath_nodo_principal := '/' || tipo || 'Response/' || tipo || 'Result/child::node()';
 29    
 30      --SE EXTRAE LA RESPUESTA ELIMINANDO LOS ENCABEZADOS PRINCIPALES
 31      sub_xml := sub_xml.EXTRACT(XPATH_ENCABEZADO, NAME_SPACE_GENERAL);
 32      --EXTRAE EL CONTENIDO DE LA RESPUESTA
 33      IF(sub_xml IS NOT NULL) THEN
 34      --EXTRAE EL CUERPO DEL MENSAJE
 35        sub_xml := sub_xml.EXTRACT(xpath_nodo_principal, NAME_SPACE_NODO);
 36        LOOP
 37          indice := cantidad_nodos + 1;
 38          path_buscar := path_arreglo || '[' || TO_CHAR(indice) || ']';
 39          existeNodo := sub_xml.EXISTSNODE(path_buscar, NAME_SPACE_NODO);
 40          IF (existeNodo = 0) THEN
 41            EXIT;
 42          ELSE
 43            cantidad_nodos := cantidad_nodos + 1;
 44          END IF;
 45        END LOOP;
 46      ELSE
 47        RETURN NULL;
 48      END IF;
 49      RETURN cantidad_nodos;
 50    END BE_P_CONTAR_NODOS_XML;
 51  /

Warning: Function created with compilation errors.

SQL> sho err
Errors for FUNCTION BE_P_CONTAR_NODOS_XML:
LINE/COL
---------------------------------------------------------------------------------
ERROR
-----------------------------------------------------------------------------------------------------
30/5
PL/SQL: Statement ignored
30/32
PLS-00201: identifier 'XPATH_ENCABEZADO' must be declared
34/7
PL/SQL: Statement ignored
34/56
PLS-00201: identifier 'NAME_SPACE_NODO' must be declared
38/9
PL/SQL: Statement ignored
38/55

    EXCEPTION
        WHEN OTHERS THEN            
            Lv_mensajeError :=  length(Lv_XML) ||' '|| length(xml_string) ||' '|| SQLERRM;
            INSERT INTO TEMP_XML VALUES (xml_string);
            COMMIT;
    END;

SQL> create or replace
  2    FUNCTION BE_P_CONTAR_NODOS_XML(
  3      xml_string IN VARCHAR2,
  4      tipo IN VARCHAR2,
  5      path_arreglo IN VARCHAR2)
  6    RETURN NUMBER AS
  7      sub_xml XMLType;              
  8      indice NUMBER;                
  9      path_buscar VARCHAR2(300);    
 10      existeNodo NUMBER;            
 11      cantidad_nodos NUMBER;       
 12      xpath_nodo_principal VARCHAR2(200);
 13      Lv_mensajeError VARCHAR2(200);    
 14              
 15    BEGIN
 16      cantidad_nodos := 0;
 17      BEGIN
 18          SELECT xmltype(xml_string) INTO sub_xml from dual;
 19      EXCEPTION
 20          WHEN OTHERS THEN            
 21              Lv_mensajeError :=  length(Lv_XML) ||' '|| length(xml_string) ||' '|| SQLERRM;
 22              INSERT INTO TEMP_XML VALUES (xml_string);
 23              COMMIT;
 24      END;
 25      --EL XPATH ES GENERALEMNTE EN TODOS LOS REPONSE XML IGUAL A ESTE
 26      xpath_nodo_principal := '/' || tipo || 'Response/' || tipo || 'Result/child::node()';
 27    
 28      --SE EXTRAE LA RESPUESTA ELIMINANDO LOS ENCABEZADOS PRINCIPALES
 29      sub_xml := sub_xml.EXTRACT(XPATH_ENCABEZADO, NAME_SPACE_GENERAL);
 30      --EXTRAE EL CONTENIDO DE LA RESPUESTA
 31      IF(sub_xml IS NOT NULL) THEN
 32      --EXTRAE EL CUERPO DEL MENSAJE
 33        sub_xml := sub_xml.EXTRACT(xpath_nodo_principal, NAME_SPACE_NODO);
 34        LOOP
 35          indice := cantidad_nodos + 1;
 36          path_buscar := path_arreglo || '[' || TO_CHAR(indice) || ']';
 37          existeNodo := sub_xml.EXISTSNODE(path_buscar, NAME_SPACE_NODO);
 38          IF (existeNodo = 0) THEN
 39            EXIT;
 40          ELSE
 41            cantidad_nodos := cantidad_nodos + 1;
 42          END IF;
 43        END LOOP;
 44      ELSE
 45        RETURN NULL;
 46      END IF;
 47      RETURN cantidad_nodos;
 48    END BE_P_CONTAR_NODOS_XML;
 49  /
Warning: Function created with compilation errors.

SQL> show err
Errors for FUNCTION BE_P_CONTAR_NODOS_XML:

LINE/COL ERROR
-------- -----------------------------------------------------------------
20/13    PL/SQL: Statement ignored
20/40    PLS-00201: identifier 'LV_XML' must be declared
21/13    PL/SQL: SQL Statement ignored
21/25    PL/SQL: ORA-00942: table or view does not exist
28/5     PL/SQL: Statement ignored
28/32    PLS-00201: identifier 'XPATH_ENCABEZADO' must be declared
32/7     PL/SQL: Statement ignored
32/56    PLS-00201: identifier 'NAME_SPACE_NODO' must be declared
36/9     PL/SQL: Statement ignored
36/55    PLS-00201: identifier 'NAME_SPACE_NODO' must be declared
SQL>