###################################################
# this is the 'if' block where the global symbol
# complaints occur
# this 'if' block is in the subroutine 'generate_rxi'
# which is part of the package rxi.pm
####################################################
if (length($aOrder->{rx_OD_Prism_Diopters}) ne 0 
    || length($aOrder->{rx_OS_Prism_Diopters}) ne 0) {
    my @array1 = qw($aOrder->{rx_OD_Prism_Diopters} 
                    $aOrder->{rx_OD_Prism} 
                    $aOrder->{rx_OD_Prism_Angle_Val}
                    $aOrder->{rx_OD_Prism2_Diopters}		                    $aOrder->{rx_OD_Prism2});

    my @array2 = qw($aOrder->{rx_OS_Prism_Diopters}
                    $aOrder->{rx_OS_Prism}
                    $aOrder->{rx_OS_Prism_Angle_Val}
                    $aOrder->{rx_OS_Prism2_Diopters}
                    $aOrder->{rx_OS_Prism2});
    # if values are specified as Angles, convert them to direction
    if ($array1[1] == 'Angle') {convertPrismData(0, \@array1);}
    if ($array2[1] == 'Angle') {convertPrismData(1, \@array2);} 
		
    my $ODP1Val = $array1[0];
    my $ODP1Dir = $array1[1];
    my $ODP2Val = $array1[3];
    my $ODP2Dir = $array1[4];
    my $OSP1Val = $array2[0];
    my $OSP1Dir = $array2[1];
    my $OSP2Val = $array2[3];
    my $OSP2Dir = $array2[4];
    # Innovations only expresses prism as IN or UP
    # reverse anthing that is OUT or DOWN
    if ($ODP1Dir == "OUT" || $ODP1Dir == "DOWN") {
      if (length($ODP1Val != 0) {$ODP1Val = '-' . $ODP1Val);}
      if ($ODP1Dir == "OUT") {
        $ODP1Dir = "IN");
      } else {
        $ODP1Dir = "UP");
      }
    }
    ### first global symbol complaint is on $ODP2Dir
    if ($ODP2Dir == "OUT" || $ODP2Dir == "DOWN") {
      ### second global symbol complaint is on $ODP2Val
      if (length($ODP2Val != 0) {$ODP2Val = '-' . $ODP2Val);}
      if ($ODP2Dir == "OUT") {
        $ODP2Dir = "IN");
      } else {
        $ODP2Dir = "UP");
      }
    }
    ### third global symbol complaint is on $OSP1Dir
    if ($OSP1Dir == "OUT" || $OSP1Dir == "DOWN") {
      ### fourth (and final) global symbol complaint is on $OSP1Val
      if (length($OSP1Val != 0) {$OSP1Val = '-' . $OSP1Val);}
      if ($OSP1Dir == "OUT") {
        $OSP1Dir = "IN");
      } else {
        $OSP1Dir = "UP");
      }
    }
    if ($OSP2Dir == "OUT" || $OSP2Dir == "DOWN") {
      if (length($OSP2Val != 0) {$OSP2Val = '-' . $OSP2Val);}
      if ($OSP2Dir == "OUT") {
        $OSP2Dir = "IN");
      } else {
        $OSP2Dir = "UP");
      }
    }
    my $PIN_String;
    my $PUP_String;
    if (length($ODP1Val) > 0) {
      if ($ODP1Dir == "IN") {
        $PIN_String = $ODP1Val;
        $PUP_String = (length($ODP2Val) > 0) ? $ODP2Val : "  0.00");
      } else { #UP 
        $PUP_String = $ODP1Val;
        $PIN_String = (length($ODP2Val) > 0) ? $ODP2Val : "  0.00");
      }
    } else {
      $PIN_String = "  0.00";
      $PUP_String = "  0.00";
    }
    if (length($OSP1Val) > 0) {
      if ($OSP1Dir == "IN") {
        $PIN_String .= (" " . $OSP1Val);
        $PUP_String .= length($OSP2Val) > 0) ? ("  " . $OSP2Val) : "  0.00");
      } else { 
        $PUP_String .= (" " . $OSP1Val);
        $PIN_String .= (length($OSP2Val) > 0) ? ("  " . $OSP2Val) : "  0.00");
      }
    } else {
      $PIN_String .= " 0.00";
      $PUP_String .= " 0.00";
    }
    print FH "PIN " . $PIN_String;
    print FH "PUP " . $PUP_String;
}