;Module: Designed to quickly reference and change Listed orderables


;Orders 1-6, place a semicolon next to unwanted orders.
beep (500,500)
beep (650,500)

   sleep (2000)
   Call ("PreOrder")
   Call ("Order1")
   Call ("PostOrder")
   Call ("Order2")
   Call ("PostOrder")
   ;Call ("Order3")
   ;Call ("PostOrder")
   ;Call ("Order4")
   ;Call ("PostOrder")
   ;Call ("Order5")
   ;Call ("PostOrder")
   ;Call ("Order6")
   ;Call ("PostOrder")
   Call ("SignOrder")

Func Catalog ()				;Defined to Easily change the catalog needed
   Send ("{up 2}")			;Pushes menu cursor to the top, regardless of previous location
   ;Send ("{down}")			;Minimum required entry for Amb Script Catalog
   ;Send ("{down}")			;Minimum required entry for Med History Catalog
EndFunc

Func order1 ()				;First order in Operation
   send ("cyanocobalamin")	;Name of Order desired
EndFunc

Func order2 ()				;Second order in Operation
   send ("Kenalog-40")		;Name of Order desired
EndFunc

Func order3 ()				;Third order in Operation
   send ("cyanocobalamin")	;Name of Order desired
EndFunc

Func order4 ()				;Fourth order in Operation
   send ("Kenalog-40")		;Name of Order desired
EndFunc

Func order5 ()				;Fifth order in Operation
   send ("cyanocobalamin")	;Name of Order desired
EndFunc

Func order6 ()				;Sixth order in Operation
   send ("Kenalog-40")		;Name of Order desired
EndFunc


Func makeactive ()   		;(Passed)click on menu
    MouseClick ("left",37,211)
   EndFunc

Func PreOrder ()			;(Passed)Function, Shortens Ordering Code needed
   call ("makeactive")		;(Passed)Selects chart menue
   sleep (1500)
   send ("!a")				;(Passed)Key command, choose menu
   send ("{enter}")			;(Passed)Selects first option
   sleep (1500)
EndFunc

Func PostOrder ()
   sleep (1000)
   send ("{enter}")			;(Passed)Solidifies search criteria, ensures can't be lost
   sleep (500)
   send ("{tab 3}")			;(Passed)Choosing order catalog
   sleep (500)
   send ("{enter}")			;(Passed)Solidifies search criteria, ensures can't be lost
   Call ("Catalog")			;(Passed)Predefined choice for catalog
   sleep (500)
   send ("{enter}")			;(Passed)Solidifies search criteria, ensures can't be lost
   sleep (500)
   send ("{tab 9}")			;(Passed)Tab to first order selectable in catalog
   sleep (500)
   send ("{enter}")			;(Passed)Select order
   sleep (1500)
   send ("{down 6}")		;(Passed)Moves cursor over Precompleted sentence, Use '0' for 'None'
   sleep (1500)
   send ("{enter}")			;(Passed)Selects choice made
   sleep (1000)
EndFunc

Func SignOrder ()
   send ("!d")				;(Passed)Keyboard shortcut for 'Done', closes Order Search window
   sleep (1000)
   send ("!i")				;(Passed)Keyboard shortcut for 'Sign'
EndFunc