126 lines
4.2 KiB
Plaintext
126 lines
4.2 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_SET_ET_STANDING_ORDERS;;
|
|
mlmname: FORM_SET_ET_STANDING_ORDERS;;
|
|
arden: version 2.5;;
|
|
version: 5.50;;
|
|
institution: St Clair Hospital;;
|
|
author: Courtney Carr;;
|
|
specialist: Don Warnick;;
|
|
date: 2016-08-04;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Select the appropriate ET treatment and medications for the selected wound type checkbox.
|
|
;;
|
|
|
|
explanation: This MLM is called from the ET Standing Orders Order Set
|
|
|
|
|
|
Change history
|
|
|
|
08.04.2016 - DJW CSR# 34898 - Created
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs,
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(this_communication, this_form, client_info_obj) := argument;
|
|
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
log_execution_info := FALSE;
|
|
error_message:="";
|
|
|
|
field_list:= this_form.fields;
|
|
|
|
client_guid := this_communication.ClientGUID;
|
|
visit_guid := this_communication.ClientVisitGUID;
|
|
chart_guid := this_communication.ChartGuid;
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
|
|
// Define the checkbox that was selected
|
|
|
|
checkboxnumber:= substring 2 characters starting at 14 from this_communication.CallingFieldName;
|
|
selectedcheckbox := first of (field_list where field_list.DataItemName = "NUR_Checkbox" and field_List.Control_MultiFieldOccNum = (checkboxnumber as number));
|
|
|
|
// Define the 2 grids
|
|
|
|
ETOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 1);
|
|
MedOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 2);
|
|
|
|
// Map the row number(s) in the grid(s) related to each of the checkboxes
|
|
|
|
et_griditem := 999;
|
|
rx_griditem := 999;
|
|
|
|
if checkboxnumber = "1" then et_griditem := 1; // Diabetic foot ulcer
|
|
elseif checkboxnumber = "2" then et_griditem := 2; rx_griditem := 1; // Diabetic foot ulcer - gangrenous
|
|
elseif checkboxnumber = "3" then et_griditem := 3; // Dechiced surgical wound
|
|
elseif checkboxnumber = "4" then et_griditem := 4; rx_griditem := 2; // Leg wounds
|
|
elseif checkboxnumber = "5" then et_griditem := 5; // Heavy exudating wounds
|
|
elseif checkboxnumber = "6" then et_griditem := 6; // Ischemic wounds
|
|
elseif checkboxnumber = "7" then et_griditem := 7; // Fissures on heels of feet
|
|
elseif checkboxnumber = "8" then et_griditem := 8; rx_griditem := 3; // Auto immune wounds
|
|
elseif checkboxnumber = "9" then et_griditem := 9; rx_griditem := 2; // Radiation burns
|
|
elseif checkboxnumber = "10" then et_griditem := 11; // Blisters
|
|
elseif checkboxnumber = "11" then et_griditem := 12; // Herpes shingles
|
|
elseif checkboxnumber = "12" then et_griditem := 13; // Fungating lesions - brest
|
|
elseif checkboxnumber = "13" then et_griditem := 14; // Fistula wounds
|
|
elseif checkboxnumber = "14" then et_griditem := 15; rx_griditem := 4; // Partial full thickness wound
|
|
elseif checkboxnumber = "15" then et_griditem := 16; rx_griditem := 5; // Full thickness wound
|
|
elseif checkboxnumber = "16" then et_griditem := 17; rx_griditem := 6; // Stasis dermatitis
|
|
elseif checkboxnumber = "17" then et_griditem := 18; // Venous stasis ulcers
|
|
elseif checkboxnumber = "18" then et_griditem := 10; // Hematoms to lower extremities
|
|
endif;
|
|
|
|
|
|
// Set the trufalse value to determine if the grid item is to be checked or unchecked
|
|
|
|
if selectedcheckbox.Value = true
|
|
then truefalse := true;
|
|
else truefalse := false;
|
|
endif;
|
|
|
|
|
|
// Update the ET Grid
|
|
|
|
index_list := 1 seqto (count ETOrderGrid.Value);
|
|
for I in index_list do
|
|
if et_griditem = I
|
|
then ETOrderGrid.Value[et_griditem].IsSelected := truefalse;
|
|
endif;
|
|
enddo;
|
|
|
|
// Update the Medications Grid
|
|
|
|
index_list := 1 seqto (count MedOrderGrid.Value);
|
|
for I in index_list do
|
|
if rx_griditem = I
|
|
then MedOrderGrid.Value[rx_griditem].IsSelected := truefalse;
|
|
endif;
|
|
enddo;
|
|
|
|
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
|
|
conclude true;
|
|
;;
|
|
action:
|
|
|
|
return this_communication, this_form;
|
|
;;
|
|
end:
|