I have a dialog box I made for use with a template to streamline my op notes. However, I'd like the script to output the text of the diagnoses field in my actual document in all caps.

I've played around with the UCase and string convert commands some in my script to no avail. Do you have any ideas how this might be done?

I've included a screen shot of the dialog box and attached the actual script and template. By the way, the script and template are designed to work with Wordpad exclusively.

To execute the command you'll need to run the "start_op" command first which inputs template fields into Wordpad via the "template operation" script and then it runs the dialog. So really, the start_op script is the one I have to figure out how to get it to all caps the diagnosis without having to say "all caps" every time.... I've played around with the UCase and string convert commands some in my script to no avail. Do you have any ideas how this might be done?

So really, the start_op script is the one I have to figure out how to get it to all caps the diagnosis without having to say "all caps" every time....

 

THANKS IN ADVANCE!!

 

 

 

-------------------------

Tara Lynn

CPU: AMD Athlon 64 X2 Dual Core 4400+ 2.64 GHz (overclocked) RAM: G.SKILL DDR2 2 GB DDR2 HD: Western Digital Caviar IDE 80 GB SC: Turtle Beach Riviera MIC/HEADSET:  theBoom "O" mic/Bose QC NC-2 OS:  XP Pro, SP2 VR:  DNS Medical 9.5

Pretty sure that I can do this for you.

Can you post a .txt version of the script(s)?

Sub Main
AppSwapWith "wordpad"
Wait 0.3
SendKeys "{Backspace}"
Wait 0.1
HeardWord "template", "OPERATION"
Wait 0.5

Dim surg$(20)
surg$(0) = "Dennis Mello, MD"
surg$(1) = "Christine Finck, MD"
surg$(2) = "James Batti, MD"
surg$(3) = "Elizabeth Weber, MD"
surg$(4) = "Paul Kanev, MD"
surg$(5) = "Scott Schoem, MD"
surg$(6) = "Donald Hight, MD"
surg$(7) = "Anthony Repucci, MD"
surg$(8) = "Richard Weiss, MD"
surg$(9) = "Francisco Sylvester, MD"
surg$(10) = "Fernando Ferrer, MD"
surg$(11) = "Ammar Idlibi, DMD"
surg$(12) = "Jeffrey Hyams, MD"
surg$(13) = "Christina Kim, MD"
surg$(14) = "Kristan Pierz, MD"
surg$(15) = "Gregory Bonaiuto, MD"
surg$(16) = "Michael Bourque, MD"
surg$(17) = "Gregory Mathieu, DDS"
surg$(18) = "Carl Nissen, MD"
surg$(19) = "Charles Castiglione, MD"
surg$(20) = "Richard Bevilacqua, MD"

Dim asst$(9)
asst$(0) = "Nicholas Sablan, MD"
asst$(1) = "Vicki Restani"
asst$(2) = "Jennifer Malsbury, MD"
asst$(3) = "Bruce Bowman, PA-C"
asst$(4) = "Kara Denz, PA-C"
asst$(5) = "Sarah Marietti, MD"
asst$(6) = "Jessica Lee, MD"
asst$(7) = "Anthony Ricciuti, PA"
asst$(9) = "Jason Untrauer, MD"


Dim ane$(6)
ane$(0) = "General anesthesia."
ane$(1) = "General endotracheal anesthesia."
ane$(2) = "General mask anesthesia."
ane$(3) = "General endotracheal."
ane$(4) = "General."
ane$(5) = "General anesthesia with endotracheal intubation."
ane$(6) = "Propofol sedation."


    Begin Dialog UserDialog 1040,340,"Operative Template",.DialogFunc ' %GRID:5,5,1,1
        CheckBox 110,50,15,15,"",.YesDictBy
        TextBox 130,50,185,20,.InsDictBy
        CheckBox 110,75,15,15,"",.YesAssist
        TextBox 100,120,335,80,.InsOp,1
        GroupBox 460,5,475,140,"Operative Diagnoses",.GroupBox2
        TextBox 550,25,370,50,.InsDiagn,1
        CheckBox 550,85,15,15,"",.UsePostDiagn
        TextBox 570,85,350,50,.PostDiagn,1
        CheckBox 525,155,15,15,"",.useInd
        TextBox 545,150,385,65,.Ind,1
        CheckBox 640,225,110,15,"EBL: Minimal.",.eblm
        CheckBox 640,240,90,15,"EBL: None.",.ebln
        CheckBox 755,225,155,15,"Complications: None.",.CompNone
        PushButton 400,260,90,25,"OK",.OkButton1
        PushButton 500,260,90,25,"Cancel",.CancelButton2
        Text 30,50,75,15,"Dictated By:",.Text5
        Text 30,75,75,15,"Assistant(s):",.Text6
        Text 45,20,55,15,"Surgeon:",.Text1
        Text 10,215,75,15,"Anesthesia:",.Text2,1
        Text 465,155,45,20,"Other:",.Text8,1
        Text 10,120,80,30,"Operation/ Procedure:",.Text4,1
        Text 485,25,45,30,"Preop Postop:",.Text3,1
        Text 480,85,55,30,"Postop:",.Text7,1
        DropListBox 110,20,185,25,surg(),.InsSurg,3
        DropListBox 100,215,330,25,ane(),.InsAne,3
        DropListBox 130,75,190,20,asst(),.InsAsst,3
    End Dialog
    Dim dlg As UserDialog
    result=Dialog(dlg)
    If result = 2 Then End
    If result = 1 Then
SetMicrophone 0

AppSwapWith "wordpad"
Wait 0.2

    SendKeys "^h"
    SendKeys "InsSurg"
    SendKeys "{tab}"
    SendKeys "{BS}"
    SendKeys dlg.InsSurg
    SendKeys "%a"
    SendKeys "{esc}"
    SendKeys "{esc}"

    SendKeys "^f"
    SendKeys "InsAne"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.InsAne
    SendKeys "^v"

    SendKeys "^f"
    SendKeys "InsOp"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.InsOp
    SendKeys "^v"


    End If

    If dlg.YesDictBy = 1 Then
    SendKeys "^h"
    SendKeys "InsDictBy"
    SendKeys "{tab}"
    SendKeys "{BS}"
    SendKeys dlg.InsDictBy
    SendKeys "%a"
    SendKeys "{esc}"
    SendKeys "{esc}"
    End If

    If dlg.YesDictBy = 0 Then
    SendKeys "^f"
    SendKeys "DICTATED BY"
    SendKeys "~"
    SendKeys "{Esc}"
    SendDragonKeys "{Shift+End}"
    SendKeys "{Del}"
    SendKeys "{Del}"
    End If

    If dlg.YesAssist = 1 Then
    SendKeys "^h"
    SendKeys "InsAsst"
    SendKeys "{tab}"
    SendKeys "{BS}"
    SendKeys dlg.InsAsst
    SendKeys "%a"
    SendKeys "{Esc}"
    SendKeys "{Esc}"
    End If

    If dlg.YesAssist = 0 Then
    SendKeys "^f"
    SendKeys "ASSISTANTS"
    SendKeys "~"
    SendKeys "{esc}"
    SendDragonKeys "{Shift+End}"
    SendKeys "{Del}"
    SendKeys "{Del}"
    End If

    If dlg.UsePostDiagn = 0 Then
    SendKeys "^f"
    SendKeys "InsDiagn"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.InsDiagn
    SendKeys "^v"
    SendKeys "^f"
    SendKeys "InsDiagnPost"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.InsDiagn
    SendKeys "^v"
    End If

    If dlg.UsePostDiagn = 1 Then
    SendKeys "^f"
    SendKeys "InsDiagn"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.InsDiagn
    SendKeys "^v"
    SendKeys "^f"
    SendKeys "InsDiagnPost"
    SendKeys "~"
    SendKeys "{esc}"
    Clipboard dlg.PostDiagn
    SendKeys "^v"
    End If

    If dlg.eblm = 1 Then
    SendKeys "^f"
    SendKeys "AGENTS"
    SendKeys "~"
    SendKeys "{Esc}"
    SendKeys "{End}"
    SendKeys "~~"
    SendKeys "ESTIMATED BLOOD LOSS:  Minimal."
    End If

    If dlg.ebln = 1 Then
    SendKeys "^f"
    SendKeys "AGENTS"
    SendKeys "~"
    SendKeys "{Esc}"
    SendKeys "{End}"
    SendKeys "~~"
    SendKeys "ESTIMATED BLOOD LOSS:  None."
    End If

    If dlg.CompNone = 1 Then
    SendKeys "^f"
    SendKeys "ANESTHETIC AGENTS"
    SendKeys "~"
    SendKeys "{Esc}"
    SendKeys "{End}"
    SendKeys "~~"
    SendKeys "COMPLICATIONS:  None."
    End If

    If dlg.useInd = 1 Then
    SendKeys "^f"
    SendKeys "ANESTHETIC AGENTS"
    SendKeys "~"
    SendKeys "{Esc}"
    SendKeys "{End}"
    SendKeys "~~"
    Clipboard dlg.Ind
    SendKeys "^v"
    End If

