75 lines
2.3 KiB
Plaintext
75 lines
2.3 KiB
Plaintext
maintenance:
|
|
|
|
title: Release check for orders without schedules;;
|
|
filename: SCH_Release_Orders_Schedule_Check;;
|
|
arden: version 4.5;;
|
|
version: 2.00;;
|
|
institution: St Clair;;
|
|
author: Debbie Eiler;;
|
|
specialist: Don Warnick;;
|
|
date: 2010-10-06;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: When releasing orders, check for orders without schedules
|
|
;;
|
|
explanation: Orders entered by the ED in a hold session were being released by inpatient staff without properly
|
|
scheduling it.
|
|
|
|
change history
|
|
|
|
10.06.2010 DW Created
|
|
11.03.2010 DW Removed from Production
|
|
|
|
;;
|
|
keywords: Release, schedule
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
|
|
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
|
/* Set to true if logging is needed.*/
|
|
log_execution_info:= false;
|
|
|
|
// Set the text for this variable to indicate whether to send the message or not.
|
|
send_alert := "DoNotSend";
|
|
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
|
|
//--------------------------------------------------------------------------
|
|
local_session := cds_session.local;
|
|
//--------------------------------------------------------------------------
|
|
|
|
visit_alert:= destination { Alert: reminder, "Order Schedule Reminder", high, chart, "Cannot Place Cancel Order", 14005, send_alert};
|
|
any_released_order:= event {OrderRelease User Order};
|
|
|
|
|
|
|
|
;;
|
|
evoke: any_released_order ;
|
|
;;
|
|
logic:
|
|
|
|
if local_session.SessionReleseOrderAlertFired is null then
|
|
local_session.SessionReleseOrderAlertFired := "has fired";
|
|
conclude true;
|
|
endif;
|
|
|
|
;;
|
|
action:
|
|
|
|
|
|
|
|
// write "The schedule of all released orders must be adressed. \n\n To adjust the schedule select the {{{SINGLE-QUOTE}}}Go Back{{{SINGLE-QUOTE}}} button and then select the {{{SINGLE-QUOTE}}}Change Date{{{SINGLE-QUOTE}}} button." at visit_alert;
|
|
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Medications marked as PACU ONLY or OPSU ONLY are to be released by those department personnel only" ,"Release Order Reminder","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
|
|
|
|
;;
|
|
|
|
end:
|