Subversion Repositories DevTools

' Description:      Return a string to convert a ripple field state to a text name

' Description:      Return a string to convert a ripple field state to a text name

'                   bFlag is set to false if the state is unknown.

'                   bFlag is set to false if the state is unknown.

Dim rippleFieldValues

Dim rippleFieldValues

rippleFieldValues = Array ("M", "m", "p", "b", "L")

rippleFieldValues = Array ("M", "m", "p", "b", "L")

Function rippleFieldName ( rstate, ByRef bFlag )

Function rippleFieldName ( rstate, ByRef bFlag )

    bFlag = TRUE

    bFlag = TRUE

    Select Case rstate

    Select Case rstate

            Case "M" 

            Case "M" 

                rippleFieldName = "Major Number"

                rippleFieldName = "Major Number"

            Case "m" 

            Case "m"