SetMicrophone 1




End Sub
Function dialogfunc(DlgItem$, Action%, SuppValue%) _
As Boolean
Select Case Action%
Case 1 ' Dialog box initialization
Case 2 ' Value changing or button pressed
Case 3 ' TextBox or ComboBox text changed
Case 4 ' Focus changed
Case 5 ' Idle
Case 6 ' Function key
End Select
End Function



-------------------------

Tara Lynn

CPU: AMD Athlon 64 X2 Dual Core 4400+ 2.64 GHz (overclocked) RAM: G.SKILL DDR2 2 GB DDR2 HD: Western Digital Caviar IDE 80 GB SC: Turtle Beach Riviera MIC/HEADSET:  theBoom "O" mic/Bose QC NC-2 OS:  XP Pro, SP2 VR:  DNS Medical 9.5

You should be able to use:

Clipboard Ucase(dlg.InsDiagn)

and

Clipboard Ucase(dlg.PostDiagn)

If this doesn't work, please send a copy of the WP template, so that I can debug for you.

Below is a VB function that converts text to proper case. The syntax is very similar to that used in advanced scripting.

Maybe you can convert it.

' Convert the text into proper case.
Function ProperCase(ByVal txt As String) As String
Dim txtlen As Long
Dim need_cap As Boolean
Dim i As Integer
Dim ch As String

    txt = LCase(txt)
    txtlen = Len(txt)
    need_cap = True
    For i = 1 To txtlen
        ch = Mid$(txt, i, 1)
        If ch >= "a" And ch <= "z" Then
            If need_cap Then
                Mid$(txt, i, 1) = UCase$(ch)
                need_cap = False
            End If
        Else
            need_cap = True
        End If
    Next i
    ProperCase = txt

End Function

 

I hope that helps

Stafe

stafe,

It needs no conversion...works fine as is. Just need an advance script line to call the function. Thanks for posting!

-------------------------

 

 

Thanks so much for the replies!  The code works beautifully now!  It sure also helps me to see what I was doing wrong now.  Awesomeness. ;-)

-------------------------

Tara Lynn

CPU: AMD Athlon 64 X2 Dual Core 4400+ 2.64 GHz (overclocked) RAM: G.SKILL DDR2 2 GB DDR2 HD: Western Digital Caviar IDE 80 GB SC: Turtle Beach Riviera MIC/HEADSET:  theBoom "O" mic/Bose QC NC-2 OS:  XP Pro, SP2 VR:  DNS Medical 9.5

Awesomeness to you!

Nice to see someone using the true power of DNS!