m001a1201.asp | searchcode

/AC/m001a1201.asp

http://github.com/boss2009/ASP-site
ASP | 229 lines | 220 code | 9 blank | 0 comment | 17 complexity | 316294548f28374ad76bfd03570a62b0 MD5 | raw file

<%@language="JAVASCRIPT"%>
<!--#include file="../inc/ASPUtility.inc" -->
<!--#include file="../Connections/cnnASP02.asp" -->
<!--#include file="../inc/ASPCheckLogin.inc" -->
<%
var MM_editAction = Request.ServerVariables("URL");
if (Request.QueryString) {
  MM_editAction += "?" + Request.QueryString;
}

if (String(Request("MM_insert")) == "true") {
	var Year = ((Request.Form("Year")!="")?Request.Form("Year"):0);
	var Cycle = ((Request.Form("Cycle")!="")?Request.Form("Cycle"):0);	
	var Notes = String(Request.Form("ServiceNotes")).replace(/'/g, "''");
	var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
	rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
	rsServiceRequested.Source = "{call dbo.cp_ac_srv_note("+Request.QueryString("intAdult_id")+",0,'"+Request.Form("ServiceDate")+"',"+Year+","+Cycle+","+Request.Form("ServiceProvider")+",'"+Notes+"','"+Request.Form("ServiceRequestHexCode")+"',0,'A',0)}";
	rsServiceRequested.CursorType = 0;
	rsServiceRequested.CursorLocation = 2;
	rsServiceRequested.LockType = 3;
	rsServiceRequested.Open();
	Response.Redirect("InsertSuccessful.html");
}	

var rsServiceRequestedType = Server.CreateObject("ADODB.Recordset");
rsServiceRequestedType.ActiveConnection = MM_cnnASP02_STRING;
rsServiceRequestedType.Source = "{call dbo.cp_service_type(0,0,1,2)}";
rsServiceRequestedType.CursorType = 0;
rsServiceRequestedType.CursorLocation = 2;
rsServiceRequestedType.LockType = 3;
rsServiceRequestedType.Open();

var rsFundingSource = Server.CreateObject("ADODB.Recordset");
rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;
rsFundingSource.Source = "{call dbo.cp_funding_source_attributes(0,0,0,0,1,0,0,0,2,'Q',0)}";
rsFundingSource.CursorType = 0;
rsFundingSource.CursorLocation = 2;
rsFundingSource.LockType = 3;
rsFundingSource.Open();

var rsStaff = Server.CreateObject("ADODB.Recordset");
rsStaff.ActiveConnection = MM_cnnASP02_STRING;
rsStaff.Source = "{call dbo.cp_ASP_lkup(10)}";
rsStaff.CursorType = 0;
rsStaff.CursorLocation = 2;
rsStaff.LockType = 3;
rsStaff.Open();
%>
<html>
<head>
	<title>New Service Requested</title>
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<link rel="stylesheet" href="../css/MyStyle.css" type="text/css">
	<script language="Javascript" src="../js/MyFunctions.js"></script>
	<script for="document" event="onkeyup()" language="JavaScript">
	if (window.event.ctrlKey) {
		switch (window.event.keyCode) {
			case 83 :
				//alert("S");
				Save();
			break;
		   	case 76 :
				//alert("L");
				window.close();
			break;
		}
	}	
	</script>	
	<script language="Javascript">	
	var count = 1;	
	function Save(){
		if (!CheckDate(document.frm1201.ServiceDate.value)){
			alert("Invalid Service Date.");
			document.frm1201.ServiceDate.focus();
			return ;
		}
		
		if (count < 1){
			alert("Select Service Type.");
			document.frm1201.ServiceType[0].focus();
			return ;
		}
		
		var temp = "";
		for (var i=0; i < count; i++){
			temp = temp + PadDecToHex(document.frm1201.ServiceType[i].value) + PadDecToHex(document.frm1201.FundingSource[i].value);
		}
		var zero = 40 - temp.length;
		for (var j = 0; j < zero; j++){
			temp = temp + String("0");
		}
		document.frm1201.ServiceRequestHexCode.value=temp;
//		alert(count);
//		alert(temp);
		document.frm1201.submit();
	}
	
	function AddService(){
		document.frm1201.ServiceType[count].style.visibility = "visible";
		//document.frm1201.FundingSource[count].style.visibility = "visible";
		count++;
		document.frm1201.Remove.disabled = false;			
		if (count == 10) document.frm1201.Add.disabled = true;
	}
	
	function RemoveService(){
		count--;	
		document.frm1201.ServiceType[count].style.visibility = "hidden";
		document.frm1201.FundingSource[count].style.visibility = "hidden";
		document.frm1201.Add.disabled = false;
		if (count == 1) document.frm1201.Remove.disabled = true;
	}
	
	function Init(){
		document.frm1201.ServiceType[count-1].style.visibility = "visible";
//		document.frm1201.FundingSource[count].style.visibility = "visible";
		document.frm1201.Remove.disabled = true;
		document.frm1201.ServiceDate.focus();
	}
	</script>
</head>
<body onLoad="Init();" >
<form action="<%=MM_editAction%>" method="POST" name="frm1201">
<h5>New Service Requested</h5>
<hr>
<table cellpadding="1" cellspacing="1">
    <tr> 
		<td nowrap>Service Date:</td>
		<td nowrap>
			<input type="textbox" name="ServiceDate" value="<%=CurrentDate()%>" accesskey="F" tabindex="1" size="11" maxlength="10" onChange="FormatDate(this)">
			<span style="font-size: 7pt">(mm/dd/yyyy)</span>
		</td>
	</tr>
	<tr>
		<td nowrap>Service Provider:</td>
		<td nowrap><select name="ServiceProvider" tabindex="2">
			<%
			while (!rsStaff.EOF) {
			%>
				<option value="<%=rsStaff.Fields.Item("insStaff_id").Value%>" <%=((Session("insStaff_id")==rsStaff.Fields.Item("insStaff_id").Value)?"SELECTED":"")%>><%=rsStaff.Fields.Item("chvName").Value%>
			<%
				rsStaff.MoveNext();
			}
			rsStaff.MoveFirst();
			%>		
		</select></td>
	</tr>
	<tr>
		<td nowrap>Year/Cycle:</td>
		<td nowrap>
			<input type="textbox" name="Year" value="<%=CurrentYear()%>" size="4" maxlength="4" tabindex="3" onKeypress="AllowNumericOnly();">
			<input type="textbox" name="Cycle" value="<%=ZeroPadFormat(CurrentMonth(),2)%>" size="2" maxlength="2" tabindex="4" onKeypress="AllowNumericOnly();">
		</td>
	</tr>
    <tr>
		<td nowrap valign="top">Service Notes:</td>
		<td nowrap valign="top"><textarea name="ServiceNotes" rows="8" cols="68" tabindex="5" accesskey="L"></textarea></td>
    </tr>
	<tr>
		<td valign="top">Service Received:</td>
		<td valign="top">
        <div class="BrowsePanel" style="width: 362px; height: 139px"> 
          <table cellpadding="1" cellspacing="1" border="0">
            <tr> 
              <td>Service Type</td>
			  <td></td>
<!--              <td>Funding Source</td>-->
            </tr>
            <%
				for (var i=5; i< 25; i=i+2){
				%>
            <tr> 
              <td nowrap> 
                <select name="ServiceType" tabindex="<%=i%>" style="width: 180px; visibility='hidden'">
                  <%
					while (!rsServiceRequestedType.EOF) {
					%>
                  <option value="<%=rsServiceRequestedType.Fields.Item("insService_type_id").Value%>"><%=rsServiceRequestedType.Fields.Item("chvname").Value%> 
                  <%
						rsServiceRequestedType.MoveNext();							
					}
					rsServiceRequestedType.MoveFirst();						
					%>
                </select>
              </td>
              <td nowrap> 
                <select name="FundingSource" tabindex="<%=i+1%>" style="width: 150px; visibility='hidden'">
                  <%
					while (!rsFundingSource.EOF) {
					%>
                  <option value="<%=rsFundingSource.Fields.Item("insFunding_source_id").Value%>"><%=rsFundingSource.Fields.Item("chvfunding_source_name").Value%> 
                  <%
						rsFundingSource.MoveNext();
					}
					rsFundingSource.MoveFirst();												
					%>
                </select>
              </td>
            </tr>
            <%
				}
				%>
          </table>
        </div>
      </td>
	</tr>
</table>
<div style="position: absolute; top: 385px">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="button" name="Add" value="Add Service" onClick="AddService();" tabindex="26" class="btnstyle">
<input type="button" name="Remove" value="Remove Service" onClick="RemoveService();" tabindex="27" class="btnstyle">
<hr>
<table cellpadding="1" cellspacing="1">
	<tr>
		<td><input type="button" value="Save" onClick="Save();" tabindex="28" class="btnstyle"></td>
		<td><input type="button" value="Close" onClick="window.close();" tabindex="29" class="btnstyle"></td>
    </tr>
</table>
</div>
<input type="hidden" name="MM_insert" value="true">
<input type="hidden" name="ServiceRequestHexCode">
</form>
</body>
</html>
<%
rsFundingSource.Close();
rsServiceRequestedType.Close();
%>