70 lines
1.6 KiB
Plaintext
70 lines
1.6 KiB
Plaintext
maintenance:
|
|
|
|
title: SCH_Unsubmitted_Heparin_Order;;
|
|
mlmname: SCH_Unsubmitted_Heparin_Order;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair Memorial Hospital;;
|
|
author: Dean Miklavic;;
|
|
specialist: Don Warnick;;
|
|
date: 2009-07-16;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
;;
|
|
|
|
explanation: This MLM is called when and APTT order is entered. It interrogates the unsubmitted orders for Heparin orders
|
|
and passes them in one of two session objects (one for SQ orders and one for IV orders) to the
|
|
FORM_Lab_APTT_Heparin_Status which uses it to populate its Heparin Status field.
|
|
|
|
|
|
Change history
|
|
|
|
07.16.2009 DW Initial Build
|
|
|
|
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
//Logging level of execution information
|
|
log_execution_info:=FALSE;
|
|
|
|
local_session := cds_session.local;
|
|
|
|
|
|
//The evoking event for this MLM is OrderInit
|
|
|
|
|
|
// fire this MLM for APTT orders
|
|
|
|
evoking_event_order:=EVENT{OrderInit User Order: where name in ("APTT", "CCM Common Lab Orders")};
|
|
|
|
|
|
// get the order names that begin with Heparin inj (SQ) or Heparin 25 (IV)
|
|
|
|
(unsubmitted_heparin_sq) := READ {UnsubmittedOrders: Name WHERE Name MATCHES PATTERN "Heparin inj%"};
|
|
(unsubmitted_heparin_iv) := READ {UnsubmittedOrders: Name WHERE Name MATCHES PATTERN "Heparin 25%" } ;
|
|
|
|
|
|
// populate the session objects with the SQ or IV names
|
|
|
|
local_session.SessionUnsubmittedHeparinSQ := unsubmitted_heparin_sq;
|
|
local_session.SessionUnsubmittedHeparinIV := unsubmitted_heparin_iv;
|
|
|
|
|
|
;;
|
|
evoke: evoking_event_order
|
|
;;
|
|
logic:
|
|
|
|
;;
|
|
action:
|
|
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|