Files
St.Clair/MLMStripper/bin/Debug/DOC/DOC_PATIENT_PROFILE.mlm

113 lines
4.7 KiB
Plaintext

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: