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

161
MLMStripper/bin/Debug/FORM/FORM_ISOLATION_SET.mlm Normal file
View File

@@ -0,0 +1,161 @@
maintenance:
title: Isolation Set MLM;;
mlmname: FORM_ISOLATION_SET;;
arden: version 2;;
version: 4.50;;
institution: St Clair Charger MLM;;
author: Robert Spence, Eclipsys Corp;;
specialist: ;;
date: 2006-07-14;;
validation: testing;;
library:
purpose: This MLM is to auto fill supply sets
;;
explanation: This MLM xxxxxxxx
;;
keywords: Called MLMs, Form fields, Set, Isolation
;;
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;
CallingField :=this_communication.CallingFieldName;
CallingEvent := this_communication.CallingEvent;
FormType := this_communication.FormType;
Isolation_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=6);
Airborne_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=1);
Contact_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=2);
Droplet_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=3);
Protective_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=5);
IP_Protective_Header :=Last of (field_list
where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=4);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IsoFieldsList:=Isolation_Header.Value;
IsoSelVals := IsoFieldsList.IsSelected;
IsoSelName := IsoFieldsList.Name;
Airborne:=Last (First 1 from IsoSelVals);
Contact := Last(First 2 from IsoSelVals);
Droplet := Last(First 3 from IsoSelVals);
Protective := Last(First 4 From IsoSelVals);
IP_Protective:=Last(First 5 From IsoSelVals);
If Airborne =True
then
AirFieldsList := Airborne_Header.Value;
AirSelVals := AirFieldsList.IsSelected;
AirFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1);
else
AirFieldsList := Airborne_Header.Value;
AirSelVals := AirFieldsList.IsSelected;
AirFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0);
endif;
If Contact =True
then
ConFieldsList := Contact_Header.Value;
ConSelVals := ConFieldsList.IsSelected;
ConFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1,1,1);
else
ConFieldsList := Contact_Header.Value;
ConSelVals := ConFieldsList.IsSelected;
ConFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0,0,0);
endif;
If Droplet =True
then
DropFieldsList := Droplet_Header.Value;
DropSelVals := DropFieldsList.IsSelected;
DropFieldsList.IsSelected := (1,1,1,1,1,1);
else
DropFieldsList := Droplet_Header.Value;
DropSelVals := DropFieldsList.IsSelected;
DropFieldsList.IsSelected := (0,0,0,0,0,0);
endif;
If Protective =True
then
ProFieldsList := Protective_Header.Value;
ProSelVals := ProFieldsList.IsSelected;
ProFieldsList.IsSelected := (1,1,1,1,1,1,1,1);
else
ProFieldsList := Protective_Header.Value;
ProSelVals := ProFieldsList.IsSelected;
ProFieldsList.IsSelected := (0,0,0,0,0,0,0,0);
endif;
If IP_Protective=True
then
IP_ProFieldsList := IP_Protective_Header.Value;
IP_ProSelVals := IP_ProFieldsList.IsSelected;
IP_ProFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1);
else
IP_ProFieldsList := IP_Protective_Header.Value;
IP_ProSelVals := IP_ProFieldsList.IsSelected;
IP_ProFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0);
endif;
// this_communication.DisplayForm := "Yes";
// this_communication.Message := "MLM Field :" || CallingField || "\n" ||
// "MLM Event :" || CallingEvent || "\n" ||
// "Form type :" || FormType || "\n" ||
// "Fields List : "|| IsoFieldsList || "\n" ||
// "Values: "|| IsoSelVals || "\n" ||
// "Names: " || IsoSelName|| "\n" ||
// "Airborne: " || Airborne || "\n" ||
// "Protective: " || Protective || "\n" ||
// "Test3: " || Test3 || "\n" ||
// "Cnum: " || CNum;
// 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: