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

147
MLMStripper/bin/Debug/SCH/SCH_FUNC_CREATE_ORDER.mlm Normal file
View File

@@ -0,0 +1,147 @@
maintenance:
title: SCH_Func_Create_Order;;
mlmname: SCH_Func_Create_Order;;
arden: version 2.5;;
version: 5.50;;
institution: ;;
author: Don Warnick ;;
specialist: ;;
date: 2012-04-05;;
validation: testing;;
library:
purpose: Create an Order using the information passed from the calling MLM.
;;
explanation: Called MLM that builds orders for a patient.
Change history
04.12.2012 DW CSR# 26409 Created
10.21.2013 DW CSR#31693 Altered the Order "Reason" from "From Test MLM" to "Protocol Order"
10.24.2013 DW CSR# 31693 - Now the calling MLM supplies the session type
11.11.2013 TMS CSR# 31693 Added qualifier to SQL to retrieve the UserIDCode to only
retrieve the last ProviderIDTypeCode for the Edstan Number.
11.13.2013 DW CSR# 31693 Accept Order Source Value from calling MLM
;;
keywords: Called MLM, Generic, Create Order
;;
knowledge:
type: data-driven;;
data:
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
error_occurred := false;
(visitGuid,UserGuid,ClientGUID,SessionType,OrderSource,ItemName,ItemModifier,OrderType,OrderFrequency) := ARGUMENT;
send_alert := "DoNotSend";
alert_dest := destination { Alert: warning, "Order Create", high, chart, "Order Create", 15042, send_alert, "No Override Allowed" };
user_IDType := "Edstan Number (physician)";
RequestingSource := OrderSource;
order_Creation_Reason := "Protocol Order";
If SessionType = "Hold"
then SessionReason := "Hold Orders";
Else SessionReason := ""; // Session type is Standard
endif;
// Create Objects
try
client_visit_obj := call {{{SINGLE-QUOTE}}}ClientVisit{{{SINGLE-QUOTE}}}.FindByPrimaryKey with ((visitGuid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}}) ;
user_IDCode := read last {"SELECT IDCode FROM CV3CAREPROVIDERID " || " where ProviderGUID = " || UserGUID
|| " and ProviderIDTypeCode = {{{SINGLE-QUOTE}}}Edstan Number (physician){{{SINGLE-QUOTE}}}"};
RequestingCareProvider_obj := call {{{SINGLE-QUOTE}}}CareProvider{{{SINGLE-QUOTE}}}.FindById with ( user_IDType, (user_IDCode as STRING) );
location_guid := read last {"SELECT CurrentLocationGUID FROM CV3ClientVisit where ClientGUID = " || ClientGUID};
location_obj := call {{{SINGLE-QUOTE}}}Location{{{SINGLE-QUOTE}}}.FindByPrimaryKey with ((location_guid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}});
endtry;
catch Exception ex
error_occurred := true;
error_message := "{{+R}}Retrieve client:{{-R}}\n" || ex.Message || "\n\n";
if ex.InnerException is not null net_object then error_message := error_message || "Inner Exception: " || ex.InnerException.Message || "\n\n"; endif;
if ( client_visit_obj is NOT NULL ) then void:= call client_visit_obj.Dispose; client_visit_obj:= null; endif;
if ( RequestingCareProvider_obj is NOT NULL ) then void:= call RequestingCareProvider_obj.Dispose; RequestingCareProvider_obj:= null; endif;
if ( location_obj is NOT NULL ) then void:= call location_obj.Dispose; location_obj := null; endif;
endcatch;
try
Catalog_Item_Name := ItemName;
Catalog_Item_Modifier := ItemModifier;
Catalog_Item_Version := "";
Medication_catalog_item := call {{{SINGLE-QUOTE}}}OrderCatalogMasterItem{{{SINGLE-QUOTE}}}.FindByName with Catalog_Item_Name;
PreFilled_MedicationOrder_obj := call {{{SINGLE-QUOTE}}}MedicationOrder{{{SINGLE-QUOTE}}}.CreateMedicationOrder
with
client_visit_obj, // ClientVisit ObjectsPlus object
Medication_catalog_item, // OrderCatalogMasterItem ObjectsPlus object
Catalog_Item_Modifier, // string ItemNameModifier
Catalog_Item_Version, // string ItemNameModifierVersion
order_Creation_Reason, // string CreateReason
RequestingCareProvider_obj , // RequestedBy ObjectsPlus object
RequestingSource, // string RequestedBySource (must be in dictionary)
SessionType, // string SessionType
SessionReason, // string SessionReason
location_obj, // Location ReleaseLocGrpID
"Always" as {{{SINGLE-QUOTE}}}AvailabilityOverride{{{SINGLE-QUOTE}}}; // AvailabilityOverride eAvailabilityOverride
if (exists OrderFrequency) then
frequencyCode_obj := new net_object {{{SINGLE-QUOTE}}}Frequency{{{SINGLE-QUOTE}}};
frequencyCode_obj.code := OrderFrequency;
PreFilled_MedicationOrder_obj.frequency := frequencyCode_obj;
Endif;
if ( Medication_catalog_item is NOT NULL ) then
void := call PreFilled_MedicationOrder_obj.Save;
void := call PreFilled_MedicationOrder_obj.Dispose;
void:= call Medication_catalog_item.Dispose;
Medication_catalog_item:= null;
endif;
endtry;
catch Exception ex
error_occurred := true;
error_message := "{{+R}}New prefilled medication order:{{-R}}\n" || ex.Message || "\n\n";
if ( Medication_catalog_item is NOT NULL ) then void:= call Medication_catalog_item.Dispose; Medication_catalog_item:= null; endif;
if ( PreFilled_MedicationOrder_obj is NOT NULL ) then void:= call PreFilled_MedicationOrder_obj.Dispose; PreFilled_MedicationOrder_obj:= null; endif;
Prefilled_MedicationOrder_dest := null;
endcatch;
if ( client_visit_obj is NOT NULL ) then void:= call client_visit_obj.Dispose; client_visit_obj:= null; endif;
if ( RequestingCareProvider_obj is NOT NULL ) then void:= call RequestingCareProvider_obj.Dispose; RequestingCareProvider_obj:= null; endif;
if ( location_obj is NOT NULL ) then void:= call location_obj.Dispose; location_obj:= null; endif;
;;
evoke:
;;
logic:
Conclude true ;
;;
action:
if error_occurred then
write "An error has occured in the MLM {{+B}}SCH_Func_Create_Order{{-B}} " || "Please notify your System Administrators that an error message has occurred " ||
"message: \n" at alert_dest;
write messageText at alert_dest;
endif;
return error_occurred;
;;
Urgency: 50;;
end: