(file) Return to act_addservices.cfm CVS log (file) (dir) Up to [Development] / p2rx-programs

Diff for /p2rx-programs/act_addservices.cfm between version 1.1 and 1.2

version 1.1, 2005/03/09 03:18:14 UTC version 1.2, 2005/08/26 16:08:19 UTC
Line 11 
Line 11 
                 Date changed:                  Date changed:
                                         02/23/2005                      Prabin & Neena  Created                                          02/23/2005                      Prabin & Neena  Created
                                         02/23/2005                      Neena               Documentation                                          02/23/2005                      Neena               Documentation
                                           05/05/2005                      Neena                   Made changes to balance the code for removing Autonumber Field
                                                                                                                   from dOrgtoService Table for maximum ServicetoOrgID field.
                                           08/15/2005                      Terry                   Added URL variable for skipping step
                                           08/15/2005                      Terry                   Documentation
 --->  --->
   
   <!--- checks to see if the skip variable is present in the URL - determines whether a user can skip through the step --->
   <cfif #url.skip# NEQ 1>
 <cfquery name="getservicelink" datasource="#programsdb#">  <cfquery name="getservicelink" datasource="#programsdb#">
 Select serviceid  Select serviceid
 from dorgtoservice  from dorgtoservice
Line 39 
Line 45 
   
 <cfset Array = #ListToArray(form.ServiceID)#>  <cfset Array = #ListToArray(form.ServiceID)#>
 <cfloop from="1" to="#ArrayLen(Array)#" index="x">  <cfloop from="1" to="#ArrayLen(Array)#" index="x">
   
           <!--- New code added in next 4 statements to compute maximum servicetoOrgID --->
                   <cfquery name="maxOSId" datasource="#programsdb#">
                   Select max(ServicetoOrgID) as maxOrgtoServiceID from dOrgtoService
                   </cfquery>
                   <cfset newServicetoOrgID = #maxOSId.maxOrgtoServiceID# +1>
   
                 <cfquery datasource="#Programsdb#">                  <cfquery datasource="#Programsdb#">
                         Insert Into dOrgtoService (OrgID, ServiceID)                          Insert Into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
                         Values(#URL.OrgID#, #Array[x]#)                          Values(#newServicetoOrgID#, #URL.OrgID#, #Array[x]#)
                 </cfquery>                  </cfquery>
 </cfloop>  </cfloop>
   
 <cfif IsDefined("form.OtherExpertise")>  <cfif IsDefined("form.OtherExpertise")>
         <!--- <cfif #form.OtherExpertise# is true> --->          <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
                   <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
                    Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
                   </cfquery>
                   <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
   
                   <cfquery name="maxServiceID" datasource="#programsDb#">
                    Select max(ServiceID) as maxServiceID from dService
                   </cfquery>
                   <cfset newServiceID = #maxServiceID.maxServiceID# +1>
   
   
                 <cfquery name="newExp" datasource="#Programsdb#">                  <cfquery name="newExp" datasource="#Programsdb#">
                          Insert into dService(Service,Type, Approved,CenterID)                           Insert into dService(Serviceid, Service,Type, Approved,CenterID)
                         Values('#form.Other1#','Expertise',1,6)                          Values(#newServiceID#, '#form.Other1#','Expertise',1,6)
                 </cfquery>                  </cfquery>
   
                 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">                  <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
Line 57 
Line 81 
                 </Cfquery>                  </Cfquery>
   
                 <cfquery name="newOrgToService" datasource="#Programsdb#">                  <cfquery name="newOrgToService" datasource="#Programsdb#">
                         Insert into dOrgtoService (OrgID, ServiceID)                          Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
                         Values(#URL.OrgID#, #getMaxServiceid.maxSid#)                          Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
                 </cfquery>                  </cfquery>
 </cfif>  </cfif>
 <!--- </cfif> --->  <!--- </cfif> --->
 <cfif IsDefined("form.OtherResources")>  <cfif IsDefined("form.OtherResources")>
                 <!--- <cfif #form.OtherResources# is true> --->                  <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
                           <cfquery name="maxServiceID" datasource="#programsDb#">
                            Select max(ServiceID) as maxServiceID from dService
                           </cfquery>
                           <cfset newServiceID = #maxServiceID.maxServiceID# +1>
   
                           <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
                            Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
                           </cfquery>
                           <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
   
                         <cfquery name="newRes" datasource="#Programsdb#">                          <cfquery name="newRes" datasource="#Programsdb#">
                                 Insert into dService(Service,Type, Approved,CenterID)                                  Insert into dService(ServiceID, Service,Type, Approved,CenterID)
                                  Values('#form.Other2#','Resources',1,6)                                   Values(#newServiceID#, '#form.Other2#','Resources',1,6)
                         </cfquery>                          </cfquery>
   
                         <Cfquery name="getmaxServiceID" datasource="#Programsdb#">                          <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
Line 74 
Line 108 
                         </Cfquery>                          </Cfquery>
   
                         <cfquery name="newOrgToService" datasource="#Programsdb#">                          <cfquery name="newOrgToService" datasource="#Programsdb#">
                                 Insert into dOrgtoService (OrgID, ServiceID)                                  Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
                                 Values(#URL.OrgID#, #getmaxServiceID.maxSid#)                                  Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
                         </cfquery>                          </cfquery>
   
                 <!--- </cfif> --->                  <!--- </cfif> --->
 </cfif>  </cfif>
 <cfif IsDefined("form.OtherClients")>  <cfif IsDefined("form.OtherClients")>
                 <!--- <cfif #form.OtherClients# is true> --->                  <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
                           <cfquery name="maxServiceID" datasource="#programsDb#">
                            Select max(ServiceID) as maxServiceID from dService
                           </cfquery>
                           <cfset newServiceID = #maxServiceID.maxServiceID# +1>
   
                           <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
                            Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
                           </cfquery>
                           <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
   
                         <cfquery name="newClient" datasource="#Programsdb#">                          <cfquery name="newClient" datasource="#Programsdb#">
                                 Insert into dService(Service,Type, Approved,CenterID)                                  Insert into dService(ServiceID, Service,Type, Approved,CenterID)
                                 Values('#form.Other3#','Clients',1,6)                                  Values(#newServiceID#, '#form.Other3#','Clients',1,6)
                         </cfquery>                          </cfquery>
   
                         <Cfquery name="getmaxServiceID" datasource="#Programsdb#">                          <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
Line 92 
Line 136 
                         </Cfquery>                          </Cfquery>
   
                         <cfquery name="newOrgToService" datasource="#Programsdb#">                          <cfquery name="newOrgToService" datasource="#Programsdb#">
                         Insert into dOrgtoService (OrgID, ServiceID)                          Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
                         Values(#URL.OrgID#, #getMaxServiceID.maxSid#)                          Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
                         </cfquery>                          </cfquery>
   
 </cfif>  </cfif>
   </cfif>
   
   
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin
 Powered by
ViewCVS 1.0-dev