82 lines
2.0 KiB
Plaintext
82 lines
2.0 KiB
Plaintext
maintenance:
|
|
|
|
title: Form_Post_Permanent_Pacemaker_Activity;;
|
|
mlmname: Form_Post_Permanent_Pacemaker_Activity;;
|
|
arden: version 2.5;;
|
|
version: 6.10;;
|
|
institution: SCH ;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: Shubha Rai;;
|
|
date: 2015-01-07;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: If one of the DME: Arm Sling Order Selected then restrict the User to select Another Arm sling Order on Post Permanent Pacemaker or ICD Insertion Orderset;;
|
|
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;
|
|
field_list2 := this_form.fields;
|
|
//field_list3 := this_form.fields;
|
|
|
|
Client_GUID := this_communication.ClientGUID;
|
|
ClientVisit_GUID := this_communication.ClientVisitGUID;
|
|
Chart_GUID := this_communication.ChartGUID;
|
|
form_name := this_form.Name;
|
|
|
|
//if form_name = "Pacemaker_ICD_PostOp" AND this_communication.FormType = "OrderSet" THEN
|
|
|
|
|
|
/* If any item is selected then select all grid items */
|
|
|
|
Selected_Flag := False;
|
|
Multi_Grid := First of ( field_list2 where field_list.DataItemName = "MultiOrderGrid" and field_list.Label = "DME: Arm Sling") ;
|
|
Multi_Grid_fields := Multi_Grid.Value;
|
|
item1 := Multi_Grid_fields[1];
|
|
item2 := Multi_Grid_fields[2];
|
|
|
|
item3 := Multi_Grid_fields[3];
|
|
item4 := Multi_Grid_fields[4];
|
|
|
|
|
|
if item1.IsSelected = TRUE Then
|
|
item2.IsReadonly := TRUE ;
|
|
EndIF;
|
|
if item1.IsSelected = FALSE Then
|
|
item2.IsReadonly := FALSE ;
|
|
EndIF;
|
|
|
|
|
|
if item2.IsSelected = TRUE Then
|
|
item1.IsReadonly := TRUE ;
|
|
EndIF;
|
|
if item2.IsSelected = FALSE Then
|
|
item1.IsReadonly := FALSE ;
|
|
EndIF;
|
|
|
|
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic: conclude true;
|
|
;;
|
|
action: return this_communication, this_form;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|