This is my code..
<cfloop index="listitem" list="#form.fieldnames#">
<cfif (lcase(left(listitem,4)) is "sql_") or
(lcase(left(listitem,7)) is "hidden_")>
<cfif fields neq "">
<cfset fields = "#fields#, ">
</cfif>
<!--- replace single quotes with double quotes for
SQL --->
<cfset temp = replace(evaluate('form.#listitem#'),
"'", "''", "ALL")>
<!--- loose _xxx for cold fusion date handling
'oddities' --->
<cfset field_name = listitem>
<cfif lcase(right(field_name,4)) is "_xxx">
<cfset field_name = left(field_name,
(len(field_name)-4))>
</cfif>
<cfset field_value = temp>
<!-- if the value to be updated is the ignore_me
value,
set the value to NULL -->
<cfif temp eq #defaults.ignore_me#>
<cfset temp = "NULL">
<cfelse>
<!--- wrap it is quotes --->
<cfset temp = "#q##temp##q#">
</cfif>
<cfif ListFindNoCase("#form.date_fields#", listitem)
neq 0>
<cfset temp = "to_date(#temp#,
#q##defaults.oracle_date_format##q#)">
<cfif #listitem# EQ
lcase("SQL_VISIT_DATE_XXX")>
<cfset vdate = #temp#>
</cfif>
<cfelseif ListFindNoCase("#form.datetime_fields#",
listitem) neq 0>
<cfset temp = "to_date(#temp#,
#q##defaults.oracle_datetime_format##q#)">
</cfif>
<!--- build the id=1, name=bob part of the update
SQL --->
<cfif lcase(left(listitem,4)) is "sql_">
<!--- trim the field_name for
pk_field_value or pk2_field_value --->
<cfset field_name = right(field_name,
(len(field_name)-4))>
<cfset temp = "#field_name# = #temp#">
<cfelseif (lcase(left(listitem,7)) is "hidden_")>
<!--- trim the field_name for
pk_field_value or pk2_field_value --->
<cfset field_name = right(field_name,
(len(field_name)-7))>
<cfset temp = "#field_name# = #temp#">
</cfif>
<!--- save the values for the keys for this
record--->
<cfif lcase(field_name) eq lcase(pk2_field_name)>
<cfset pk2_field_value = field_value>
</cfif>
<cfset fields = "#fields##temp#">
<!---for debug--->
<cfset list1 = list1 & "#field_name#, " >
</cfif>
</cfloop>
list1 = PATIENT_INITIALS, GENDER, RACE_ID, BIRTH_DATE, OTHER_ID1, OTHER_ID2,
STATE_ID, COUNTRY_ID, ZIP_POSTAL_CODE, PREFIX_ID, FIRST_NAME,
MIDDLE_INITIAL, LAST_NAME, SUFFIX, PATIENT_INITIALS, GENDER, ADDRESS_ID,
RACE_ID, BIRTH_DATE, REFERRED_BY_TYPE, CONTACT_FOR_ANOTHER_STUDY_IND,
REFERRED_BY, AVAILABLE, REFERRAL_TYPE_ID, AVAILABLE_DAYS, WORK_PHONE,
WORK_PHONE_EXTENSION, FAX_NUMBER, HOME_PHONE, EMAIL1, EMAIL2, OTHER_ID1,
OTHER_ID2, RESPONSIBLE_PARTY_ID, NOTES,
in this list1 also we can see those duplicate columns.. so we need to avoid
before building the update query..
When i execute this query following database error is showing saying that
duplication column name found..
Error Executing Database Query.
update patient set
update patient set PATIENT_INITIALS = 'AAA', GENDER = '1', RACE_ID = '4',
BIRTH_DATE = to_date('10-Oct-2003', 'dd-Mon-yyyy'),
OTHER_ID1 = '', OTHER_ID2 = '', STATE_ID = '2', COUNTRY_ID = NULL,
ZIP_POSTAL_CODE = '', PREFIX_ID = '5', FIRST_NAME = 'Ann',
MIDDLE_INITIAL = '', LAST_NAME = 'Albert', SUFFIX = '', PATIENT_INITIALS =
'AAA', GENDER = '1', ADDRESS_ID = '100046', RACE_ID = '4',
BIRTH_DATE = '10-Oct-2003', REFERRED_BY_TYPE = '1',
CONTACT_FOR_ANOTHER_STUDY_IND = 'N', REFERRED_BY = '', AVAILABLE = '0',
REFERRAL_TYPE_ID = '', AVAILABLE_DAYS = '0', WORK_PHONE = '',
WORK_PHONE_EXTENSION = '', FAX_NUMBER = '', HOME_PHONE = '',
EMAIL1 = '', EMAIL2 = '', OTHER_ID1 = '', OTHER_ID2 = '',
RESPONSIBLE_PARTY_ID = '', NOTES = '', date_modified = SYSDATE,
modified_by = USER where patient_id = 100001
here we can see PATIENT_INITIALS and some other columns are being displayed
twice.
so how to avoid duplicate columns in this loop..
appreciate for yr ideas...
Thanks
ramesh
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings]
