78 lines
2.4 KiB
Plaintext
78 lines
2.4 KiB
Plaintext
maintenance:
|
|
|
|
title: Form Diluent based on selected Dose;;
|
|
mlmname: FORM_DILUENT_FROM_DOSE;;
|
|
arden: version 2;;
|
|
version: 5.00;;
|
|
institution: St.Clair;;
|
|
author: Ankit Mistry;;
|
|
specialist: Ankit Mistry;;
|
|
date: 2017-08-16;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Used to set Dilunt Data based on Entered Dose
|
|
If Then
|
|
DosageLow >= 1 and DosageLow < 501 BaseSolution.Name = 0.9% NaCl 100ml . BaseSolution.Dose = 100 BaseSolution.UOM = mL
|
|
DosageLow >= 501 and DosageLow < 1700 BaseSolution.Name = 0.9% NaCl 250ml . BaseSolution.Dose = 250 BaseSolution.UOM = mL
|
|
DosageLow >= 1700 BaseSolution.Name = 0.9% NaCl 500ml . BaseSolution.Dose = 500 BaseSolution.UOM = mL
|
|
;;
|
|
|
|
explanation: This MLM was developed to Auto Populate Dilunt Data based on Entered Dose.
|
|
|
|
Change history
|
|
|
|
08-07-2017 AMistry - New MLM Created.
|
|
|
|
;;
|
|
keywords:
|
|
;;
|
|
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;
|
|
|
|
field_list:= this_form.fields;
|
|
|
|
zz := field_list.Records__;
|
|
zzz := this_communication.PrimaryObj.Records__;
|
|
|
|
Dosage_Obj := FIRST OF ( field_list WHERE field_list.DataItemName = "DosageLow" );
|
|
DosageValue := Dosage_Obj.Value AS NUMBER;
|
|
|
|
BaseSolution_Obj := FIRST OF ( field_list WHERE field_list.DataItemName = "BaseSolution" );
|
|
BaseSolutionValue := BaseSolution_Obj.Value;
|
|
|
|
If DosageValue >= 1 AND DosageValue < 501 then
|
|
BaseSolutionValue.Name := "0.9% NaCl 100ml .";
|
|
BaseSolutionValue.Dose := "100";
|
|
BaseSolutionValue.uom := "mL";
|
|
ElseIf DosageValue >= 501 AND DosageValue < 1700 then
|
|
BaseSolutionValue.Name := "0.9% NaCl 250ml .";
|
|
BaseSolutionValue.Dose := "250";
|
|
BaseSolutionValue.uom := "mL";
|
|
ElseIf DosageValue >= 1700 then
|
|
//BaseSolutionValue.Name := "0.9% NaCl 500ml .";
|
|
BaseSolutionValue.Name := "0.9% NaCl 500ml";
|
|
BaseSolutionValue.Dose := "500";
|
|
BaseSolutionValue.uom := "mL";
|
|
EndIf;
|
|
;;
|
|
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:
|