123 lines
3.8 KiB
Plaintext
123 lines
3.8 KiB
Plaintext
maintenance:
|
|
|
|
title: Call Med Rec;;
|
|
filename: Doc_Call_Med_Rec;;
|
|
arden: version 2;;
|
|
version: 1.00;;
|
|
institution: Eclipsys Corp;;
|
|
author: Eclipsys Corp;;
|
|
specialist: ;;
|
|
date: 2008-11-18;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: This mlm open Orders Reconciliation Manager from a document
|
|
;;
|
|
explanation:
|
|
|
|
05.31.2019 JML 18.4 Upgrade modification; Launch ORM radio button not unchecking
|
|
if observation exists in more than one section on structured note
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(this_documentCommunication) := argument;
|
|
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
|
|
|
/* Set to true if a decision.log is needed.*/
|
|
log_execution_info := FALSE;
|
|
|
|
/****** Place all your reading and updating here **********/
|
|
|
|
// Include MLM to reference assemblies needed for this MLM.
|
|
// This MLM specifically uses the assemblies mscorlib and
|
|
// ObjectsPlusXA.SCM.Forms
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
// Extract interesting parts of the object model
|
|
(thisStructuredNoteDoc) := this_documentCommunication.DocumentConfigurationObj;
|
|
(thisParameters) := thisStructuredNoteDoc.ParametersList;
|
|
(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;
|
|
|
|
// Create prototypes for the object types we{{{SINGLE-QUOTE}}}ll need to instantiate
|
|
ObservationType := OBJECT [ObservationGUID, ClientDocumentGUID, ParameterGUID, DataType, ValueObj];
|
|
FreeTextValueType := OBJECT [Value];
|
|
DateValueType := OBJECT [Value];
|
|
ListValueType := OBJECT [ListGuid,ListItemsList, SuggestedTextValue];
|
|
ListValueListItemType := OBJECT [ListItemGUID, Value, IsSelected];
|
|
|
|
|
|
// SCH_DI OrdRec Launch
|
|
launchordrec := false;
|
|
theParameterx := ( thisParameters where thisParameters.Name = "SCH_DI Launch Ord Rec" );
|
|
|
|
if ( exists theParameterx ) then
|
|
|
|
//Determine if Obs exists more than once on Note
|
|
for i IN 1 seqto count theParameterx do
|
|
//this_parametername := first of (thisParameters where thisParameters.Name = "SCH_DI Launch Ord Rec");
|
|
this_parametername := theParameterx[i];
|
|
|
|
this_currentObj := NEW ObservationType;
|
|
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
|
|
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
|
|
this_currentObj.DataType := "ListValue";
|
|
this_currentObj.ValueObj := New ListValueType;
|
|
this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;
|
|
listItems := ();
|
|
|
|
FOR item IN this_parametername.ConfigurationObj.ListItemsList DO
|
|
selectedItem := NEW ListValueListItemType;
|
|
selectedItem.ListItemGUID := item.ListItemGUID;
|
|
selectedItem.Value := item.Value;
|
|
|
|
selectedItem.IsSelected := false;
|
|
|
|
listItems := (listItems, selectedItem);
|
|
|
|
ENDDO;
|
|
|
|
this_currentobj.ValueObj.ListItemsList := listItems;
|
|
thisStructuredNoteDoc.ChartedObservationsList := (thisStructuredNoteDoc.ChartedObservationsList, this_currentObj);
|
|
enddo;
|
|
|
|
endif;
|
|
|
|
|
|
|
|
visit_guid := this_documentCommunication.ClientVisitGUID;
|
|
try
|
|
// Create the Order Reconciliation Manager object
|
|
|
|
order_rec_mgr_obj := new NET_OBJECT {{{SINGLE-QUOTE}}}OrderReconciliationManager{{{SINGLE-QUOTE}}};
|
|
order_rec_mgr_obj.ClientVisitPrimaryKey := (( visit_guid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}});
|
|
void := call order_rec_mgr_obj.ShowDialog;
|
|
|
|
endtry;
|
|
catch exception ex
|
|
if ( order_rec_mgr_obj is NOT NULL ) then
|
|
void:= call order_rec_mgr_obj.Dispose;
|
|
order_rec_mgr_obj:= NULL;
|
|
endif;
|
|
endcatch;
|
|
|
|
|
|
;;
|
|
evoke: // No evoke statement
|
|
;;
|
|
logic:
|
|
conclude true; // always concludes TRUE
|
|
;;
|
|
action:
|
|
return this_documentCommunication;
|
|
|
|
;;
|
|
end:
|