DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
MLMStripper/bin/Debug/FORM/FORM_NEUROLOGY_CPOE_OS.mlm Normal file
View File

@@ -0,0 +1,110 @@
maintenance:
title: FORM_NEUROLOGY_CPOE_OS ;;
mlmname: FORM_NEUROLOGY_CPOE_OS ;;
arden: version 2.5;;
version: 6.10;;
institution: St. Clair Hospital ;;
author: Shivprasad Jadhav;;
specialist: Shivprasad Jadhav, Allscripts;;
date: 2015-03-31;;
validation: testing;;
library:
purpose: Change History
============================================
22-05-2015 DW CSR-33411 : Created
;;
explanation: 1st scenario: When the user select "Rivastigmine Patch 4.6mg/24hr" order, then the user should not be able to select [Rivastigmine Patch 9.5mg/24hr],or vise versa.
2nd Scenario: When the user select "Rivastigmine Patch 9.5mg/24hr" order, then the user should not be able to slect [Rivastigmine Patch 4.6mg/24hr] or vise versa.
When user select one order eg .Hydromorphone inj-2mg for Q2H, then Hydromorphone inj-2mg for Q3H should be grayed out.
When user select Hydromorphone inj-3mg for Q3H then Hydromorphone inj-3mg for Q4H should be grayed out,OR VISE VERSA
When user select one order eg .Hydromorphone inj-2mg for Q2H, then Hydromorphone inj-2mg for Q3H should be grayed out.
When user select Hydromorphone inj-3mg for Q3H then Hydromorphone inj-3mg for Q4H should be grayed out,OR VISE VERSA
;;
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;
//ImgaingMLM := MLM {{{SINGLE-QUOTE}}}FORM_MEDICAL_IMAGING_INDICATIONS_FOR_OS{{{SINGLE-QUOTE}}};
//this_communication,this_form := Call ImgaingMLM With this_communication,this_form,client_info_obj ;
//Retrieve relevant form fields
MedicationAN := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
and field_list.Control_MultiFieldOccNum = 2 );
//Pharmacy_Heparin := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
// and field_list.Control_MultiFieldOccNum = 57 );
MedicationAN_Val := MedicationAN.Value ;
// For Pharmacy AltePhase Grid
//Row1 := MedicationAN_Val[15];
Row2 := MedicationAN_Val[16];
Row3 := MedicationAN_Val[17];
Row4 := MedicationAN_Val[18];
Row5 := MedicationAN_Val[19];
Row6 := MedicationAN_Val[20];
Row7 := MedicationAN_Val[21];
//Row8 := MedicationAN_Val[22];
If Row2.IsSelected = True Then
Row3.IsReadOnly := True ;
Endif;
If Row3.IsSelected = True Then
Row2.IsReadOnly := True ;
Endif;
If ( Row3.IsSelected = False And Row2.IsReadOnly= True) Or (Row2.IsSelected = False And Row3.IsReadOnly= True) Then
Row2.IsReadOnly := False ;Row3.IsReadOnly := False; Row2.IsSelected := False;Row3.IsSelected := False;
Endif;
If Row4.IsSelected = True Then
Row5.IsReadOnly := True ;
Endif;
If Row5.IsSelected = True Then
Row4.IsReadOnly := True ;
Endif;
If ( Row4.IsSelected = False And Row5.IsReadOnly= True) Or (Row5.IsSelected = False And Row4.IsReadOnly= True) Then
Row4.IsReadOnly := False ;Row5.IsReadOnly := False; Row4.IsSelected := False;Row5.IsSelected := False;
Endif;
If Row6.IsSelected = True Then
Row7.IsReadOnly := True ;
Endif;
If Row7.IsSelected = True Then
Row6.IsReadOnly := True ;
Endif;
If ( Row6.IsSelected = False And Row7.IsReadOnly= True) Or (Row7.IsSelected = False And Row6.IsReadOnly= True) Then
Row6.IsReadOnly := False ;Row7.IsReadOnly := False; Row6.IsSelected := False;Row7.IsSelected := False;
Endif;
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return this_communication, this_form;
;;
Urgency: 50;;
end: