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

150
MLMStripper/bin/Debug/FORM/FORM_TOTAL_HIP_DCINST.mlm Normal file
View File

@@ -0,0 +1,150 @@
maintenance:
title: Total Hip Replacement Discharge Instructions;;
mlmname: FORM_TOTAL_HIP_DCINST;;
arden: version 2.5;;
version: 0.00;;
institution: St. Clair Hospital;;
author: Shawn Head x7468;;
specialist: Robert Stewart;;
date: 2015-04-20;;
validation: testing;;
library:
purpose: This MLM will auto populate certain fields on the order form based on the selected Discharge type
;;
explanation: This MLM will populate fields on the order form based on the selected discharge type.
;;
keywords: total, knee, replacement, discharge, instructions
;;
citations:
4.20.2015 - STH - CSR#: 33149 - PROD 5.19.2015 - Auto select data on form based on selected template.
;;
knowledge:
type: data-driven;;
data:
//start here
// 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*******************/
/***************************************************************************************/
// Initialize error message
error_message:="";
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
CallingEvent := this_communication.CallingEvent;
CallingField :=this_communication.CallingFieldName;
ClientVisitGuid := this_communication.ClientVisitGuid;
//Initialize MLM pointers:
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
CallingEvent := this_communication.CallingEvent;
Visit_Guid := this_communication.ClientVisitGuid;
Chart_Guid := this_communication.ChartGuid;
Client_Guid := this_communication.ClientGuid;
comm_obj := this_communication.primaryobj;
call_field := this_communication.CallingFieldName;
DC_Type1 := first of (field_list where field_list.DataItemName = "DC_Home_Standard");
DC_Type2 := first of (field_list where field_list.DataItemName = "DC_Home_Standard 2");
Incision_Dressing_instruct := first of (field_list where field_list.DataItemName = "DC_Home_Dressing_Knee");
WeightBearing_instruct := first of (field_list where field_list.DataitemName = "DC_Home_Weight_Bearing");
Interventions := first of (field_list where field_list.DataitemName = "DISC_Total_Knee_Replacement");
Precautions := first of (field_list where field_list.DataitemName = "DISC_Total_Knee_Precautions");
PT_PW := first of (field_list where field_list.DataitemName = "DC_Home_PT_PerWeek");
RN_PW := first of (field_list where field_list.DataitemName = "DC_Home_RN_PerWeek");
Versamode := first of (field_list where field_list.DataitemName = "DC_Home_CPM_Versamode");
if this_communication.CallingFieldName = "DC_Home_Standard" then
if DC_Type1.Value = true then
DC_Type2.Control_read_only := true;
Incision_Dressing_instruct.value := "Remove Aquacel dressing after 7 days; After Aquacel dressing is removed, apply dry dressing.; Change dressing daily.; NO creams or lotions on incision.";
WeightBearing_instruct.Value := "Weight Bearing as Tolerated";
Interventions.Value := "Wear ted hose until directed at follow up appointment. Remove at bedtime and reapply in AM.; Inspect heel for redness. Notify physician if blister occurs.; "
|| "OK to shower.; Take over the counter stool softener while on pain medications.; Use incentive spirometer every 2 hours while awake for 2 weeks post discharge.; "
|| "NO driving until follow up appointment.; NO tub baths.; DO NOT place pillow beneath knee joint.; "
|| "Use assistive device for ambulation until otherwise instructed by Physician or Physical Therapist; NO additional Advil, Aleve, Ibuprofen or Aspirin until permitted by surgeon.; "
|| "Posterior surgical approach hip precautions:; Avoid hip flexion greater than 90 degrees; Avoid moving hip out to the side (crossing the operative leg past the midline); "
|| "Avoid turning foot inward";
Precautions.Value := "Call Your Surgeons Office: If incision becomes red, if drainage occurs, if excessive swelling develops, fever of 101 or above, nausea and vomiting, diarrhea.; "
|| "If you had a joint replacement you should be on a prophylactic medication to help avoid blood clots. If you were discharged without a medication please contact your surgeon.; "
|| "Call 911 if you develop sudden shortness of breath or develop chest pain.";
PT_PW.Value := "2 - 3";
RN_PW.Value := "2 - 3";
Versamode.Value := true;
else
DC_Type2.Control_read_only := false;
Incision_Dressing_instruct.value := "";
WeightBearing_instruct.Value := "";
Interventions.Value := "";
Precautions.Value := "";
PT_PW.Value := "";
RN_PW.Value := "";
Versamode.Value := false;
endif;
endif;
if this_communication.CallingFieldName = "DC_Home_Standard 2" then
if DC_Type2.Value = true then
DC_Type1.Control_read_only := true;
Incision_Dressing_instruct.value := "Leave incision open to air.; Apply bandage if incision has drainage present.";
WeightBearing_instruct.Value := "Weight Bearing as Tolerated";
Interventions.Value := "Inspect heel for redness. Notify physician if blister occurs.; OK to shower.; Take over the counter stool softener while on pain medications.; "
|| "Use incentive spirometer every 2 hours while awake for 2 weeks post discharge.; DO NOT place pillow beneath knee joint.; NO tub baths.; "
|| "Use assistive device for ambulation until otherwise instructed by Physician or Physical Therapist; Resume normal activity as tolerated.; "
|| "NO driving until narcotics are discontinued.; NO driving until leg control is regained; NO additional Advil, Aleve, Ibuprofen or Aspirin until permitted by surgeon.; "
|| "When resting at night, keep knee at full extention , use brace if needed.; Avoid turning knee inward.";
Precautions.Value := "Call Your Surgeons Office: If incision becomes red, if drainage occurs, if excessive swelling develops, fever of 101 or above, nausea and vomiting, diarrhea.; "
|| "If you had a joint replacement you should be on a prophylactic medication to help avoid blood clots. If you were discharged without a medication please contact your surgeon.; "
|| "Call 911 if you develop sudden shortness of breath or develop chest pain.";
PT_PW.Value := "2 - 3";
RN_PW.Value := "2 - 3";
Versamode.Value := true;
else
DC_Type1.Control_read_only := false;
Incision_Dressing_instruct.value := "";
WeightBearing_instruct.Value := "";
Interventions.Value := "";
Precautions.Value := "";
PT_PW.Value := "";
RN_PW.Value := "";
Versamode.Value := false;
endif;
endif;
;;
priority: 50
;;
evoke:
;;
logic:
conclude true;
;;
action:
return this_communication, this_form;
;;
Urgency: 50;;
end: