86 lines
2.2 KiB
Plaintext
86 lines
2.2 KiB
Plaintext
maintenance:
|
||
|
||
title: Form_Urine_Culture_reflex;;
|
||
mlmname: Form_Urine_Culture_reflex;;
|
||
arden: version 2;;
|
||
version: 4.50;;
|
||
institution: St. Clair Hospital;;
|
||
author: Jignesh Dhandhukia;;
|
||
specialist: Jignesh Dhandhukia, Allscripts Corporation;;
|
||
date: 2011-03-08;;
|
||
validation: testing;;
|
||
|
||
library:
|
||
purpose:
|
||
If user chooses ‘Catheter Urine’ from the first mandatory field, the next 2 fields become mandatory.
|
||
If user chooses ‘Clean Catch Urine’ from the first mandatory field, the next 2 fields are grayed out.
|
||
;;
|
||
explanation:
|
||
An MLM is needed on this form to do the following:
|
||
If user chooses ‘Catheter Urine’ from the first mandatory field, the next 2 fields become mandatory.
|
||
If user chooses ‘Clean Catch Urine’ from the first mandatory field, the next 2 fields are grayed out.
|
||
|
||
;;
|
||
keywords:
|
||
urine, reflex;
|
||
|
||
;;
|
||
knowledge:
|
||
type: data-driven;;
|
||
data:
|
||
|
||
|
||
/**************************************************************************************/
|
||
|
||
// This MLM receives three arguments from system
|
||
(this_communication, // Communication object
|
||
this_form, // Form object
|
||
client_info_obj // Arden ClientInfo object
|
||
) := argument;
|
||
|
||
// get calling event values from communication object
|
||
calling_event := this_communication.CallingEvent;
|
||
calling_field := this_communication.CallingFieldName;
|
||
|
||
// Assign pointer to the Field object, get field values
|
||
field_list := this_form.fields;
|
||
|
||
|
||
dependent_field1 := first of
|
||
(field_list where field_list.DataItemName = "LAB_SREQ_VO_CathQuestion" );
|
||
|
||
|
||
|
||
Option_field := first of
|
||
(field_list where field_list.DataItemName = "LAB_RC_SDES_MicroSource_UrineCulture" );
|
||
if exists Option_field then
|
||
opt_chosen := Option_field.Value;
|
||
endif;
|
||
|
||
|
||
if opt_chosen = "Urine Catheter (CATH)" then
|
||
dependent_field1.Control_Mandatory := true;
|
||
dependent_field1.Control_Read_Only := false;
|
||
else
|
||
dependent_field1.value := "";
|
||
dependent_field1.Control_Mandatory := false;
|
||
dependent_field1.Control_Read_Only := true;
|
||
endif;
|
||
|
||
|
||
;;
|
||
evoke:
|
||
|
||
;;
|
||
logic:
|
||
Conclude true;
|
||
|
||
;;
|
||
action:
|
||
// This MLM returns communication_type and form_type parameters.
|
||
return this_communication, this_form;
|
||
|
||
;;
|
||
Urgency: 50;;
|
||
end:
|