Checking Links of BTS

Product : Motorola
Part involved : 9600.
Summary : To proceed to discard problems with link carrier then check spams.
Scenario : BTS is appearently oos.
Company : Motorola of Peru.
Reference date : June 1998.

Connect to BTS using ALMF :

Almf
c-Kermit
Login ILGIP :
You are already logged

disp param span
diap param edlc
/** Check values, these ones should be LVO=7 and Line Code=2 **/
Logout

Swap mmi cable to next GLI and repeat the procedure in all GLIs, after that check if the links are working with :

display emx link_status

WaveCom Q2426B

Product : Wavecom.
Part involved : Q2426B.
Summary : Set up and configuration of wavecom card.
Scenario : Enable traffic channels of mobile phone call termination using wavecom card connect to PBX Alcatel.
Company : Minister of Health of Peru (MINSA).
Reference date : January 2007.

1.- Check cable DB9 to DB9 (pin to pin).
2.- Set up hyperterminal with next fields : 34800, N, 8, 1, N
3.-

Check as reference : http://germanmedinavirtual.blogspot.com/2007/08/calculate-traffic-channels-3.html

SU VG

Product : Alcatel 4400.
Part involved : Card SU VG.
Summary : Handing flash card.
Scenario : Updating welcome message of PBX.
Company : Minister of Health of Peru (MINSA).
Reference date : August 2007.

First the audio should be saved into wav format file, after that, the file is copy to flash card memory. Every flash card memory of 4M size memory has 210 seconds of time recording and into every message of welcome should be inserted one second of mute previously to recording and three seconds of mute after recording then the total time of recording should be calculated based on: previous (mute)+message of welcome+after (mute).

Through mgr menu connected by mtcl user to PBX and to adjust configuration of message of welcome then select : Automated Attendant / Application; the flash card memory can be inserted into SU VG card in hot ( is not need to turn off PBX or pull off SU VG card), I have attached a You Tube video to confirm this procedure (check "DISA Message"at the right side under title "You Tube videos hosted by German Medina")

Calculate Traffic Channels (3)

Product : Size of traffic channels needed into company.
Part involved : Implementation of practical use to calculate the quantity of traffic channels needed.
Summary : How much need to grow our infrastructure in land lines, mobile phone calls and another types of service callings ?
Scenario : Developing IT plans will be based on the growth of the future company needs and that includes how to calculate the quantity of traffic channels.
Company : Minister of Health of Peru (MINSA).
Reference date : October 2006.

The output format log information with the fields : Day, Hour, Minute, Second, Tch (quantity of traffic channels busy at that time) has the bulk.

If we want to locate the time with the most rush hour then proceed to sort that log (descending) by Tch field, ordered by Hour, Minute, Second. These records will show the quantity of traffic channels busy and the time when happened that, for analysis purpose is convenient to work with a range of records (as result of descending sort) to find the top need of trunking ports size. At this point is important to highlight that if we want to study the traffic channels need of certain type of call service termination (land lines termination, mobile phones termination, or another type) the filter would be activated previously selecting the range of phone numbers to identify the type of call service associated with the issue of our analysis before to run VBA Access script.

In the case of mobile phone termination calling party, the trunking ports needed will be replaced by the same quantity of mobile phones cards attached to PBX, as I show at next picture :

Every card means one traffic channel (with mobile phone termination) connected through PBX, in this example there are two traffic channel busy; check at the top of the cabinet where the set of antennas have magnet base, every one are coneccted to their respective mobile phone card.

Here is the back side of the mobile phone card : One port DB9 is used to connect through serial port to pc by hyperterminal to configure the device and one RJ11 port to connect to MDF cabinet of PBX. The picture shown below belongs to wavecom Q2426B.

Calculate Traffic Channels (2)

Product : Size of traffic channels needed into company.
Part involved : Implementation of practical use to calculate the quantity of traffic channels needed.
Summary : How much need to grow our infrastructure in land lines, mobile phone calls and another types of callings ?
Scenario : Developing IT plans will be based on the growth of the future company needs and that includes how to calculate the quantity of traffic channels .
Company : Minister of Health of Peru (MINSA).
Reference date : October 2006.

This stage is focused to discuss what action should be take after our detailed record call party information has been storage, remember that the call party log belongs to the input data -with the fields: Date, Time, from Extension, Number called, Call party time (secs) - of our "magic box" and after finished the append process the size of the log can be grow up to decide to save that log information into some Access table following the same order and priority of the fields described.

According to the filter -what type of calling wants to study, selecting the capacity of traffic or planning to implement some type of service call can be grouped by the series number of the number called, ensure one type of service call as input- activated is possible to reduced the response of time.

Next script (VBA Access) (1) opens one counter for every second into a entire month, (2) takes a record information and extracts the time of the begin of the calling party and the length of the calling party, after that creates a list of seconds to fill in (1), (3) repeats step 2 until reach EOF in table, (4) write into rs2 table all the counters >0 with the next format : Day (date), Hour (time), Minute (time), Second (time), TCH (quantity of traffic channels busy at that time). The different levels of code nesting are colored.

Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("2006_Dic_Fijo") : Set rs2 = db.OpenRecordset("2006_Dic_Fijo_Tch")
Dim Tabla1(31, 24, 60, 60) As Integer
Dim ss As Integer: Dim mm As Integer: Dim hh As Integer: Dim dia As Integer
rs.MoveFirst

