DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

204
MLMStripper/bin/Debug/DOC/DOC_SCH_TRIAGE_NOTE_SCREENING.mlm Normal file
View File

@@ -0,0 +1,204 @@
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: