Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/SCH/SCH_LOGDOCTORASIN.mlm
+++ b/MLMStripper/bin/Debug/SCH/SCH_LOGDOCTORASIN.mlm
@@ -0,0 +1,119 @@
+maintenance:
+
+	title:  SCH_LOGDOCTORASIN;;
+	mlmname:  SCH_LOGDOCTORASIN;;
+	arden: version 2;;
+	version:  4.00;;
+	institution:  St Clair Memorial Hospital;;
+	author:  Robert Spence;;
+	specialist:  ;;
+	date:  2010-04-22;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM calls an Objects+ DLL which statuses doctors as "in house" on the Physician Directory.
+
+
+              IMPORTANT NOTE: THIS MLM SHOULD ONLY BE IN PRODUCTION STATUS IN THE PROD DATABASE.  
+
+                IT WILL STATUS A DOCTOR AS IN HOUSE FROM ANY DATABASE, WHICH IS INAPPROPRIATE IN DEV OR TRAIN
+              
+
+	;;
+	explanation: 
+
+
+Change history 
+    
+    12.23.2010   DW   Altered for 5.5. Change event UserLogon to ActivateApplication
+	08.02.2016   DW   H.D. ????? Physician login not working. - Updated this MLM in Prod with no change, just to see if perhaps it was corrupted and this would fix it
+
+ 
+	;;
+	keywords:
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		//Logging level of execution information
+		log_execution_info:=FALSE;
+      
+		using "PhysicianIn";
+		using namespace "PhysicianIn";
+
+		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+  		include standard_libs;
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+		//The evoking event for this MLM is OrderInit
+		evoking_event_order:= EVENT {ActivateApplication User UserInfo:
+										WHERE CareProvider is NOT NULL 
+										And OrderRoleType Matches Pattern "%Physician%"};
+
+		test:= new net_object {{{SINGLE-QUOTE}}}PhysicianIn.PhysicianForm{{{SINGLE-QUOTE}}};
+
+
+       (user_workstation_GUID ) := read last { StateInfo: WorkstationGUID };
+
+		loc := read last {" select l.name " 
+						|| " from cv3workstation ws with (nolock) "
+                        || " join cv3location l with (nolock) on l.guid = ws.locationguid "
+						|| " where ws.guid = " || SQL(user_workstation_GUID)
+						|| " and (l.code like {{{SINGLE-QUOTE}}}%|Offices        |%{{{SINGLE-QUOTE}}} or l.code like {{{SINGLE-QUOTE}}}%|Offsite(WAN)   |%{{{SINGLE-QUOTE}}} "
+                        || " or   l.code like {{{SINGLE-QUOTE}}}%|FNA Offices    |%{{{SINGLE-QUOTE}}} or ws.idcode like {{{SINGLE-QUOTE}}}schtermserv%{{{SINGLE-QUOTE}}})    "
+                        || " and l.name <> {{{SINGLE-QUOTE}}}UPTCT Cancer Center{{{SINGLE-QUOTE}}} "}; 
+
+       	// dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with " " || wsname,"Test","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
+
+
+		userguid :=read last {UserInfo: guid};
+		
+		rettype := read last {" select typecode " 
+						|| " from cv3careprovider with (nolock) "
+						|| " where guid = " || SQL(userguid) 
+						|| " and  typecode not like {{{SINGLE-QUOTE}}}Non Staff%{{{SINGLE-QUOTE}}} "
+						|| " and typecode like {{{SINGLE-QUOTE}}}%Physician%{{{SINGLE-QUOTE}}} "
+					};
+		
+
+		if (rettype is null) or (not (exists rettype )) or (exists loc)  then
+			triggerme := false;
+		else
+			triggerme := true;
+		endif;
+
+
+
+	;;
+	evoke:  evoking_event_order;
+	;;
+	logic:	
+
+		//provider list for the pilot
+	/*	prov_list:=	("7000001175119001",//Spence, Robert
+						"6000001149119001",
+						"4000001091119001",
+						"9000002364101190",
+						"1000001064119001",
+						"7000001272119001",
+						"1000001032119001",
+						"3000001032119001",
+						"4000001244119001",
+						"6000001208119001");
+*/
+						
+		if (triggerme = true)
+		then 
+			oeUnsigned:=CALL test.ShowDialog;
+			conclude true;
+		else
+			conclude false;
+		endif;
+
+		
+	;;
+	action: //all of the action is done by the call to the FFI
+	;;
+Urgency: 50;;
+end: