maintenance:

	title:  Patient Profile Assessments;;
	mlmname:  DOC_Patient_Profile;;
	arden: version 5.0;;
	version:  2.00;;
	institution:  St.Clair Hospital;;
	author:  Teresa Spicuzza;;
	specialist:  ;;
	date:  2010-02-03;;
	validation:  testing;;

library:
	purpose:  
	;;
	explanation: 


    Change history 
    
	09.09.2010   TS   Copied from DOC_MD_PROGRESSNOTE
	09.07.2011   JL	  Added call to DOC_FUNC_PT_CONSULT_FROM_ADM_OBS
    02.09.2012   DW   CSR# 26945 Added call to DOC_FUNC_ADVANCE_DIRECTIVE
	03.06.2012   JL   Removed call to DOC_FUNC_PT_CONSULT_FROM_ADM_OBS due to issues noted with solution by Deb Rudar.
    11.15.2012   DW   CSR# 30902 POLST
	07.19.2013   DW   CSR# 31450 Free Text Meds
	12.-8.2015	 GOS  CSR#33338- CHF Pharmacy Insuranse MLM
	05.23.2016   DJW  CSR#34250 PAWSS 
    08.22.2016   DJW  CSR# 34849 Patient Header Visit Count Readmission Monitoring
	10.25.2017 	 SA   CSR# 36043 Added call to MLM DOC_SCH_CREATE_CARE_TRANSITION_CONSULT
 	10.30.2017   DW   CSR# 36030 Elder Risk (renamed Risk Category then renamed Readmission Risk) 
    07.25.2018   DW   CSR# 36510 Harm to Self or Others - Changes required for inpatient processes
	09.23.2019	 JML  CSR# 38601/38606 - Display alert on Doc close for Adult Patient Profile - BH Outpatient
							when user answers {{{SINGLE-QUOTE}}}Yes{{{SINGLE-QUOTE}}} to questions under Nutrition / Abuse sections


	;;
	keywords:
	;;
knowledge:
	type: data-driven;;
	data:
		// Recieve arguments from the structured note
		(thisDocumentCommunication) := argument;
		DocInfluenza := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_INFLUENZA{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocInfluenza WITH thisDocumentCommunication;
//		
		(thisDocumentCommunication) := argument;
		DocPneumovax := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_PNEUMOVAX{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocPneumovax WITH thisDocumentCommunication;
//		
    	(thisDocumentCommunication) := argument;
		DocDiabetesRisk := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_DIABETESRISK{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocDiabetesRisk WITH thisDocumentCommunication;
//		
    	(thisDocumentCommunication) := argument;
		DocMRSAScreen := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_MRSA_Screen{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocMRSAScreen WITH thisDocumentCommunication;
//
		(thisDocumentCommunication) := argument;
		DocDTAP := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_ADVANCE_DIRECTIVE{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocDTAP WITH thisDocumentCommunication;	

		(thisDocumentCommunication) := argument;
		DocDTAP := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_POLST{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocDTAP WITH thisDocumentCommunication;	

		(thisDocumentCommunication) := argument;
		DocDTAP := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_TDAP{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocDTAP WITH thisDocumentCommunication;

		//(thisDocumentCommunication) := argument;
		//DocDTAP := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_FREE_TEXT_MEDS{{{SINGLE-QUOTE}}};
		//thisDocumentCommunication := CALL DocDTAP WITH thisDocumentCommunication;

		// Added By Shivprasad On 08 Dec 2015 for CSR#33338- CHF Pharmacy Insuranse MLM
		(thisDocumentCommunication) := argument;
		DocCHF := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_ACUTE_CHF_CRITERIA{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocCHF WITH thisDocumentCommunication;

		(thisDocumentCommunication) := argument;
		DocPAWSS := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_PAWSS{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocPAWSS WITH thisDocumentCommunication;

		(thisDocumentCommunication) := argument;
		DocPatientHeaderVisitCount := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_PATIENT_HEADER_VISIT_COUNT{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL DocPatientHeaderVisitCount WITH thisDocumentCommunication;

		CareTransitionConsultOrder := MLM {{{SINGLE-QUOTE}}}DOC_SCH_CREATE_CARE_TRANSITION_CONSULT{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL CareTransitionConsultOrder WITH thisDocumentCommunication;

		//Call MLM to create calculate Risk Category
		RiskCategory := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_RISK_CATEGORY{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL RiskCategory WITH thisDocumentCommunication;

		(thisDocumentCommunication) := argument;
		Suicideorviolent := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_SUICIDAL_OR_VIOLENT{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL Suicideorviolent WITH thisDocumentCommunication;

		(thisDocumentCommunication) := argument;
		BHAlerts := MLM {{{SINGLE-QUOTE}}}DOC_FUNC_BEHAVIORAL_HEALTH_OUTPATIENT_ALERTS{{{SINGLE-QUOTE}}};
		thisDocumentCommunication := CALL BHAlerts WITH thisDocumentCommunication;

	;;
	evoke:  
	;;
	logic:  conclude true;
	;;
	action:  return thisDocumentCommunication;
	;;
Urgency: 50;;
end: