73 lines
2.1 KiB
Plaintext
73 lines
2.1 KiB
Plaintext
maintenance:
|
|
|
|
title: SCH_RETRIEVE_VANCOMYCIN_ANTIBIOTIC_SCHEDULE;;
|
|
mlmname: SCH_RETRIEVE_VANCOMYCIN_ANTIBIOTIC_SCHEDULE;;
|
|
arden: version 2.5;;
|
|
version: 6.10;;
|
|
institution: Allscripts;;
|
|
author: Juliet M. Law;;
|
|
specialist: Teresa Spicuzza;;
|
|
date: 2011-07-25;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: TEST
|
|
;;
|
|
explanation:
|
|
;;
|
|
keywords:
|
|
;;
|
|
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;
|
|
|
|
//Set the text for this variable to indicate whether to send the message or not
|
|
send_alert := "DoNotSend";
|
|
|
|
vanco_enter_event := EVENT { OrderEnter User Order : WHERE Name = "Vancomycin:"};
|
|
|
|
/*******************************************************************/
|
|
|
|
//Unit testing
|
|
if called_by_editor then
|
|
evokingobject := read last {Order : THIS where Name = "Vancomycin:"};
|
|
endif;
|
|
|
|
//Capture current patient
|
|
(clientGuid, clientName, client_clientId_obj) := read last {ClientInfo : GUID, DisplayName, ClientID };
|
|
clientVisitGuid := read last {ClientVisit : GUID};
|
|
chartGuid := read last {ClientVisit : ChartGUID};
|
|
|
|
if ( EvokingObject.OrderSetName <> "Pneumonia Antibiotic" AND EvokingObject.OrderSetName <> "Skin Antibiotic Inpatient" //AND EvokingObject.OrderSetName <> "Vancomycin Orders"
|
|
AND EvokingObject.OrderSetName <> "Sepsis Unknown Source Antibiotic" ) then
|
|
local_session.SessionVancoTroughScheduledDate := read last { Order : RequestedDate REFERENCING EvokingObject };
|
|
local_session.SessionVancoTroughScheduledTime := read last { Order : RequestedTime REFERENCING EvokingObject };
|
|
local_session.SessionVancoTroughFrequency := read last { Order : FrequencyCode REFERENCING EvokingObject };
|
|
endif;
|
|
|
|
;;
|
|
priority: 25
|
|
;;
|
|
evoke:
|
|
vanco_enter_event;
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
|
|
;;
|
|
Urgency: 25;;
|
|
end:
|