Opticiansfriend.com

…a great way to stay on top of the dynamic field of Opticianry and make some friends in the process.

November 2, 2011

Having a Practice

by @ 4:13 pm. Filed under Personal Opinions

I never thought that having one’s own practice would be so much fun. That’s not to say I think it to be easy. I would hardly say “I’m successful” as of yet.  As with any new business, it can sink or swim.  I’d like to thinkthat we have something good going here and we’re growing so we are doing something right (despite the economy that has a lot of people spooked). One of the things that have been the hardest to implement is EHR (Electronic Health Records) software. We use Compulink Advantage. It is a pretty robust EHR system. I have found that my programming skills have really come in handy, particularly when customizing screens with specialized scripts or when automating a certain function. In my pursuit of laziness, I have been able to automate certain things using AutoIt. AutoIt is a system administrator’s scripting language that can simulate keystrokes and mouse clicks. This came in handy when deleting dead inventory entries. Unfortunately Compulink’s Frame Inventory doesn’t have anything to delete entries en masse. You have to delete them one by one. Well when fooling around with the frames data and Compulink’s inventory I added about 13000 entries into my Inventory database. None of which had any history associated with them, but made it very difficult to search for frames when selling glasses. So, if I wanted to delete these entries. I would have to hit Alt “D” {Enter} {Enter} 13000 times. That’s a bit tedious. I’m also not that fast. Well the following script helped me get rid of them in about two hours. You would just have to hold down the {Enter} button once it starts. Hit Escape to get out of the program.

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "MyExit")
HotKeySet ("!x", "MyExit")
;;;; Body of program would go here;;;;
While 1
	MsgBox(1, "Beginning Delete Cycle", "Beginning Delete Cycle")	
    DeleteFromCompulink()
	MsgBox(1, "End Delete Cycle", "End Delete Cycle")
	sleep(5)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        sleep(1000)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc  ;==>TogglePause

Func DeleteFromCompulink()
	Send("!d")
	Send("{ENTER}")
	Send("{ENTER}")
EndFunc

Func MyExit()
	Exit
EndFunc

Func Terminate()
    Exit 0
EndFunc  ;==>Terminate

2 Responses to “Having a Practice”

  1. jezyk niemiecki nauka Says:

    Hello there, simply was aware of your weblog through Google, and located that it’s truly informative. I am gonna be careful for brussels. I will be grateful when you proceed this in future. Lots of other folks might be benefited from your writing. Cheers!

  2. Magiczne drzewo film online Says:

    Hi, I do believe this is an excellent site. I stumbledupon it
    ;) I may return once again since I saved as a favorite it.
    Money and freedom is the best way to change, may you be rich and continue to help others.

Leave a Reply

Optician n. One who is extensively trained in the interpreting of ophthalmic prescriptions and applies that knowledge to obtain the optimum visual and safety performance for the patient in a pair of spectacles or contact lenses.

We comply with the HONcode standard for trustworthy health
information:
verify here.

Terms of Website

Terms and Conditions About Opticiansfriend.com

Login

Categories

Search

Optical Links

Frame Vendors

Lens Manufacturers

Cool Links

Archives

November 2011
S M T W T F S
« Aug   Dec »
 12345
6789101112
13141516171819
20212223242526
27282930  

RSS Feeds etc.



Valid XHTML 1.0 Transitional

Valid CSS!


Website Builder

Friend n. 1. A person whom one knows, likes, and trusts. 2. A person whom one knows; an acquaintance. 3. A person with whom one is allied in a struggle or cause; a comrade. 4. One who supports, sympathizes with, or patronizes a group, cause, or movement.

Online Community

Associations & Societies

Opticians Network

Anatomy

Opticianry

NJ State Board

Optical Tools

Optical Tutorials

41 queries. 3.239 seconds



acordova@opticiansfriend.com

rneiderman@opticiansfriend.com

Terms and Conditions of this Site & Forum

Copyright © 2012 Opticiansfriend.com

[Proudly powered by WordPress] and copious amounts of chocolate.

Theme copyright © 2002–2014 Mike Little.