1 neenan 1.1 <!--- Name: act_addservices.cfm
2 Purpose: This functions as the action file to insert the information of the services of type resource, expertise or client.
3 Each time this page is called,the field values are first deleted from the dOrgToService table using a query .
4 Fresh records are then inserted for each of the services that the user had selected in the dsp_addservices or
5 dsp_editservices form. The new "Other" services are also inserted in the dservice table and dorgtoservice table.
6 Date created: 02/23/2005
7 Dependancy: URL.Orgid
8 Variables:
9
10 Functions:
11 Date changed:
12 02/23/2005 Prabin & Neena Created
13 02/23/2005 Neena Documentation
14 --->
15
16 <cfquery name="getservicelink" datasource="#programsdb#">
17 Select serviceid
18 from dorgtoservice
19 where orgID = #URL.Orgid#
20 </cfquery>
21
22 neenan 1.1 <cfset OtherServiceList = ValueList(getServicelink.ServiceID)>
23 <cfset OtherServiceArray = ListToArray(OtherServiceList)>
24
25 <cfif getServicelink.recordcount is not 0>
26 <cfloop from="1" to="#ArrayLen(OtherServiceArray)#" index="x">
27 <cfquery datasource="#Programsdb#">
28 Delete from dOrgtoService
29 where OrgID =#URL.orgid# and ServiceID = #OtherServiceArray[x]#
30 </cfquery>
31 </cfloop>
32 </cfif>
33
34 <cfquery name="deletepg" datasource="#programsdb#">
35 delete
36 from dOrgToService
37 Where OrgID = #URL.ORGID#
38 </cfquery>
39
40 <cfset Array = #ListToArray(form.ServiceID)#>
41 <cfloop from="1" to="#ArrayLen(Array)#" index="x">
42 <cfquery datasource="#Programsdb#">
43 neenan 1.1 Insert Into dOrgtoService (OrgID, ServiceID)
44 Values(#URL.OrgID#, #Array[x]#)
45 </cfquery>
46 </cfloop>
47
48 <cfif IsDefined("form.OtherExpertise")>
49 <!--- <cfif #form.OtherExpertise# is true> --->
50 <cfquery name="newExp" datasource="#Programsdb#">
51 Insert into dService(Service,Type, Approved,CenterID)
52 Values('#form.Other1#','Expertise',1,6)
53 </cfquery>
54
55 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
56 Select Max(serviceid) as maxSid from dService
57 </Cfquery>
58
59 <cfquery name="newOrgToService" datasource="#Programsdb#">
60 Insert into dOrgtoService (OrgID, ServiceID)
61 Values(#URL.OrgID#, #getMaxServiceid.maxSid#)
62 </cfquery>
63 </cfif>
64 neenan 1.1 <!--- </cfif> --->
65 <cfif IsDefined("form.OtherResources")>
66 <!--- <cfif #form.OtherResources# is true> --->
67 <cfquery name="newRes" datasource="#Programsdb#">
68 Insert into dService(Service,Type, Approved,CenterID)
69 Values('#form.Other2#','Resources',1,6)
70 </cfquery>
71
72 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
73 Select Max(serviceid) as maxSid from dService
74 </Cfquery>
75
76 <cfquery name="newOrgToService" datasource="#Programsdb#">
77 Insert into dOrgtoService (OrgID, ServiceID)
78 Values(#URL.OrgID#, #getmaxServiceID.maxSid#)
79 </cfquery>
80
81 <!--- </cfif> --->
82 </cfif>
83 <cfif IsDefined("form.OtherClients")>
84 <!--- <cfif #form.OtherClients# is true> --->
85 neenan 1.1 <cfquery name="newClient" datasource="#Programsdb#">
86 Insert into dService(Service,Type, Approved,CenterID)
87 Values('#form.Other3#','Clients',1,6)
88 </cfquery>
89
90 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
91 Select Max(serviceid) as maxSid from dService
92 </Cfquery>
93
94 <cfquery name="newOrgToService" datasource="#Programsdb#">
95 Insert into dOrgtoService (OrgID, ServiceID)
96 Values(#URL.OrgID#, #getMaxServiceID.maxSid#)
97 </cfquery>
98
99 </cfif>
100
101
102
|
Return to
act_addservices.cfm
CVS log
Up to [Development] / p2rx-programs