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/DOC/DOC_FUNC_LAY_CAREGIVER_NAME.mlm
+++ b/MLMStripper/bin/Debug/DOC/DOC_FUNC_LAY_CAREGIVER_NAME.mlm
@@ -0,0 +1,104 @@
+maintenance:
+
+	title: DOC_FUNC_LAY_CAREGIVER_NAME ;;
+	mlmname:  DOC_FUNC_LAY_CAREGIVER_NAME;;
+	arden: version 2.5;;
+	version:  1.00;;
+	institution: St.Clair Hospital ;;
+	author: Sandy Zhang, PharmD ;;
+	specialist: Janet Nordin ;;
+	date:  2017-06-13;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM takes the patient{{{SINGLE-QUOTE}}}s Lay Caregiver name and populates it into Discharge Checklist
+	;;
+	explanation:  
+		
+	Change History
+
+	06.13.2017 SZ CSR# 35709 - Start of project
+
+	;;
+	keywords:
+	;;
+	citations: 
+	;;
+knowledge:
+	type: data-driven;;
+	data: 
+		
+		
+		// Recieve arguments from the structured note
+		(thisDocumentCommunication) := argument;
+
+		// Get the client and visit GUIDs
+		clientGuid := thisDocumentCommunication.ClientGUID;
+	
+		// Extract interesting parts of the object model
+		(thisStructuredNoteDoc) := thisDocumentCommunication.DocumentConfigurationObj;
+		(thisParameters) := thisStructuredNoteDoc.ParametersList;
+
+
+		// Create prototypes for the object types we{{{SINGLE-QUOTE}}}ll need to instantiate
+		ObservationType := OBJECT [ObservationGUID, ClientDocumentGUID, ParameterGUID, DataType, ValueObj];
+		FreeTextValueType := OBJECT [Value];
+
+		// Standard includes
+	 	standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+	    include standard_libs;
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+		
+		// SQL returns Lay Caregiver{{{SINGLE-QUOTE}}}s name. This name is inserted into discharge checklist unless it matches "NO, CAREGIVER, NO_CAREGIVER or name returns null"
+		(laygiver_name) := read last {
+			"select Name"
+			||" from CV3ClientContact"
+			||" where TypeCode = {{{SINGLE-QUOTE}}}Lay Caregiver{{{SINGLE-QUOTE}}}"
+			||" and ClientGUID = " || sql(clientGuid)
+			||" and Active = 1"
+		};
+
+
+     	if thisdocumentCommunication.EventType = "DocumentOpening" then
+
+			// Lay Caregiver name in Discharge Checklist returns N/A if it matches: "NO, CAREGIVER, NO_CAREGIVER or name returns null" from SQL
+			if (laygiver_name = "NO, CAREGIVER") or (laygiver_name = "NO_CAREGIVER") or (laygiver_name is null) then 
+	
+		    	vitalSignsHL := first of (thisParameters where thisParameters.Name = "SCH_PDC_ Designated Lay Caregiver Name");
+		
+				newObservation := NEW ObservationType;
+				newObservation.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
+				newObservation.ParameterGUID := vitalSignsHL.ParameterGUID;
+				newObservation.DataType := "FreeTextValue";
+				newObservation.ValueObj := NEW FreeTextValueType;
+				newObservation.ValueObj.Value := "N/A";
+				thisStructuredNoteDoc.ChartedObservationsList := (thisStructuredNoteDoc.ChartedObservationsList, newObservation);
+				
+			// If it doens{{{SINGLE-QUOTE}}}t match up to any of the above no-names then the Discharge Checklist returns the name of the Lay Caregiver		
+			else
+		    	vitalSignsHL := first of (thisParameters where thisParameters.Name = "SCH_PDC_ Designated Lay Caregiver Name");
+		
+				newObservation := NEW ObservationType;
+				newObservation.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
+				newObservation.ParameterGUID := vitalSignsHL.ParameterGUID;
+				newObservation.DataType := "FreeTextValue";
+				newObservation.ValueObj := NEW FreeTextValueType;
+				newObservation.ValueObj.Value := laygiver_name;
+				thisStructuredNoteDoc.ChartedObservationsList := (thisStructuredNoteDoc.ChartedObservationsList, newObservation);
+					
+			endif;
+		endif;
+
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return thisDocumentCommunication;
+	;;
+Urgency: 50;;
+end: