70 lines
2.3 KiB
Plaintext
70 lines
2.3 KiB
Plaintext
maintenance:
|
|
|
|
title: Calculate Durations for Advanced Duplicate Order Checking MLM;;
|
|
mlmname: STD_FUNC_DUP_DURATION;;
|
|
arden: version 2.5;;
|
|
version: 18.4;;
|
|
institution: Allscripts, Standard MLM;;
|
|
author: Allscripts Healthcare Solutions, Inc.;;
|
|
specialist: ;;
|
|
date: 2018-10-26;;
|
|
validation: testing;;
|
|
|
|
/* P r o p r i e t a r y N o t i c e */
|
|
/* Unpublished (c) 2013 - 2018 Allscripts Healthcare, LLC. and/or its affiliates. All Rights Reserved.
|
|
|
|
P r o p r i e t a r y N o t i c e: This software has been provided pursuant to a License Agreement, with
|
|
Allscripts Healthcare, LLC. and/or its affiliates, containing restrictions on its use. This software contains
|
|
valuable trade secrets and proprietary information of Allscripts Healthcare, LLC. and/or its affiliates and is
|
|
protected by trade secret and copyright law. This software may not be copied or distributed in any form or medium,
|
|
disclosed to any third parties, or used in any manner not provided for in said License Agreement except with prior
|
|
written authorization from Allscripts Healthcare, LLC. and/or its affiliates. Notice to U.S. Government Users:
|
|
This software is {{{SINGLE-QUOTE}}}Commercial Computer Software{{{SINGLE-QUOTE}}}.
|
|
|
|
All product names are the trademarks or registered trademarks of Allscripts Healthcare, LLC. and/or its affiliates.
|
|
*/
|
|
/* P r o p r i e t a r y N o t i c e */
|
|
|
|
library:
|
|
purpose: Calculates the durations for the Advanced Duplicate-Order Checking MLM.
|
|
;;
|
|
explanation: Pass in a number and a string representation of time units, and
|
|
it will converted the information into an ARDEN Duration.
|
|
The expected spellings are:
|
|
"minutes", "hours", "days", "weeks", "months", and "hours".
|
|
;;
|
|
keywords: Duplicate Order; Duration; Calculation;
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(some_number,
|
|
time_unit) := ARGUMENT;
|
|
|
|
If time_unit = "minutes"
|
|
then answer:= some_number MINUTES;
|
|
elseif time_unit = "hours"
|
|
then answer:= some_number HOURS;
|
|
elseif time_unit = "days"
|
|
then answer:= some_number DAYS;
|
|
elseif time_unit = "weeks"
|
|
then answer:= some_number WEEKS;
|
|
elseif time_unit = "months"
|
|
then answer:= some_number MONTHS;
|
|
elseif time_unit = "years"
|
|
then answer:= some_number YEARS;
|
|
endif; /*if time_unit = */
|
|
|
|
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
Conclude True;
|
|
;;
|
|
action:
|
|
Return (answer);
|
|
;;
|
|
end:
|