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: