I'm trying to do multiple SAVEs while looping throuh an arrays without success. Any help would be appreciated.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE>PGM Detail Information</TITLE>
</HEAD>
<BODY BGCOLOR="White" BACKGROUND="whitext.gif">
<!--- This parses the performance date that was selected by the user from the previous template. --->
<CFSET parsedPerfDate = ParseDateTime(dateSelected)>
<CFSET ODBCSelectedDate = CreateODBCDateTime(parsedPerfDate)>
<CFSET TotalWeight = 0>
<CFSET SubProcAggregate = 0>
<CFSET #MsurYTD_POG# = 0>
<CFSET MeasureAggregate = 0>
<CFSET #wghtsBeingReported# = 0>
<!--- This gets deliverable and measure information for the Sub-Process ID that has been passed from the previous template. --->
<CFQUERY NAME="GetDetail" DATASOURCE="PGM">
SELECT *
FROM Subprocess,Deliverable,Measure
WHERE (Subprocess.sub_prcs_id = '#SubID#' AND
Subprocess.sub_prcs_fisc_yr = '#cookie.FiscalYear#' AND
Deliverable.sub_prcs_id = '#SubID#' AND
Deliverable.dlvr_fisc_yr = '#cookie.FiscalYear#' AND
Deliverable.dlvr_id = Measure.dlvr_id AND
Measure.msur_fisc_yr = '#cookie.FiscalYear#')
ORDER BY Deliverable.dlvr_name
</CFQUERY>
<CFQUERY NAME="GetProcess" DATASOURCE="PGM">
SELECT prcs_name
FROM Process
WHERE Process.prcs_id = '#ProcessID#' AND
Process.prcs_fisc_yr = '#cookie.FiscalYear#'
</CFQUERY>
<!--- Allocate arrays to hold the deliverable and measure information.msurArray holds dlvr_id, msur_id, and wght.
msurArray2 holds the survey code (either 0 or 1) in position 1.
Position 2 is not currently used.MsrArray holds msur_fmla_oper, expc_perf_amt, and msur_freq. --->
<CFOUTPUT>
<CFSET #recCount# = #GetDetail.RecordCount#>
<CFSET msurArray = ArrayNew(3)>
<CFSET msurArray2 = ArrayNew(2)>
<CFSET MsrArray = ArrayNew(3)>
</CFOUTPUT>
<CFLOOP Query="GetDetail"
STARTROW="1"
ENDROW="#recCount#">
<CFSET msurArray[CurrentRow][1][1] = GetDetail.dlvr_id[CurrentRow]>
<CFSET msurArray[CurrentRow][1][2] = GetDetail.msur_id[CurrentRow]>
<CFSET MsurArray[CurrentRow][1][3] = GetDetail.wght[CurrentRow]>
<!--- CFSET msurArray2[CurrentRow][1] = GetDetail.survey[CurrentRow] --->
<CFSET msurArray2[CurrentRow][2] = GetDetail.Annual_Sum_Mths[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][1] = GetDetail.msur_fmla_oper[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][2] = GetDetail.expc_perf_amt[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][3] = GetDetail.msur_freq[CurrentRow]>
</CFLOOP>
<!--- Allocate arrays to hold information from the Performance table. perfArray contains the perf_date in position 1 and actl_perf_amt in position 2 from the rows retrieved from "GetPerf".perfArray2 contains the mth_pog in position 1 and ytd_perf in position 2. perfArray3 contains ytd_pog in position 1 and ignore_month (either Y or N) in position 2. --->
<CFOUTPUT>
<!-- <CFSET perfArray = ArrayNew(2)>
<CFSET perfArray2 = ArrayNew(2)>
<CFSET perfArray3 = ArrayNew(2)> -->
<CFSET perfArray = ArrayNew(2)>
</CFOUTPUT>
<!--- This gets performance information for the measures that were retrieved from "GetDetail". --->
<CFLOOP Index="LoopCounter"
From ="1" To="#recCount#">
<CFQUERY NAME="GetPerf" DATASOURCE="PGM">
SELECT DISTINCT *
FROM Performance
WHERE Performance.dlvr_id = #msurArray[LoopCounter][1][1]#
AND Performance.msur_id = #msurArray[LoopCounter][1][2]#
AND Performance.perf_date = #ODBCSelectedDate#
</CFQUERY>
<CFSET perfArray[LoopCounter][1]= GetPerf.perf_date>
<CFSET perfArray[LoopCounter][2]= GetPerf.actl_perf_amt>
<CFSET perfArray[LoopCounter][3]= GetPerf.mth_pog>
<CFSET perfArray[LoopCounter][4]= GetPerf.ytd_perf>
<CFSET perfArray[LoopCounter][5]= GetPerf.ytd_pog>
<CFSET perfArray[LoopCounter][6]= GetPerf.ignore_month>
</CFLOOP>
<CFIF #GetDetail.RecordCount# IS 0>
<H3>No records were found matching your criteria
<P>Please make another selection. </H3>
<CFELSE>
<CFOUTPUT>
<TABLE width="100%" BORDER="2" BGCOLOR="FFFFCC">
<TR>
<TD align="left"><B><font face="MS Sans Serif" size="4">#GetProcess.prcs_name# </FONT></B></TD>
<TD align="center"><B><FONT size="4" FACE="MS SANS SERIF">#GetDetail.sub_prcs_id# #GetDetail.sub_prcs_name#</FONT></B></TD>
<TD align="right"><B><FONT size="4" FACE="MS SANS SERIF">As of: #dateselected# </FONT></B></TD>
</tr>
</TABLE>
</CFOUTPUT>
<TABLE BORDER=2 width="100%" ALIGN="CENTER">
<TR ALIGN="CENTER">
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Deliverable</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Measure</FONT></TH>
<TH width=30 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Wght</FONT></TH>
<TH width=55 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Compare</FONT></TH>
<TH width=40 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Annual Target</FONT></TH>
<TH width=10 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Bypass Month</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Monthly Performance</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Mthly % Goal</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">YTD Performance</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">YTD % Goal</FONT></TH>
<!--- TGDDH, WIR#07330: Action column no longer necessary w/ one SAVE. --->
<!--- <TH width=50 BGCOLOR="006666" colspan=2><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Action</FONT></TH> --->
</tr>
<CFSET loopcounter = 1>
<FORM ACTION="UpdatePerf.cfm" METHOD="POST">
<CFOUTPUT QUERY="GetDetail">
<!--- Convert Formula Operator code to an understandable value for display --->
<CFSET #vmsur_fmla_oper# = #msur_fmla_oper#>
<CFIF trim(#msur_fmla_oper#) IS ">">
<CFSET vmsur_fmla_oper = "Greater than">
<CFELSEIF trim(#msur_fmla_oper#) IS "<">
<CFSET vmsur_fmla_oper = "Less than">
<CFELSEIF trim(#msur_fmla_oper#) IS "=">
<CFSET vmsur_fmla_oper = "Equal to">
<CFELSEIF trim(#msur_fmla_oper#) IS ">=">
<CFSET vmsur_fmla_oper = "Equal or greater">
<CFELSEIF trim(#msur_fmla_oper#) IS "<=">
<CFSET vmsur_fmla_oper = "Equal or less">
</CFIF>
<!--- Convert Measurement Frequency code to an understandable value for display --->
<CFSET #vmsur_freq# = #msur_freq#>
<CFIF #msur_freq# IS "a">
<CFSET vmsur_freq = "Annual Average">
<CFELSEIF #msur_freq# IS "b">
<CFSET vmsur_freq = "Annual Sum">
<CFELSEIF #msur_freq# IS "s">
<CFSET vmsur_freq = "Semi-Annual Average">
<CFELSEIF #msur_freq# IS "d">
<CFSET vmsur_freq = "Semi-Annual Sum">
<CFELSEIF #msur_freq# IS "m">
<CFSET vmsur_freq = "Monthly">
<CFELSEIF #msur_freq# IS "q">
<CFSET vmsur_freq = "Quarterly Average">
<CFELSEIF #msur_freq# IS "f">
<CFSET vmsur_freq = "Quarterly Sum">
</CFIF>
<!--- Convert Measurement Type code to an understandable value for display --->
<CFSET #vmsur_type# = #msur_type#>
<CFIF #msur_type# IS "a">
<CFSET vmsur_type = "Efficient">
<CFELSEIF #msur_type# IS "b">
<CFSET vmsur_type = "Effective">
</CFIF>
<!--- Create TABLE of Deliverable, Performance and Measure Information --->
<!--- TGDDH, WIR#07330: Form moved outside the query so that one SAVE works ---> <!--- <FORM ACTION=UpdatePerf.cfm METHOD="POST"> --->
<!--- FORM NAME="EditInput" method="get" onSubmit="return EditPerf()" ACTION=UpdatePerf.cfm --->
<!--- CENTER--->
<!--- Hidden fields for entering additional information about the submission --->
<!--- INPUT TYPE="hidden" NAME="subid" VALUE="#cookie.SubID#"--->
<INPUT TYPE="hidden" NAME="dlvr_id" VALUE="#msurArray[LoopCounter][1][1]#">
<INPUT TYPE="hidden" NAME="msur_id" VALUE="#msurArray[LoopCounter][1][2]#">
<!--- INPUT TYPE="hidden" NAME="survey" VALUE="#msurArray2[LoopCounter][1]#"--->
<INPUT TYPE="hidden" NAME="ignore_month" VALUE="#perfArray[LoopCounter][6]#">
<INPUT TYPE="hidden" NAME="perf_date" VALUE="#perfArray[LoopCounter][1]#">
<INPUT TYPE="hidden" NAME="mth_pog" VALUE="#perfArray[LoopCounter][3]#">
<INPUT TYPE="hidden" NAME="msur_fmla_oper" VALUE="#MsrArray[LoopCounter][1][1]#">
<INPUT TYPE="hidden" NAME="expc_perf_amt" VALUE="#MsrArray[LoopCounter][1][2]#">
<INPUT TYPE="hidden" NAME="msur_freq" VALUE="#MsrArray[LoopCounter][1][3]#">
<INPUT TYPE="hidden" NAME="ytd_perf"
VALUE="#perfArray[LoopCounter][4]#">
<INPUT TYPE="hidden" NAME="ytd_pog"
VALUE="#perfArray[LoopCounter][5]#">
<CFIF (CurrentRow MOD 2) IS 1>
<TR ALIGN="CENTER">
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.dlvr_name# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.msur_name# </FONT></TD>
<TD width=30 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.wght# </FONT></TD>
<TD width=25 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#vmsur_fmla_oper# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#DecimalFormat(GetDetail.expc_perf_amt)# </FONT></TD>
<CFIF #perfArray[LoopCounter][6]# is 'Y'>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#" CHECKED></FONT>
</TD>
<CFELSE>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#"></FONT>
</TD>
</CFIF>
<TD width=55 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<INPUT TYPE="text" NAME="actl_perf_amt" SIZE="10" MAXLENGTH="10" VALUE="#perfArray[LoopCounter][2]#"></FONT>
</TD>
<!--- <TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][3]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][4]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][5]# </FONT></TD>
--->
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][3]#", (Find(".", "#perfArray[LoopCounter][3]#"
) + 2)# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][4]#", (Find(".", "#perfArray[LoopCounter][4]#") + 4 )# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][5]#", (Find(".", "#perfArray[LoopCounter][5]#") + 2)# </FONT></TD>
<!--- TGDDH, WIR#07330: Only one save needed.---> <!--- <TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="submit" VALUE="Save " SIZE="40"></FONT></TD>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="reset" SIZE="40" VALUE=" Reset "></FONT></TD>
--->
</TR>
<CFELSE>
<TR ALIGN="CENTER">
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.dlvr_name# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.msur_name# </FONT></TD>
<TD width=30 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.wght# </FONT></TD>
<TD width=25 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#vmsur_fmla_oper# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#DecimalFormat(GetDetail.expc_perf_amt)# </FONT></TD>
<CFIF #perfArray[LoopCounter][6]# is 'Y'>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#" CHECKED></FONT>
</TD>
<CFELSE>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#"></FONT>
</TD>
</CFIF>
<TD width=55 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<INPUT TYPE="text" NAME="actl_perf_amt" SIZE="10" MAXLENGTH="10" VALUE="#perfArray[LoopCounter][2]#"></FONT>
</TD>
<!--- <TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][3]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][4]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][5]# </FONT></TD>
--->
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][3]#", (Find(".", "#perfArray[LoopCounter][3]#") + 2)# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][4]#", (Find(".", "#perfArray[LoopCounter][4]#") + 4 )# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][5]#", (Find(".", "#perfArray[LoopCounter][5]#") + 2)# </FONT></TD>
<!--- TGDDH, WIR#07330: Only one SAVE needed. ---> <!--- <TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="submit" VALUE="Save " SIZE="40"></FONT></TD>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="reset" SIZE="40" VALUE=" Reset "></FONT></TD> --->
</TR>
</CFIF>
<!--- We total the weights of only those measures that are being reported for the month. If Bypass Month is checked, we don't include that measure's weight in our total unless there is a YTD percent of goal from a prior month. --->
<CFIF (#perfArray[LoopCounter][6]# IS 'N') OR
(#perfArray[LoopCounter][6]# is 'Y' AND #perfArray[LoopCounter][5]# IS NOT 0)>
<CFSET #wghtsBeingReported# = #wghtsBeingReported# + #MsurArray[LoopCounter][1][3]#>
</CFIF>
<CFSET LoopCounter = #LoopCounter# + 1>
<CFSET TotalWeight = #TotalWeight# + #GetDetail.wght#>
</CFOUTPUT>
</TABLE>
<TABLE width="100%">
<TD width=450><TH width=50><FONT size="-3" FACE="MS Sans Serif"><TD WIDTH="40"><FONT SIZE="-3" FACE="Arial"><INPUT TYPE="submit" ALIGN="RIGHT" SIZE="20" NAME="Selection" VALUE="Save"></FONT></TD>
<TD WIDTH="40"><FONT SIZE="-3" FACE="Arial"><INPUT TYPE="reset" ALIGN="RIGHT" SIZE="20" NAME="Selection" VALUE="Reset"></FONT></TD>
<cfoutput>
<INPUT TYPE="hidden" NAME="FormRecCount" VALUE="#recCount#">
<INPUT TYPE="hidden" NAME="subid" VALUE="#SubID#">
<INPUT TYPE="hidden" NAME="ProcessID" VALUE="#ProcessID#">
<INPUT TYPE="hidden" NAME="dateSelected" VALUE="#dateSelected#">
<INPUT TYPE="hidden" NAME="ODBCSelectedDate" VALUE="#ODBCSelectedDate#">
</cfoutput>
</FORM>
<CFLOOP Index="LoopCounter"
FROM ="1" To="#recCount#">
<!--- Calculate Subprocess Aggregate amount. --->
<CFIF (#perfArray[LoopCounter][6]# is 'N') OR
(#perfArray[LoopCounter][6]# is 'Y' AND #perfArray[LoopCounter][5]# IS NOT 0)>
<CFIF #MsurArray[LoopCounter][1][3]# GREATER THAN 0 AND #perfArray[LoopCounter][5]# GREATER THAN 0>
<CFSET #MsurYTD_POG# = #perfArray[LoopCounter][5]#>
<CFIF #MsurYTD_POG# GREATER THAN 125>
<CFSET #MsurYTD_POG# = 125>
</CFIF>
<CFSET MeasureAggregate = #MsurArray[LoopCounter][1][3]# / #wghtsBeingReported# * #MsurYTD_POG#>
<!--- CFSET MeasureAggregate = (#GetDetail.wght# * #PercentageYTD_POG#)>
<CFSET MeasureAggregate = #MeasureAggregate# / 100 ---> <!--- Make sure we truncate and not round --->
<CFSET decPoint = #FindOneOf(".", "#MeasureAggregate#"#>
<!--- look for a decimal point --->
<CFIF #decPoint# GT 0>
<CFSET MeasureAggregate = #Left("#MeasureAggregate#", (Find(".", "#MeasureAggregate#") + 4)#>
</CFIF>
<CFSET SubProcAggregate = #SubProcAggregate# + #MeasureAggregate#>
</CFIF>
<!--- CFSET LoopCounter = #LoopCounter# + 1>
<CFSET TotalWeight = #TotalWeight# + #GetDetail.wght# --->
</CFIF>
</CFLOOP>
<!--- Included Template: RollUpLevelOne.cfm
Purpose: This template is used to sum the weight values for a given Sub-process to verify they add to 100. If they don't a javascript alert is generated to inform the user to adjust the weighting factors.
Included Template: CheckTotalWeightJS.cfm
Purpose: This template is used to verify that the measure weights sum to 100. If not,a javascript alert message is displayed --->
<CFINCLUDE TEMPLATE="RollUpLevelOne.cfm">
<CFINCLUDE TEMPLATE="CheckTotalWeightJS.cfm">
<BR> <FONT COLOR="Red"><STRONG>Procedures for Updating Performance Information:</STRONG></FONT>
<OL TYPE="1">
<LI>Update the Monthly Performance amount for the measure(s).
<LI>Click the <B>Save</B> button.
</OL>
</CFIF>
</BODY>
</HTML>
xxxxxxxxxxxx
ACTION PAGE:
<!--------------------------------------------------------------------------
This updates the monthly performance amount (actl_perf_amt) for the month
that has been selected. It calls CalcPGM which calls the appropriate
template to calculate the monthly % of goal, YTD performance, and YTD % of
goal depending on the msur_freq. If a performance record for the selected
month does not exist, we have to insert one first. Otherwise, we just
update the existing one.
--------------------------------------------------------------------------->
<CFLOOP Index="LoopCounter"
FROM ="1" To="#FormRecCount#">
<CFIF ListContains(BypassMthCheck, LoopCounter, "," IS 0>
<CFSET ignore_month = "N">
<CFSET msur_actl_perf_amt = #ListGetAt(actl_perf_amt, LoopCounter)#>
<CFELSE>
<CFSET ignore_month = "Y">
<CFSET msur_actl_perf_amt = 0>
</CFIF>
<!--------------------------------------------------------------------------
See if there is a performance record for the month selected.
--->
<CFSET LoopCounter = 1>
<CFQUERY NAME="GetPerf" DATASOURCE="PGM">
SELECT *
FROM Performance
WHERE Performance.dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND Performance.msur_id = #ListGetAt(msur_id, LoopCounter)#
AND Performance.perf_date = #ODBCSelectedDate#
</CFQUERY>
<CFTRANSACTION>
<CFIF #GetPerf.RecordCount# IS 0>
<CFQUERY NAME="InsertPerf" DATASOURCE="PGM">
INSERT INTO Performance(perf_date, actl_perf_amt, dlvr_id, msur_id, ignore_month)
VALUES (#ODBCSelectedDate#, #msur_actl_perf_amt#, #ListGetAt(dlvr_id, LoopCounter)#, #ListGetAt(msur_id, LoopCounter)#, '#ListGetAt(ignore_month, LoopCounter)#')
</CFQUERY>
<CFELSE>
<CFQUERY NAME="UpdtPerf" DATASOURCE="PGM">
UPDATE Performance
SET actl_perf_amt = #msur_actl_perf_amt#,
ignore_month = '#ListGetAt(ignore_month, LoopCounter)#'
WHERE dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND msur_id = #ListGetAt(msur_id, LoopCounter)#
AND perf_date = '#ListGetAt(perf_date, LoopCounter)#'
</CFQUERY>
</CFIF>
<CFSET Vmsur_freq = #msur_freq#>
<CFSET mth_pog = 0>
<CFSET ytd_pog = 0>
<CFSET ytd_perf = 0>
<CFINCLUDE TEMPLATE="CalcPGM.cfm">
<CFQUERY NAME="UpdtPerf" DATASOURCE="PGM">
UPDATE Performance
SET mth_pog = #ListGetAt(mth_pog, LoopCounter)#,
ytd_perf = #ListGetAt(ytd_perf, LoopCounter)#,
ytd_pog = #ListGetAt(ytd_pog, LoopCounter)#
WHERE dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND msur_id = #ListGetAt(msur_id, LoopCounter)#
AND perf_date = #ODBCSelectedDate#
</CFQUERY>
</CFTRANSACTION>
</CFLOOP>
<CFINCLUDE TEMPLATE="UpdateDetail.cfm">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE>PGM Detail Information</TITLE>
</HEAD>
<BODY BGCOLOR="White" BACKGROUND="whitext.gif">
<!--- This parses the performance date that was selected by the user from the previous template. --->
<CFSET parsedPerfDate = ParseDateTime(dateSelected)>
<CFSET ODBCSelectedDate = CreateODBCDateTime(parsedPerfDate)>
<CFSET TotalWeight = 0>
<CFSET SubProcAggregate = 0>
<CFSET #MsurYTD_POG# = 0>
<CFSET MeasureAggregate = 0>
<CFSET #wghtsBeingReported# = 0>
<!--- This gets deliverable and measure information for the Sub-Process ID that has been passed from the previous template. --->
<CFQUERY NAME="GetDetail" DATASOURCE="PGM">
SELECT *
FROM Subprocess,Deliverable,Measure
WHERE (Subprocess.sub_prcs_id = '#SubID#' AND
Subprocess.sub_prcs_fisc_yr = '#cookie.FiscalYear#' AND
Deliverable.sub_prcs_id = '#SubID#' AND
Deliverable.dlvr_fisc_yr = '#cookie.FiscalYear#' AND
Deliverable.dlvr_id = Measure.dlvr_id AND
Measure.msur_fisc_yr = '#cookie.FiscalYear#')
ORDER BY Deliverable.dlvr_name
</CFQUERY>
<CFQUERY NAME="GetProcess" DATASOURCE="PGM">
SELECT prcs_name
FROM Process
WHERE Process.prcs_id = '#ProcessID#' AND
Process.prcs_fisc_yr = '#cookie.FiscalYear#'
</CFQUERY>
<!--- Allocate arrays to hold the deliverable and measure information.msurArray holds dlvr_id, msur_id, and wght.
msurArray2 holds the survey code (either 0 or 1) in position 1.
Position 2 is not currently used.MsrArray holds msur_fmla_oper, expc_perf_amt, and msur_freq. --->
<CFOUTPUT>
<CFSET #recCount# = #GetDetail.RecordCount#>
<CFSET msurArray = ArrayNew(3)>
<CFSET msurArray2 = ArrayNew(2)>
<CFSET MsrArray = ArrayNew(3)>
</CFOUTPUT>
<CFLOOP Query="GetDetail"
STARTROW="1"
ENDROW="#recCount#">
<CFSET msurArray[CurrentRow][1][1] = GetDetail.dlvr_id[CurrentRow]>
<CFSET msurArray[CurrentRow][1][2] = GetDetail.msur_id[CurrentRow]>
<CFSET MsurArray[CurrentRow][1][3] = GetDetail.wght[CurrentRow]>
<!--- CFSET msurArray2[CurrentRow][1] = GetDetail.survey[CurrentRow] --->
<CFSET msurArray2[CurrentRow][2] = GetDetail.Annual_Sum_Mths[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][1] = GetDetail.msur_fmla_oper[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][2] = GetDetail.expc_perf_amt[CurrentRow]>
<CFSET MsrArray[CurrentRow][1][3] = GetDetail.msur_freq[CurrentRow]>
</CFLOOP>
<!--- Allocate arrays to hold information from the Performance table. perfArray contains the perf_date in position 1 and actl_perf_amt in position 2 from the rows retrieved from "GetPerf".perfArray2 contains the mth_pog in position 1 and ytd_perf in position 2. perfArray3 contains ytd_pog in position 1 and ignore_month (either Y or N) in position 2. --->
<CFOUTPUT>
<!-- <CFSET perfArray = ArrayNew(2)>
<CFSET perfArray2 = ArrayNew(2)>
<CFSET perfArray3 = ArrayNew(2)> -->
<CFSET perfArray = ArrayNew(2)>
</CFOUTPUT>
<!--- This gets performance information for the measures that were retrieved from "GetDetail". --->
<CFLOOP Index="LoopCounter"
From ="1" To="#recCount#">
<CFQUERY NAME="GetPerf" DATASOURCE="PGM">
SELECT DISTINCT *
FROM Performance
WHERE Performance.dlvr_id = #msurArray[LoopCounter][1][1]#
AND Performance.msur_id = #msurArray[LoopCounter][1][2]#
AND Performance.perf_date = #ODBCSelectedDate#
</CFQUERY>
<CFSET perfArray[LoopCounter][1]= GetPerf.perf_date>
<CFSET perfArray[LoopCounter][2]= GetPerf.actl_perf_amt>
<CFSET perfArray[LoopCounter][3]= GetPerf.mth_pog>
<CFSET perfArray[LoopCounter][4]= GetPerf.ytd_perf>
<CFSET perfArray[LoopCounter][5]= GetPerf.ytd_pog>
<CFSET perfArray[LoopCounter][6]= GetPerf.ignore_month>
</CFLOOP>
<CFIF #GetDetail.RecordCount# IS 0>
<H3>No records were found matching your criteria
<P>Please make another selection. </H3>
<CFELSE>
<CFOUTPUT>
<TABLE width="100%" BORDER="2" BGCOLOR="FFFFCC">
<TR>
<TD align="left"><B><font face="MS Sans Serif" size="4">#GetProcess.prcs_name# </FONT></B></TD>
<TD align="center"><B><FONT size="4" FACE="MS SANS SERIF">#GetDetail.sub_prcs_id# #GetDetail.sub_prcs_name#</FONT></B></TD>
<TD align="right"><B><FONT size="4" FACE="MS SANS SERIF">As of: #dateselected# </FONT></B></TD>
</tr>
</TABLE>
</CFOUTPUT>
<TABLE BORDER=2 width="100%" ALIGN="CENTER">
<TR ALIGN="CENTER">
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Deliverable</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Measure</FONT></TH>
<TH width=30 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Wght</FONT></TH>
<TH width=55 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Compare</FONT></TH>
<TH width=40 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Annual Target</FONT></TH>
<TH width=10 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Bypass Month</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Monthly Performance</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Mthly % Goal</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">YTD Performance</FONT></TH>
<TH width=50 BGCOLOR="006666"><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">YTD % Goal</FONT></TH>
<!--- TGDDH, WIR#07330: Action column no longer necessary w/ one SAVE. --->
<!--- <TH width=50 BGCOLOR="006666" colspan=2><FONT FACE="MS SANS SERIF" SIZE="-2" COLOR="Yellow">Action</FONT></TH> --->
</tr>
<CFSET loopcounter = 1>
<FORM ACTION="UpdatePerf.cfm" METHOD="POST">
<CFOUTPUT QUERY="GetDetail">
<!--- Convert Formula Operator code to an understandable value for display --->
<CFSET #vmsur_fmla_oper# = #msur_fmla_oper#>
<CFIF trim(#msur_fmla_oper#) IS ">">
<CFSET vmsur_fmla_oper = "Greater than">
<CFELSEIF trim(#msur_fmla_oper#) IS "<">
<CFSET vmsur_fmla_oper = "Less than">
<CFELSEIF trim(#msur_fmla_oper#) IS "=">
<CFSET vmsur_fmla_oper = "Equal to">
<CFELSEIF trim(#msur_fmla_oper#) IS ">=">
<CFSET vmsur_fmla_oper = "Equal or greater">
<CFELSEIF trim(#msur_fmla_oper#) IS "<=">
<CFSET vmsur_fmla_oper = "Equal or less">
</CFIF>
<!--- Convert Measurement Frequency code to an understandable value for display --->
<CFSET #vmsur_freq# = #msur_freq#>
<CFIF #msur_freq# IS "a">
<CFSET vmsur_freq = "Annual Average">
<CFELSEIF #msur_freq# IS "b">
<CFSET vmsur_freq = "Annual Sum">
<CFELSEIF #msur_freq# IS "s">
<CFSET vmsur_freq = "Semi-Annual Average">
<CFELSEIF #msur_freq# IS "d">
<CFSET vmsur_freq = "Semi-Annual Sum">
<CFELSEIF #msur_freq# IS "m">
<CFSET vmsur_freq = "Monthly">
<CFELSEIF #msur_freq# IS "q">
<CFSET vmsur_freq = "Quarterly Average">
<CFELSEIF #msur_freq# IS "f">
<CFSET vmsur_freq = "Quarterly Sum">
</CFIF>
<!--- Convert Measurement Type code to an understandable value for display --->
<CFSET #vmsur_type# = #msur_type#>
<CFIF #msur_type# IS "a">
<CFSET vmsur_type = "Efficient">
<CFELSEIF #msur_type# IS "b">
<CFSET vmsur_type = "Effective">
</CFIF>
<!--- Create TABLE of Deliverable, Performance and Measure Information --->
<!--- TGDDH, WIR#07330: Form moved outside the query so that one SAVE works ---> <!--- <FORM ACTION=UpdatePerf.cfm METHOD="POST"> --->
<!--- FORM NAME="EditInput" method="get" onSubmit="return EditPerf()" ACTION=UpdatePerf.cfm --->
<!--- CENTER--->
<!--- Hidden fields for entering additional information about the submission --->
<!--- INPUT TYPE="hidden" NAME="subid" VALUE="#cookie.SubID#"--->
<INPUT TYPE="hidden" NAME="dlvr_id" VALUE="#msurArray[LoopCounter][1][1]#">
<INPUT TYPE="hidden" NAME="msur_id" VALUE="#msurArray[LoopCounter][1][2]#">
<!--- INPUT TYPE="hidden" NAME="survey" VALUE="#msurArray2[LoopCounter][1]#"--->
<INPUT TYPE="hidden" NAME="ignore_month" VALUE="#perfArray[LoopCounter][6]#">
<INPUT TYPE="hidden" NAME="perf_date" VALUE="#perfArray[LoopCounter][1]#">
<INPUT TYPE="hidden" NAME="mth_pog" VALUE="#perfArray[LoopCounter][3]#">
<INPUT TYPE="hidden" NAME="msur_fmla_oper" VALUE="#MsrArray[LoopCounter][1][1]#">
<INPUT TYPE="hidden" NAME="expc_perf_amt" VALUE="#MsrArray[LoopCounter][1][2]#">
<INPUT TYPE="hidden" NAME="msur_freq" VALUE="#MsrArray[LoopCounter][1][3]#">
<INPUT TYPE="hidden" NAME="ytd_perf"
VALUE="#perfArray[LoopCounter][4]#">
<INPUT TYPE="hidden" NAME="ytd_pog"
VALUE="#perfArray[LoopCounter][5]#">
<CFIF (CurrentRow MOD 2) IS 1>
<TR ALIGN="CENTER">
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.dlvr_name# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.msur_name# </FONT></TD>
<TD width=30 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.wght# </FONT></TD>
<TD width=25 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#vmsur_fmla_oper# </FONT></TD>
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#DecimalFormat(GetDetail.expc_perf_amt)# </FONT></TD>
<CFIF #perfArray[LoopCounter][6]# is 'Y'>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#" CHECKED></FONT>
</TD>
<CFELSE>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#"></FONT>
</TD>
</CFIF>
<TD width=55 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">
<INPUT TYPE="text" NAME="actl_perf_amt" SIZE="10" MAXLENGTH="10" VALUE="#perfArray[LoopCounter][2]#"></FONT>
</TD>
<!--- <TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][3]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][4]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][5]# </FONT></TD>
--->
<TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][3]#", (Find(".", "#perfArray[LoopCounter][3]#"
) + 2)# </FONT></TD> <TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][4]#", (Find(".", "#perfArray[LoopCounter][4]#"
) + 4 )# </FONT></TD> <TD width=50 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][5]#", (Find(".", "#perfArray[LoopCounter][5]#"
) + 2)# </FONT></TD><!--- TGDDH, WIR#07330: Only one save needed.---> <!--- <TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="submit" VALUE="Save " SIZE="40"></FONT></TD>
<TD width=10 bgcolor="##99CCCC"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="reset" SIZE="40" VALUE=" Reset "></FONT></TD>
--->
</TR>
<CFELSE>
<TR ALIGN="CENTER">
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.dlvr_name# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.msur_name# </FONT></TD>
<TD width=30 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#GetDetail.wght# </FONT></TD>
<TD width=25 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#vmsur_fmla_oper# </FONT></TD>
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#DecimalFormat(GetDetail.expc_perf_amt)# </FONT></TD>
<CFIF #perfArray[LoopCounter][6]# is 'Y'>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#" CHECKED></FONT>
</TD>
<CFELSE>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<input type="checkbox" name="BypassMthCheck" VALUE="#LoopCounter#"></FONT>
</TD>
</CFIF>
<TD width=55 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">
<INPUT TYPE="text" NAME="actl_perf_amt" SIZE="10" MAXLENGTH="10" VALUE="#perfArray[LoopCounter][2]#"></FONT>
</TD>
<!--- <TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][3]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][4]# </FONT></TD>
<TD width=50><FONT size="-2" FACE=Arial>#perfArray[LoopCounter][1][5]# </FONT></TD>
--->
<TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][3]#", (Find(".", "#perfArray[LoopCounter][3]#"
) + 2)# </FONT></TD> <TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][4]#", (Find(".", "#perfArray[LoopCounter][4]#"
) + 4 )# </FONT></TD> <TD width=50 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif">#Left("#perfArray[LoopCounter][5]#", (Find(".", "#perfArray[LoopCounter][5]#"
) + 2)# </FONT></TD><!--- TGDDH, WIR#07330: Only one SAVE needed. ---> <!--- <TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="submit" VALUE="Save " SIZE="40"></FONT></TD>
<TD width=10 bgcolor="White"><FONT size="-3" FACE="MS Sans Serif"><INPUT ALIGN="MIDDLE" TYPE="reset" SIZE="40" VALUE=" Reset "></FONT></TD> --->
</TR>
</CFIF>
<!--- We total the weights of only those measures that are being reported for the month. If Bypass Month is checked, we don't include that measure's weight in our total unless there is a YTD percent of goal from a prior month. --->
<CFIF (#perfArray[LoopCounter][6]# IS 'N') OR
(#perfArray[LoopCounter][6]# is 'Y' AND #perfArray[LoopCounter][5]# IS NOT 0)>
<CFSET #wghtsBeingReported# = #wghtsBeingReported# + #MsurArray[LoopCounter][1][3]#>
</CFIF>
<CFSET LoopCounter = #LoopCounter# + 1>
<CFSET TotalWeight = #TotalWeight# + #GetDetail.wght#>
</CFOUTPUT>
</TABLE>
<TABLE width="100%">
<TD width=450><TH width=50><FONT size="-3" FACE="MS Sans Serif"><TD WIDTH="40"><FONT SIZE="-3" FACE="Arial"><INPUT TYPE="submit" ALIGN="RIGHT" SIZE="20" NAME="Selection" VALUE="Save"></FONT></TD>
<TD WIDTH="40"><FONT SIZE="-3" FACE="Arial"><INPUT TYPE="reset" ALIGN="RIGHT" SIZE="20" NAME="Selection" VALUE="Reset"></FONT></TD>
<cfoutput>
<INPUT TYPE="hidden" NAME="FormRecCount" VALUE="#recCount#">
<INPUT TYPE="hidden" NAME="subid" VALUE="#SubID#">
<INPUT TYPE="hidden" NAME="ProcessID" VALUE="#ProcessID#">
<INPUT TYPE="hidden" NAME="dateSelected" VALUE="#dateSelected#">
<INPUT TYPE="hidden" NAME="ODBCSelectedDate" VALUE="#ODBCSelectedDate#">
</cfoutput>
</FORM>
<CFLOOP Index="LoopCounter"
FROM ="1" To="#recCount#">
<!--- Calculate Subprocess Aggregate amount. --->
<CFIF (#perfArray[LoopCounter][6]# is 'N') OR
(#perfArray[LoopCounter][6]# is 'Y' AND #perfArray[LoopCounter][5]# IS NOT 0)>
<CFIF #MsurArray[LoopCounter][1][3]# GREATER THAN 0 AND #perfArray[LoopCounter][5]# GREATER THAN 0>
<CFSET #MsurYTD_POG# = #perfArray[LoopCounter][5]#>
<CFIF #MsurYTD_POG# GREATER THAN 125>
<CFSET #MsurYTD_POG# = 125>
</CFIF>
<CFSET MeasureAggregate = #MsurArray[LoopCounter][1][3]# / #wghtsBeingReported# * #MsurYTD_POG#>
<!--- CFSET MeasureAggregate = (#GetDetail.wght# * #PercentageYTD_POG#)>
<CFSET MeasureAggregate = #MeasureAggregate# / 100 ---> <!--- Make sure we truncate and not round --->
<CFSET decPoint = #FindOneOf(".", "#MeasureAggregate#"
#> <!--- look for a decimal point --->
<CFIF #decPoint# GT 0>
<CFSET MeasureAggregate = #Left("#MeasureAggregate#", (Find(".", "#MeasureAggregate#"
) + 4)#></CFIF>
<CFSET SubProcAggregate = #SubProcAggregate# + #MeasureAggregate#>
</CFIF>
<!--- CFSET LoopCounter = #LoopCounter# + 1>
<CFSET TotalWeight = #TotalWeight# + #GetDetail.wght# --->
</CFIF>
</CFLOOP>
<!--- Included Template: RollUpLevelOne.cfm
Purpose: This template is used to sum the weight values for a given Sub-process to verify they add to 100. If they don't a javascript alert is generated to inform the user to adjust the weighting factors.
Included Template: CheckTotalWeightJS.cfm
Purpose: This template is used to verify that the measure weights sum to 100. If not,a javascript alert message is displayed --->
<CFINCLUDE TEMPLATE="RollUpLevelOne.cfm">
<CFINCLUDE TEMPLATE="CheckTotalWeightJS.cfm">
<BR> <FONT COLOR="Red"><STRONG>Procedures for Updating Performance Information:</STRONG></FONT>
<OL TYPE="1">
<LI>Update the Monthly Performance amount for the measure(s).
<LI>Click the <B>Save</B> button.
</OL>
</CFIF>
</BODY>
</HTML>
xxxxxxxxxxxx
ACTION PAGE:
<!--------------------------------------------------------------------------
This updates the monthly performance amount (actl_perf_amt) for the month
that has been selected. It calls CalcPGM which calls the appropriate
template to calculate the monthly % of goal, YTD performance, and YTD % of
goal depending on the msur_freq. If a performance record for the selected
month does not exist, we have to insert one first. Otherwise, we just
update the existing one.
--------------------------------------------------------------------------->
<CFLOOP Index="LoopCounter"
FROM ="1" To="#FormRecCount#">
<CFIF ListContains(BypassMthCheck, LoopCounter, ","
IS 0><CFSET ignore_month = "N">
<CFSET msur_actl_perf_amt = #ListGetAt(actl_perf_amt, LoopCounter)#>
<CFELSE>
<CFSET ignore_month = "Y">
<CFSET msur_actl_perf_amt = 0>
</CFIF>
<!--------------------------------------------------------------------------
See if there is a performance record for the month selected.
--->
<CFSET LoopCounter = 1>
<CFQUERY NAME="GetPerf" DATASOURCE="PGM">
SELECT *
FROM Performance
WHERE Performance.dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND Performance.msur_id = #ListGetAt(msur_id, LoopCounter)#
AND Performance.perf_date = #ODBCSelectedDate#
</CFQUERY>
<CFTRANSACTION>
<CFIF #GetPerf.RecordCount# IS 0>
<CFQUERY NAME="InsertPerf" DATASOURCE="PGM">
INSERT INTO Performance(perf_date, actl_perf_amt, dlvr_id, msur_id, ignore_month)
VALUES (#ODBCSelectedDate#, #msur_actl_perf_amt#, #ListGetAt(dlvr_id, LoopCounter)#, #ListGetAt(msur_id, LoopCounter)#, '#ListGetAt(ignore_month, LoopCounter)#')
</CFQUERY>
<CFELSE>
<CFQUERY NAME="UpdtPerf" DATASOURCE="PGM">
UPDATE Performance
SET actl_perf_amt = #msur_actl_perf_amt#,
ignore_month = '#ListGetAt(ignore_month, LoopCounter)#'
WHERE dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND msur_id = #ListGetAt(msur_id, LoopCounter)#
AND perf_date = '#ListGetAt(perf_date, LoopCounter)#'
</CFQUERY>
</CFIF>
<CFSET Vmsur_freq = #msur_freq#>
<CFSET mth_pog = 0>
<CFSET ytd_pog = 0>
<CFSET ytd_perf = 0>
<CFINCLUDE TEMPLATE="CalcPGM.cfm">
<CFQUERY NAME="UpdtPerf" DATASOURCE="PGM">
UPDATE Performance
SET mth_pog = #ListGetAt(mth_pog, LoopCounter)#,
ytd_perf = #ListGetAt(ytd_perf, LoopCounter)#,
ytd_pog = #ListGetAt(ytd_pog, LoopCounter)#
WHERE dlvr_id = #ListGetAt(dlvr_id, LoopCounter)#
AND msur_id = #ListGetAt(msur_id, LoopCounter)#
AND perf_date = #ODBCSelectedDate#
</CFQUERY>
</CFTRANSACTION>
</CFLOOP>
<CFINCLUDE TEMPLATE="UpdateDetail.cfm">