Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_BLOOD_AVAILIBILITY_ORDER.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_BLOOD_AVAILIBILITY_ORDER.mlm
@@ -0,0 +1,101 @@
+maintenance:
+
+	title: Blood Availibility Order;;
+	mlmname:  FORM_BLOOD_AVAILIBILITY_ORDER;;
+	arden: version 2;;
+	version:  5.50;;
+	institution:  St Clair;;
+	author:  Maria Pest;;
+	specialist: Don Warnick;;
+	date:  2015-11-09;;
+	validation:  testing;;
+
+library:
+	purpose: Automatic Medication Scheduling 
+	;;
+	
+	explanation: The MLM will search past lab blood orders by order number and return the order name to a field
+     
+	Change history 
+
+    11.09.2015   DW CSR# 32531 Created
+	11.24.2015   DW HD# 1952521 Corrected the issue with not searching across all visits. (was joining on cv3chart which limited it to the same visit) 
+	04.21.2016 STH CSR#: 32165 Updated for new names to be included in MLM logic. {go-live 4/27/2016}
+	;;
+	keywords: Blood Availibility Order
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+
+
+  standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+  include standard_libs;
+
+ (this_communication,this_form,client_info_obj) := argument;
+
+  error_message:="";
+  field_list   := this_form.fields;
+ 
+  ClientGuid   := this_communication.ClientGUID;
+  VisitGuid    := this_communication.ClientVisitGUID;
+  ChartGuid    := this_communication.ChartGuid;
+  CallingEvent := this_communication.CallingEvent;
+  CallingField := this_communication.CallingFieldName;
+
+
+  OrderNumber     :=  last of (field_list where field_list.DataItemName = "BB Blood Prod Avail Order ID");
+  OrderNumberValue:= OrderNumber.Value;
+  OrderName       :=  last of (field_list where field_list.DataItemName = "BB Blood Prod Avail FT");
+
+
+  If CallingEvent = "FieldChange" 
+	
+	  then
+	
+	
+	  (PastOrderName) := read last
+	   {
+			   " select  "
+			|| "  case when ocmi.name = {{{SINGLE-QUOTE}}}Red Cell Products{{{SINGLE-QUOTE}}} then {{{SINGLE-QUOTE}}}Red Blood Cells{{{SINGLE-QUOTE}}} "
+			|| "       when ocmi.name in ({{{SINGLE-QUOTE}}}Transfuse Platelets{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Platelet Products{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}Platelets{{{SINGLE-QUOTE}}} "
+			|| "       when ocmi.name in ({{{SINGLE-QUOTE}}}Transfuse FFP{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Fresh Frozen Plasma{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}Thawed Fresh Frozen Plasma{{{SINGLE-QUOTE}}}"
+			|| "       when ocmi.name in ({{{SINGLE-QUOTE}}}Transfuse Cryoprecipitate{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Cryoprecipitate{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}Cyoprecipiate{{{SINGLE-QUOTE}}} end "
+			|| "  from cv3ordercatalogmasteritem ocmi with (nolock) " 
+			|| "  join cv3order               o with (nolock) on o.ordercatalogmasteritemguid = ocmi.guid "
+	        || "  where o.ClientGUID = " || ClientGuid ||  " " 
+			|| "  and o.OrderStatusLevelNum >= 15 and o.OrderStatusLevelNum not in (69, 70) "
+			|| "  and o.createdwhen > getdate() -90 "
+			|| "  and o.typecode = {{{SINGLE-QUOTE}}}diagnostic{{{SINGLE-QUOTE}}} and  o.idcode = {{{SINGLE-QUOTE}}}" || OrderNumberValue || "{{{SINGLE-QUOTE}}}"
+			|| "  and ocmi.name in ({{{SINGLE-QUOTE}}}Red Cell Products{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Transfuse Platelets{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Transfuse FFP{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Transfuse Cryoprecipitate{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Cryoprecipitate{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Fresh Frozen Plasma{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Platelet Products{{{SINGLE-QUOTE}}}) "
+			|| "  and o.entered > getdate()-21 "
+	   };
+	
+		if exist PastOrderName
+	
+			then
+			
+		 	OrderName.Value := PastOrderName;
+	
+			else
+
+			 OrderName.Value := " ";
+			 dlg_result := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with	"\n\nThis order number does not match a Blood Order.","Order Not Found", "OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}},"Question" as {{{SINGLE-QUOTE}}}MessageBoxIcon{{{SINGLE-QUOTE}}};
+	
+		endif;
+	
+	endif; //  If CallingEvent <> "FieldChange"
+
+	;;
+	evoke:  
+	;;
+	logic:  
+
+		conclude true;
+	;;
+	action:
+        
+		return this_communication, this_form;
+	;;
+end: