117 lines
4.4 KiB
Plaintext
117 lines
4.4 KiB
Plaintext
maintenance:
|
|
|
|
title: DOC_SCH_Launch_Dialogbox ;;
|
|
mlmname: DOC_SCH_Launch_Dialogbox ;;
|
|
arden: version 4.5;;
|
|
version: 2.00;;
|
|
institution: St.Clair Hospital;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: ;;
|
|
date: 2015-05-12;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
;;
|
|
explanation:
|
|
Change history
|
|
|
|
12.05.2015 DW CSR#33287 Add a Launch Order Entry And Order Reconciliation Manager .
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
// Recieve arguments from the structured note
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
(thisDocumentCommunication) := argument;
|
|
|
|
// Extract interesting parts of the object model
|
|
(thisStructuredNoteDoc) := thisDocumentCommunication.DocumentConfigurationObj;
|
|
(thisParameters) := thisStructuredNoteDoc.ParametersList;
|
|
(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;
|
|
(this_currentObj) := thisdocumentCommunication.CurrentObservationObj;
|
|
comm_obj := thisDocumentCommunication.primaryobj;
|
|
|
|
OrderEntryLaunch := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
|
|
selectedItems := (this_currentObj.ValueObj.ListItemsList WHERE this_currentObj.ValueObj.ListItemsList.IsSelected = true);
|
|
currentObj_selectedItems := selectedItems.value ;
|
|
//======================================================================================================
|
|
// 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];
|
|
|
|
|
|
// To Unselect The Radio Button
|
|
launchordrec := false;
|
|
theParameterx := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
|
|
theObservation := first of (thisObservations where thisObservations.ParameterGUID = theParameterx.ParameterGUID);
|
|
if thisDocumentCommunication.CurrentObservationObj.Parameterguid = theParameterx.ParameterGUID then
|
|
|
|
this_parametername := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
|
|
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);
|
|
|
|
endif;
|
|
//==========================================================================================================
|
|
MLM_Name := MLM {{{SINGLE-QUOTE}}}SCH_Dialog_Operations{{{SINGLE-QUOTE}}} ;
|
|
|
|
// SCH_DI OrdRec Launch
|
|
launchordrec := false;
|
|
//theParameterx := first of (thisparameters where thisparameters.Name = "SCH_DI Launch Ord Rec");
|
|
// theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameterx.ParameterGUID);
|
|
|
|
|
|
// OBSERVATION CHANGE
|
|
for current_item in currentObj_selectedItems do
|
|
|
|
|
|
If current_item = "***LAUNCH ORDER ENTRY to Complete***" Then
|
|
|
|
Status := call MLM_Name with visitGuid ,"OrderEntry";
|
|
|
|
EndIf ;
|
|
If current_item = "***LAUNCH ORDER RECONCILIATION**" Then
|
|
|
|
//Status := call MLM_Name with visitGuid,"OrderReconciliationManager";
|
|
OrderRecall := MLM {{{SINGLE-QUOTE}}}Doc_Call_Med_Rec{{{SINGLE-QUOTE}}};
|
|
Void := Call OrderRecall With thisDocumentCommunication ;
|
|
|
|
EndIf ;
|
|
Enddo;
|
|
|
|
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic: conclude true;
|
|
;;
|
|
action: return thisDocumentCommunication;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|