114 lines
3.2 KiB
Plaintext
114 lines
3.2 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_KNEE_ASPIRATION_OS_Check;;
|
|
mlmname: FORM_KNEE_ASPIRATION_OS_Check;;
|
|
arden: version 2.5;;
|
|
version: 6.10;;
|
|
institution: St. Clair Hospital ;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: Shivprasad Jadhav, Allscripts;;
|
|
date: 2015-01-29;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Ø User should be able to select only one out of 3 Knee aspiartion Orders ;;
|
|
explanation:
|
|
;;
|
|
keywords:
|
|
;;
|
|
citations:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
(this_communication, // Communication object
|
|
this_form, // Form object
|
|
client_info_obj //Arden ClientInfo object
|
|
) := argument;
|
|
field_list:= this_form.Fields;
|
|
|
|
field_list := this_form.fields;
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
CallingItem := CallingField.Records_;
|
|
|
|
|
|
/********************************** Added By Shivprasad *****************************************************/
|
|
|
|
Set_Generic_MLM:= MLM {{{SINGLE-QUOTE}}}FORM_Set_Generic_Item_Control{{{SINGLE-QUOTE}}};
|
|
this_communication,this_form := call Set_Generic_MLM with this_communication,this_form,client_info_obj ;
|
|
|
|
|
|
/***************************************************************************************/
|
|
|
|
|
|
Knee_Left := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 2 );
|
|
Knee_Left_Val := Knee_Left.Value;
|
|
Knee_Right := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 1 );
|
|
Knee_Right_Val := Knee_Right.Value;
|
|
Knee_Bilateral := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 5 );
|
|
Knee_Bilateral_Val := Knee_Bilateral.Value;
|
|
|
|
|
|
// *********** Objects for first flow *************
|
|
item1 := Knee_Left_Val[1];
|
|
item2 := Knee_Right_Val[1];
|
|
item3 := Knee_Bilateral_Val[1];
|
|
|
|
//********* objects for Second Flow **********
|
|
Knee_Left:= first of (Knee_Left_Val where Knee_Left_Val.Name = "Knee Aspiration");//
|
|
Knee_right:= first of (Knee_Right_Val where Knee_Right_Val.Name = "Knee Aspiration");//
|
|
Knee_BiLateral := first of (Knee_Bilateral_Val where Knee_Bilateral_Val.Name = "Knee Aspiration");//
|
|
|
|
|
|
|
|
|
|
// first flow ***************************************************************************************************
|
|
|
|
If Knee_Left.IsSelected = True Then
|
|
Knee_right.IsReadonly := True;
|
|
Knee_BiLateral.IsReadonly := True;
|
|
|
|
EndIf;
|
|
|
|
If Knee_right.IsSelected = True Then
|
|
|
|
Knee_Left.IsReadonly := True;
|
|
Knee_BiLateral.IsReadonly := True;
|
|
|
|
EndIf;
|
|
|
|
If Knee_BiLateral.IsSelected = True Then
|
|
Knee_Left.IsReadonly := True;
|
|
Knee_right.IsReadonly := True;
|
|
|
|
EndIf;
|
|
|
|
|
|
|
|
|
|
If (Knee_Left.IsSelected = False And Knee_right.IsSelected = False And Knee_BiLateral.IsSelected = False ) Then
|
|
|
|
|
|
Knee_Left.IsReadonly := False;
|
|
Knee_right.IsReadonly := False;
|
|
Knee_BiLateral.IsReadonly := False;
|
|
|
|
|
|
EndIf;
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic: conclude true;
|
|
;;
|
|
action: return this_communication, this_form;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|