89 lines
2.5 KiB
Plaintext
89 lines
2.5 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_WOUND_CARE;;
|
|
mlmname: FORM_WOUND_CARE;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair Hospital;;
|
|
author: Courtney Carr Allscripts Corp;;
|
|
specialist: Don Warnick Allscripts Corp ;;
|
|
date: 2016-04-26;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Wound Care Form Logic
|
|
|
|
;;
|
|
|
|
explanation: This MLM is called from the Wound Care Form
|
|
|
|
|
|
Change history
|
|
|
|
04.26.2016 DW CSR# 34286 Created
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(this_communication, this_form, client_info_obj) := argument;
|
|
error_message:="";
|
|
|
|
field_list:= this_form.fields;
|
|
CallingEvent:= this_communication.CallingEvent;
|
|
Visit_Guid := this_communication.ClientVisitGuid;
|
|
Chart_Guid := this_communication.ChartGuid;
|
|
Client_Guid := this_communication.ClientGuid;
|
|
|
|
ApplyDressing:= last of (field_list where field_list.DataItemName = "DISC_Dressing Apply" );
|
|
Instructions := last of (field_list where field_list.DataItemName = "Disc_DressWndInstruct" );
|
|
|
|
|
|
MeplexApplyLocation:= find "apply Mepilex protective dressing to coccyx for hip fracture patient" in string ApplyDressing.Value;
|
|
MeplexInstrLocation:= find "Change Mepilex dressing every 3 days as needed and remove at discharge" in string Instructions.value;
|
|
|
|
|
|
|
|
if MeplexInstrLocation = 0 or MeplexInstrLocation is null
|
|
|
|
then // If the Meplex Instruction box is not already checked, then proceed
|
|
|
|
if MeplexApplyLocation > 0 and MeplexApplyLocation is not null
|
|
|
|
then // If the Meplex Apply box is checked, then proceed
|
|
|
|
if Instructions.value is null
|
|
|
|
then // If there are no other Instruction boxes checked, then simply check the Meplex Instructions box
|
|
|
|
Instructions.value := "Change Mepilex dressing every 3 days as needed and remove at discharge";
|
|
|
|
else // If there are other Instruction boxes checked, then re-check them and check the Meplex Instructions box
|
|
|
|
Instructions.value := Instructions.value || "; Change Mepilex dressing every 3 days as needed and remove at discharge";
|
|
|
|
endif;
|
|
|
|
endif;
|
|
|
|
endif;
|
|
|
|
|
|
;;
|
|
evoke: // No evoke statement
|
|
;;
|
|
logic:
|
|
|
|
conclude true;
|
|
;;
|
|
action:
|
|
|
|
return this_communication, this_form;
|
|
|
|
;;
|
|
end:
|