<!---addorder_action.cfm --->

<cfdump var= "#FORM#">

<cfset Progress_IDs = '' />
<cfloop list = "#FORM.comunstablesymptom#" index="item" >
		<cfset datalist=ListToArray(item,"~",false,true) />
		<cfset Descriptions = datalist[1] />
		<cfset Descriptions = reReplace(Descriptions, "^", ",", "ALL") />
		<cfset Progress_IDs = #ListAppend(Progress_IDs,datalist[2])# />

</cfloop>
<cfif len(Progress_IDs) GT 0 >
		<cfquery name="getcommsubject" datasource="#Application.DataSrc#">
			  SELECT  * FROM #Request.prefix_db_agency#.CommunicationSubjects
			  WHERE Subject like '%no treatment%'
		</cfquery>
		<cfif getcommsubject.recordCount gt 0 >
			<cfset CommSub_ID =  #getcommsubject.CommSub_ID#/>
		<cfelse>
				<cfquery name="insertsubject" datasource="#Application.DataSrc#">
					  INSERT INTO #Request.prefix_db_agency#.CommunicationSubjects
					  ( Agency_ID, Subject, Created_By, Created_Date, Mod_By, Mod_Date, active)
					  Values
					  (#session.agencyid#,'no treatment',#session.employeeid# , #now()#, #session.employeeid#,#now()#,'Y' )
				</cfquery>
			    <cfquery datasource="#Application.DataSrc#" name="Last_sub_ID">
				 	<cfsetting requesttimeout="5000">
				  SELECT LAST_INSERT_ID() as LastInsertID
				</cfquery>
				<cfset CommSub_ID =  #Last_sub_ID.LastInsertID#/>
		</cfif>
		<cfquery  name="Getprogress"  datasource="#Application.DataSrc#">
       		SELECT pProgress.*,pSchedules.Skill FROM  #Request.prefix_db_agency#.pProgress 
       		JOIN #Request.prefix_db_agency#.pSchedules ON  pSchedules.Schedule_ID = pProgress.Schedule_ID AND pSchedules.Status = 0
       		WHERE pProgress.Progress_ID IN (<cfqueryparam value = "#Progress_IDs#" CFSQLType ="CF_SQL_INTEGER" list="yes">)
       		AND pProgress.Status = 0
		</cfquery>

 		<cflocation url="/agencyadmin/index.cfm?page=agency&cat=Communication&rpt=communication_form&ID=0&patient_id=#FORM.comPatient_ID#&CommSub_Id=#CommSub_ID#&res=No&followup_action=physician%20notified&redirectpage=unstablesymptoms&Schedule_ID=#Getprogress.Schedule_ID#&Progress_ID=#Progress_IDs#"
 		addtoken ="no">
</cfif>

<cfabort>
<cfloop list = "#FORM.comunstablesymptom#" index="item">
		<cfset datalist=ListToArray(item,"~",false,true) />
		<cfset Descriptions = datalist[1] />
		<cfset LOCAL.Progress_ID = datalist[2] />
		<cfquery  name="Getprogress"  datasource="#Application.DataSrc#">
       		SELECT pProgress.*,pSchedules.Skill FROM  #Request.prefix_db_agency#.pProgress 
       		JOIN #Request.prefix_db_agency#.pSchedules ON  pSchedules.Schedule_ID = pProgress.Schedule_ID AND pSchedules.Status = 0
       		WHERE pProgress.Progress_ID =  <cfqueryparam value = "#LOCAL.Progress_ID#" CFSQLType ="CF_SQL_INTEGER">
       		AND pProgress.Status = 0
		</cfquery>
		<cfif Getprogress.recordcount gt 0 >
					<cfparam name="toEmail" default="" />
					<cfquery name="getcommsubject" datasource="#Application.DataSrc#">
						  SELECT  * FROM #Request.prefix_db_agency#.CommunicationSubjects
						  WHERE Subject like '%no treatment%'
					</cfquery>
					<cfif getcommsubject.recordCount gt 0 >
						<cfset CommSub_ID =  #getcommsubject.CommSub_ID#/>
					<cfelse>
							<cfquery name="insertsubject" datasource="#Application.DataSrc#">
								  INSERT INTO #Request.prefix_db_agency#.CommunicationSubjects
								  ( Agency_ID, Subject, Created_By, Created_Date, Mod_By, Mod_Date, active)
								  Values
								  (#session.agencyid#,'no treatment',#session.employeeid# , #now()#, #session.employeeid#,#now()#,'Y' )
							</cfquery>
						    <cfquery datasource="#Application.DataSrc#" name="Last_sub_ID">
							 	<cfsetting requesttimeout="5000">
							  SELECT LAST_INSERT_ID() as LastInsertID
							</cfquery>
							<cfset CommSub_ID =  #Last_sub_ID.LastInsertID#/>
					</cfif>

				   <cfquery name="Comm" datasource="#Application.DataSrc#">
						    INSERT INTO #Request.prefix_db_agency#.Communication (
						      CommSub_ID,
						      Patient_ID,
						      Employee_ID,
						      Schedule_ID,
						      Comm_Date,
						      Memo,
						      Resolved,
						      Agency_ID,
						      Followup_desc,
						      Followup_memo,
						      Record_Creation_Date,
						      Record_Created_By,
						      Record_Mod_Date,
						      Record_Mod_By
						    ) VALUES (
						      '#CommSub_Id#',
						      '#Trim(Getprogress.Patient_Id)#',
						      #session.employeeid#,
						      #Getprogress.Schedule_ID#,
						      #CreateODBCDate(now())#,
						      <cfqueryparam value="#Trim(Memo)#"  cfsqltype="CF_SQL_LONGNVARCHAR">,
						      'No',
						      #session.AgencyID#,
						      <cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
						      <cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
						       #now()#, #session.employeeid#,  #now()#, #session.employeeid# 
						   )
				   </cfquery>
				    <cfset id = 0 />
				    <cfquery name='getId' datasource='#Application.DataSrc#'>
				      Select LAST_INSERT_ID() AS id
				   </cfquery>
				   <cfset id = getId.id />
				   <cfset form.comm_id = id />
				   <!--- <cfif LOCAL.Progress_ID NEQ '0'>
				       <cfquery name="Comm" datasource="#Application.DataSrc#">
				            UPDATE #Request.prefix_db_agency#.pProgress SET
				            Comm_ID = '#Trim(form.comm_id)#'
				            WHERE Progress_ID  = #LOCAL.Progress_ID#
				            AND Status =0 
				        </cfquery>
				    </cfif> --->
				   <cfloop list="#LOCAL.Progress_ID#" index="progressId">
				      <cfquery name="Comm" datasource="#Application.DataSrc#">
				        INSERT INTO #Request.prefix_db_agency#.Comm_Progress
				         (Comm_ID, Progress_ID, Status, Date_Created, Created_by, Date_Change, Change_by )
				        values
				         (
				         <cfqueryparam VALUE="#form.comm_id#"  cfsqltype="cf_sql_integer" >,
				         <cfqueryparam VALUE="#progressId#"  cfsqltype="cf_sql_integer" >,
				         <cfqueryparam VALUE="0"  cfsqltype="cf_sql_integer" >,
				         <cfqueryparam VALUE="#now()#"  cfsqltype="cf_sql_timestamp">,
				         <cfqueryparam VALUE="#session.employeeid#"  cfsqltype="cf_sql_integer">,
				         <cfqueryparam VALUE="#now()#"  cfsqltype="cf_sql_timestamp">,
				         <cfqueryparam VALUE="#session.employeeid#"  cfsqltype="cf_sql_integer">
				         )
				      </cfquery>
				   </cfloop>
				   <cfset q = #ListLen(form.employee_id, ",")# />
				   <cfset a = #ListToArray(form.employee_id, ",")# />
				   <cfloop index="i" from="1" to="#q#" step="1">
					   <cfquery name='commInsert' datasource='#Application.DataSrc#'>
						    INSERT INTO #Request.prefix_db_agency#.communication_to (
						       comm_id, employee_id
						    ) VALUES (
						      '#id#', '#a[i]#'
						    )
					   </cfquery>
 					</cfloop> 

  					<cfset ReplyTo = "info@MyHomeCareBiz.com" />
				    <cfquery name='GetReplyTo' datasource='#Application.DataSrc#'>
					    SELECT e.Emp_Email AS email, e.Emp_First AS first_name, e.Emp_Last AS last_name
					    FROM   #Request.prefix_db_agency#.Communication c, #Request.prefix_db_lookup#.pEmployee e
					    WHERE  c.comm_id = '#id#'
					    AND    e.Emp_ID = c.Record_Created_By
				    </cfquery>
					<cfset postedBy = GetReplyTo.first_name & " " & GetReplyTo.last_name />
				  	<cfif GetReplyTo.recordcount eq 1 and GetReplyTo.email neq ''>
				   		<cfset ReplyTo = GetReplyTo.email />
				  	</cfif>
					<cfquery name='Getemployee' datasource='#Application.DataSrc#'>
					    	SELECT * FROM  #Request.prefix_db_lookup#.pEmployee WHERE Emp_ID =  '#Session.EmployeeID#'
					</cfquery>

					<cfif Getemployee.communication_email EQ 1 OR Session.IsAgencyLogin EQ 1 >
						 <cfif toEmail neq ''>
						    <cfset valid = REFind("^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$", 
						Trim(#toText#), 1) gt 0 />
						       <cfmail to = "#toEmail#"
						             from = "info@myhomecarebiz.com"  
						             replyto = "#ReplyTo#"
						          subject = "MyHomeCareBiz.com New Communication..."
						             type = "html">
						            <br><br>
						            A New Communication has been Assigned to You at MyHomeCareBiz.com by #postedBy#.
						            <br><br>
						            Please <a href='https://secure.myhomecarebiz.com/agencyadmin/comm.cfm?cid=#id#'>click here</a> to View the New Communication.
						            <br><br>
						            <br><br>
						            <i>
						            This is an automated system notification from MyHomeCareBiz.com. Therefore, there is no Unsubscribe option.
						            </i>
						            <br><br><br><br><br><br>
						      </cfmail>
						  </cfif>
  <cfif toText neq ''>
  <cfset valid = REFind("^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$", 
Trim(#toText#), 1) gt 0 />
   <cfif valid EQ 'YES'>
       <cfmail to = "#toText#"
             from = "info@myhomecarebiz.com"  cc="velmurugan@myhomecarebiz.com"
             replyto = "#ReplyTo#"
          subject = "MyHomeCareBiz.com New Communication..."
             type = "text">
            A New Communication has been Assigned to You at MyHomeCareBiz.com by #postedBy#. Please <a href='https://secure.myhomecarebiz.com/agencyadmin/comm.cfm?cid=#id#'>click here</a> to View the New Communication.
      </cfmail>
   </cfif>
  </cfif>
  </cfif>


			<cfquery  name="getcare" datasource="#Application.DataSrc#">
				SELECT IFNULL(MAX(Careplan_ID),0)+1 As pCareplan_ID FROM #Request.prefix_db_agency#.pCareplan 
			</cfquery>
			<cfset pCareplan_ID =  #getcare.pCareplan_ID# />
			<cfquery  name="InsertCareplans"  datasource="#Application.DataSrc#">
				INSERT INTO #Request.prefix_db_agency#.pCareplan 
				 (  Careplan_ID, Assmt_ID, Item_ID, Order_ID, CMSOrder_ID, Status,
				    Skill, Type,Description,  <!--- Notes, Param_Lo, Param_Hi, Param_Other, Specifics,
				   Date_Target, Order_Date,---> Date_Resolve, Date_Create, Created_by, Date_Change, Change_by )
				VALUES
				( 
				 	<cfqueryparam value = "#pCareplan_ID#" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value = "#Getprogress.Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value = "#Getprogress.Item_ID#" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value = "0" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value = "0" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value ="0"  cfsqltype="CF_SQL_INTEGER">,
					<cfqueryparam value="#Getprogress.Skill#"  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value="#FORM.symptomtype#"  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value="#Getprogress.Description#"  cfsqltype="cf_sql_varchar">,
					<!---<cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value=""  cfsqltype="cf_sql_varchar">,
					<cfqueryparam value="" cfsqltype="cf_sql_date">,						
					<cfqueryparam value="" cfsqltype="cf_sql_date">, --->
					<cfqueryparam value="#DateFormat(now(),'mm/dd/yyyy')#" cfsqltype="cf_sql_date">,
					<cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
					<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
					<cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
					<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">
				)
			</cfquery>
			<cfquery  name="updatepProgress" datasource="#Application.DataSrc#">
			    UPDATE #Request.prefix_db_agency#.pProgress SET 
			    	Careplan_ID = <cfqueryparam value="#pCareplan_ID#"  cfsqltype="CF_SQL_INTEGER">,
			 	Date_Change = <cfqueryparam value="#now()#" cfsqltype="cf_sql_timestamp">,
				Change_by	= <cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER"> 
				WHERE Progress_ID =  <cfqueryparam CFSQLType="CF_SQL_INTEGER" value="#Getprogress.Progress_ID#"  >
				AND Status = 0
			</cfquery>







		</cfif>
</cfloop>