Private Sub cmdPrintVersion_Click()
   
    On Error GoTo ErrorHandler
    Dim strPatientName As String
    Dim strCivil As String
    Dim strSex As String
    Dim strDoctor As String
    Dim strRadName As String
    Dim strRadio As String
    Dim strRadio2 As String
    Dim strSql As String
    Dim strRadioID As String
    Dim strRadioID3 As String
    Dim strRadioID4 As String
    Dim strRadio3 As String
    Dim strRadio4 As String
    Dim strSQLDelete As String
    
    Dim strUserCode As String

    Dim msgResponse As VbMsgBoxResult
    
    Dim strUserRelease As String
    
    Dim blnIsVerfied As Boolean
    
    strVerifyByID = ""
    msgResponse = vbYes
    
    strUserRelease = USER.employeecode
    

    If blnResultNarrative = False Then
        If Len(Trim$(Me.txtDoctor.Text)) = 0 Then
            strDoctor = ""
        Else
            strDoctor = Me.txtDoctor.Text + ", M.D."
        End If
        
        strRadio = Trim$(Me.txtRadio) + ", " + GetRadioTitle(Me.txtRadioID.Text)
        strRadio2 = IIf((txtRadio2.Text = ""), "", Trim$(Me.txtRadio2) + ", " + GetRadioTitle(Me.txtRadioID2.Text))
        strRadio3 = IIf((txtRadio3.Text = ""), "", Trim$(Me.txtRadio3) + ", " + GetRadioTitle(Me.txtRadioID3.Text))
        strRadio4 = IIf((txtRadio4.Text = ""), "", Trim$(Me.txtRadio4) + ", " + GetRadioTitle(Me.txtRadioID4.Text))
        
        strPatientName = Trim$(Me.txtSname.Text) + ", " + Trim$(Me.txtFname.Text) + " " + Trim$(Me.txtMname.Text)
        strSex = IIf(Me.optSex(0).Value = True, "MALE", "FEMALE")
        
        strCivil = GetCivilStatus(CivilStatusCode)
'        If Me.optCivil(0).Value = True Then
'            strCivil = "CHILD"
'        ElseIf Me.optCivil(1).Value = True Then
'            strCivil = "SINGLE"
'        ElseIf Me.optCivil(2).Value = True Then
'            strCivil = "MARRIED"
'        ElseIf Me.optCivil(3).Value = True Then
'            strCivil = "WIDOW/ER"
'        ElseIf Me.optCivil(4).Value = True Then
'            strCivil = "SEPARATED"
'        ElseIf Me.optCivil(5).Value = True Then
'            strCivil = "DIVORCED"
'        End If
        
        If isResultVerified(Trim$(txtTransNo.Text), PubGType) = True Then
            strRadioID = Trim$(txtRadioID.Text)
            strRadioID3 = Trim$(txtRadioID3.Text)
            strRadioID4 = Trim$(txtRadioID4.Text)
            blnIsVerfied = True
        Else
            strRadioID = ""
            blnIsVerfied = False
        End If
        
        

        BlnVerified = True 'Temporary code to assign employeecode to variable strUserCode
        If BlnVerified = False Then
            strUserCode = ""
        Else
            strUserCode = USER.employeecode
        End If
        
        BlnVerified = False
            
           
        strSQLDelete = "DELETE RADIOLOGY..tbRadioResult WHERE UserID =  '" & USER.employeecode & "' and AdmNum = '" & txtAdmNo.Text & "'"
        USER.SQLConnection.Execute strSQLDelete
    
        USER.SQLConnection.Execute "RADIOLOGY..spRadio_ResultPrint '" + strPatientName + "','" + Trim$(Me.txtHospNo.Text) + "','" + _
                               strDoctor + "','" + _
                               Trim$(Me.txtTest.Text) + "','" + strCivil + "','" + Me.txtAge.Text + "','" + _
                               strSex + "','" + Me.txtAdmNo.Text + "','" + Me.txtTransNo.Text + "','" + _
                               Me.txtRoomNo.Text + "','" + Format$(Me.dtpExamDate.Value, "MM/dd/yyyy HH:mm:ss") + "','" + Replace(txtInterpretation.TextRTF, "'", "`") + "','" + _
                               strRadio + "','" + _
                               Replace(Left$(txtAddress.Text, 60), "'", "`") + "','" + Trim$(txtTelNum.Text) + "','" + txtFileNo.Text + "','" + txtControlNum.Text + "','" + _
                               strUserCode + "', '" + strRadio2 + "', 'Remarks', '" & strVersion & "', '" & Trim$(strRadioID) & "', '" + _
                               strRadio3 + "', '" + strRadio4 + "','" + PubRevenueID + "', '" + Format$(txtTransDate.Text, "mm/dd/yyyy") + "','" & strEquipment & "','0|0|0|0|0|0|0+ " ','" + _
                               strRadioID3 + "','" + "','" strRadioID4 '"
        
        strSql = "BUILD_FILE..spBuild_LogUserUpdate '" & USER.employeecode & "','" & strForm & "','" & "SAVE/PRINT EDITED RESULT; HOSPNUM:" + txtHospNo.Text + " ;IDNUM:" + txtAdmNo.Text & "'"
        USER.SQLConnection.Execute strSql
               
                
        LoadResult
    Else
        strPrevShowInterpretation = "" 'Me.txtPrevResult.Text - CANT LOAD MORE THAN 250 CHARACTER
        LoadResult1
    End If
        
Exit Sub
ErrorHandler:
      MsgBox "@Ref_cmdPrintVersion. " & Error(Err)
End Sub