<cfcomponent displayname="VBP Functions" hint="I Return VBP Information" output="false">

	<cfset client.Loc_ID = 0 />
	
   <cffunction name="init" displayname="Initialize Component" access="public" returntype="VBP" hint="I initialize and return the VBP object.">
		<cfreturn this>
	</cffunction>
  
   	<cffunction name="VBPupdate"  access="remote" output="Yes"  returnformat="plain" returntype="string">   
		 <cfargument name="Assmt_ID" required="yes" default="0">
		 <cfargument name="description" required="yes" default="0">
		 <cfargument name="columnname" required="yes" default="0">
		 <cfif arguments.Assmt_ID  neq 0 AND arguments.columnname NEQ ''>
		 	<cfquery name = "Update_OASIS" datasource="#Application.DataSrc#">
				UPDATE  #Request.prefix_db_agency#.pAssessments 
				     SET #arguments.columnname# = <cfqueryparam cfsqltype="cf_sql_varchar" value="#arguments.description#">
				 WHERE Assmt_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#arguments.Assmt_ID#">
				 AND status = 0
			</cfquery>
 		 	<cfset insert_action="Success" />
 		 <cfelse>	
			<cfset insert_action="failure" />												
		</cfif>	
		<cfreturn insert_action />		
    </cffunction>


    <cffunction name="checkpatientVBP"  access="remote" output="Yes"  returnformat="plain" returntype="string">   
		 <cfargument name="Assmt_ID" required="yes" default="0">

		 <cfif arguments.Assmt_ID  neq 0>
		 	<cfquery name = "getOASIS" datasource="#Application.DataSrc#">
				SELECT *,
					CASE   WHEN LEFT(F26,1) = '4' THEN  IFNULL(LEFT(F40,1),0)  
						ELSE   	IFNULL(LEFT(F34,1),0)
					END AS  M1700,
		            CASE   WHEN (F26 = '1 - Start of care - further visits planned - Physical Therapy' OR LEFT(F26,1) = '4')
		               		  THEN  IFNULL(LEFT(F72,1),0)  
						ELSE   	IFNULL(LEFT(F73,1),0)
					END AS  M2102d  
					 FROM #Request.prefix_db_agency#.pAssessments
					WHERE   Status = 0
					AND Assmt_ID = <cfqueryparam cfsqltype="cf_sql_integer" value="#arguments.Assmt_ID#">
					AND (F26 like '1%' OR  F26 like '4%')
					ORDER BY F26 DESC,F176 DESC;
			</cfquery>

		 	<cfquery  name="getsocVBP" datasource="#Application.DataSrc#">
				SELECT  * FROM   #Request.prefix_db_lookup#.VBP_Analysis3 
				WHERE  LEFT(SOC_M1700,1)   =  <cfqueryparam cfsqltype="cf_sql_varchar" value="#getOASIS.M1700#">
				AND   LEFT(SOC_M2102D,1)  = <cfqueryparam cfsqltype="cf_sql_varchar" value="#getOASIS.M2102d#">
			</cfquery>

 		 	<cfset insert_action= getsocVBP.V_or_M />
 		 <cfelse>	
			<cfset insert_action="failure" />												
		</cfif>	
		<cfreturn insert_action />		
    </cffunction>


</cfcomponent>