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

230
MLMStripper/bin/Debug/ACS/ACS_RESULT_IMPRESSION_LOOKUP.mlm Normal file
View File

@@ -0,0 +1,230 @@
maintenance:
title: Generic Lookup;;
mlmname: ACS_result_impression_Lookup;;
arden: version 2.5;;
version: 5.00;;
institution: Allscripts;;
author: Allscripts Custom Services;;
specialist: Allscripts Custom Services;;
date: 2011-11-05;;
validation: testing;;
library:
purpose: lookup and parse out the "IMPRESSION" from a set of patient{{{SINGLE-QUOTE}}}s results.
;;
explanation:
;;
keywords:
;;
knowledge:
type: data-driven;;
data:
/****************** Make Your code stretch NO WIDER THAN THIS! *************************/
(Client_guid,
Client_visit_guid,
Client_chart_guid,
Getdata_from,//“historical” or “current” (use SQL or current object navigation)
Data_value_type,//Object to retrieve (“HealthIssue”, “order”, etc.)
Data_item,//Attribute to retrieve (“name”, “itemname”, “typecode”, “code”, etc.)
Filterable_item,//Filterable attribute (“name”, “itemname”, “typecode”, “code”, etc.)
Filterable_operator,//Filterable operator (“=”, “<>”, “in”, “matches pattern”, etc.)
Filterable_value,//Filterable value(s)(“chronic”, “atb”,“(‘480.00’,’480.30’)", etc.)
Additional_condition)//Additional condition(s)
//(“orderstatuslevelnum between 55 and 60”,
//“performedtm > dateadd(-24, hh, getdate()”, etc.)
:= ARGUMENT;
//setting for
current:= Now - 8 years ; //24 hours;
//initialize
strFilterSQL :="";
if called_by_editor then
(client_guid, client_visit_guid, client_chart_guid) :=
read last {clientvisit: clientguid, guid, chartguid};
Getdata_from := "Historical";
Data_value_type := "Results";
Data_item := "text_val";
Filterable_item := "r.code"; // "itemname";
filterable_operator := "="; // "like";
filterable_value := "Medical Imaging"; // "chest";
endif;
IF any(exists Filterable_item AND (not (Filterable_item is in ("", "No"))))
AND any(exists Filterable_operator AND (not(Filterable_operator is in ("", "No"))))
AND any(exists Filterable_value AND (not (Filterable_value is in ("", "No")))) THEN
strFilterSQL := Filterable_item || " " || Filterable_operator || " ";
IF Filterable_operator = "IN" THEN
strFilterSQL := strFilterSQL || "(" || Filterable_value || ")";
ELSEIF Filterable_operator ="LIKE" THEN
strFilterSQL := strFilterSQL || "{{{SINGLE-QUOTE}}}%" || Filterable_value|| "%{{{SINGLE-QUOTE}}}";
ELSE
strFilterSQL := strFilterSQL || SQL(Filterable_value);
ENDIF;
ENDIF;
if any(exists Additional_condition AND (not (Additional_condition is in ("", "No")))) then
strFilterSQL := strFilterSQL || " and " ||Additional_condition;
endif;
// add filter for time, if not present
if not(strFilterSQL matches pattern "%where%performeddtm%") then
strFilterSQL := strFilterSQL || " and b.entered >= " || sql(current) ;
endif;
(result_items, result_times, result_impressions) := read
// set up (temporary) tables for data entry
{" declare @txt_src table (titem varchar(125), "
||" tguid numeric(16,0), ttime datetime, tln int, ttext varchar(255)) "
||" declare @maxln table (tguid numeric(16,0), mln int) "
||" declare @txt_imp table "
||" (id numeric(16,0) not null, "
||" item varchar(125) null, "
||" obs_time datetime null, "
||" min_line_num int null, "
||" curr_line_num int null, "
||" max_line_num int null, "
||" obs_text varchar(8000) null) "
// pull patient specific data for processing
||" insert @txt_src "
||" select b.itemname, t.ObservationGUID, o.performeddtm, t.LineNum, t.text "
||" from CV3BasicObservation b "
||" join CV3TextualObservationLine t on t.ClientGUID = b.ClientGUID "
||" and b.GUID = t.ObservationGUID "
||" join cv3order o on o.clientguid = b.clientguid "
||" and o.chartguid = b.chartguid "
||" and o.clientvisitguid = b.clientvisitguid "
||" and o.guid = b.orderguid "
||" join cv3ordercatalogmasteritem ocmi on ocmi.GUID = o.OrderCatalogMasterItemGUID "
||" left outer join CV3OrderReviewCategory r on r.GUID = ocmi.OrderReviewCategoryGUID "
||" where b.ClientGUID = " || sql(client_guid)
||" and b.ChartGUID = " || sql(client_chart_guid)
||" and b.ClientVisitGUID = " || sql(client_visit_guid)
// ||" and b.entered >= " || sql(current)
||" and b.IsTextual = 1 "
||" and b.IsHistory = 0 "
||" and " || strFilterSQL
// remove white spaces
||" while (select max(patindex({{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}+char(10)+{{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}, ttext)) from @txt_src) > 0 "
||" begin "
||" update @txt_src " // remove the carriage return
||" set ttext = stuff(ttext, patindex({{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}+char(10)+{{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}, ttext), 1, null) "
||" where patindex({{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}+char(10)+{{{SINGLE-QUOTE}}}%{{{SINGLE-QUOTE}}}, ttext) > 0 "
||" end "
// initialize the table
||" insert @txt_imp " // get starting line
||" select distinct tguid, titem, ttime, 0,0, null, {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}} "
||" from @txt_src "
// get only the impression fragment, starting at {{{SINGLE-QUOTE}}}IMPRESSION:{{{SINGLE-QUOTE}}}
||" update @txt_imp " // get starting line
||" set min_line_num = tln, curr_line_num = tln, obs_text = "
||" substring(tTEXT, PATINDEX({{{SINGLE-QUOTE}}}%impression%{{{SINGLE-QUOTE}}}, ttext), DATALENGTH(ttext) "
||" - PATINDEX({{{SINGLE-QUOTE}}}%impression%{{{SINGLE-QUOTE}}}, ttext)) "
||" from @txt_src "
||" where tguid = id "
||" and tTEXT like {{{SINGLE-QUOTE}}}%impression%{{{SINGLE-QUOTE}}} "
// update the max_line_num to the {{{SINGLE-QUOTE}}}dictated by{{{SINGLE-QUOTE}}} end, if exist
||" update @txt_imp "
||" set max_line_num = tln "
||" from @txt_src "
||" where id = tguid "
||" and tln > min_line_num "
// ||" and obs_text like {{{SINGLE-QUOTE}}}%dictated%{{{SINGLE-QUOTE}}} "
||" and obs_text like {{{SINGLE-QUOTE}}}%dictat%{{{SINGLE-QUOTE}}} " // Added By Shivprasad CSR : 32844
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
// if no {{{SINGLE-QUOTE}}}dictated by{{{SINGLE-QUOTE}}} ending, go to end of blob
||" insert @maxln "
||" select tguid, mln = MAX(tln) "
||" from @txt_src "
||" group by tguid "
// no {{{SINGLE-QUOTE}}}dictated{{{SINGLE-QUOTE}}} found: set max_line_num to end of blob
||" update @txt_imp "
||" set max_line_num = mln "
||" from @maxln "
||" where id = tguid "
||" and max_line_num is null "
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
// iterate/append all lines between min and max line numbers
||" while (select count(*) "
||" from @txt_imp where (max_line_num - curr_line_num) > 0 ) > 0 "
||" begin "
||" update @txt_imp "
||" set curr_line_num = tln, "
||" obs_text = obs_text + tTEXT "
||" from @txt_src "
||" where id = tguid "
||" and curr_line_num < max_line_num "
||" and tln = curr_line_num + 1 "
||" end "
// truncate text to {{{SINGLE-QUOTE}}}dictated{{{SINGLE-QUOTE}}}
||" update @txt_imp "
// ||" set obs_text = SUBSTRING(obs_text, 1, patindex({{{SINGLE-QUOTE}}}%dictated%{{{SINGLE-QUOTE}}}, obs_text) + 7) "
// ||" where patindex({{{SINGLE-QUOTE}}}%dictated%{{{SINGLE-QUOTE}}}, obs_text) > 0 "
||" set obs_text = SUBSTRING(obs_text, 1, patindex({{{SINGLE-QUOTE}}}%dictat%{{{SINGLE-QUOTE}}}, obs_text) + 8 ) " // Added By Shivprasad CSR : 32844
||" where patindex({{{SINGLE-QUOTE}}}%dictat%{{{SINGLE-QUOTE}}}, obs_text) > 0 "
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
// Now add the addendum, if it exists, useing the same logic as above
||" update @txt_imp "
||" set min_line_num = tln, curr_line_num = tln, max_line_num = null, "
||" obs_text = obs_text + {{{SINGLE-QUOTE}}} +++++{{{SINGLE-QUOTE}}} + "
||" substring(tTEXT, PATINDEX({{{SINGLE-QUOTE}}}%ADDENDUM%{{{SINGLE-QUOTE}}}, ttext), "
||" DATALENGTH(ttext) - PATINDEX({{{SINGLE-QUOTE}}}%ADDENDUM%{{{SINGLE-QUOTE}}}, ttext)) "
||" from @txt_src "
||" where id = tguid "
||" and tln >= curr_line_num "
||" and tTEXT like {{{SINGLE-QUOTE}}}%ADDENDUM%{{{SINGLE-QUOTE}}} "
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
||" update @txt_imp "
||" set max_line_num = tln "
||" from @txt_src "
||" where id = tguid "
||" and tln >= curr_line_num "
||" and tTEXT like {{{SINGLE-QUOTE}}}%LAST PAGE%{{{SINGLE-QUOTE}}} " // never found this...
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
||" update @txt_imp "
||" set max_line_num = mln "
||" from @maxln "
||" where id = tguid "
||" and max_line_num is null "
||" and not (obs_text = {{{SINGLE-QUOTE}}}(no IMPRESSION found){{{SINGLE-QUOTE}}}) "
||" while (select count(*) "
||" from @txt_imp where (max_line_num - curr_line_num) > 0 ) > 0 "
||" begin "
||" update @txt_imp "
||" set curr_line_num = tln, "
||" obs_text = obs_text + tTEXT "
||" from @txt_src "
||" where id = tguid "
||" and curr_line_num < max_line_num "
||" and tln = curr_line_num + 1 "
||" end "
||" select item, obs_time, obs_text "
||" from @txt_imp "
};
//break;
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return result_items, result_times, result_impressions;
;;
Urgency: 50;;
end: