Wayne's script to Duplicate Set

[Tom Patten]

I have been trying to duplicate the script in Dr. Wayne's book to duplicate a set. I also copied the script from his web site, but to no avail.

Here is the script. It crashes upon hitting the count_items with a message of "inexact match"

If I substitute a number for this variable say 4, Alpha 5 crashes and I need to reboot.

dim pte as p
dim Rx as p
dim old_parent as b
dim count_Items as n
dim i as n

pte = table.current(1)
Rx = table.current(2)
count_Items = count(Meds->Medid,GRP->patients)

IF count_items > 0 then
dim records[count_items] as b 'count_items
i = 0
Rx.fetch_first()
while i 0
Old_parent = pte.record_data_get()
pte.enter_begin()
pte.record_data_set(old_parent)
Pte.dc_care = {}
Pte.soc = {}
Pte.enter_end(.t.)
if count_items>0 then
for i = 1 to count_items
Rx.enter_begin()
Rx.record_data_set(records[i])
Rx.ClientID = pte.pteid
Rx.enter_end(.t.)
Next
End if
Parent.resynch()
END

How do YOU duplicate a set?

Thanks

Tom

[Tom Cone Jr]

RE: Wayne's script to Duplicate Set

Tom,

Which book?

Which script?


Pending further details from you I'd say the problem is in how you are using the count() function. Look for differences in what you're doing and what Dr. Wayne's script is doing. For example, is the context of your script the same as his? Might this be an issue with the alias name of your table (could be, if you're running from a form that's based on the tables involved in your script).

-- tom

[Tom Patten]

RE: Wayne's script to Duplicate Set

Tom

xBasic for everyone. p222

I have been exchanging email with Dr. Wayne, so far, it still is not working.

Tom

[Tom Cone Jr]

RE: Wayne's script to Duplicate Set

Tom,

thanks. I'll check it out when I get home. (Dr. Wayne's book is where my umbrella is! ... not where I need it!).

This AM when I tried to find the script I did not see it listed in the table of contents script listing... maybe it's part of another routine? Anyway I'll check it out this evening. Let us know if you get it unscrambled.

-- tom

[Tom Patten]

RE: Wayne's script to Duplicate Set

Okay - I'm making a little progress - thanks to Dr. Wayne.

here is my current script.

----------------
dim pte as p
dim Rx as p
dim old_parent as b
dim count_Items as n
dim i as n

pte = table.current(1)
Rx = table.current(2)

count_items=0
rx.fetch_first()
while .not. rx.fetch_eof()
count_items=count_items+1
rx.fetch_next()
end while
' remove the next line after you are sure this works
'ui_msg_box("count_items is now",str(count_items))
debug(1)
IF count_items > 0 then
dim records[count_items] as b
i = 0
Rx.fetch_first()
while i 0
Old_parent = pte.record_data_get()
pte.enter_begin()
pte.record_data_set(old_parent)
Pte.dc_care = {}
Pte.soc = {}
Pte.enter_end(.t.)
if count_items>0 then
for i = 1 to count_items
Rx.enter_begin()
Rx.record_data_set(records[i])
Rx.ClientID = pte.pteid
Rx.enter_end(.t.)
Next
End if
Parent.resynch()
END

---------

So where it crashes - throws me out of Alpha - is the second time around filling variable RECORDS with a blob.

Does Records need to be dimensioned? Would it also be a blob? Would Record[1] be distinct from record[2]?

Suggestions welcome. I'll keep experimenting, but a little theory is helpful.

Tom

[Tom Patten]

RE: Wayne's script to Duplicate Set

Okay - I see where it is dim'ed

Still crashing on this line:

dim records[count_items] as b

with the warning, "variable is of different type"

Ideas?...

Tom

[Jay Talbott]

RE: Wayne's script to Duplicate Set

Why don't you run the script with the debug on and watch the variable values in the watch window?


Jay Talbott

[Tom Patten]

RE: Wayne's script to Duplicate Set

Jay,

That's what I've been doing. AND

I FIGURED IT OUT!!

Two changes made the difference:

1. dim records in the biginning without the []
2. eliminate the END statement before the first End If

YES!!

Thank You

Tom

[Tom Patten]

RE: Wayne's script to Duplicate Set

Just to complete this thread for the next person searching to duplicate a set.

The above code DOES NOT WORK, the next morning.

But Dr. Wayne emailed me code that does work, and you'll love it in the morning.

Here it is... or should I keep you hanging... okay here it is.

'Dup Set by Dr. Wayne ---------------------------
dim pte as p
dim Rx as p
dim pte2 as p
dim rx2 as p
dim old_parent as b
dim count_Items as n

pte = table.current(1)
Rx = table.current(2)
rx2=table.open("meds",file_rw_shared)
pte2=table.open("patients",file_rw_shared)
query.filter="clientid='"+pte.pteid+"'"
query.order=""
query.options=""
ix=rx2.query_create()
count_items=ix.records_get()
pte2.fetch_goto(pte.recno())
Old_parent = pte2.record_data_get()
pte.enter_begin()
pte.record_data_set(old_parent)
Pte.dc_care = {}
Pte.soc = {}
Pte.enter_end(.t.)
if count_items>0 then
rx2.fetch_first()
'debug(1)
while .not. rx2.fetch_eof()
Rx.enter_begin()
Rx.record_data_set(rx2.record_data_get())
Rx.ClientID = pte.pteid
Rx.enter_end(.t.)
rx2.fetch_next()
end while
End if
ix.drop()
pte2.close()
rx2.close()
Parent.resynch()
ui_msg_box("Done","Process Completed Successfully.",0+64)
END
'---------------------------

Thank You Dr. Wayne

Tom, and all the other readers.