Files
St.Clair/MLMStripper/bin/Debug/FORM/FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA.mlm

68 lines
1.8 KiB
Plaintext
Raw Permalink Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
maintenance:
title: FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA;;
mlmname: FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA;;
arden: version 2.5;;
version: 6.10;;
institution: St. Clair Hospital ;;
author: Shivprasad Jadhav;;
specialist: Shivprasad Jadhav, Allscripts;;
date: 2015-01-21;;
validation: testing;;
library:
purpose: If any Anesthesia Consult is ordered then precheck the Nursing Instructions:Call OR Scheduling. ;;
explanation:
;;
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;
field_list := this_form.fields;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
Anesthesia_Consult := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
and field_list.Control_MultiFieldOccNum = 57 );
Anesthesia_Consult_Val := Anesthesia_Consult.Value;
Nursing_Instr := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
and field_list.Control_MultiFieldOccNum = 48 );
Nursing_Instr_Val := Nursing_Instr.Value;
if ( CallingEvent = "FieldChange" ) then
if ( CallingField = "MultiOrderGrid|57") then
if ( true IN Anesthesia_Consult_Val.IsSelected ) then
Nursing_Instr_Val[1].IsSelected := true;
Nursing_Instr_Val[1].IsReadonly := true ;
else
Nursing_Instr_Val[1].IsSelected := false;
Nursing_Instr_Val[1].IsReadonly := false ;
endif;
endif;
endif;
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return this_communication, this_form;
;;
Urgency: 50;;
end: