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

215
MLMStripper/bin/Debug/FORM/FORM_SET_NEWBORN_PROFILE_ADMISSION.mlm Normal file
View File

@@ -0,0 +1,215 @@
maintenance:
title: NewBorn Profile Admission Order Set;;
mlmname: FORM_Set_NewBorn_Profile_Admission;;
arden: version 2;;
version: 4.50;;
institution: St Clair Admissions;;
author: Robert Spence, Eclipsys Corp Ext 7461;;
specialist: Peggy Karish, Eclipsys Corp ext 7441;;
date: 2008-04-10;;
validation: testing;;
library:
purpose: Used for grids that perform all true or no risk
;;
explanation: This MLM is called from the Patient Profile- NewBorn Admission Orders
;;
keywords: Called MLMs, Respiratory ORder Set, New Born Admission
;;
knowledge:
type: data-driven;;
data:
// This MLM is passed three arguments, of types
// communication_type, form_type and client info object respectively.
(this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
/*******************Make Changes To Spelling And Flags In This Section*******************/
/* Set to true if a decision.log is needed.*/
log_execution_info := FALSE;
/***************************************************************************************/
// Initialize error message
error_message:="";
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
If CallingField = "MultiOrderCheckBox|2" then
NoRisk := "No Discharge Risk Criteria";
OccNumber := 2;
Elseif CallingField = "MultiOrderCheckBox|9" then
NoRisk := "No Pediatric Nutritional Risk";
OccNumber := 9;
Elseif CallingField = "MultiOrderCheckBox|7" then
NoRisk := "No Parent Smoking Risk";
OccNumber := 7;
endif;
// Now do True and false logic for EVERY grid on this form
//Get the multi order grid check box value
Grid_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox"
and field_List.Control_MultiFieldOccNum = OccNumber);
Grid_list :=Grid_fld.Value;
Grid_SelList := Grid_List.IsSelected;
Found_NoRisk:= First of (Grid_list where Grid_list.Name = NoRisk );
ListMembs:= count Grid_SelList;
AllButNo:= ();
FalseList := ();
TrueList := ();
for k in (1 seqto (ListMembs-1)) do
AllButNo:= AllButNo, Grid_SelList[k];
FalseList := FalseList,False;
TrueList := TrueList ,True;
enddo;
OneOfRest := true in AllButNo;
If Found_NoRisk.IsSelected = True then
Grid_List.IsSelected:= FalseList , True;
Grid_List.IsReadOnly:= TrueList , False;
endif;
If (Found_NoRisk.IsSelected = False) and (OneOfRest = False) then // deselected No Risk
Grid_List.IsSelected := FalseList , False;
Grid_List.IsReadOnly := FalseList , False;
Endif;
If (OneOfRest = True) and (Found_NoRisk.IsSelected = False) then
Found_NoRisk.IsSelected := False;
Found_NoRisk.IsReadOnly := True;
endif;
/////////////////////////////////////////////////////////////////////////////////////////////////////
// Now for the extras per grid //
/////////////////////////////////////////////
If CallingField = "MultiOrderCheckBox|7" then
SmokeCon_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox"
and field_List.Control_MultiFieldOccNum = 5);
SmokeCon_list :=SmokeCon_fld.Value;
Found_SmokeConOrder:= first of (SmokeCon_list where SmokeCon_list.Name = "Pulmonary Health Education Consult");
Smoke_Comment := last of (field_list where field_list.DataItemName = "NUR_Comment 3");
Smoke_ConReason := last of (field_list where field_list.DataItemName = "RESP Pulmonary Health Education");
PrevUseToB_Fld := last of (field_list where field_list.DataItemName = "NUR_CheckBox 4");
PrevUseToB_Value := PrevUseToB_Fld.Value;
PrevLess12_Fld := last of (field_list where field_list.DataItemName = "NUR_CheckBox 5");
PrevLess12_Value:= PrevLess12_Fld.Value;
If Found_NoRisk.IsSelected = True then
Smoke_Comment.Value := "";
Smoke_ConReason := " ";
Smoke_ConReason := "";
endif;
Found_UTBOrder:= first of (Grid_list where Grid_list.Name = "Parent Uses Tobacco");
UTB_Selected:= Found_UTBOrder.IsSelected;
Found_Less12Order := first of (Grid_list where Grid_list.Name = "Parent Quit Tobacco- Last 12 months");
Less12_Selected := Found_Less12Order.IsSelected;
If Less12_Selected = PrevLess12_Value then
Robert:="KEWL";
Else
If Less12_Selected = True then
Found_UTBOrder.IsReadOnly := True;
Found_SmokeConOrder.IsSelected := True;
Found_SmokeConOrder.IsReadOnly := True;
Smoke_Comment.Value := "By selecting Smoking Risk Order- an order for a Pulmonary Health Education Consult (Quit Smoking in Last 12 Months) has automatically been created";
Smoke_ConReason.Value := "Quit Smoking in Last 12 Months";
Else
Found_UTBOrder.IsReadOnly := False;
Found_SmokeConOrder.IsSelected := False;
Found_SmokeConOrder.IsReadOnly := False;
Smoke_Comment.Value := "By deselecting Smoking Risk Order- an order for a Pulmonary Health Education Consult (Quit Smoking in Last 12 Months) has automatically been removed";
Smoke_ConReason.Value := "";
Endif;
PrevLess12_Fld.Value:= Less12_Selected;
endif;
If UTB_Selected = PrevUseToB_Value then
Robert := "Still KEWL";
Else
If UTB_Selected = True then
Found_Less12Order.IsReadOnly := True;
Found_SmokeConOrder.IsSelected := True;
Found_SmokeConOrder.IsReadOnly := True;
Smoke_Comment.Value := "By selecting Smoking Risk Order- an order for a Pulmonary Health Education Consult (Smoking Cessation) has automatically been created";
Smoke_ConReason.Value := "Smoking Cessation";
Else
Found_Less12Order.IsReadonly := False;
Found_SmokeConOrder.IsSelected := False;
Found_SmokeConOrder.IsReadOnly := False;
Smoke_Comment.Value := "By deselecting Smoking Risk Order- an order for a Pulmonary Health Education Consult (Smoking Cessation) has automatically been removed";
Smoke_ConReason.Value := "";
Endif;
PrevUseToB_Fld.Value := UTB_Selected;
endif;
Elseif CallingField = "MultiOrderCheckBox|9" then
LactCon_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox"
and field_List.Control_MultiFieldOccNum = 5);
LactCon_list :=LactCon_fld.Value;
Found_LacConOrder:= first of (LactCon_list where LactCon_list.Name = "Lactation Consult");
Nutrition_Comment:= last of (field_list where field_list.DataItemName = "NUR_Comment 4");
Found_Breast:= first of (Grid_list where Grid_list.Name = "Breastfeeding - Newborn");
Found_Breast_Selected:= Found_Breast.IsSelected;
if Found_Breast_Selected = True then
Found_LacConOrder.IsSelected := True;
Found_LacConOrder.IsReadOnly := True;
Nutrition_Comment.Value := "By selecting Breastfeeding - Newborn, an order for a Lactation Consult has automatically been created";
else
Found_LacConOrder.IsSelected := False;
Found_LacConOrder.IsReadOnly := False;
Nutrition_Comment.Value := "By deselecting Breastfeeding - Newborn, an order for a Lactation Consult has automatically been removed";
endif;
endif;
/* this_communication.DisplayForm := "Yes";
this_communication.Message := "One Of Rest Selection is " || OneOfRest|| "\n\n" ||
"NoRisk Select" || Found_NoRisk.IsSelected || "\n\n" ||
"NoRisk Value " || Found_NoRisk.Value;
this_communication.MessageType := "Informational";
*/
;;
evoke: // No evoke statement
;;
logic:
conclude true;
;;
action:
// This MLM returns two parameters, of types communication_type and form_type respectively.
return this_communication, this_form;
;;
end: