1 neenan 1.1 <!--- Name: act_updateservices.cfm
2 Purpose: This functions as the action file to update the services information that was earlier selected by the user.
3 This file is used while editing the organization information. Each time this page is called,the field values
4 are first deleted from the dOrgToService table using a query.Fresh records are then inserted for each of
5 the services that the user had selected in the dsp_editservices form. The "Other" new services are also
6 inserted in the dservice table and dorgtoservice table respectively.
7 Date created: 02/24/2005
8 Dependancy: URL.Orgid
9 Variables:
10
11 Functions:
12 Date changed:
13 02/24/2005 Prabin & Neena Created & Documentation
14 --->
15
16 <cfquery name="deletepg" datasource="#Programsdb#">
17 delete
18 from dOrgToService
19 Where OrgID = #URL.ORGID#
20 </cfquery>
21
22 neenan 1.1 <cfset Array = #ListToArray(form.ServiceID)#>
23
24 <cfloop from="1" to="#ArrayLen(Array)#" index="x">
25 <cfquery datasource="#Programsdb#">
26 Insert Into dOrgtoService (OrgID, ServiceID)
27 Values(#URL.OrgID#, #Array[x]#)
28 </cfquery>
29 </cfloop>
30
31 <cfif IsDefined("form.OtherExpertise")>
32 <cfif #form.OtherExpertise# is true>
33 <cfquery name="newExp" datasource="#Programsdb#">
34 Insert into dService(Service,Type, Approved,CenterID)
35 Values('#form.Other1#','Expertise',1,7)
36 </cfquery>
37
38 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
39 Select Max(serviceid) as maxSid from dService
40 </Cfquery>
41
42 <cfquery name="newOrgToService" datasource="#Programsdb#">
43 neenan 1.1 Insert into dOrgtoService (OrgID, ServiceID)
44 Values(#URL.OrgID#, #getMaxServiceid.maxSid#)
45 </cfquery>
46 </cfif>
47
48 <cfelseif IsDefined("form.OtherResources")>
49 <cfif #form.OtherResources# is true>
50 <cfquery name="newRes" datasource="#Programsdb#">
51 Insert into dService(Service,Type, Approved,CenterID)
52 Values('#form.Other2#','Resources',1,7)
53 </cfquery>
54 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
55 Select Max(serviceid) as maxSid from dService
56 </Cfquery>
57
58 <cfquery name="newOrgToService" datasource="#Programsdb#">
59 Insert into dOrgtoService (OrgID, ServiceID)
60 Values(#URL.OrgID#, #getMaxServiceid.maxSid#)
61 </cfquery>
62 </cfif>
63 <cfelseif IsDefined("form.OtherClients")>
64 neenan 1.1 <cfif #form.OtherClients# is true>
65 <cfquery name="newClient" datasource="#Programsdb#">
66 Insert into dService(Service,Type, Approved,CenterID)
67 Values('#form.Other3#','Clients',1,7)
68 </cfquery>
69
70 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
71 Select Max(serviceid) as maxSid from dService
72 </Cfquery>
73
74 <cfquery name="newOrgToService" datasource="#Programsdb#">
75 Insert into dOrgtoService (OrgID, ServiceID)
76 Values(#URL.OrgID#, #getMaxServiceid.maxSid#)
77 </cfquery>
78 </cfif>
79 </cfif>
|
Return to
act_updateservices.cfm
CVS log
Up to [Development] / p2rx-programs