205 lines
7.6 KiB
Plaintext
205 lines
7.6 KiB
Plaintext
maintenance:
|
|
|
|
title: DOC_SCH_Triage_Note_Screening;;
|
|
mlmname: DOC_SCH_Triage_Note_Screening;;
|
|
arden: version 2.5;;
|
|
version: 5.50;;
|
|
institution: SCH ;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: ;;
|
|
date: 2015-03-05;;
|
|
validation: testing;;
|
|
library:
|
|
purpose: MLM used to create 4 health issue [Visually Impaired, Hearing Impaired, Mobility impaired and Limited English ] on Disability Risk Observation setin following Stuctured note.
|
|
In Some Stuctured note it create Dynamic order on close event. It is Part of Disability Risk Workflow.
|
|
1) Ed triage note,2) Ob patient profile, 3) Pediatric patient profile 4) Adult patient profile, 5) Adult patient profile- observation ,6) Adult patient profile behavioral
|
|
1) Adult assessment flow sheet, 2) Pediatric flow sheet, 3) Ob assessment flow sheet
|
|
;;
|
|
explanation:
|
|
|
|
|
|
Change history
|
|
|
|
03.05.2015 SJ CSR# 33112 Created MLM
|
|
09.08.2016 DW HD# 2200677 - Disability Risk MLM - Duplicate Health Issue - copied Prod version over dev as they didn{{{SINGLE-QUOTE}}}t match. Made no logic change
|
|
|
|
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
(thisdocumentCommunication) := argument;
|
|
|
|
//local_session := CDS_SESSION.local;
|
|
|
|
//Get The Structure Note
|
|
(this_FS_doc) := thisdocumentCommunication.DocumentConfigurationObj;
|
|
//Get the Parameter List
|
|
(this_parms) := this_FS_doc.ParametersList;
|
|
//Paramters defination
|
|
(this_cols) := this_FS_doc.ColumnsList;
|
|
(this_curr_col) := this_FS_doc.Currentcolumn;
|
|
(this_currentObs) := thisdocumentCommunication.CurrentObservationObj;
|
|
(this_observations) := this_FS_doc.ChartedObservationsList;
|
|
(this_curr_valobj) := this_currentObs.valueobj;
|
|
|
|
local_session := CDS_SESSION.local;
|
|
|
|
MLM_DIPA := MLM {{{SINGLE-QUOTE}}}UTIL_OBJECT_Customize_DIPA_MLM{{{SINGLE-QUOTE}}};
|
|
|
|
MLM_HI := MLM {{{SINGLE-QUOTE}}}DOC_SCH_Triage_Screening_Visual{{{SINGLE-QUOTE}}};
|
|
obs_HI := Call MLM_HI With thisdocumentCommunication;
|
|
|
|
MLM_HI1 := MLM {{{SINGLE-QUOTE}}}DOC_SCH_Triage_Screening_Hearing{{{SINGLE-QUOTE}}};
|
|
obs_HI1 := Call MLM_HI1 With thisdocumentCommunication;
|
|
|
|
MLM_HI2 := MLM {{{SINGLE-QUOTE}}}DOC_SCH_Triage_Screening_Limited_English{{{SINGLE-QUOTE}}};
|
|
obs_HI2 := Call MLM_HI2 With thisdocumentCommunication;
|
|
|
|
MLM_HI3 := MLM {{{SINGLE-QUOTE}}}DOC_SCH_Triage_Screening_Mobility_Impaired{{{SINGLE-QUOTE}}};
|
|
obs_HI3 := Call MLM_HI3 With thisdocumentCommunication;
|
|
|
|
Client_GUID := thisdocumentCommunication.ClientGUID;
|
|
Client_Visit_GUID := thisdocumentCommunication.ClientVisitGUID;
|
|
|
|
this_curr_obs := last (this_FS_doc.chartedobservationslist);
|
|
this_current_prm := first of (this_parms where this_parms.parameterGUID = this_currentObs.ParameterGUID);
|
|
cur_name := this_current_prm.Name;
|
|
|
|
/*************************************************************************************************************/
|
|
|
|
If (cur_name = "SCH_Ped_Special need") then
|
|
|
|
sel1 := "" ;
|
|
sel2 := "" ;
|
|
prm := first of (this_parms where this_parms.Name = "SCH_Ped_Special need");
|
|
Obs := first of (this_observations where this_observations.ParameterGUID = prm.ParameterGUID);
|
|
lst1 := Obs.valueObj.ListItemsList ;
|
|
sel1 := First of( lst1.Value Where lst1.IsSelected = true );
|
|
sel1Col := lst1.Value where lst1.IsSelected = true ;
|
|
sel2 := First Of( lst1.Value where lst1.IsSelected = true ) ;
|
|
sel2Col := lst1.Value where lst1.IsSelected = true ;
|
|
SessionSpecialNeed := local_session.SessionPediatricSpecialNeed ;
|
|
SessionSpecialNeedForMessage := local_session.SessionPediatricSpecialNeedForMessage ;
|
|
|
|
|
|
|
|
if SessionSpecialNeed = "" and (sel1 <> "" ) then
|
|
SessionSpecialNeed := sel1;
|
|
local_session.SessionPediatricSpecialNeed := sel1;
|
|
endif;
|
|
|
|
if SessionSpecialNeed = "No Diagnosis Risk Criteria" and sel1 IS NULL and sel2 IS NULL then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
endif;
|
|
|
|
if SessionSpecialNeed <> "No Diagnosis Risk Criteria" and sel2 <> "" then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
obs2 := CALL MLM_DIPA WITH thisDocumentCommunication, prm, sel2Col ;
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList, obs2);
|
|
endif;
|
|
|
|
|
|
Endif;
|
|
|
|
/*************************************************************************************************************/
|
|
|
|
If (cur_name = "sch_obpt_Special Need") then
|
|
|
|
sel1 := "" ;
|
|
sel2 := "" ;
|
|
prm := first of (this_parms where this_parms.Name = "sch_obpt_Special Need");
|
|
Obs := first of (this_observations where this_observations.ParameterGUID = prm.ParameterGUID);
|
|
lst1 := Obs.valueObj.ListItemsList ;
|
|
sel1 := First of( lst1.Value Where lst1.IsSelected = true );
|
|
sel1Col := lst1.Value where lst1.IsSelected = true ;
|
|
sel2 := First Of( lst1.Value where lst1.IsSelected = true ) ;
|
|
sel2Col := lst1.Value where lst1.IsSelected = true ;
|
|
SessionSpecialNeed := local_session.SessionPediatricSpecialNeed ;
|
|
SessionSpecialNeedForMessage := local_session.SessionPediatricSpecialNeedForMessage ;
|
|
|
|
|
|
|
|
if SessionSpecialNeed = "" and (sel1 <> "" ) then
|
|
SessionSpecialNeed := sel1;
|
|
local_session.SessionPediatricSpecialNeed := sel1;
|
|
endif;
|
|
|
|
if SessionSpecialNeed = "No Diagnosis Risk Criteria" and sel1 IS NULL and sel2 IS NULL then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
endif;
|
|
|
|
if SessionSpecialNeed <> "No Diagnosis Risk Criteria" and sel2 <> "" then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
obs2 := CALL MLM_DIPA WITH thisDocumentCommunication, prm, sel2Col ;
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList, obs2);
|
|
endif;
|
|
|
|
|
|
Endif;
|
|
|
|
/*************************************************************************************************************/
|
|
|
|
If (cur_name = "SCH_Adultpt_Special need") then
|
|
|
|
sel1 := "" ;
|
|
sel2 := "" ;
|
|
prm := first of (this_parms where this_parms.Name = "SCH_Adultpt_Special need");
|
|
Obs := first of (this_observations where this_observations.ParameterGUID = prm.ParameterGUID);
|
|
lst1 := Obs.valueObj.ListItemsList ;
|
|
sel1 := First of( lst1.Value Where lst1.IsSelected = true );
|
|
sel1Col := lst1.Value where lst1.IsSelected = true ;
|
|
sel2 := First Of( lst1.Value where lst1.IsSelected = true ) ;
|
|
sel2Col := lst1.Value where lst1.IsSelected = true ;
|
|
SessionSpecialNeed := local_session.SessionPediatricSpecialNeed ;
|
|
SessionSpecialNeedForMessage := local_session.SessionPediatricSpecialNeedForMessage ;
|
|
|
|
|
|
|
|
if SessionSpecialNeed = "" and (sel1 <> "" ) then
|
|
SessionSpecialNeed := sel1;
|
|
local_session.SessionPediatricSpecialNeed := sel1;
|
|
endif;
|
|
|
|
if SessionSpecialNeed = "No Diagnosis Risk Criteria" and sel1 IS NULL and sel2 IS NULL then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
endif;
|
|
|
|
if SessionSpecialNeed <> "No Diagnosis Risk Criteria" and sel2 <> "" then
|
|
local_session.SessionPediatricSpecialNeed := "";
|
|
obs2 := CALL MLM_DIPA WITH thisDocumentCommunication, prm, sel2Col ;
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
|
|
thisdocumentCommunication.DocumentConfigurationObj.ChartedObservationsList, obs2);
|
|
endif;
|
|
|
|
|
|
Endif;
|
|
|
|
/*************************************************************************************************************/
|
|
|
|
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
Conclude true;
|
|
;;
|
|
action:
|
|
return thisdocumentCommunication;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|