TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Mr' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Peter' FORENAMES, 'Smith' SURNAME,  to_char(to_date('2/02/1960'),'DD Month YYYY') formatted_date, '2/02/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '12 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, '' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Mr"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Peter"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:53 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010341"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:53 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010342"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:53 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010343"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "SMITH, PETER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Mr Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54823"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54823"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129429"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129429"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:54 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010344"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129429 for address of type E
TWebAddress.insertDirect->Exit, result="129429"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129429 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54823,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129429
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54823", MOCID="129429"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54823 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129429"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217134"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217134"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:55 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010345"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129429"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="12 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new=""
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "12 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7253"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7253"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 10:50:56 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010346"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7253
TWebAddress.insertTempAddress->Exit, result="-7253"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54823"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54823' PERSONID, 'Peter' FORENAMES, 'Smith' SURNAME, '54823' USERNAME, '123456' PASSWORD, 'Mr Smith' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054823"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1123"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1132"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54823,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54823 ) DEFAULT_MOC  from person p  where id = 54823 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54823 ) DEFAULT_MOC  from person p  where id = 54823"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54823 ) DEFAULT_MOC  from person p  where id = 54823 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54823 ) DEFAULT_MOC  from person p  where id = 54823"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54823"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54823"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.displayDefaultAddress entry
TEventBooking.displayDefaultAddress->PRODUCTEDITS="QTY|1865=1"
TSQLSelect.execute->Entry, SQLString=" select Decode( GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID(54823) ), 'P' ,'Personal', 'O', 'Employment', 'Employment', 'Employment',  'C','Employment', ' ' ) DEFAULT_MOC,  GetPsnDefaultLandWebAddressID(54823) defaultAddressID,  nvl(GetPersonHomeWebAddressID( 54823, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( 54823, 'L' ),0) WorkAddressID,  '' WORKSELECTED, '' HOMESELECTED, '' WORKDISABLED, '' HOMEDISABLED  from dual "
TSQLSelect.execute->Prepare, SQLString=" select Decode( GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID(54823) ), 'P' ,'Personal', 'O', 'Employment', 'Employment', 'Employment',  'C','Employment', ' ' ) DEFAULT_MOC,  GetPsnDefaultLandWebAddressID(54823) defaultAddressID,  nvl(GetPersonHomeWebAddressID( 54823, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( 54823, 'L' ),0) WorkAddressID,  '' WORKSELECTED, '' HOMESELECTED, '' WORKDISABLED, '' HOMEDISABLED  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.displayDefaultAddress exit
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3018"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3018"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 11:01:34 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010350"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3018"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3018"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3034"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3034"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 11:01:34 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010351"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3034"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54823, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54823, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=peter.smith@iris.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3018 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3018 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: peter.smith@iris.co.uk
  Batch ID: 3018
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3018"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3018"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54823"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54823"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54823 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54823 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "Peter Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12495"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12495"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 11:01:35 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010352"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3018"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3018"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12495"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10819"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10819"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 11:01:36 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010353"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54823 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54823 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129429"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129429"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129429"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="peter.smith@iris.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54823"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54823"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Mr Smith' SALUTATION, '54823' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Mr Smith' SALUTATION, '54823' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12495 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12495 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="pjcsmith@hotmail.com"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "15/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: peter.smith@iris.co.uk

Dear Mr Smith,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850601"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850601"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/15/2009 11:01:37 AM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010354"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054823"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Mr' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Peter' FORENAMES, 'Smith Test' SURNAME,  to_char(to_date('2/02/1960'),'DD Month YYYY') formatted_date, '2/02/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '10 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, 'Somerset' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Mr"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Peter"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Smith Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:58:57 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010355"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:58:57 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010356"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:58:57 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010357"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "SMITHTEST, PETER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Mr Smith Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54824"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54824"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129430"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129430"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:58:58 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010358"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129430 for address of type E
TWebAddress.insertDirect->Exit, result="129430"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129430 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54824,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129430
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54824", MOCID="129430"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54824 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129430"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217135"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217135"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:58:59 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010359"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129430"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="10 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new="Somerset"
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = "Somerset"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "10 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7254"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7254"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 1:59:00 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010360"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7254
TWebAddress.insertTempAddress->Exit, result="-7254"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54824"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54824' PERSONID, 'Peter' FORENAMES, 'Smith Test' SURNAME, '54824' USERNAME, '123456' PASSWORD, 'Mr Smith Test' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054824"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54824,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54824,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54824,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54824 ) DEFAULT_MOC  from person p  where id = 54824 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54824 ) DEFAULT_MOC  from person p  where id = 54824"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54824 ) DEFAULT_MOC  from person p  where id = 54824 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54824 ) DEFAULT_MOC  from person p  where id = 54824"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54824"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54824"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3019"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3019"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:12:18 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010361"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3019"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3019"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3035"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3035"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:12:19 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010362"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3035"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54824, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54824, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=peter.smith@iris.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3019 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3019 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: peter.smith@iris.co.uk
  Batch ID: 3019
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3019"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3019"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54824"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54824"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54824 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54824 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "Peter Smith Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12496"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12496"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:12:20 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010363"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3019"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3019"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12496"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10820"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10820"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:12:21 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010364"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54824 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54824 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129430"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129430"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129430"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="peter.smith@iris.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54824"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54824"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Mr Smith Test' SALUTATION, '54824' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Mr Smith Test' SALUTATION, '54824' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12496 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12496 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "17/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: peter.smith@iris.co.uk

Dear Mr Smith Test,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850602"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850602"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:12:22 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010365"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054824"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Mr' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Event' FORENAMES, 'Test' SURNAME,  to_char(to_date('2/02/1960'),'DD Month YYYY') formatted_date, '2/02/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '13 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, 'Somerset' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Mr"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Event"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:45 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010366"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:45 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010367"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:46 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010368"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "TEST, EVENT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Mr Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54825"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54825"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129431"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129431"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:46 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010369"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129431 for address of type E
TWebAddress.insertDirect->Exit, result="129431"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129431 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54825,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129431
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54825", MOCID="129431"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54825 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129431"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217136"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217136"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:47 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010370"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129431"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="13 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new="Somerset"
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = "Somerset"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "13 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7255"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7255"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:19:48 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010371"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7255
TWebAddress.insertTempAddress->Exit, result="-7255"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54825"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54825' PERSONID, 'Event' FORENAMES, 'Test' SURNAME, '54825' USERNAME, '123456' PASSWORD, 'Mr Test' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054825"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54825,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54825,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54825,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54825 ) DEFAULT_MOC  from person p  where id = 54825 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54825 ) DEFAULT_MOC  from person p  where id = 54825"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54825 ) DEFAULT_MOC  from person p  where id = 54825 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54825 ) DEFAULT_MOC  from person p  where id = 54825"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54825"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54825"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3020"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3020"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:24:27 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010372"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3020"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3020"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3036"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3036"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:24:28 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010373"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3036"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54825, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54825, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=peter.smith@iris.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3020 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3020 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: peter.smith@iris.co.uk
  Batch ID: 3020
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3020"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3020"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54825"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54825"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54825 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54825 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "Event Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12497"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12497"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:24:29 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010374"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3020"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3020"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12497"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10821"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10821"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:24:29 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010375"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54825 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54825 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129431"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129431"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129431"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="peter.smith@iris.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54825"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54825"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Mr Test' SALUTATION, '54825' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Mr Test' SALUTATION, '54825' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12497 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12497 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Mike.Aylward@iris.co.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "17/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: peter.smith@iris.co.uk

Dear Mr Test,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850603"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850603"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:24:30 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010376"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054825"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54825"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Mr' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Test' FORENAMES, 'Event' SURNAME,  to_char(to_date('2/02/1960'),'DD Month YYYY') formatted_date, '2/02/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '12 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, 'Somerset' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Mr"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Event"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:06 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010377"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:06 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010378"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:07 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010379"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "EVENT, TEST"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Mr Event"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54826"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54826"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129432"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129432"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:07 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010380"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129432 for address of type E
TWebAddress.insertDirect->Exit, result="129432"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129432 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54826,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129432
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54826", MOCID="129432"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54826 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129432"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217137"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217137"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:08 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010381"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129432"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="12 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new="Somerset"
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = "Somerset"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "12 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7256"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7256"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:41:09 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010382"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7256
TWebAddress.insertTempAddress->Exit, result="-7256"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54826"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54826' PERSONID, 'Test' FORENAMES, 'Event' SURNAME, '54826' USERNAME, '123456' PASSWORD, 'Mr Event' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054826"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54826,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54826,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54826,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54826 ) DEFAULT_MOC  from person p  where id = 54826 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54826 ) DEFAULT_MOC  from person p  where id = 54826"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54826 ) DEFAULT_MOC  from person p  where id = 54826 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54826 ) DEFAULT_MOC  from person p  where id = 54826"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54826"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54826"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3021"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3021"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:43:59 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010383"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3021"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3021"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3037"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3037"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:43:59 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010384"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3037"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54826, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54826, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=peter.smith@iris.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3021 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3021 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: peter.smith@iris.co.uk
  Batch ID: 3021
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3021"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3021"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54826"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54826"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54826 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54826 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "Test Event"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12498"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12498"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:44:00 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010385"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3021"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3021"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12498"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10822"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10822"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:44:01 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010386"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54826 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54826 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129432"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129432"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129432"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="peter.smith@iris.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54826"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54826"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Mr Event' SALUTATION, '54826' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Mr Event' SALUTATION, '54826' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12498 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12498 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="lynsey.mcnaught@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54826"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "17/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: peter.smith@iris.co.uk