While Not rs.EOF
With rs
ss = Second(.Fields!Hora)
mm = Minute(.Fields!Hora)
hh = Hour(.Fields!Hora)
dia = Day(.Fields!Fecha)
Party = .Fields!Segundos
End With

For a = 1 To Party
Tabla1(dia, hh, mm, ss) = Tabla1(dia, hh, mm, ss) + 1

ss = ss + 1
If ss = 60 Then
ss = 0: mm = mm + 1
End If
If mm = 60 Then
mm = 0: hh = hh + 1
End If
If hh = 24 Then
hh = 0: dia = dia + 1
End If
If dia = 32 Then
dia = 1:
End If
Next a

rs.MoveNext
Wend

For Zap = 1 To 31
For Zep = 0 To 24
For Zip = 0 To 60
For Zop = 0 To 60
If Tabla1(Zap, Zep, Zip, Zop) > 0 Then
rs2.AddNew
With rs2
.Fields!dia = Zap
.Fields!Hora = Zep
.Fields!Minutos = Zip
.Fields!Segundos = Zop
.Fields!Canales = Tabla1(Zap, Zep, Zip, Zop)
End With
rs2.Update
End If
Next Zop
Next Zip
Next Zep
Next Zap

rs.Close: rs2.Close
MsgBox ("Fin de Ejecucion de Script")

Calculate Traffic Channels (1)

Product : Size of traffic channels needed into company.
Part involved : Implementation of practical use to calculate the quantity of traffic channels needed.
Summary : How much need to grow our infrastructure in land lines, mobile phone calls and another types of callings ?
Scenario : Developing IT plans will be based on the growth of the future company needs and that includes how to calculate the quantity of traffic channels .
Company : Minister of Health of Peru (MINSA).
Reference date : October 2006.

The most type of PBX display reports with some profiles about detailed calling party processed into PBX, this information is the input that we need to generate into our own model of trunking size. Next lines is an example of this type of information :

2832 Ana M.León M OGP1 0609010125000:00:05 0.74 S 0' 4481949 N 0001001001001 40 0BA

When information is not formatted like than the upper lines then is necessary to start with preliminar delimited field information of every record in order to establish a standard input information with the purpose of create a main input call party file log, such as next lines :

"01/11/2006","00:01:00","2782","5519617",0 “ is the same to say
Date, Time, from Extension, Number called, Call party time (secs)

When the information is appended according to the last format is possible to filter the information with every field or the combination of these ones. Next script works under excel enviroment and can be executed to achieved this goal. Check that the differents levels of code nesting are separated with differents colors.

Ruta10:
FilaIn = 1: FilaOut = 1: condicion = True

While condicion = True
If ActiveSheet.Cells(FilaIn, 1).Value = "" Then

Taz = Taz + 1
End If
If Taz >= 1 Then condicion = False

Level1 = 0: Level2 = 0: Level3 = 0: Level4 = 0
ActiveSheet.Cells(FilaIn, 1).Select
CCadena = ActiveSheet.Cells(FilaIn, 1).Value
Ccadena1 = Left(CCadena, 2)
Ccadena2 = Left(ActiveSheet.Cells(FilaIn + 1, 1).Value, 2)

If Ccadena1 = " " Then
ActiveSheet.Cells(FilaIn, 9).Value = ""
Else
ActiveSheet.Cells(FilaIn, 9).Value = "NO"
End If

If Ccadena1 <> " " And Ccadena2 <> " " Then
Selection.EntireRow.Delete
Else
FilaIn = FilaIn + 1
End If

'
Wend

FilaIn = 1: condicion = True: Par = 0: Taz = 0
While condicion = True
If ActiveSheet.Cells(FilaIn, 1).Value = "" Then
Taz = Taz + 1
End If
If Taz >= 1 Then condicion = False

ActiveSheet.Cells(FilaIn, 1).Select
CCadena = ActiveSheet.Cells(FilaIn, 9).Value
If CCadena = "NO" And Par = 0 Then ActiveSheet.Cells(FilaIn, 10).Value = ""
If CCadena <> "NO" And Par = 0 Then ActiveSheet.Cells(FilaIn, 10).Value = "Error"
If CCadena = "" And Par = 1 Then ActiveSheet.Cells(FilaIn, 10).Value = ""
If CCadena <> "" And Par = 1 Then ActiveSheet.Cells(FilaIn, 10).Value = "Error"
If ActiveSheet.Cells(FilaIn, 10).Value = "Error" Then
Selection.EntireRow.Delete
Else
Par = Par + 1: FilaIn = FilaIn + 1
If Par = 2 Then Par = 0
End If
Wend

' Crear archivo de texto con las columnas Fecha, Hora, Anexo, NumeroLlamado, Segs
' en modo append
Ruta1:

