RE: Order record status change macro

[Richard Cotenas <cotenas@xxxxxxxxxx>]

	There is nothing to this. Simply get the records into a review file,
then open the file in the "Update a review file" program. Bring up the first
record and then run your macro. Here is an example which you can modify to
suit your particular needs. It displays a box, prompting the user for 
the number of records to change. It then converts the text string to a 
number. After an error check, it loops the specified number of times, 
changing status "1" records to status "o". I have used the same logic
to change other fixed fields in the order record. It has failed when 
working on some large files (with hundreds of records) quiting before
reaching the last record, probably due to the vagaries of screen repainting 
time in our OPAC. When it does, I just start it again on the remaining
records.


' MacroName: ClearDups_RevFile
' MacroDescription: In a review file, change the order status 
'  of a specified number of dup-flagged records to "open".

sub main

   Dim HowMany As String
   Dim ThisMany As Integer
   
   Dim CS As Session
   Set CS = CurrentSession
      
   '*-----------------------------------------------------
   '* Get the number of records to change from the user.
   '*-----------------------------------------------------
   
   HowMany = InputBox$("How many records to change?", _
                        "Change Status to Open")
   ThisMany = Val( HowMany )
   
   If ThisMany <= 0 then Exit Sub
   
   '*-----------------------------------------------------
   '* Change the status of ThisMany records by looping
   '*  ThisMany times.
   '*-----------------------------------------------------
   
   For x = 1 to ThisMany step 1
      CS.Send "20"     ' order status field number
      CS.Send "o"      ' change status to open
      CS.Send "n"      ' do NOT print a purchase order
      CS.Send "]"      ' go to next record in the review file
      CS.Send "m"      ' make changes permanent   
   Next x
   
end sub

Rich

-----Original Message-----
From: Juliane Schneider [mailto:schnej04@xxxxxxxxxx]
Subject: Order record status change macro

We would like to change the status on a batch of order records.  Since you
cannot do this with either the Global Update or Rapid Update features, has
anyone created a Passport macro to perform a change in the Status field of
an order record?

Thanks!
Juliane Schneider
Ehrman Medical Library
NYU School of Medicine
schnej04@xxxxxxxxxx
--
This message was distributed through the Innovative Users Group INNOPAC list
Public replies:  INNOPAC@xxxxxxxxxx
Update your subscription options:
http://innopacusers.org/list/listinfo/innopac