Dear Mr Event,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850604"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850604"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 2:44:02 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010387"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Mr' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'John' FORENAMES, 'Smith' SURNAME,  to_char(to_date('3/02/1960'),'DD Month YYYY') formatted_date, '3/02/1960' DOB, 'pjcsmith@yahoo.co.uk' EMAIL, '123456' PASSWORD, '11 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, 'Somerset' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Mr"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "John"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:13 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010388"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:13 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010389"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:14 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010390"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "SMITH, JOHN"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Mr Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54827"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54827"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "pjcsmith@yahoo.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129433"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129433"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:14 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010391"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129433 for address of type E
TWebAddress.insertDirect->Exit, result="129433"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129433 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54827,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129433
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54827", MOCID="129433"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54827 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129433"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217138"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217138"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:15 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010392"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129433"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="11 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new="Somerset"
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = "Somerset"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "11 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7257"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7257"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:36:16 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010393"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7257
TWebAddress.insertTempAddress->Exit, result="-7257"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54827"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54827' PERSONID, 'John' FORENAMES, 'Smith' SURNAME, '54827' USERNAME, '123456' PASSWORD, 'Mr Smith' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054827"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54827,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54827,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54827,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54827 ) DEFAULT_MOC  from person p  where id = 54827 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54827 ) DEFAULT_MOC  from person p  where id = 54827"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54827 ) DEFAULT_MOC  from person p  where id = 54827 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54827 ) DEFAULT_MOC  from person p  where id = 54827"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54827"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54827"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3022"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3022"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:37:08 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010394"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3022"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3022"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3038"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3038"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:37:08 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010395"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3038"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54827, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54827, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=pjcsmith@yahoo.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3022 batch_id, 0.00 total_owing, 'pjcsmith@yahoo.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3022 batch_id, 0.00 total_owing, 'pjcsmith@yahoo.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: pjcsmith@yahoo.co.uk
  Batch ID: 3022
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3022"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3022"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54827"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54827"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54827 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54827 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "John Smith"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12499"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12499"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:37:09 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010396"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3022"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3022"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12499"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10823"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:37:10 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010397"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54827 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54827 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129433"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129433"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129433"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="pjcsmith@yahoo.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54827"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54827"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Mr Smith' SALUTATION, '54827' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Mr Smith' SALUTATION, '54827' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12499 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12499 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="lynsey.mcnaught@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "17/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: pjcsmith@yahoo.co.uk

Dear Mr Smith,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850605"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850605"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 4:37:11 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010398"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054827"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54827"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Entry, SQLString=" select '' PTL  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select '' description, 'selected' SELECTED  from dual  UNION  select description, null SELECTED   from sysfile  where category = 'TITLE' and value is not null  and description is not null  and (sys_archived is null or sys_archived = 'N')  order by description "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select country_code, description COUNTRY_DESCRIPTION,  decode(country_code, '', 'SELECTED','') SELECTED_COUNTRY,  1 ORDERBY  from country  UNION  select '' country_code, '' COUNTRY_DESCRIPTION,  '' SELECTED_COUNTRY,  0 ORDERBY  from dual  order by ORDERBY "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Entry, SQLString="select SYS_INTEGER from sysfile where category = 'WAMSETTING' and value = 'MINPASSWRD'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="6"
TSQLSelect.execute->Entry, SQLString="select value, description, sys_code from sysfile where category = 'WAMGENDER' and value is not null and description is not null and nvl(sys_archived,'N')='N' order by sys_sequence, description"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Professor' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Testt' FORENAMES, 'Test' SURNAME,  to_char(to_date('4/06/1960'),'DD Month YYYY') formatted_date, '4/06/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '10 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, '' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Professor"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Testt"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:35 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010399"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:35 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010400"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:36 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010401"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "TEST, TESTT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Professor Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54828"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54828"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129434"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129434"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:36 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010402"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129434 for address of type E
TWebAddress.insertDirect->Exit, result="129434"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129434 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54828,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129434
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54828", MOCID="129434"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54828 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129434"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217139"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217139"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:37 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010403"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129434"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="10 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new=""
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "10 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7258"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7258"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:02:38 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010404"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7258
TWebAddress.insertTempAddress->Exit, result="-7258"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54828"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54828' PERSONID, 'Testt' FORENAMES, 'Test' SURNAME, '54828' USERNAME, '123456' PASSWORD, 'Professor Test' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054828"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54828,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54828,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54828,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54828 ) DEFAULT_MOC  from person p  where id = 54828 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54828 ) DEFAULT_MOC  from person p  where id = 54828"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54828 ) DEFAULT_MOC  from person p  where id = 54828 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54828 ) DEFAULT_MOC  from person p  where id = 54828"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54828"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54828"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3023"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3023"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:03:22 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010405"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3023"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3023"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3039"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3039"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:03:22 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010406"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3039"
TSQLSelect.execute->Entry, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54828, 'E')) email from dual"
TSQLSelect.execute->Prepare, SQLString=" select getWebAddressText(GetPsnWebAddressIDBYMocType(54828, 'E')) email from dual"
TSQLSelect.execute->Exit,result="Y"
Email Address select execute. Email=peter.smith@iris.co.uk
TEventBooking.redirectToNetbanx->Entry
TSQLSelect.execute->Entry, SQLString=" select 'EVENTS' payment_mode, 3023 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'EVENTS' payment_mode, 3023 batch_id, 0.00 total_owing, 'peter.smith@iris.co.uk' email  from dual "
TSQLSelect.execute->Exit,result="Y"
These are the variables sent to netbanx : 
Got to just before netbanxlink
  Total Amount: 0
  Email: peter.smith@iris.co.uk
  Batch ID: 3023
  Payment Mode: EVENTS
