PageRenderTime 29ms CodeModel.GetById 11ms RepoModel.GetById 0ms app.codeStats 0ms

/AC/m001e0603.asp

http://github.com/boss2009/ASP-site
ASP | 270 lines | 259 code | 11 blank | 0 comment | 33 complexity | 7309ff16a1a25bc0ac5c9443071d5ea0 MD5 | raw file
    

  1. <%@language="JAVASCRIPT"%>
    2. 

  2. <!--#include file="../inc/ASPUtility.inc" -->
    3. 

  3. <!--#include file="../Connections/cnnASP02.asp" -->
    4. 

  4. <!--#include file="../inc/ASPCheckLogin.inc" -->
    5. 

  5. <%
    6. 

  6. var MM_editAction = Request.ServerVariables("URL");
    7. 

  7. if (Request.QueryString) {
    8. 

  8.   MM_editAction += "?" + Request.QueryString;
    9. 

  9. }
    10. 

  10. 

  11. if (String(Request.Form("MM_update")) == "true"){
    12. 

  12. 	var rsGrantEligibility = Server.CreateObject("ADODB.Recordset");
    13. 

  13. 	rsGrantEligibility.ActiveConnection = MM_cnnASP02_STRING;
    14. 

  14. 	rsGrantEligibility.Source = "{call dbo.cp_grant_elgbty3("+ Request.Form("ReferralDate") + ","+Request.QueryString("intAdult_id")+","+Request.Form("GrantPeriod")+",0,'E',0)}";
    15. 

  15. 	rsGrantEligibility.CursorType = 0;
    16. 

  16. 	rsGrantEligibility.CursorLocation = 2;
    17. 

  17. 	rsGrantEligibility.LockType = 3;
    18. 

  18. 	rsGrantEligibility.Open();
    19. 

  19. 	Response.Redirect("UpdateSuccessful.asp?page=m001q0603.asp&intAdult_id="+Request.QueryString("intAdult_id"));
    20. 

  20. }
    21. 

  21. 

  22. var rsGrantEligibility = Server.CreateObject("ADODB.Recordset");
    23. 

  23. rsGrantEligibility.ActiveConnection = MM_cnnASP02_STRING;
    24. 

  24. rsGrantEligibility.Source = "{call dbo.cp_grant_elgbty3("+ Request.QueryString("intReferral_id") + ","+Request.QueryString("intAdult_id")+",0,1,'Q',0)}";
    25. 

  25. rsGrantEligibility.CursorType = 0;
    26. 

  26. rsGrantEligibility.CursorLocation = 2;
    27. 

  27. rsGrantEligibility.LockType = 3;
    28. 

  28. rsGrantEligibility.Open();
    29. 

  29. 

  30. var rsGrantPeriod = Server.CreateObject("ADODB.Recordset");
    31. 

  31. rsGrantPeriod.ActiveConnection = MM_cnnASP02_STRING;
    32. 

  32. rsGrantPeriod.Source = "{call dbo.cp_list_elgbty_period2(0,"+ Request.QueryString("intAdult_id") + ",0,'','',0.0,0.0,0.0,0,'',0,'',0,'Q',0)}";
    33. 

  33. rsGrantPeriod.CursorType = 0;
    34. 

  34. rsGrantPeriod.CursorLocation = 2;
    35. 

  35. rsGrantPeriod.LockType = 3;
    36. 

  36. rsGrantPeriod.Open();
    37. 

  37. 

  38. var rsReferralDate = Server.CreateObject("ADODB.Recordset");
    39. 

  39. rsReferralDate.ActiveConnection = MM_cnnASP02_STRING;
    40. 

  40. rsReferralDate.Source = "{call dbo.cp_list_referrals("+ Request.QueryString("intAdult_id") + ",0,0,1,0)}";
    41. 

  41. rsReferralDate.CursorType = 0;
    42. 

  42. rsReferralDate.CursorLocation = 2;
    43. 

  43. rsReferralDate.LockType = 3;
    44. 

  44. rsReferralDate.Open();
    45. 

  45. var rsReferralDate_Total = 0
    46. 

  46. while (!rsReferralDate.EOF) {
    47. 

  47. 	rsReferralDate_Total++;
    48. 

  48. 	rsReferralDate.MoveNext();
    49. 

  49. }
    50. 

  50. if (rsReferralDate_Total > 0) rsReferralDate.MoveFirst();
    51. 

  51. 

  52. var ChkGrantEligibility = Server.CreateObject("ADODB.Command");
    53. 

  53. ChkGrantEligibility.ActiveConnection = MM_cnnASP02_STRING;
    54. 

  54. ChkGrantEligibility.CommandText = "dbo.cp_Chk_Grant_Elgbty";
    55. 

  55. ChkGrantEligibility.CommandType = 4;
    56. 

  56. ChkGrantEligibility.CommandTimeout = 0;
    57. 

  57. ChkGrantEligibility.Prepared = true;
    58. 

  58. ChkGrantEligibility.Parameters.Append(ChkGrantEligibility.CreateParameter("RETURN_VALUE", 3, 4));
    59. 

  59. ChkGrantEligibility.Parameters.Append(ChkGrantEligibility.CreateParameter("@intAdult_id", 3, 1,10000,Request.QueryString("intAdult_id")));
    60. 

  60. ChkGrantEligibility.Parameters.Append(ChkGrantEligibility.CreateParameter("@insRtnFlag", 2, 2));
    61. 

  61. ChkGrantEligibility.Execute();
    62. 

  62. %>
    63. 

  63. <html>
    64. 

  64. <head>
    65. 

  65. 	<title>Update Grant Eligibility</title>
    66. 

  66. 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    67. 

  67. 	<link rel="stylesheet" href="../css/MyStyle.css" type="text/css">
    68. 

  68. 	<script language="Javascript" src="../js/MyFunctions.js"></script>
    69. 

  69. 	<script for="document" event="onkeyup()" language="JavaScript">
    70. 

  70. 	if (window.event.ctrlKey) {
    71. 

  71. 		switch (window.event.keyCode) {
    72. 

  72. 			case 83 :
    73. 

  73. 				//alert("S");
    74. 

  74. 				Save();
    75. 

  75. 			break;
    76. 

  76. 			case 85:
    77. 

  77. 				//alert("U");
    78. 

  78. 				document.frm0603.reset();
    79. 

  79. 			break;
    80. 

  80. 		   	case 76 :
    81. 

  81. 				//alert("L");
    82. 

  82. 				window.location.href='m001q0603.asp?<%=Request.QueryString%>';
    83. 

  83. 			break;
    84. 

  84. 		}
    85. 

  85. 	}
    86. 

  86. 	</script>	
    87. 

  87. 	<script language="Javascript">
    88. 

  88. 	function openWindow(page, name){
    89. 

  89. 		if (page!='nothing') win1=window.open(page, name, "width=600,height=570,scrollbars=1,left=0,top=0,status=1");
    90. 

  90. 		return ;
    91. 

  91. 	}	
    92. 

  92. 	
    93. 

  93. 	var ReferralArray = new Array(<%=rsReferralDate_Total%>);
    94. 

  94. 		ReferralArray[0] = new Array(6);
    95. 

  95. 		ReferralArray[0][0] = 0;
    96. 

  96. 		ReferralArray[0][1] = 0;
    97. 

  97. 		ReferralArray[0][2] = 0;
    98. 

  98. 		ReferralArray[0][3] = 0;
    99. 

  99. 		ReferralArray[0][4] = 0;		
    100. 

  100. 		ReferralArray[0][5] = 0;	
    101. 

  101. 	<%
    102. 

  102. 	var i = 1;
    103. 

  103. 	while (!rsReferralDate.EOF) {
    104. 

  104. 	%>
    105. 

  105. 		ReferralArray[<%=i%>] = new Array(6);
    106. 

  106. 		ReferralArray[<%=i%>][0] = <%=rsReferralDate.Fields.Item("intReferral_id").Value%>;
    107. 

  107. 		ReferralArray[<%=i%>][1] = <%=((rsReferralDate.Fields.Item("bitIs_Re-referral")=="1")?"1":"0")%>;
    108. 

  108. 		ReferralArray[<%=i%>][2] = <%=((rsReferralDate.Fields.Item("bitIs_PS_CSG_Grant")=="1")?"1":"0")%>;
    109. 

  109. 		ReferralArray[<%=i%>][3] = <%=((rsReferralDate.Fields.Item("bitIs_PS_APSD_Grant")=="1")?"1":"0")%>;
    110. 

  110. 		ReferralArray[<%=i%>][4] = <%=((rsReferralDate.Fields.Item("bitIs_VRS_CSG_Grant")=="1")?"1":"0")%>;		
    111. 

  111. 		ReferralArray[<%=i%>][5] = <%=((rsReferralDate.Fields.Item("insGrnt_Elgbty").Value>0)?rsReferralDate.Fields.Item("insGrnt_Elgbty").Value:"0")%>;
    112. 

  112. 	<%
    113. 

  113. 		i++;
    114. 

  114. 		rsReferralDate.MoveNext();
    115. 

  115. 	}
    116. 

  116. 	if (rsReferralDate_Total>0) rsReferralDate.MoveFirst();
    117. 

  117. 	%>
    118. 

  118. 	function Save(){
    119. 

  119. 		if (document.frm0603.ReferralDate.value==0) {
    120. 

  120. 			alert("Select a referral date before linking to grant period.");
    121. 

  121. 			return ;
    122. 

  122. 		}
    123. 

  123. 		var j = 0
    124. 

  124. 		if (String(document.frm0603.LinkToReferral.length)=="undefined") {
    125. 

  125. 			if (document.frm0603.LinkToReferral.checked) j++;
    126. 

  126. 		} else {
    127. 

  127. 			for (var i=0; i< document.frm0603.LinkToReferral.length; i++) {
    128. 

  128. 				if (document.frm0603.LinkToReferral[i].checked) j++;
    129. 

  129. 			}
    130. 

  130. 		}
    131. 

  131. 		if (j==0) {
    132. 

  132. 			alert("Select a grant study period.");
    133. 

  133. 			return ;
    134. 

  134. 		}
    135. 

  135. 		
    136. 

  136. 		if (j>1) {
    137. 

  137. 			alert("A referral can only have one grant period assigned.");
    138. 

  138. 			return ;
    139. 

  139. 		}
    140. 

  140. 		document.frm0603.GrantPeriod.value=0;
    141. 

  141. 		if (String(document.frm0603.LinkToReferral.length)=="undefined") {
    142. 

  142. 			if (document.frm0603.LinkToReferral.checked) document.frm0603.GrantPeriod.value=document.frm0603.LinkToReferral.value;
    143. 

  143. 		} else {
    144. 

  144. 			for (var i=0; i< document.frm0603.LinkToReferral.length; i++) {
    145. 

  145. 				if (document.frm0603.LinkToReferral[i].checked) document.frm0603.GrantPeriod.value=document.frm0603.LinkToReferral[i].value;
    146. 

  146. 			}
    147. 

  147. 		}	
    148. 

  148. 		document.frm0603.submit();
    149. 

  149. 	}
    150. 

  150. 	
    151. 

  151. 	function Init(){
    152. 

  152. 		document.frm0603.ReferralDate.focus();
    153. 

  153. 		ChangeReferralDate();
    154. 

  154. 	}
    155. 

  155. 	
    156. 

  156. 	function SetGrantPeriod(grant_id){
    157. 

  157. 	<%
    158. 

  158. 	if (!rsGrantPeriod.EOF) {
    159. 

  159. 	%>
    160. 

  160. 		if (String(document.frm0603.LinkToReferral.length)=="undefined") {
    161. 

  161. 			if (document.frm0603.LinkToReferral.value==grant_id) {
    162. 

  162. 				document.frm0603.LinkToReferral.checked=true;
    163. 

  163. 			} else {
    164. 

  164. 				document.frm0603.LinkToReferral.checked=false;
    165. 

  165. 			}			
    166. 

  166. 		} else {
    167. 

  167. 			for (var i=0; i< document.frm0603.LinkToReferral.length; i++) {
    168. 

  168. 				if (document.frm0603.LinkToReferral[i].value==grant_id) {
    169. 

  169. 					document.frm0603.LinkToReferral[i].checked=true;
    170. 

  170. 				} else {
    171. 

  171. 					document.frm0603.LinkToReferral[i].checked=false;
    172. 

  172. 				}
    173. 

  173. 			}
    174. 

  174. 		}
    175. 

  175. 	<%
    176. 

  176. 	}
    177. 

  177. 	%>
    178. 

  178. 	}
    179. 

  179. 	
    180. 

  180. 	function ChangeReferralDate(){
    181. 

  181. 		document.frm0603.ReferralType.value=ReferralArray[document.frm0603.ReferralDate.selectedIndex][1];
    182. 

  182. 		document.frm0603.PostSecondaryCSG.checked=ReferralArray[document.frm0603.ReferralDate.selectedIndex][2];
    183. 

  183. 		document.frm0603.PostSecondaryAPSD.checked=ReferralArray[document.frm0603.ReferralDate.selectedIndex][3];
    184. 

  184. 		document.frm0603.EPPDCSG.checked=ReferralArray[document.frm0603.ReferralDate.selectedIndex][4];
    185. 

  185. 		SetGrantPeriod(ReferralArray[document.frm0603.ReferralDate.selectedIndex][5]);
    186. 

  186. 	}
    187. 

  187. 	</script>
    188. 

  188. </head>
    189. 

  189. <body onLoad="Init();">
    190. 

  190. <form name="frm0603" method="POST" action="<%=MM_editAction%>">
    191. 

  191. <table cellpadding="1" cellspacing="1">
    192. 

  192. 	<tr>
    193. 

  193. 		<td nowrap>Referral Date:</td>
    194. 

  194. 		<td nowrap><select name="ReferralDate" acccesskey="F" tabindex="1" onChange="ChangeReferralDate();">
    195. 

  195. 				<option value="0">(not linked)
    196. 

  196. 			<%
    197. 

  197. 			while (!rsReferralDate.EOF){
    198. 

  198. 			%>
    199. 

  199. 				<option value="<%=rsReferralDate.Fields.Item("intReferral_id").Value%>" <%=((rsReferralDate.Fields.Item("intReferral_id").Value==rsGrantEligibility.Fields.Item("intReferral_id").Value)?"SELECTED":"")%>><%=rsReferralDate.Fields.Item("dtsRefral_date").Value%>
    200. 

  200. 			<%
    201. 

  201. 				rsReferralDate.MoveNext();
    202. 

  202. 			}
    203. 

  203. 			%>
    204. 

  204. 		</select></td>
    205. 

  205. 	</tr>
    206. 

  206. 	<tr>
    207. 

  207. 		<td nowrap>Referral Type:</td>
    208. 

  208. 		<td nowrap><select name="ReferralType" tabindex="2">
    209. 

  209. 			<option value="0">Referral
    210. 

  210. 			<option value="1">Re-referral
    211. 

  211. 		</select></td>
    212. 

  212.     </tr>
    213. 

  213.     <tr> 
    214. 

  214. 		<td nowrap>Grant Type:</td>
    215. 

  215. 		<td nowrap>
    216. 

  216. 	  		<input type="checkbox" name="PostSecondaryCSG" value="1" tabindex="3" class="chkstyle">PS-CSG
    217. 

  217. 			<input type="checkbox" name="PostSecondaryAPSD" value="1" tabindex="4" class="chkstyle">PS-APSD
    218. 

  218. 			<input type="checkbox" name="EPPDCSG" value="1" tabindex="5" class="chkstyle">EPPD-CSG
    219. 

  219. 		</td>
    220. 

  220.     </tr>
    221. 

  221. </table><br>
    222. 

  222. <b>Grant Study Periods:</b>
    223. 

  223. <table cellpadding="1" cellspacing="1" class="MTable">
    224. 

  224. 	<tr>
    225. 

  225. 		<th class="headrow" nowrap>Link To Referral</th>
    226. 

  226. 		<th class="headrow" nowrap>Funding Source</th>		
    227. 

  227. 		<th class="headrow" nowrap>Start Date</th>
    228. 

  228. 		<th class="headrow" nowrap>End Date</th>
    229. 

  229. 		<th class="headrow" nowrap>Grant Amount</th>
    230. 

  230. 	</tr>
    231. 

  231. <%
    232. 

  232. var count = 0;
    233. 

  233. while (!rsGrantPeriod.EOF) {
    234. 

  234. %>	
    235. 

  235. 	<tr>
    236. 

  236. 		<td align="center"><input type="checkbox" name="LinkToReferral" value="<%=rsGrantPeriod.Fields.Item("insGrnt_Elgbty").Value%>" class="chkstyle" style="background-color: #ffffe6"></td>
    237. 

  237. <!-- + Nov.03.2005
    238. 

  238. -->		
    239. 

  239. 		<td align="center"><%=(rsGrantPeriod.Fields.Item("chvfunding_source_name").Value)%></td>
    240. 

  240. 				
    241. 

  241. 		<td align="center"><%=FilterDate(rsGrantPeriod.Fields.Item("dtmEligibility_start").Value)%></td>
    242. 

  242. 		<td align="center"><%=FilterDate(rsGrantPeriod.Fields.Item("dtmEligibility_end").Value)%></td>
    243. 

  243. 		<td align="right"><%=FormatCurrency(rsGrantPeriod.Fields.Item("fltGrantAmt").Value)%></td>
    244. 

  244. 	</tr>
    245. 

  245. <%
    246. 

  246. 	count++;
    247. 

  247. 	rsGrantPeriod.MoveNext();
    248. 

  248. }
    249. 

  249. %>
    250. 

  250. </table>
    251. 

  251. <br><br>
    252. 

  252. <a href="javascript: openWindow('m001e0603a.asp?intAdult_id=<%=Request.QueryString("intAdult_id")%>','W0603E');">Add Financial Eligibility Information</a>
    253. 

  253. <hr>
    254. 

  254. <table cellpadding="1" cellspacing="1">
    255. 

  255. 	<tr> 
    256. 

  256. 		<td><input type="button" value="Save" onClick="Save();" <%=((count==0)?"DISABLED":"")%> class="btnstyle"></td>
    257. 

  257. 		<td><input type="reset" value="Undo Changes" class="btnstyle"></td>
    258. 

  258. 		<td><input type="button" value="Close" onClick="window.location.href='m001q0603.asp?<%=Request.QueryString%>';" class="btnstyle"></td>
    259. 

  259.     </tr>
    260. 

  260. </table>
    261. 

  261. <input type="hidden" name="MM_update" value="true">
    262. 

  262. <input type="hidden" name="GrantPeriod" value="">
    263. 

  263. </form>
    264. 

  264. </body>
    265. 

  265. </html>
    266. 

  266. <%
    267. 

  267. rsGrantPeriod.Close();
    268. 

  268. rsGrantEligibility.Close();
    269. 

  269. rsReferralDate.Close();
    270. 

  270. %>
    271.