Hello all,

This is a general question to the masses I guess. Let me give you the
background.

 

I've got several virtual servers running version 8.219.968. Some of the
scripts I have running start up downloads and minimize the C/S window
(using Sendkeys "% N", True) then exit the script.

 

They work ok.

 

I would like to update the servers to version 9 (9.50.1096), but testing
the update has brought an error. It could be nothing more than a change
in functionality, but I need to know how to correct the rules script so
that it functions as it always has. 

 

The step in question ins the "Minimize" step. The rule in that step is
not sending the key sequence to the Meditech C/S window on the screen in
version 9+ (versions less than 9 work ok). It looks as if the "SendKeys"
is not working in the same manner.

 

Does anyone have any ideas?

 

Thanks in advance!

 

Thank you,

Mitch Lawrence

Lead Applications Analyst

Technical Support - NPR/Automation

CHRISTUS Information Management

*: [EMAIL PROTECTED]

 

 

Send a "thank you" <http://intranet.christushealth.org/spiritBuck/>  to
someone!

 

<<image001.jpg>>

Step|Connect|
Rule||Login
      StartTime = Now()
      TaskBar = True
      Connect "", stMeditechCS
      Key "@_VERSION8"
      TimeOut = 60
Step|Login|
Rule|Select [EMAIL PROTECTED],1&@2,0|
      Enter "CHRS"
Rule|Software by [EMAIL PROTECTED],1&@20,0|
      Enter "scripter"
Rule|Software by [EMAIL PROTECTED],1&@21,0|
      Enter "boston"
Rule|Software by [EMAIL PROTECTED],1&@22,0|Navigate
      Enter "SETX.LIVE"
Rule|Timeout|Timeout
      TOStep="Login"
Step|Navigate|
Rule|[EMAIL PROTECTED],1&@6,0|
      Enter "N"
Rule|MEDITECH [EMAIL PROTECTED],1&@3,0|Parameters
      Click "Process Reports", False, False
Rule|Timeout|Timeout
      TOStep="Navigate"
Step|Parameters|
Rule|Process [EMAIL PROTECTED],1&@4,0|
      Enter "MIS.DOC"
Rule|Process [EMAIL PROTECTED],1&@6,0|
      Enter "zcus.ent.fa.provider.updt"
Rule|Process [EMAIL PROTECTED],1&@22,0|
      Enter "5"
Rule|[EMAIL PROTECTED],1&@3,0|
      Enter ""
Rule|[EMAIL PROTECTED],1&@4,0|Execute
      Enter ""
Rule|Timeout|Timeout
      TOStep="Parameters"
Step|Execute|
Rule||Print/Download
      Key "{F12}"
Step|Print/Download|
Rule|Print [EMAIL PROTECTED],1&@3,4|
      Key "D"
Rule|Print [EMAIL PROTECTED],1&@3,12|
      Key "V"
Rule|Print [EMAIL PROTECTED],1&@3,20|
      Key "{TAB}"
Rule|Print [EMAIL PROTECTED],1&@3,32|
      Key "V"
Rule|Print [EMAIL PROTECTED],1&@3,39|
      Key "V"
Rule|Print [EMAIL PROTECTED],1&@3,49|
      Key "V"
Rule|Print [EMAIL PROTECTED],1&@9,0|Select Destination
      On Error Resume Next
      FilePath = "C:\Download\FwdAdvantage\md_" & Format(Date, "yyyymmdd") & 
".dat"
      Kill FilePath
      Key FilePath
Rule|Timeout|Timeout
      TOStep="Print/Download"
Step|Select Destination|
Rule||Output
      Enter ""
Step|Output|
Rule|[EMAIL PROTECTED],1|
      Key "Y"
      'Overwrite? Popup Confirmation
Rule|[EMAIL PROTECTED],1|Minimize
Rule|Timeout|Timeout
      TOStep = "Output"
Step|Minimize|
Rule||Closeout
      SendKeys "% N", True
Step|Closeout|
Rule||End
      WriteToLog "SETX_FA_PROV_DL", "Download", "Daily", "5", "11:50:00 PM", 
"Completed"
Step|Timeout|
Rule||End
      WriteToLog "SETX_FA_PROV_DL", "Download", "Daily", "5", "11:50:00 PM", 
"Hung"
Step|End|
Rule||
      Shutdown = True

Reply via email to