Finishing writing HTML...
TEventBooking.redirectToNetbanx->Exit, result="Y"
TEventBooking.Pay-> exit
TEventBooking.ConnectToDatabase-EXIT
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Prepare, SQLString="Select batch.*, bank_account.NOMINAL_CODE,operator.login,operator.Department, decode(Initial_Account,null,'P',Initial_Account) Start_Account, decode(sysfile.sys_code,null,batch.batch_type,sysfile.sys_code)Batch_Type_Code from batch, bank_account,sysfile,operator where batch.id = :ID and bank_account.ACCOUNT_CODE(+) = batch.BANK_ACCOUNT and sysfile.category = 'BATCHTYPE' and operator.login = batch.operator and sysfile.value = batch.batch_type "
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_HEAD'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_head.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_SO_HEADER'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_Publication_SO_Header.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="Select nvl(Sum(tran_line.amount),0)amount,nvl(Sum(tran_line.Paid),0)Paid,nvl(Sum(tran_line.balance),0)balance,nvl(sum(round(tran_detail.VAT,2)),0)VAT,nvl(sum(round(tran_detail.Goods,2)),0)Goods,nvl(sum(round(tran_detail.Discount_Amount,2)),0)Discount_Amount from tran_line, tran_detail where tran_line.tran_head_id = :THID and tran_detail.tran_line_id(+) = tran_line.id and tran_detail.Parent_id(+) is null "
TSQLSelect.execute->Entry, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3023"
TSQLSelect.execute->Prepare, SQLString=" select *  from EVENT_HOLD_AREA  where id = 3023"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54828"
TSQLSelect.execute->Prepare, SQLString=" select psnsund_familiar_name,psn_surname,  substr( psn_forenames, 1, decode( InStr( psn_forenames,' ' ), 0, Length( psn_forenames ), InStr( psn_forenames, ' ' ) ) ) FirstName  from person p, person_sundry ps  where ps.id = p.id  and p.id = 54828"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select GetPersonEmpID( 54828 ) EmpID from dual"
TSQLSelect.execute->Prepare, SQLString="select GetPersonEmpID( 54828 ) EmpID from dual"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "STATUS"
TSQL.SetParam->ParamValue = "C"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DELEGATE_TYPE"
TSQL.SetParam->ParamValue = "D"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CASH_RECEIVED"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CURRENCY_CODE"
TSQL.SetParam->ParamValue = "GBP"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSN_MOC_ID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAYMENT_METHOD"
TSQL.SetParam->ParamValue = "CASH"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "BADGE_NAME"
TSQL.SetParam->ParamValue = "Testt Test"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SET_CASH_OWNER"
TSQL.SetParam->ParamValue = "WAMDEPT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "12500"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "12500"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:03:23 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010407"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3023"
TSQLSelect.execute->Prepare, SQLString=" select ehad.*, ef.product_id,  0 delegateFeeID, 0 proformaLineID  from event_hold_area_detail ehad, event_fee ef  where ehad.event_fee_id = ef.id  and ehad.EVENT_HOLD_AREA_ID = 3023"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_DELEGATE_FEE'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_delegate_fee.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "qty"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "INVOICED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "VAT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_amount"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_type"
TSQL.SetParam->ParamValue = "X"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "unit_price"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "POSTED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "CREDITED"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PAID"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "SURCHARGE_AMOUNT"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "discount_value"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_id"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "product_code"
TSQL.SetParam->ParamValue = "HARR1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "delegate_id"
TSQL.SetParam->ParamValue = "12500"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "10824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "10824"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "delegate_fee"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:03:24 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010408"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.GetDefaultMOCIDByType->Entry
TSQLSelect.execute->Entry, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54828 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Prepare, SQLString="select moc.id from address_defaults ad, means_of_contact moc, sysfile sf where ad.owner_id=54828 and       ad.owner_type='P' and       moc.moc_type='E' and       moc.id=ad.moc_id and       sf.category='DEFADDTYPE' and       sf.value=ad.addef_type order by sf.sys_sequence"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetDefaultMOCIDByType->Exit, result="129434"
CGIMOC_Funcs.GetAddressText->Entry
TSQLSelect.execute->Entry, SQLString="select * from means_of_contact where id=129434"
TSQLSelect.execute->Prepare, SQLString="select * from means_of_contact where id=129434"
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.GetAddressText->Exit, result="peter.smith@iris.co.uk"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54828"
TSQLSelect.execute->Prepare, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54828"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select 'Professor Test' SALUTATION, '54828' PERSONID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'Professor Test' SALUTATION, '54828' PERSONID  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Prepare, SQLString=" select nvl(link_text,COURSE_TITLE) EVENT_DESCRIPTION  from event  where id = 1277"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12500 and df.product_id = p.id "
TSQLSelect.execute->Prepare, SQLString=" select p.display_description||decode(greatest(1,df.qty),  decode(df.qty,1,-1,df.qty),'(x'||df.qty||')')||': £'||df.paid FEE_DESCRIPTION  from delegate_fee df, product p  where df.delegate_id = 12500 and df.product_id = p.id "
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKINT'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'EVNTBKPAID'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="educationevents@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPUSERNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Prepare, SQLString="select description from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
TSQLSelect.execute->Entry, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Prepare, SQLString="Select * from user_tab_columns where table_name = 'CONTACT_HISTORY' and column_name = 'CH_COMMENTS'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_CONTACT_HISTORY'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_contact_history.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_type"
TSQL.SetParam->ParamValue = "EMAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_category"
TSQL.SetParam->ParamValue = "WAMEVTBOOK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_date"
TSQL.SetParam->ParamValue = "17/04/2009"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_operator"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_subject"
TSQL.SetParam->ParamValue = "WAM Event Booking"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_in_or_out"
TSQL.SetParam->ParamValue = "O"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_private"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "disciplinary"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ch_comments"
TSQL.SetParam->ParamValue = "WAM Event Booking confirmation email sent to email address: peter.smith@iris.co.uk

Dear Professor Test,


Thank you for your Test Event online booking.

Please find the details of your booking summary below:

Booked Course:
Test Event


Fees Paid:

Harrogate Symposium - Fellows & Members Fee: £0




Yours Sincerely

Events Team
Royal College of Physicians & Surgeons of Glasgow 
232-242 St Vincent Street 
Glasgow G2 5RJ 

http://www.rcpsg.ac.uk 
tel: 0141 221 6072

A Charity Registered in Scotland
Registered no. SCO000847
"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "850606"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "850606"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "contact_history"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:03:25 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010409"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.ConnectToDatabase-EXIT
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054828"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54828"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMGENDER' and value = 'M'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="Male"
TSQLSelect.execute->Entry, SQLString=" select 'Professor' TITLE, 'M' GENDER, 'Male' GENDERDESC, 'Testt' FORENAMES, 'Test2' SURNAME,  to_char(to_date('4/06/1960'),'DD Month YYYY') formatted_date, '4/06/1960' DOB, 'peter.smith@iris.co.uk' EMAIL, '123456' PASSWORD, '10 Manor Court' LINE1, 'Easton' LINE2, '' LINE3, 'Wells' TOWN, '' COUNTY, 'BA5 1ER' POSTCODE, 'UK' COUNTRY,  GetCountryName('UK') COUNTRY_DESCR,  '' ADDRESS_DECR_NOBR, '' PTL   from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: Creating person record
MemReg->commitReg: inserting person, person_sundry, wam_Person records
cgipsnfuncs->createPerson: Entry
cgipsnfuncs->createPerson: Initialising Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_title"
TSQL.SetParam->ParamValue = "Professor"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_gender"
TSQL.SetParam->ParamValue = "M"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_forenames"
TSQL.SetParam->ParamValue = "Testt"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_surname"
TSQL.SetParam->ParamValue = "Test2"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_status"
TSQL.SetParam->ParamValue = "MAIL"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person insert
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:06 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010410"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PERSON_SUNDRY'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_1"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PSNSUND_MAILNAME_2"
TSQL.SetParam->ParamValue = "Automatically Generate"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing Person_sundry insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "person_sundry"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:06 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010411"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Initialising wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WAM_PERSON'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "username"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "password"
TSQL.SetParam->ParamValue = "123456"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Executing wam_Person insert
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "wam_person"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:06 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010412"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
cgipsnfuncs->createPerson: Updating person names
UpdatePersonNames: ENTRY
UpdatePersonNames: Preparing update statement
UpdatePersonNames: settings param 1
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "order_name"
TSQL.SetParam->ParamValue = "TEST, TESTT"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 2
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "salutation"
TSQL.SetParam->ParamValue = "Professor Test2"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
UpdatePersonNames: settings param 3
UpdatePersonNames: settings param 4
UpdatePersonNames: Execute update statements
cgipsnfuncs->createPerson: Done
MemReg->commitReg: Records created, id = "54829"
MemReg->commitReg: setting email address up
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.create->Entry
TWebAddress.create->Exit
TWebAddress.setHomeEmailAddress->Entry
TWebAddress.setEmailAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setEmailAddress->Exit
TWebAddress.setHomeEmailAddress->Exit
MemReg->commitReg: inserting email address
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="E", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for E type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareEmailAddress->Entry
TWebAddress.compareEmailAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.OkToDirectInsert->Entry
TWebAddress.OkToDirectInsert->fAllowDirectInsert="Y"
TWebAddress.OkToDirectInsert->ForceWebAddressCreation="N"
TWebAddress.OkToDirectInsert->fMOCOwnerID="54829"
TWebAddress.OkToDirectInsert->fMOCOwnerType="P"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->isValid="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type E
address of type E is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.OkToDirectInsert->Exit, result="Y"
TWebAddress.insertAddressDirectly->Entry
TWebAddress.insertAddressDirectly->inside "insert address directly" for address of type E
TWebAddress.insertDirect->Entry
TWebAddress.insertDirect->attempting a direct moc insert for address of type E
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_MEANS_OF_CONTACT'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "E"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE1"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE2"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_TOWN"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_POSTCODE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_ADDR_COUNTRY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_PHN_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_FAX_NUMBER"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "MOC_EA_ADDRESS"
TSQL.SetParam->ParamValue = "peter.smith@iris.co.uk"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "129435"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "129435"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "means_of_contact"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:07 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010413"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertDirect->inserted new moc, id = 129435 for address of type E
TWebAddress.insertDirect->Exit, result="129435"
TWebAddress.moveOverAddressDefaults->Entry
TWebAddress.moveOverAddressDefaults->Attempting to move over address defaults from old_id = 0, to new id = 129435 for type E
TWebAddress.moveOverAddressDefaults->Insert new default for type?="Y"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Entry,mocType="E"
CGIMOC_Funcs.GetDefaultTypeCodeFromMOCType->Exit, result="DE"
CGIMOC_Funcs.setWebAddressAsDefaultType->Entry
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DE"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DE' and sys_code = substr('DE',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonWebAddressIDByType(54829,'DE'),0) defaultAddressID  from dual "
TSQLSelect.execute->Exit,result="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->default address select executed. -  defaultid=0, selectedid=129435
CGIMOC_Funcs.setWebAddressAsDefaultType->Updating default address
CGIMOC_Funcs.setWebAddressAsDefaultType->no original address default, attempting default insert
CGIMOC_Funcs.MakeMOCTypeDefault->Entry,MOCDefaultType="DE", OwnerType="P", OwnerID="54829", MOCID="129435"
TSQLSelect.execute->Entry, SQLString="select id from address_defaults where       owner_type='P' and       owner_id=54829 and       addef_type='DE'"
CGIMOC_Funcs.MakeMOCTypeDefault->select executed
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ADDRESS_DEFAULTS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "addef_type"
TSQL.SetParam->ParamValue = "DE"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "129435"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_type"
TSQL.SetParam->ParamValue = "P"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "owner_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "217140"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "217140"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "address_defaults"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:07 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010414"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
CGIMOC_Funcs.MakeMOCTypeDefault->Exit, result ="Y"
CGIMOC_Funcs.setWebAddressAsDefaultType->address defaults update ran ok? = Y
CGIMOC_Funcs.setWebAddressAsDefaultType->Exit, result="Y"
TWebAddress.moveOverAddressDefaults->Exit, result="Y"
TWebAddress.insertAddressDirectly->Exit, result="129435"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.handleChange->Moctype="E"
TWebAddress.handleChange->Exit, result="Y"
TWebAddress.setHomeLandAddress->Entry
TWebAddress.setLandAddress->Entry
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DEFAULT"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DL"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DL' and sys_code = substr('DL',2,1) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
CGIMOC_Funcs.getWebAddressColumn->Exit, result="DEFAULT_MOC"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getDefaultSetting->Entry
TWebAddress.getDefaultSetting->getting moc default setting
CGIMOC_Funcs.getWebAddressColumn->Entry,MOCDefaultType="DH"
TSQLSelect.execute->Entry, SQLString=" select id  from sysfile  where category = 'DEFADDTYPE'  and value = 'DH' and sys_code = substr('DH',2,1) "
CGIMOC_Funcs.getWebAddressColumn->Exit, result="default_home_moc"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getDefaultSetting->Exit, result="N"
TWebAddress.getPublishSetting->Entry
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.MOCOrigin->Entry
TWebAddress.MOCOrigin->oldmocid=0, waID=0
TWebAddress.MOCOrigin->Exit, result="N"
TWebAddress.getPublishSetting->Old MOC ID = 0, publishedID = ""
TWebAddress.getPublishSetting->Exit, result="N"
TWebAddress.setMOCOwner->Entry
TWebAddress.setMOCOwner->Exit
TWebAddress.setLandAddress->Exit
TWebAddress.setHomeLandAddress->Exit
TWebAddress.handleChange->Entry
TWebAddress.handleChange-> type="L", change reason is "NEWFOROLD", usage type is "H"
TWebAddress.handleChange->already in transaction
TWebAddress.hasChanged->Entry
TWebAddress.hasChanged->checking if moc has changed for L type of address
TWebAddress.hasChanged->No original address - Checking to see if anything has been entered
TWebAddress.compareLandAddress->Entry
In CompareLandAddress...
Line1 old="" new="10 Manor Court"
Line2 old="" new="Easton"
Line3 old="" new=""
town old="" new="Wells"
county old="" new=""
country old="" new="UK"
postcode old="" new="BA5 1ER"
TWebAddress.compareLandAddress->Exit, result="Y"
TWebAddress.hasChanged->Something was entered
TWebAddress.hasChanged->Exit, result="Y"
TWebAddress.IsValid->Entry
TWebAddress.IsValid->checking address is valid for type L
address of type L is valid
TWebAddress.IsValid->Exit, result="Y"
TWebAddress.insertTempAddress->Entry
TWebAddress.insertTempAddress->inserting web_address of type L
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_WEB_ADDRESS'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "fax_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ea_address"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTRY"
TSQL.SetParam->ParamValue = "UK"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_POSTCODE"
TSQL.SetParam->ParamValue = "BA5 1ER"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_COUNTY"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_TOWN"
TSQL.SetParam->ParamValue = "Wells"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE3"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE2"
TSQL.SetParam->ParamValue = "Easton"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ADDR_LINE1"
TSQL.SetParam->ParamValue = "10 Manor Court"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ORG_NAME"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "phn_number"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_type"
TSQL.SetParam->ParamValue = "L"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "old_moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "psn_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_usage_type"
TSQL.SetParam->ParamValue = "H"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "change_reason"
TSQL.SetParam->ParamValue = "NEWFOROLD"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EMP_TYPE_EMPLOYEE"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "PRED_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "FUNC_WORK_AREA"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "publish"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_DELIVERY_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "DEFAULT_INVOICE_MOC"
TSQL.SetParam->ParamValue = "N"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_OF_TYPE'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_HOME_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'DEFAULT_WORK_MOC'"
TSQLSelect.execute->Entry, SQLString="Select column_name from user_tab_columns where table_name = 'WEB_ADDRESS' and column_name = 'MOC_PHN_TYPE'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_phn_type"
TSQL.SetParam->ParamValue = ""
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "7259"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "7259"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "web_address"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:08 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010415"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TWebAddress.insertTempAddress->inserted new web_address of type L, id = -7259
TWebAddress.insertTempAddress->Exit, result="-7259"
TWebAddress.webAddressOrigin->Entry
TWebAddress.webAddressOrigin->Exit, result="N"
TWebAddress.isBlankAddress->Entry
TWebAddress.isBlankAddress->Exit, result="N"
TWebAddress.handleChange->Moctype="L"
TWebAddress.handleChange->Exit, result="Y"
MemReg->commitReg: getting person salutation
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 54829"
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: executing email query
TSQLSelect.execute->Entry, SQLString=" select '54829' PERSONID, 'Testt' FORENAMES, 'Test2' SURNAME, '54829' USERNAME, '123456' PASSWORD, 'Professor Test2' SALUTATION  from dual "
TSQLSelect.execute->Exit,result="Y"
MemReg->commitReg: sending email
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Entry, SQLString="select description from sysfile where category = 'WAMCONTACT' and value = 'NEWREG'"
TSQLSelect.execute->Exit,result="Y"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result="it@rcpsg.ac.uk"
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPUESRNM'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
CGIFuncs.Systemvalue->Entry
CGIFuncs.Systemvalue->Select created
CGIFuncs.Systemvalue->Select sql="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
TSQLSelect.execute->Entry, SQLString="select desctiption from sysfile where category = 'WAMSETTING' and value = 'SMTPPASSWD'"
CGIFuncs.Systemvalue->Freeing Select
CGIFuncs.Systemvalue->Exit,result=""
MemReg->commitReg: commiting work
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Entry, SQLString=" select PSNSUND_SALUTATION  from person_sundry  where id = 054829"
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "personID"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
 select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54829,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') 
TSQLSelect.execute->Entry, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54829,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Prepare, SQLString=" select evid,evstatus,evvenue,evdate,evplaces,  decode(evstatus,null,decode(greatest(evplaces,0),0,evdetail, '<a href="event_b.exe?PART=DETAILS&ID='||EVID||'">'||evdetail||'</a>'),evdetail) evdetail  from  (select event.id EVID,  EventBookedStatusByEventID(54829,event.id) EVSTATUS,  link_text EVDETAIL, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(event.id)) EVPLACES  from event, venue, means_of_contact moc  where event.venue_id = venue.id  and moc.id = venue.moc_id  and event_date >= sysdate  and event.status <> 'C'  and event.web_enabled = 'Y') "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.bookAndPay->Entry
TEventBooking.bookAndPay->EventID = "1277"
RECTYPE=MEMBER,EVID=1277,MAXUSAGE|1865=-1,QTY|1865=1,EVPLACES=
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_PUBLICATION_STOCK_MOVEMENT'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_publication_stock_movement.nextval id from dual"
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_TRAN_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_tran_detail.nextval id from dual"
TSQLSelect.execute->Prepare, SQLString="select id, product_code, Renewal_from_date, Renewal_to_date, Matrix_row, Matrix_col from product where Renewal_Parent_ID = :GroupID order by Renewal_from_date, Renewal_to_date "
TSQLSelect.execute->Prepare, SQLString=" select event.id EVID, event.id EVENTID, link_text EVTITLE,  link_description EVDETAIL, 'MEMBER' RECTYPE, moc.moc_addr_town EVVENUE,  to_char(event_date,'fmDDTH MON YYYY') EVDATE,  (max_places - wam_events_places(:EVENTID)) EVPLACES,  event_fee.id EVENTFEEID, event_fee.product_id PRODID, product.display_description PRODDESCRIPTION,  nvl(to_char(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code)),'unlimited') MAX_USAGE_DESC,  nvl(WAM_EVENTS_FEE_USAGE(event_fee.id,event.id,product.product_code),-1) MAX_USAGE,  event.duration EVDURATION, '£ '||to_char(product.UNIT_PRICE,'9,990.99') PRODPRICE, product.UNIT_PRICE,  product.vat_code, 0 PRODQTY  from event, venue, means_of_contact moc, product, event_fee  where event.venue_id = venue.id (+)  and moc.id = venue.moc_id   and event.id = event_fee.event_id  and event_fee.product_id = product.id  and event.id = :EVENTID "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "EVENTID"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Done list, Building remainder of page
TSQLSelect.execute->Prepare, SQLString="Select product.*,  Colsys.description xmatrix_column, Rowsys.description xmatrix_row from product, sysfile Rowsys, sysfile colsys where product.id = :ID and Rowsys.category(+) = 'PROD_ROWS' and Rowsys.value(+) = matrix_row and colsys.category(+) = 'PROD_COLS' and colsys.value(+) = matrix_col "
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "ID"
TSQL.SetParam->ParamValue = "43944"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Prepare, SQLString="Select id, decode(renewal_parent_id,null,-1,renewal_parent_id)renewal_parent_id, matrix_col, matrix_Row from product where product_code = 'HARR1' and ((product.Matrix_Item is null)or(product.Matrix_Item = 'MATRIXHEAD'))  and ((product.Archived is null)or(product.Archived = 'N')) "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Prepare, SQLString="Select * from country_vatrate order by country_code, vat_code "
TSQLSelect.execute->Exit,result="Y"
0.00
TSQLSelect.execute->Entry, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Prepare, SQLString=" select '0.00' subtotal, '0.00' vat, '0.00' total, '17.5%' vatRate  from dual "
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54829 ) DEFAULT_MOC  from person p  where id = 54829 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54829 ) DEFAULT_MOC  from person p  where id = 54829"
TSQLSelect.execute->Prepare, SQLString=" select nvl(getWebAddressText(nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) AddressID,  'H' address_type, 'Personal' ADDRESSDESC, 'UPDATEHOMEADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54829 ) DEFAULT_MOC  from person p  where id = 54829 UNION ALL  select nvl(getWebAddressText(nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0)),          'Empty') ADDRESSTEXT,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) AddressID,  'W' ADDRESS_TYPE, 'Employment' ADDRESSDESC, 'UPDATEWORKADDRESS' UPDATEBUTTON,  GetPsnDefaultLandWebAddressID( 54829 ) DEFAULT_MOC  from person p  where id = 54829"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Entry, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54829"
TSQLSelect.execute->Prepare, SQLString=" select nvl(GetPersonHomeWebAddressID( p.id, 'L' ),0) HomeAddressID,  nvl(GetPersonOrgWebAddressID( p.id, 'L' ),0) WorkAddressID,  nvl(GetPsnDefaultLandWebAddressID( p.id ),0) DEFAULT_MOC_ID,  GetWebAddressOwnerType( GetPsnDefaultLandWebAddressID( p.id ) )DEFAULT_MOC,  '' DEFAULT_MOC_TEXT  from person p  where id = 54829"
TSQLSelect.execute->Exit,result="Y"
Trying to set default addresss
Failed to insert new default
TSQLSelect.execute->Entry, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Prepare, SQLString=" select 'QTY|1865=1' PRODUCTEDITS, '1277' EVENTID  from dual "
TSQLSelect.execute->Exit,result="Y"
TEventBooking.bookAndPay->Exit
TEventBooking.ConnectToDatabase-EXIT
TEventBooking.ConnectToDatabase-ENTRY
checkMD5Cookie->Entry
checkMD5Cookie->Not using MD5 Cookie
checkMD5Cookie->Exit, result="Y"
TEventBooking.Pay-> entry
TEventBooking.Pay-> No address update to process, processing netbanx prep
editname="MAXU"
editname="QTY|"
editname="TOTA"
editname="DEFA"
editname="CORR"
editname="PROD"
ProductsQtys="1865=1"
TEventBooking.Pay.insertHoldAreaHeader-> entry 
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "person_id"
TSQL.SetParam->ParamValue = "54829"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_id"
TSQL.SetParam->ParamValue = "1277"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "moc_id"
TSQL.SetParam->ParamValue = "0"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3024"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3024"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:36 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010416"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaHeader-> exit, result ="3024"
TEventBooking.Pay.insertHoldAreaDetail-> entry
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_EVENT_HOLD_AREA_DETAIL'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_event_hold_area_detail.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_hold_area_id"
TSQL.SetParam->ParamValue = "3024"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "event_fee_id"
TSQL.SetParam->ParamValue = "1865"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "quantity"
TSQL.SetParam->ParamValue = "1"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "3040"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Prepare, SQLString="select sequence_name from user_sequences where	sequence_name = 'S_ROW_INFO'"
TSQLSelect.execute->Exit,result="Y"
TSQLSelect.execute->Prepare, SQLString="select S_row_info.nextval id from dual"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "record_id"
TSQL.SetParam->ParamValue = "3040"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "table_name"
TSQL.SetParam->ParamValue = "event_hold_area_detail"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_on"
TSQL.SetParam->ParamValue = "4/17/2009 5:08:36 PM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "created_by"
TSQL.SetParam->ParamValue = "WAM"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TSQLSelect.execute->Entry, SQLString=""
TSQLSelect.execute->Exit,result="Y"
TSQL.SetParam->Entry
TSQL.SetParam->ParamName = "id"
TSQL.SetParam->ParamValue = "1010417"
TSQL.SetParam->Got here
TSQL.SetParam->param.Text = ""
TSQL.SetParam->Exit
TEventBooking.Pay.insertHoldAreaDetail-> exit, result ="3040"
TSQLSelect.execute->Entry, S