	<!--- Start Insertion of pOASIS_QA1  --->
		<cfif questions_ids neq '' and len(questions_ids) gt 0>
		        <cfset oasislist=ArrayNew(2) />
			    <cfset oasislist=ListToArray(questions_ids,"~",false,true) />
			    <cfset messages = "" />
			    <cfloop from="1" to="#ArrayLen(oasislist)#" index="k" step="2">
			    	<cfif ArrayIsDefined(oasislist,k+1)>
						<cfset ques_id = #oasislist[k]# />
						<cfset answerdescription = #oasislist[k+1]# />

					    <cfquery  name="getoasis_qa" datasource="#Application.DataSrc#">
				           SELECT * FROM #Request.prefix_db_lookup#.OASIS_QA_New 
				           WHERE question_id = <cfqueryparam value="#ques_id#" cfsqltype="cf_sql_integer">
				           AND  answer = <cfqueryparam value="#Trim(answerdescription)#" cfsqltype="cf_sql_varchar">
				        </cfquery>
				        <cfif getoasis_qa.recordcount gt 0 >
				        	<cfquery  name="deletepOASIS_QA" datasource="#Application.DataSrc#">
						        DELETE FROM #Request.prefix_db_agency#.pOASIS_QA
						        WHERE Assmt_ID = <cfqueryparam value="#Assmt_ID#" cfsqltype="cf_sql_integer">
						        AND QA_Type = 'OASIS'
						    </cfquery>

						    <cfloop from="1" to="#ArrayLen(oasislist)#" index="m" step="2">
						    	<cfif ArrayIsDefined(oasislist,m+1)>
								<cfset question_idCB = #oasislist[m]# />
								<cfset answerCB = #oasislist[m+1]# />
						      	<cfquery  name="suboasis_qa" dbtype="query">
						           SELECT * FROM   getoasis_qa
						           WHERE question_idCB = <cfqueryparam value="#question_idCB#" cfsqltype="cf_sql_integer">
						           AND  answerCB = <cfqueryparam value="#Trim(answerCB)#" cfsqltype="cf_sql_varchar">
						        </cfquery>
						        <cfif suboasis_qa.recordcount gt 0 >
						            <cfset messages =  #suboasis_qa.answer_labelCB# & " should be <b> " & #suboasis_qa.answerCT#  & " </b>. Because the question "  & #getoasis_qa.answer_label# &  " answer is " &  #getoasis_qa.answer# & "<br>"/>
						       		<cfquery  name="pOASIS_QA_insert" datasource="#Application.DataSrc#">
										INSERT INTO #Request.prefix_db_agency#.pOASIS_QA
										(
											Assmt_ID, Emp_ID, Approved,Resolved, QA_Type, Questions_label, Message
										) 
										VALUES
										(							
											<cfqueryparam value = "#Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">,
											<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
											<cfqueryparam value = "0" CFSQLType ="CF_SQL_INTEGER">,
											<cfqueryparam value = "2" CFSQLType ="CF_SQL_INTEGER">,
											<cfqueryparam value="OASIS"  cfsqltype="cf_sql_varchar">,
											<cfqueryparam value="#suboasis_qa.answer_label#"  cfsqltype="cf_sql_varchar">,
											<cfqueryparam value="#messages#"  cfsqltype="cf_sql_varchar">	
										)
									</cfquery>
						        </cfif>
						        </cfif>
						     </cfloop>
					    </cfif>
				    </cfif>
				</cfloop>
		</cfif>
			<!---<cfset Evaluate('SESSION.alertmessages#form.assid# = "#messages#"')>
	 <cfset session.alertmessages = messages /> --->

 	<!--- End Insertion of pOASIS_QA1  --->

	<!--- Start Insertion  pOASIS_QA  --->
	    <cfif total_wizard EQ wizard>

	       <!--- Start Insertion of DX items  into pOASIS_QA  --->
	        <cfquery  name="getprobls" datasource="#Application.DataSrc#">
			     SELECT pProblem.*,assessment_questions_lookup.questions_label FROM #Request.prefix_db_agency#.pProblem
			     LEFT OUTER JOIN #Request.prefix_db_lookup#.#Request.assessment_questions_lookup# assessment_questions_lookup  ON  assessment_questions_lookup.ques_id = pProblem.ques_id
				WHERE pProblem.Assmt_ID  = <cfqueryparam value = "#Assmt_ID#" CFSQLType ="cf_sql_integer">
				AND pProblem.status = <cfqueryparam value="0"  cfsqltype="CF_SQL_INTEGER">
				AND M0_No like 'OASIS%'
				GROUP BY Problem_ID 
				ORDER BY AutoProblem_ID ASC
			</cfquery>
			<cfquery  name="pOASIS_QA_delete" datasource="#Application.DataSrc#">
				DELETE FROM  #Request.prefix_db_agency#.pOASIS_QA 
				WHERE Assmt_ID = <cfqueryparam value = "#Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">
				AND QA_Type = <cfqueryparam value="DX"  cfsqltype="cf_sql_varchar">
			</cfquery>
			<cfloop query ="getprobls">
				<cfset Message = 'OASIS Item without related diagnosis. This OASIS item has been added to the Careplan' />
				<cfquery  name="pOASIS_QA_insert" datasource="#Application.DataSrc#">
					INSERT INTO #Request.prefix_db_agency#.pOASIS_QA
					(
						 Assmt_ID, Emp_ID, QA_Type, Questions_label, Message
					) 
					VALUES
					(							
						<cfqueryparam value = "#Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">,
						<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
						<cfqueryparam value="DX"  cfsqltype="cf_sql_varchar">,
						<cfqueryparam value="#questions_label#"  cfsqltype="cf_sql_varchar">,
						<cfqueryparam value="#Message#"  cfsqltype="cf_sql_varchar">	
					)
				</cfquery>
			</cfloop>
			<!--- End Insertion of DX into pOASIS_QA  --->


			<!--- Start Insertion of Medication items  into pOASIS_QA  --->
			<cfquery  name="getmeds" datasource="#Application.DataSrc#">
				 SELECT  * FROM #Request.prefix_db_agency#.pPtmeds
				  left outer join #Request.prefix_db_lookup#.Meds_New 
				  ON  pPtmeds.Drug_ID = Meds_New.Trade_ID
				  WHERE  pPtmeds.Patient_ID = <cfqueryparam value = "#Patient_ID#" CFSQLType ="CF_SQL_INTEGER">				 
				  AND 	pPtmeds.status < 1
				  GROUP BY PtMeds_ID 
				  ORDER BY pPtmeds.status ASC
			</cfquery>

			<cfquery  name="getspathway" datasource="#Application.DataSrc#">
			    SELECT * FROM #Request.prefix_db_lookup#.meds_pathway_lookup
				WHERE Path_ID  IN ( SELECT Path_ID FROM #Request.prefix_db_agency#.pProblem
				WHERE Assmt_ID  = <cfqueryparam value = "#Assmt_ID#" CFSQLType ="cf_sql_integer">
				AND status = <cfqueryparam value="0"  cfsqltype="CF_SQL_INTEGER">
				GROUP BY Problem_ID 
				ORDER BY AutoProblem_ID ASC)
			</cfquery>
			<cfset valueListTradeNum = ValueList(getspathway.Trade_Num) />

			<cfquery  name="pOASIS_QA_delete" datasource="#Application.DataSrc#">
				DELETE FROM  #Request.prefix_db_agency#.pOASIS_QA 
				WHERE Assmt_ID = <cfqueryparam value = "#Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">
				AND QA_Type = <cfqueryparam value="medication"  cfsqltype="cf_sql_varchar">
			</cfquery>

			<cfloop query ="getmeds">
			    <cfif  ListFindNoCase(valueListTradeNum,Trade_Num) EQ 0>
					<cfset QA_Type = "medication" />
					<cfset questions_label =  #getmeds.Drug_Name# />
					<cfset Message = "Medication but no related diagnosis or problem" />
					<cfquery  name="pOASIS_QA_insert" datasource="#Application.DataSrc#">
						INSERT INTO #Request.prefix_db_agency#.pOASIS_QA
						(
							 Assmt_ID, Emp_ID, QA_Type, Questions_label, Message
						) 
						VALUES
						(							
							<cfqueryparam value = "#Assmt_ID#" CFSQLType ="CF_SQL_INTEGER">,
							<cfqueryparam value = "#session.employeeid#" CFSQLType ="CF_SQL_INTEGER">,
							<cfqueryparam value="#QA_Type#"  cfsqltype="cf_sql_varchar">,
							<cfqueryparam value="#questions_label#"  cfsqltype="cf_sql_varchar">,
							<cfqueryparam value="#Message#"  cfsqltype="cf_sql_varchar">	
						)
					</cfquery>
				</cfif>
			</cfloop>
			<!--- End Insertion of Medication items  into pOASIS_QA  --->		

		</cfif>
 	<!--- End Insertion of pOASIS_QA  --->

