173 lines
5.5 KiB
Plaintext
173 lines
5.5 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_GASTRIC_BYPASS_POST_OP;;
|
|
mlmname: FORM_GASTRIC_BYPASS_POST_OP;;
|
|
arden: version 2.5;;
|
|
version: 6.10;;
|
|
institution: St. Clair Hospital ;;
|
|
author: Shivprasad Jadhav;;
|
|
specialist: Shivprasad Jadhav, Allscripts;;
|
|
date: 2015-03-12;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: 12-03-2015 CSR-33077 : Created MLM
|
|
|
|
Scenario 1 : When one medication is selected from available 3 for uncler prophylaxis then other 2 should not be able to get selected From medication Grid.
|
|
|
|
Scenario 2 : When one medication is selected from available 4 for antiemetics then other 3 should not be able to get selected from Mdeication Grid pharmacy -anthiemetics section;;
|
|
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;
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
CallingItem := CallingField.Records_;
|
|
|
|
Medication := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 49 );
|
|
Medication_Value := Medication.Value ;
|
|
|
|
CPAP := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 70 );
|
|
CPAP_Value := CPAP.Value ;
|
|
|
|
Respiratory := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
|
|
and field_list.Control_MultiFieldOccNum = 71 );
|
|
Respiratory_Value := Respiratory.Value ;
|
|
|
|
|
|
|
|
// *********** Objects for first flow *************
|
|
Famotidine := first of (Medication_Value where Medication_Value.Name = "Famotidine Inj");
|
|
Pantoprazole := first of (Medication_Value where Medication_Value.Name = "Pantoprazole Inj");
|
|
Pantoprazole_40mg := first of (Medication_Value where Medication_Value.Name = "Pantoprazole 40mg DR Tab");
|
|
/*********************************************************************************************/
|
|
Metoclopramide := first of (Medication_Value where Medication_Value.Name = "Metoclopramide Inj");
|
|
Ondansetron := first of (Medication_Value where Medication_Value.Name = "Ondansetron Inj");
|
|
Promethazine := first of (Medication_Value where Medication_Value.Name = "Promethazine Inj");
|
|
Prochlorperazine := first of (Medication_Value where Medication_Value.Name = "Prochlorperazine Inj");
|
|
/*********************************************************************************************/
|
|
CPAP_Row := first of (CPAP_Value where CPAP_Value.Name = "CPAP");
|
|
Respiratory_Row:= first of (Respiratory_Value where Respiratory_Value.Name = "Nurse Instruction:");
|
|
|
|
|
|
|
|
|
|
If Metoclopramide.IsSelected = True Then
|
|
|
|
Ondansetron.IsReadonly := True;
|
|
Promethazine.IsReadonly := True ;
|
|
Prochlorperazine.IsReadonly := True;
|
|
Endif;
|
|
|
|
If Ondansetron.IsSelected = True Then
|
|
|
|
Metoclopramide.IsReadonly := True;
|
|
Promethazine.IsReadonly := True ;
|
|
Prochlorperazine.IsReadonly := True;
|
|
Endif;
|
|
|
|
If Promethazine.IsSelected = True Then
|
|
Metoclopramide.IsReadonly := True;
|
|
Ondansetron.IsReadonly := True;
|
|
Prochlorperazine.IsReadonly := True;
|
|
Endif;
|
|
If Prochlorperazine.IsSelected = True Then
|
|
Metoclopramide.IsReadonly := True;
|
|
Ondansetron.IsReadonly := True;
|
|
Promethazine.IsReadonly := True ;
|
|
Endif;
|
|
|
|
|
|
|
|
|
|
If Prochlorperazine.IsSelected = False And Metoclopramide.IsSelected = False And Ondansetron.IsSelected = False And Promethazine.IsSelected = False Then
|
|
|
|
Metoclopramide.IsReadonly := False;
|
|
Ondansetron.IsReadonly := False;
|
|
Promethazine.IsReadonly := False ;
|
|
Prochlorperazine.IsReadonly := False;
|
|
|
|
EndIf;
|
|
|
|
|
|
// Second flow ******************************************************************************
|
|
|
|
|
|
If Famotidine.IsSelected = True Then
|
|
Pantoprazole.IsReadonly := True;
|
|
Pantoprazole_40mg.IsReadonly := True ;
|
|
Endif;
|
|
If Pantoprazole.IsSelected = True Then
|
|
Famotidine.IsReadonly := True;
|
|
Pantoprazole_40mg.IsReadonly := True ;
|
|
Endif;
|
|
If Pantoprazole_40mg.IsSelected = True Then
|
|
Famotidine.IsReadonly := True;
|
|
Pantoprazole.IsReadonly := True ;
|
|
Endif;
|
|
|
|
|
|
|
|
If Famotidine.IsSelected = False And Pantoprazole.IsSelected = False And Pantoprazole_40mg.IsSelected = False Then
|
|
Famotidine.IsReadonly := False;
|
|
Pantoprazole.IsReadonly := False;
|
|
Pantoprazole_40mg.IsReadonly := False ;
|
|
|
|
EndIf;
|
|
|
|
// Third flow ******************************************************************************
|
|
|
|
|
|
if (CPAP_Row.IsSelected = FALSE And Respiratory_Row.IsReadonly= TRUE ) Then
|
|
A:=111;
|
|
|
|
Endif;
|
|
|
|
|
|
if ( CallingEvent = "FieldChange" ) then
|
|
if ( CallingField = "MultiOrderGrid|70") or ( CallingField = "MultiOrderGrid|71") then
|
|
if ( true IN CPAP_Row.IsSelected Or true IN Respiratory_Row.IsSelected ) then
|
|
CPAP_Row.IsSelected := true;
|
|
Respiratory_Row.IsSelected := true ;
|
|
Respiratory_Row.IsReadonly := TRUE ;
|
|
|
|
|
|
endif;
|
|
endif;
|
|
endif;
|
|
|
|
|
|
if A= 111 Then
|
|
CPAP_Row.IsSelected := FALSE;
|
|
Respiratory_Row.IsSelected := FALSE;
|
|
CPAP_Row.IsReadonly := FALSE ;
|
|
Respiratory_Row.IsReadonly := FALSE ;
|
|
|
|
Endif;
|
|
|
|
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic: conclude true;
|
|
;;
|
|
action: return this_communication, this_form;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|