Here is the code:
Dim RS As New ADODB.Recordset
RS.Open "SELECT * FROM CATEGORYLIST ", "Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source=P:\OE.MDB;"
Connect "C:\Program Files\Meditech\MagicCS\Client\VMAGIC.EXE", stMeditechCS
'Login
Pause "@20,34"
Enter "robim"
Pause "@21,34"
Enter "harper"
Stable
Key "{Down}"
Enter
Key "{Right}"
Enter
Stable
'Start entering info
'Do While RS.EOF = False
Enter RS![CATEGORY]
Pause "@3,1"
Enter
Stable
Enter RS![Active]
Stable
Enter RS![Name]
Stable
Enter RS![Type]
Stable
Enter RS![HOLD FUTURE ORDERS]
Stable
If At("@10,25") Then Enter RS![PROCESS BY CARE AREA]
Stable
If RS![PROCESS BY CARE AREA] <> "Y" Then
Do Until At("@13,25")
Enter
Stable
Loop
Enter RS![INTERFACE TO SYSTEM]
Else
Enter
Enter
Stable
End If
Key RS![Send Hosp Chgs To B/AR]
If RS![Send Prof Chgs To B/AR] <> Null Then
Key "{Bs}"
Enter RS![Send Prof Chgs To B/AR]
Stable
Else
Enter
Stable
End If
Key "%P"
If RS![PRINT TEXT LINE 1] <> Null Then
Enter RS![PRINT TEXT LINE 1]
End If
If RS![PRINT TEXT LINE 2] <> Null Then
Enter RS![PRINT TEXT LINE 2]
End If
The problem is that Key "%P" simply enters in %P and doesn't key in alt and
p. Any help would be appreciated.
Thanks,
Matt Robison
CHC
Student Intern
"Important Warning: This message is intended for the use of the person or
entity to whom it is addressed and may contain information that is
privileged and confidential. This disclosure is governed by applicable law.
If you are not the intended recipient, employer or agent responsible for
delivery to the intended recipient, you are hereby notified that any
disclosure, copying or distribution of this information is strictly
prohibited."
