FUNCTION verInstalacion(pnumoc)
  DEFINE pnumoc,cuenta INT,
  existe_instalacion BOOLEAN

  SELECT COUNT(*) INTO cuenta FROM prtb00013 a,iptb00020 b
  WHERE a.num_oc = pnumoc AND a.cod_n = b.cod_n AND b.instalacion = "SI"  

  IF cuenta > 0 THEN
     LET existe_instalacion = FALSE
  ELSE
     LET existe_instalacion = TRUE
  END IF
  
  
END FUNCTION