FilaIn = 1: Techito = True: Taz = 0
Dim Fecha As Date: Dim Hora As Date
Dim cadena1 As String: Dim cadena2 As String
Dim numero As String: Dim Cadena As String: Dim anexo As String: Dim tmp As String
Dim saro As String: Dim smes As String: Dim sdia As String: Dim shh As String: Dim smm As String: Dim sss As String
Dim ss1 As String: Dim ss2 As String: Dim ss3 As String
Dim iaro As Integer: Dim imes As Integer: Dim idia As Integer: Dim ihh As Integer: Dim imm As Integer: Dim iss As Integer
Dim iss1 As Integer: Dim iss2 As Integer: Dim iss3 As Integer

While Techito = True
ActiveSheet.Cells(FilaIn, 1).Select
Estacion = Len(ActiveSheet.Cells(FilaIn, 1).Value)
If Estacion = 0 Then
Taz = Taz + 1
End If
If Taz >= 1 Then Techito = False

Level1 = 0: Level2 = 0: Level3 = 0: Level4 = 0

Cadena = ActiveSheet.Cells(FilaIn, 1).Value
Largo = Len(Cadena)

For a = 1 To Largo
If Mid(Cadena, a, 1) = "" Then Level1 = Level1 + 1: Level2 = 0
If Mid(Cadena, a, 1) = " " Then Level2 = Level2 + 1

If Level1 = 1 And Level2 = 0 Then anexo = anexo + Mid(Cadena, a + 1, 1)
If Level1 = 4 And Level2 = 0 Then
If Level3 >= 1 And Level3 <= 2 Then saro = saro + Mid(Cadena, a, 1)

If Level3 >= 3 And Level3 <= 4 Then smes = smes + Mid(Cadena, a, 1)

If Level3 >= 5 And Level3 <= 6 Then sdia = sdia + Mid(Cadena, a, 1)

If Level3 >= 7 And Level3 <= 8 Then shh = shh + Mid(Cadena, a, 1)

If Level3 >= 9 And Level3 <= 10 Then smm = smm + Mid(Cadena, a, 1) Level3 = Level3 + 1 End If

If Level1 = 5 And Level2 = 0 Then

If Level4 >= 1 And Level4 <= 3 Then ss1 = ss1 + Mid(Cadena, a, 1)

If Level4 >= 5 And Level4 <= 6 Then ss2 = ss2 + Mid(Cadena, a, 1)

If Level4 >= 8 And Level4 <= 9 Then ss3 = ss3 + Mid(Cadena, a, 1) Level4 = Level4 + 1

If Level4 = 10 Then a = Largo

End If

Next a

FilaIn = FilaIn + 1: Level1 = 0: Level2 = 0: Level3 = 0: Level4 = 0 ActiveSheet.Cells(FilaIn, 1).Select Cadena = ActiveSheet.Cells(FilaIn, 1).Value Largo = Len(Cadena)

For a = 1 To Largo

If Mid(Cadena, a, 1) = "" Then Level1 = Level1 + 1: Level2 = 0 If Mid(Cadena, a, 1) = " " Then Level2 = Level2 + 1 If Level1 = 2 And Level2 = 0 Then numero = numero + Mid(Cadena, a + 1, 1) If Level2 >= 1 And Level1 = 2 Then a = Largo
Next a

tmp = "": If Left(numero, 1) = "1" Then numero = Mid(numero, 2, Len(numero))
For b = 1 To Len(numero)
If Mid(numero, b, 1) = " " Then
Else
tmp = tmp + Mid(numero, b, 1)
End If
Next b: numero = tmp: tmp = ""

For b = 1 To Len(anexo)
If Mid(anexo, b, 1) = " " Then
Else
tmp = tmp + Mid(anexo, b, 1)
End If
Next b: anexo = tmp: tmp = ""

segs = 0
iaro = Val(saro): imes = Val(smes): idia = Val(sdia)
ihh = Val(shh): imm = Val(smm): iss = Val(sss)
iss1 = Val(ss1): iss2 = Val(ss2): iss3 = Val(ss3)
Fecha = DateSerial(iaro, imes, idia): cadena1 = Fecha
Hora = TimeSerial(ihh, imm, iss): cadena2 = Hora

If iss1 = 0 Then
Else
segs = segs + (3600 * iss1)
End If
If iss2 = 0 Then
Else
segs = segs + (60 * iss2)
End If
If iss3 = 0 Then
Else
segs = segs + iss3
End If

Open "C:\Temo\1.txt" For Append As #1
Write #1, cadena1, cadena2, anexo, numero, segs: Close 1

FilaIn = FilaIn + 1: Level1 = 0: Level2 = 0: Level3 = 0: Level4 = 0
saro = "": smes = "": sdia = "": ss1 = "": ss2 = "": ss3 = "": shh = "": smm = "": sss = ""
iaro = 0: imes = 0: idia = 0: ihh = 0: imm = 0: iss = 0: anexo = "": numero = "": tmp = ""
Wend
MsgBox ("Fin de Ejecución del Programa")