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

92 lines
3.2 KiB
Plaintext

maintenance:
title: ;;
mlmname: FORM_VITAL_SIGN_FREQUENCY;;
arden: version 2.5;;
version: 0.00;;
institution: St.Clair Hospital ;;
author: Sandy Zhang ;;
specialist: Janet Nordin ;;
date: 2017-07-14;;
validation: testing;;
library:
purpose: Send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column {{{SINGLE-QUOTE}}}VS Frequency{{{SINGLE-QUOTE}}} in Patient list Department: IMC and view: IMC CNA. If the order selected is {{{SINGLE-QUOTE}}}Vital Signs: Routine{{{SINGLE-QUOTE}}} then send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column.
This lets the CNA know to routinely monitor the patient{{{SINGLE-QUOTE}}}s vital sign.
;;
explanation:
Change History
07.14.2017 SZ CSR#35481 - MEWS Score Column Update - lumped into same project on status boards
;;
keywords: vital signs frequency, vital signs order, VS frequency column
;;
citations: Model: DOC_SEPSIS_STATUS_BOARD_COLUMN_ED
;;
knowledge:
type: data-driven;;
data:
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
using "ObjectsPlusXA.SCM.Forms";
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
// 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;
// grab relevant guids
ClientGuid := this_communication.ClientGUID;
ChartGuid := this_Communication.ChartGUID;
UserGuid := this_communication.UserGUID;
VisitGuid := this_communication.ClientVisitGUID;
comm_obj := this_communication.primaryobj;
form_fields := this_form.Fields;
(frequency_field) := first(form_fields where form_fields.label = "Frequency");
(frequency_field_value) := first(frequency_field.value.FrequencySummary where frequency_field.label = "Frequency");
// if the order selected is {{{SINGLE-QUOTE}}}Vital Signs: Routine{{{SINGLE-QUOTE}}} then send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column
if (comm_obj.Name = "Vital Signs: Routine") then
frequency_field_value := "Routine";
endif;
IF(frequency_field_value is not NULL OR frequency_field_value Is nOt "") THEN // added By Shami
// send the total MEWS score to the column
create_column := MLM {{{SINGLE-QUOTE}}}SCH_FUNC_CREATE_ENTERPRISE_DEFINED_COLUMN{{{SINGLE-QUOTE}}}; // MLM that creates the Enterprise Defined Column in the "Action" section of the MLM
EDCObj := OBJECT [column_name,column_value,client_guid,chart_guid,client_visit_guid]; // Create Enterprise Defined Column Obj
VS_frequency_column:= NEW EDCObj WITH
[
column_name := "Vital Signs Frequency",
column_value := frequency_field_value,
client_guid := ClientGUID,
chart_guid := ChartGUID,
client_visit_guid := VisitGuid
];
return_value := call create_column with ( VS_frequency_column );
ENDIF;
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return this_communication, this_form;
;;
Urgency: 50;;
end: