Trouble Shoot Script

[Tom Patten]

I need help in troubleshooting the attached Script I use to archive. The script works fine when run locally, but CRASHES when run over a network. The append goes fine, but between the Delete Function and Message that you will be returned to the main menu, it crashes. Sometimes the HALT Script will show itself - suggesting it hasn't ended.

I don't have a network at home, so I'm at a loss to figure out how to network test it? Suggestions?

Here is the script:
---------------------------------------
''XBasic
Parent.commit()

:Form.view("Blank")
':Ser_Prov_Edit.close() 'Left Open so Archive/Append Runs Faster? Button to run on this form.

on error goto errors

'** This functions will append records to Archive

function ArchiveSP as C() 'Use function so Append occurs before Delete
' Append records to archive

a_tbl = Table.open("Ser_ARC.dbf")
append.t_db = "ser_prov.dbf"
append.m_key = "POC_ID+CDATE(SPDATE)+TIME_ID"
append.t_key = "POC_ID+CDATE(SPDATE)+TIME_ID"
append.m_filter = ""
append.t_filter = "Spdate Sp_Id"
append.m_case2 = "EITHER"
append.m_field2 = "Pte_Id"
append.m_exp2 = "@Ser_Prov->Pte_Id"
append.m_case3 = "EITHER"
append.m_field3 = "Poc_Id"
append.m_exp3 = "@Ser_Prov->Poc_Id"
append.m_case4 = "EITHER"
append.m_field4 = "Spdate"
append.m_exp4 = "@Ser_Prov->Spdate"
append.m_case5 = "EITHER"
append.m_field5 = "Shift"
append.m_exp5 = "@Ser_Prov->Shift"
append.m_case6 = "EITHER"
append.m_field6 = "Time"
append.m_exp6 = "@Ser_Prov->Time"
append.m_case7 = "EITHER"
append.m_field7 = "Category"
append.m_exp7 = "@Ser_Prov->Category"
append.m_case8 = "EITHER"
append.m_field8 = "Units"
append.m_exp8 = "@Ser_Prov->Units"
append.m_case9 = "EITHER"
append.m_field9 = "Cost_Unit"
append.m_exp9 = "@Ser_Prov->Cost_Unit"
append.m_case10 = "EITHER"
append.m_field10 = "Client"
append.m_exp10 = "@Ser_Prov->Client"
append.m_case11 = "EITHER"
append.m_field11 = "Length"
append.m_exp11 = "@Ser_Prov->Length"
append.m_case12 = "EITHER"
append.m_field12 = "Charges"
append.m_exp12 = "@Ser_Prov->Charges"
append.m_case13 = "EITHER"
append.m_field13 = "Payor"
append.m_exp13 = "@Ser_Prov->Payor"
append.m_case14 = "EITHER"
append.m_field14 = "Unit_Desc"
append.m_exp14 = "@Ser_Prov->Unit_Desc"
append.m_case15 = "EITHER"
append.m_field15 = "Time_Id"
append.m_exp15 = "@Ser_Prov->Time_Id"
append.m_case16 = "EITHER"
append.m_field16 = "Program"
append.m_exp16 = "@Ser_Prov->Program"
append.m_case17 = "EITHER"
append.m_field17 = "Payorid"
append.m_exp17 = "@Ser_Prov->Payorid"
append.m_case18 = "EITHER"
append.m_field18 = "a_Length"
append.m_exp18 = "@Ser_Prov->a_Length"
append.t_count = 0
a_tbl.append()
a_tbl.close()

Dim global MyAppend as c
MyAppend = "Y"

end function

ArchiveSP () 'This is where the above function is called

ui_msg_box("","Archive complete, OK to finish.")

function ArchiveSP1 as C() 'Defines the delete function

'*****Insert sp_ARC_Del code here
tbl = table.open("Ser_Prov.dbf")
query.filter = "Spdate "Y"
ui_msg_box("Error Occured","Append operation failed.")
'END
END IF

vReturn = MyDelete
IF vReturn "Y"
ui_msg_box("Error Occured","Delete operation failed.")
'END
END IF

ui_msg_box("","Process Complete - you will now be returned to the main menu.",0+64)
'Form.show("Ser_Prov_edit")

if is_object("Al_Main_Menu") then
Al_Main_Menu.show()
Al_Main_Menu.activate()
else
:Form.view("Al_Main_Menu")
end if

:blank.close()
Parentform.close()
'sys_send_keys("{%B}{P}")
END

errors:
err_msg = error_text_get(error_code_get())
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
end
---------------------------------------------
Script END

As you see I've tried to catch where the problem is, but I never get a message, only a crash.

Thanks for your help.

Tom

[JerryBrightbill]

RE: Trouble Shoot Script

Tom

Therer doesn't seem to be anything obvious, but it very well could be a timing problem, particulary if the code works when pulling the data directly off the server, but not when going across a network.

The main problem with using a function is that an error in the function may just cause the function to stop and not give an error. One testing option would be to replace the reference to the function in a script with the actual code for the append. If this still gives trouble, you could use debug() to "walk" through the code and see where the problem occurs. If it is a timing issue, then it may still work ok with debug, but fail in actual use.

Jerry

[Tom Patten]

RE: Trouble Shoot Script

Jerry,

Thanks for taking a look. I plan to show up tomorrow with a number of options to try. I'll be sure to try it without the function calls.

Tom

[Tom Cone Jr]

RE: Trouble Shoot Script

Tom, you're probably going to do this anyway, but if it were me, I'd break the script down into separate scripts, and run each from its own button... This may help pinpoint the problem area, or confirm that it's a timing problem (if they run ok separately).

-- tom

[Tom Patten]

RE: Trouble Shoot Script

Thanks Tom - I'll do that.

I've been struggling with this for some time now. I also plan to create scripts fresh on the operations tab and try running them by calling them each separately (one to append, the next to delete.) The append seems to work, it's the delete were the problem is - or the way they transition.

The table I am deleting records from, is the table (form) on which this button resides - any problem here? or not opening it EXCLUSIVE?

Thanks again,

Tom