NORMA LEGAL OFICIAL DEL DÍA 20 DE SEPTIEMBRE DEL AÑO 1998 (20/09/1998)

Lima, domingo 20 de setiembre de 1998 cl- P&. 164179 l.- Se determina el orden de indexación del archivo LISTA como ubigeo+tipovota+lista. Se inicializan variables de trabajo, especialmente los regidores que faltan asignar, las auxiliares de suma de regidores, etc. 2.- Se busca el primer registro de LISTA que pertenezca al ubigeo especificado al momento de invocar al módulo. 3.- Se pasan todos los valores de número de regidores asignados (numregi) de todas las listas de ese ubigeo en cero. 4.- Se regresa al primer registro de LISTA que pertenece al ubigeo. 5.-Si el ubigeo de LISTA es el mismo que el invocado con el módulo y no es el tin del archivo LISTA se prosigue, caso contrario ir al paso 25. 6: Si el código de la LISTA es menor a “080”, es decir si es blanco, nulo o impugnado, proseguimos; si no, se va al paso 5. 7.-Silalistaactualeslalista ganadorayno hubomayoría absoluta, se prosigue; caso contrario se va al paso 14. 8.- Se localiza en el archivo BSUMDIST el registro que corresponde al registro actual de LISTA. 9.- Si el número de candidatos a regidor hábiles de la lista es menor que las vacantes que ganó (en este caso el 50% más uno redondeado hacia arriba), se registra una variable lla- mada perdio-vacantes, que guarda el número de vacantes que las listas pierden por esta razón. lo.- Se actualiza el número de regidores de la lista ganadora en el archivo LISTA con las vacantes que ganó (en este caso el 50% más uno redondeado hacia arriba), o con el número de candidatos a regidor hábiles (si las vacantes ganadas son mayores que los candidatos hábiles). ll.- Se resta la cantidad anterior a los regidores que falta asignar. 12.- Si el número de candidatos a regidor habiles es menor que las vacantes ganadas originalmente, se ejecuta el procedimiento seg-rep-d (que se encarga de hacer una nueva repartición de lo que sobra con una nueva cifra repartidora) y se va al final del archivo LISTA ( para salir del bucle iniciado en el paso 5). 13.- Se va al paso 20. 14: Esta es la rama del proceso en el caso que no se cumple la condición del paso 7; por lo tanto, aquí si entra en juego la división entre la cifra repartidora. Se localiza en el archivo BSUMDIST (suma de las votaciones por lista) el registro que corresponde al registro actual de LISTA. 15.- Se calcula el número de regidores que debería asignarse a la actual lista, dividiendo sus votos entre la cifra repartidora. 16.- Si el número de candidatos a regidor hábiles de la lista es menor que las vacantes que ganó, se registra una variable llamada perdio-vacantes, que guarda el número de vacantes que las listas pierden por esta razón. 17.- Se actualiza el número de regidores de la lista ganadora en el archivo LISTA con las vacantes que ganó, o con el número de candidatos a regidor hábiles (si las vacantes ganadas son mayores que los candidatos hábiles). la.- Se agrega este número de regidores asignados según la división al contador de regidores según la cifra repartidora (surn-regia).1 , 19: Si el número de candidatos a regidor hábiles es menor que las vacantes ganadas originalmente por la dici- sión, se ejecuta el procedimiento seg-rep-d (que se encarga de hacer una nueva repartición de lo que sobra con una nueva cifra repartidora entre las listas a las que aún no se les ha asignado regidores) y se va al final del archivo LISTA para salir del bucle iniciado en el paso 5. 20.- Se avanza al próximo registro del archivo LISTA. 21.- Se regresa al paso 5. 22.- Si la variable sum-regi2 (número de regidores asignados según la división1 es mayor que el número de regidores que debía haberse asignado se debe romper un desempate entre listas usando el criterio de preferir la lista con más votación entre varias empatadas en número de regidores ganados. Para eso se llama al procedimiento desasignd.13.- Si el ubigeo de LISTA es igual al ubigeo actual y no es tin del archivo LISTA aún, se prosigue. Caso contrario, se va al paso 17. 14.- Si la lista aún no ha sido asignada con vacantes para regidores y la lista es menor a “080” se prosigue, sino se va al paso 17. 15.- Si alcanzan los candidatos a regidor hábiles, se reemplaza los regidores asignados con el resultado de dividir los votos de la lista entre la cifra repartidora de este módulo. 16.- Si no se cumple lo anterior, se reemplazan los regidores asignados con los candidatos hábiles, y lo sobrante entra a una nueva ejecución de seg-rep-d (que sería un procedimiento recursivol. 17.- Pasa al siguiente registro de LISTA. 18.-Va al paso 13. Procedimiento seg-rep- p Procedimiento calc_reg-p Es análogo a seg-rep-p, pero para listas provinciales. Es análogo al procedimiento calcregd, pero donde se usa un dato distrital, se sustituye por uno provincial. Los procedimientos que se llaman son seg-repg y desasignap.Procedimiento desasignad Procedimiento asig-reg_d Este procedimiento usa el número de regidores obtenidos (vacantes obtenidas) por cada lista distrital para asignar las vacantes a los primeros regidores hábiles de la lista, hasta completar el número de regidores obtenidos. l.- Se determina el orden de LISTA como ubigeo+tipovota+idlista.Este procedimiento se utiliza para quitar uno o más regido- res en el caso que después de aplicar la cifra repartidora la suma de regidores asignados a las diferentes listas de un distrito excede el número total de regidores del municipio en cuestión. Por lo ,anto, este procedimiento calcula a qué lista o listas debe restárseles una vacante. En caso de empate perfecto, no resta vacantes y se deba proceder al sorteo público. l.- Se usa cuando hay empate en regidores y la suma de lo asignado excede el total de vacantes. Por ello, alguien debe perder una vacante.2.- Se busca el primer registro de LISTA cuyo ubigeo sea gua1 al del registro actual de CIFRA_LIST. 3.- Si aún no es tin del archivo LISTA y su ubigeo es igual al del registro actual de CIFRA-LIST, se prosigue; caso :ontrariose va al paso 6. 4: En el archivo CANDIDAT se busca el primer registro :orrespondiente a un candidato de la lista actual en LISTA ubigeo y lista). 5.- En esa relación de candidatos, se barre la totalidad de los candidatos hábiles que pertenecen a la lista actual en el archivo LISTA. Si es un regidor, se encuentra habilitado y está dentro de los elegidos de la lista, se lo marca como “T” verdadero) en el campo elegido. Si es regidor y no está lentro de los elegidos o es inhábil, se lo marca como ‘F’. Si es 21 alcalde de la lista ganadora, se marca como ‘T’, pero si es alcalde de otra lista, se marca como ‘F’. 6: Se restablece el anterior orden de LISTA. Procedimiento asig-reg-p Es análogo a asigreg-d. pero para listas provinciales. Procedimiento seg_rep_d Si se presenta algún caso especial que implica que una vacante obtenida por una lista distrital no puede ser cubierta por la misma, por falta de candidatos hábiles, se requiere volver a calcular otra cifra repartidora para repartir los regidores que quedan entre las listas a las que aún no se les asignan regidores. Este procedimiento se encarga del cálculo de las demás cifras repartidoras. l.- Se crean los arreglos de variables temporales coc-srd de 30x10 elementos y lista-coc de 300 elementos. 2.- Se inicializan los elementos de los arreglos a cero. 3: En LISTA se busca el primer registro del actual ubigeo. 4: Si el ubigeo de LISTA es igual al ubigeo actual y no es fin del archivo LISTA aún, se prosigue; caso contrario, se va al paso 9. 5.- Si la lista actual según el archivo LISTA es menor a “080” y aún no se han asignados regidores, se prosigue; caso contrario, se va al paso 7. 6.- Se generan nuevos cocientes para esta lista, que se van grabando en el array coc-srd, de la siguiente forma: coc-srd(lista,l)=cociente entre 1, coc-srd(lista,2)=cociente entre 2, etc. 7.- Se pasa al siguiente registro de LISTA. 8.- Se va al paso 4. 9.- Se asigna a cada elemento de lista-cw con un valor de algún elemento de coc-srd. lo.- Se ordena lista-coc, de mayor a menor. ll.- La nueva cifra repartidora es el enésimo valor del arreglo lista-coc, donde n es el número de vacantes de regidores por asignar. 12.- En LISTA se busca el primer registro del actual ubigeo.