69 lines
1.4 KiB
Plaintext
69 lines
1.4 KiB
Plaintext
maintenance:
|
|
|
|
title: SCH_UNSUBMITTED_DIET_ORDERS;;
|
|
mlmname: SCH_UNSUBMITTED_DIET_ORDERS;;
|
|
arden: version 2.5;;
|
|
version: 16.3;;
|
|
institution: Allscripts;;
|
|
author: Teresa Spicuzza;;
|
|
specialist: Teresa Spicuzza;;
|
|
date: 2017-08-17;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Capture unsubmitted diet and NPO orders.
|
|
;;
|
|
explanation: Capture the unsubmitted diet and NPO orders for use with Diabetic Management Order Set logic.
|
|
|
|
Change History
|
|
--------------
|
|
08.17.2017 TMS CSR 35723: Created.
|
|
;;
|
|
keywords: diet; npo; unsubmitted; orders
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
//.Net libraries
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
//Local session object
|
|
local_session := cds_session.local;
|
|
|
|
/*******************************************************************/
|
|
//Set to true if logging needed
|
|
log_execution_info := false;
|
|
|
|
diet_order_event := EVENT { OrderEnter User Order : WHERE Name in ("Diet", "NPO") };
|
|
|
|
if called_by_editor then
|
|
evokingobject := read last {Order : THIS where Name = "NPO"};
|
|
endif;
|
|
|
|
if evokingobject.name = "NPO" then
|
|
local_session.SessionUnsubNPOOrder := true;
|
|
|
|
elseif evokingobject.name = "Diet" then
|
|
local_session.SessionUnsubDietOrder := true;
|
|
|
|
endif;
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
|
|
diet_order_event;
|
|
|
|
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|