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

111
MLMStripper/bin/Debug/DOC/DOC_FUNC_CCDA_PRINT.mlm Normal file
View File

@@ -0,0 +1,111 @@
maintenance:
title: DOC_FUNC_CCDA_PRINT;;
mlmname: DOC_FUNC_CCDA_PRINT;;
arden: version 2.5;;
version: 5.50;;
institution: Allscripts;;
author: Renish Bhimani;;
specialist: ;;
date: 2014-05-21;;
validation: testing;;
library:
purpose: print CCD-A document report from MLM
;;
explanation: The MLM is called from a Document and if a Print Button is selected, it calls MLM "SCH_FUNC_CCDA_Print"
which generates a CCDA document
Change history
06.25.2014 DW CSR# 31688 - MU2
07.08.2014 DW CSR# 31688 - MU2 Suppress print for behavioral health patients
12.11.2018 DW HD#3548079 - Blank prints are sometimes generated. We think it is due to system latency. I changed the delay from 90 to 120 seconds to permit DOC_FUNC_CCDA_CREATE_AND_TRANSPORT to create the CCDA Summary of Care
;;
keywords:
;;
knowledge:
type: data-driven;;
data:
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
trig_event_enter := event {ClientDocumentEnter User ClientDocument: where documentname in ("Discharge Instructions (Post Hospital Care Orders)")};
trig_event_modify := event {ClientDocumentModify User ClientDocument: where documentname in ("Discharge Instructions (Post Hospital Care Orders)")};
(VisitGUID, ChartGUID, ClientGUID) := read last {ClientDocument: ClientVisitGUID, ChartGUID, ClientGUID REFERENCING EvokingObject};
ClientDocumentName := "CCDA Summary of Care";
ClientDocumentGUID := read first
{
" Select GUID from CV3ClientDocument with (nolock) WHERE DocumentName = " || SQL(ClientDocumentName)
|| " AND ClientGUID = " || sql(ClientGUID) || " AND ChartGUID = " || SQL(ChartGuid)
|| " AND ClientVisitGUID = " || SQL(VisitGuid)
|| " ORDER BY TouchedWhen DESC"
};
PrintButtonSelected := read first
{
" select top 1 fsl.value "
|| " from CV3ClientDocument cd with (nolock) "
|| " join CV3ClientDocDetail cdd with (nolock) ON (cdd.ClientDocumentGUID = cd.GUID AND cdd.ClientGUID = " || sql(ClientGUID) || " and cdd.active = 1) "
|| " join CV3ObservationDocument od with (nolock)ON cdd.CLientDocumentGUID = od.OwnerGUID and od.active = 1 "
|| " join CV3ObsCatalogMasterItem ocmi with (nolock) on od.ObsMasterItemGUID = ocmi.GUID "
|| " left join SCMObsFSListValues fsl(nolock) ON (fsl.ParentGUID = od.ObservationDocumentGUID AND fsl.ClientGUID = " || sql(ClientGUID) || " ) "
|| " where cd.clientguid = " || sql(ClientGUID) || " and cd.ChartGUID = " || SQL(ChartGuid) || " and cd.ClientVisitGUID= " || SQL(VisitGuid) || " "
|| " and cd.iscanceled = 0 "
|| " and cd.documentname like {{{SINGLE-QUOTE}}}%Post Hospital Care Orders%{{{SINGLE-QUOTE}}} "
|| " and ocmi.name in ({{{SINGLE-QUOTE}}}CXD Transition Care Print{{{SINGLE-QUOTE}}}) "
|| " and fsl.value is not null "
|| " order by cd.touchedwhen desc "
};
PsychPatient := read
{
" Select currentlocation from cv3clientvisit with (nolock) "
|| " Where ClientGUID = " || sql(ClientGUID) || " AND ChartGUID = " || SQL(ChartGuid)
|| " AND GUID = " || SQL(VisitGuid) || " and currentlocation like {{{SINGLE-QUOTE}}}Psy%{{{SINGLE-QUOTE}}} "
};
if (ClientDocumentGUID <> "" OR ClientDocumentGUID is not null)
and PrintButtonSelected is not null
and not exist PsychPatient
then
CCD_MLM := MLM {{{SINGLE-QUOTE}}}SCH_FUNC_CCDA_Print{{{SINGLE-QUOTE}}};
void := call CCD_MLM with ClientGuid,ChartGuid,VisitGuid,ClientDocumentName;
endif;
// Diagnostic Alert - Can be enabled if needed
// send_alert := "DoNotSend";
// alert_dest := destination { Alert: warning, "Informational" , high, chart, "Informational" , 15042, send_alert, "No Override Allowed" };
;;
priority: 50
;;
evoke:
120 seconds after time of trig_event_enter;
120 seconds after time of trig_event_modify;
// trig_event_enter;
// trig_event_modify;
;;
logic:
conclude true;
;;
action:
// Diagnostic Alert - Can be enabled if needed
// write " Messages " || " CALL the PRINT MLM - " || NOW || " " || PrintButtonSelected at alert_dest;
;;
Urgency: 50;;
end: