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 pKanel 1.2 05/05/2005 Neena Made changes to balance the code for removing Autonumber Field
15 from dOrgtoService Table for maximum ServicetoOrgID field.
16 08/15/2005 Terry Added URL variable for skipping step
17 08/15/2005 Terry Documentation
|
18 neenan 1.1 --->
19
|
20 pKanel 1.2 <!--- checks to see if the skip variable is present in the URL - determines whether a user can skip through the step --->
21 <cfif #url.skip# NEQ 1>
|
22 neenan 1.1 <cfquery name="getservicelink" datasource="#programsdb#">
23 Select serviceid
24 from dorgtoservice
25 where orgID = #URL.Orgid#
26 </cfquery>
27
28 <cfset OtherServiceList = ValueList(getServicelink.ServiceID)>
29 <cfset OtherServiceArray = ListToArray(OtherServiceList)>
30
31 <cfif getServicelink.recordcount is not 0>
32 <cfloop from="1" to="#ArrayLen(OtherServiceArray)#" index="x">
33 <cfquery datasource="#Programsdb#">
34 Delete from dOrgtoService
35 where OrgID =#URL.orgid# and ServiceID = #OtherServiceArray[x]#
36 </cfquery>
37 </cfloop>
38 </cfif>
39
40 <cfquery name="deletepg" datasource="#programsdb#">
41 delete
42 from dOrgToService
43 neenan 1.1 Where OrgID = #URL.ORGID#
44 </cfquery>
45
46 <cfset Array = #ListToArray(form.ServiceID)#>
47 <cfloop from="1" to="#ArrayLen(Array)#" index="x">
|
48 pKanel 1.2
49 <!--- New code added in next 4 statements to compute maximum servicetoOrgID --->
50 <cfquery name="maxOSId" datasource="#programsdb#">
51 Select max(ServicetoOrgID) as maxOrgtoServiceID from dOrgtoService
52 </cfquery>
53 <cfset newServicetoOrgID = #maxOSId.maxOrgtoServiceID# +1>
54
|
55 neenan 1.1 <cfquery datasource="#Programsdb#">
|
56 pKanel 1.2 Insert Into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
57 Values(#newServicetoOrgID#, #URL.OrgID#, #Array[x]#)
|
58 neenan 1.1 </cfquery>
59 </cfloop>
60
61 <cfif IsDefined("form.OtherExpertise")>
|
62 pKanel 1.2 <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
63 <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
64 Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
65 </cfquery>
66 <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
67
68 <cfquery name="maxServiceID" datasource="#programsDb#">
69 Select max(ServiceID) as maxServiceID from dService
70 </cfquery>
71 <cfset newServiceID = #maxServiceID.maxServiceID# +1>
72
73
|
74 neenan 1.1 <cfquery name="newExp" datasource="#Programsdb#">
|
75 pKanel 1.2 Insert into dService(Serviceid, Service,Type, Approved,CenterID)
76 Values(#newServiceID#, '#form.Other1#','Expertise',1,6)
|
77 neenan 1.1 </cfquery>
78
79 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
80 Select Max(serviceid) as maxSid from dService
81 </Cfquery>
82
83 <cfquery name="newOrgToService" datasource="#Programsdb#">
|
84 pKanel 1.2 Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
85 Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
|
86 neenan 1.1 </cfquery>
87 </cfif>
88 <!--- </cfif> --->
89 <cfif IsDefined("form.OtherResources")>
|
90 pKanel 1.2 <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
91 <cfquery name="maxServiceID" datasource="#programsDb#">
92 Select max(ServiceID) as maxServiceID from dService
93 </cfquery>
94 <cfset newServiceID = #maxServiceID.maxServiceID# +1>
95
96 <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
97 Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
98 </cfquery>
99 <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
100
|
101 neenan 1.1 <cfquery name="newRes" datasource="#Programsdb#">
|
102 pKanel 1.2 Insert into dService(ServiceID, Service,Type, Approved,CenterID)
103 Values(#newServiceID#, '#form.Other2#','Resources',1,6)
|
104 neenan 1.1 </cfquery>
105
106 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
107 Select Max(serviceid) as maxSid from dService
108 </Cfquery>
109
110 <cfquery name="newOrgToService" datasource="#Programsdb#">
|
111 pKanel 1.2 Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
112 Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
|
113 neenan 1.1 </cfquery>
114
115 <!--- </cfif> --->
116 </cfif>
117 <cfif IsDefined("form.OtherClients")>
|
118 pKanel 1.2 <!--- New code added in next 8 statements to compute maximum servicetoOrgID --->
119 <cfquery name="maxServiceID" datasource="#programsDb#">
120 Select max(ServiceID) as maxServiceID from dService
121 </cfquery>
122 <cfset newServiceID = #maxServiceID.maxServiceID# +1>
123
124 <cfquery name="maxServicetoOrgID" datasource="#programsDb#">
125 Select max(ServicetoOrgID) as maxOrgtoServiceID from dorgtoservice
126 </cfquery>
127 <cfset newServicetoOrgID = #maxServicetoOrgID.maxOrgtoServiceID# +1>
128
|
129 neenan 1.1 <cfquery name="newClient" datasource="#Programsdb#">
|
130 pKanel 1.2 Insert into dService(ServiceID, Service,Type, Approved,CenterID)
131 Values(#newServiceID#, '#form.Other3#','Clients',1,6)
|
132 neenan 1.1 </cfquery>
133
134 <Cfquery name="getmaxServiceID" datasource="#Programsdb#">
135 Select Max(serviceid) as maxSid from dService
136 </Cfquery>
137
138 <cfquery name="newOrgToService" datasource="#Programsdb#">
|
139 pKanel 1.2 Insert into dOrgtoService (ServicetoOrgID, OrgID, ServiceID)
140 Values(#newServicetoOrgID#, #URL.OrgID#, #getMaxServiceid.maxSid#)
|
141 neenan 1.1 </cfquery>
142
143 </cfif>
|
144 pKanel 1.2 </cfif>
|
145 neenan 1.1
146
147
|
Return to
act_addservices.cfm
CVS log
Up to [Development] / p2rx-programs