99 lines
2.3 KiB
Plaintext
99 lines
2.3 KiB
Plaintext
maintenance:
|
|
|
|
title: Form_Post_Permanent_Pacemaker_Dressing;;
|
|
mlmname: Form_Post_Permanent_Pacemaker_Dressing;;
|
|
arden: version 2.5;;
|
|
version: 6.10;;
|
|
institution: SCH ;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: Shubha Rai;;
|
|
date: 2014-12-30;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: If upper Dressing Item Get selected then auto select Lower Dressing Item. If Upper dressing Get deselected then it remain as is on Post Permanent Pacemaker or ICD Insertion Orderset form ;;
|
|
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;
|
|
|
|
Client_GUID := this_communication.ClientGUID;
|
|
ClientVisit_GUID := this_communication.ClientVisitGUID;
|
|
Chart_GUID := this_communication.ChartGUID;
|
|
form_name := this_form.Name;
|
|
|
|
|
|
|
|
|
|
/* 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 = "Dressing") ;
|
|
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];
|
|
|
|
A:=0;
|
|
if item2.IsSelected = TRUE Then
|
|
A:=11;
|
|
//item3.IsSelected := TRUE ;
|
|
EndIF;
|
|
|
|
if item3.IsSelected = FALSE Then
|
|
A:=33;
|
|
EndIf;
|
|
|
|
|
|
if item2.IsSelected = FALSE Then
|
|
A:=22;
|
|
EndIF;
|
|
|
|
|
|
if item2.IsSelected = FALSE And item3.IsSelected = TRUE Then
|
|
A:=1;
|
|
EndIF;
|
|
|
|
If A=11 Then
|
|
item3.IsSelected := TRUE ;
|
|
ENDIF;
|
|
If A=22 Then
|
|
item3.IsSelected := FALSE ;
|
|
item3.IsReadonly :=FALSE;
|
|
EndIf;
|
|
If A=33 Then
|
|
item3.IsSelected := TRUE ;
|
|
EndIF;
|
|
If A=1 Then
|
|
item3.IsSelected := FALSE ;
|
|
item3.IsReadonly :=FALSE;
|
|
EndIf;
|
|
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic: conclude true;
|
|
;;
|
|
action: return this_communication, this_form;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|