maintenance:

	title:  SCH_FUNC_PRINT;;
	mlmname:  SCH_FUNC_PRINT;;
	arden: version 2;;
	version:  4.00;;
	institution:  St Clair Memorial Hospital;;
	author:  Don Warnick;;
	specialist:  ;;
	date:  2012-10-25;;
	validation:  testing;;

library:
	purpose:  This MLM calls an Objects+ DLL (SCMPRINT.DLL)which processes SCM report requests 
	;;
	explanation: 

Change history 
    
    10.25.2012   DW   Created
 
	;;
	keywords:
	;;
knowledge:
	type: data-driven;;
	data:
		
		log_execution_info:=FALSE;
        if (Called_By_Editor = true) then triggerme := false; else triggerme := true; endif;

     	(reportname, logicalprinter, physicalprinter) := ARGUMENT;

     	reportname     := "" || reportname;
        logicalprinter := "" || logicalprinter;
	    physicalprinter:= "" || physicalprinter;

		if  physicalprinter <> "" then physicalprinter:= "\\sc1drp1\" || physicalprinter; endif;

		using "SCMPrint";                       /* DLL Name */
		using namespace "ResultsQuickViewerx";  /* Do not understand purpose...DLL funcional even if this is misspelled */

		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
  		include standard_libs;
		using "ObjectsPlusXA.SCM.Forms";
		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";

                              /*     Namespace.Form  */
		test:= new net_object {{{SINGLE-QUOTE}}}SCMPrintFromMLM.SCMPrintForm{{{SINGLE-QUOTE}}} with (reportname , logicalprinter , physicalprinter);

	;;
	evoke:  /* Call MLM */
	;;
	logic:	
						
		if (triggerme = true)
		then 
			oeUnsigned:=CALL test.ShowDialog;
		//	oeUnsigned:=CALL test.Show;
			conclude true;
		else
			conclude false;
		endif;

		
	;;
	action: //all of the action is done by the call to the FFI
	;;
Urgency: 50;;
end: