<cfset EditMode=IsDefined("URL.ID")> <CFIF EditMode> <cfinvoke component="CFCs/Datastore" method="#TBLNAME#" returnvariable="qGet#replace(TBLNAME,'_','','ALL')#" ID="##URL.ID##" /> <cfset ID = "##qGet#replace(TBLNAME,'_','','ALL')#.ID##" /> <cfset #k# = "##DateFormat(qGet#replace(TBLNAME,'_','','ALL')#.#k#,'mm/dd/yyyy')####qGet#replace(TBLNAME,'_','','ALL')#.#k###" /> <cfset BtnType = "Update Record" /> <cfset recordType = "Update" /> <CFELSE> <cfset #l# = "" /> <cfset BtnType = "New Record" /> <cfset recordType = "New" /> </CFIF> CREATE TABLE #UCASE(form.TblName)#( ID NUMBER NOT NULL, #i# NUMBERDATENUMBERNUMBERVARCHAR2(2000)VARCHAR2(25), COMPLETE VARCHAR2(3) NOT NULL, CREATEDBY NUMBER, UPDATEDBY NUMBER, CREATEDATE DATE DEFAULT sysdate NOT NULL ) <!---:::::::::::::(START) #UCASE(replace(TBLNAME,'_',' ','ALL'))# FORM PROCESSING):::::::::::::---> <cfif TableName eq "#TBLNAME#"> <cfif recordType eq "New"> <cfinvoke component="CFCs/#UCASE(replace(TBLNAME,'_','','ALL'))#" method="CREATE_#replace(TBLNAME,'_','','ALL')#"> <cfinvokeargument name="#lcase(TheField)#" value=#q###DateFormat(form.#lcase(TheField)#,'mm/dd/yyyy')###q##q###form.#lcase(TheField)####q# /> </cfinvoke> <cfelseif recordType eq "UPDATE"> <cfinvoke component="CFCS/#UCASE(replace(TBLNAME,'_','','ALL'))#" method="UPDATE_#replace(TBLNAME,'_','','ALL')#"> <cfinvokeargument name="#lcase(TheField)#" value=#q###DateFormat(form.#lcase(TheField)#,'mm/dd/yyyy')###q##q###form.#lcase(TheField)####q# /> </cfinvoke> </cfif> <cflocation url="index.cfm?pagename=#TBLNAME#" addtoken="no" /> </cfif> <!---:::::::::::::(END) #UCASE(replace(TBLNAME,'_',' ','ALL'))# FORM PROCESSING PAGE):::::::::::::---> <cfcomponent> <!---:::::::::::::(START) FUNCTION TO LOOKUP RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> <cffunction name="#UCASE(replace(TBLNAME,'_','','ALL'))#_LU" output="yes" returntype="query"> <cfargument name="PATIENTID" required="yes" default=""> <cfquery datasource="##request.DSN##" username="##request.User##" password="##request.Password##" name="qGet#UCASE(replace(TBLNAME,'_','','ALL'))#"> SELECT * FROM #UCASE(TBLNAME)# <cfif isDefined("argumrnts.patientid") AND len(trim(argumrnts.patientid)) neq 0> WHERE PATIENTID=##ARGUMENTS.PATIENTID## </cfif> <cfreturn qGet#UCASE(replace(TBLNAME,'_','','ALL'))# /> </cffunction> <!---:::::::::::::(END) FUNCTION TO LOOKUP RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> <!---:::::::::::::(START) FUNCTION TO CREATE RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> <cffunction name="CREATE_#UCASE(replace(TBLNAME,'_','','ALL'))#"> <cfargument name="#lcase(TheField)#" type="datesting" /> <cftransaction> <cfquery datasource="##request.DSN##" username="##request.User##" password="##request.Password##" name="qIN#UCASE(replace(TBLNAME,'_','','ALL'))#"> INSERT INTO #UCASE(TBLNAME)#(#lcase(TheField)#,) VALUES( <cfqueryparam cfsqltype="cf_sql_#q#" value="##arguments.#lcase(TheField)###" />,) </cfquery> </cftransaction> </cffunction> <!---:::::::::::::(END) FUNCTION TO CREATE RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> <!---:::::::::::::(START) FUNCTION TO EDIT RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> <cffunction name="UPDATE_#UCASE(TBLNAME)#"> <cfargument name="#lcase(TheField)#" type="datesting" /> <cftransaction> <cfquery datasource="##request.DSN##" username="##request.User##" password="##request.Password##" name="qOUT#UCASE(replace(TBLNAME,'_','','ALL'))#"> UPDATE #UCASE(TBLNAME)# SET #lcase(TheField)# = <cfqueryparam cfsqltype="cf_sql_#q#" value="##arguments.#lcase(TheField)###" />, WHERE PATIENTID = ##arguments.PATIENTID## </cfquery> </cftransaction> </cffunction> <!---:::::::::::::(END) FUNCTION TO EDIT RECORDS IN THE #UCASE(TBLNAME)# TABLE):::::::::::::---> </cfcomponent> ---> <!---::::::::::::::::::::(START) CFINVOKE CODE TO PULL FROM THE #ucase(TBLNAME)# TABLE:::::::::::::::::--->

<cfinvoke component="CFCs/#replace(TBLNAME,'_','','ALL')#" method="#replace(TBLNAME,'_','','ALL')#_LU" returnvariable="qGet#replace(TBLNAME,'_','','ALL')#" ID="##ID##" /><!---<cfdump var="##qGet#replace(TBLNAME,'_','','ALL')###" />--->

<!---::::::::::::::::::::(END) CFINVOKE CODE TO PULL FROM THE #ucase(TBLNAME)# TABLE:::::::::::::::::::--->