Initial Checking with all 820 MLMs
This commit is contained in:
400
MLMStripper/bin/Debug/FORM/FORM_TPA_INCLUSION_EXCLUSION.mlm
Normal file
400
MLMStripper/bin/Debug/FORM/FORM_TPA_INCLUSION_EXCLUSION.mlm
Normal file
@@ -0,0 +1,400 @@
|
||||
maintenance:
|
||||
|
||||
title: FORM_TPA_INCLUSION_EXCLUSION;;
|
||||
mlmname: FORM_TPA_INCLUSION_EXCLUSION;;
|
||||
arden: version 2;;
|
||||
version: 4.50;;
|
||||
institution: St Clair Admissions;;
|
||||
author: Juliet M. Law, Allscripts, Inc ext 7461;;
|
||||
specialist: Maria Pest, Allscripts, Inc ext 7443;;
|
||||
date: 2012-09-24;;
|
||||
validation: testing;;
|
||||
|
||||
library:
|
||||
purpose: Used for TPA Inclusion/Exclusion Criteria Order for Acute Ishemic Stroke
|
||||
;;
|
||||
|
||||
explanation: This MLM is called from the TPA Inclusion/Exclusion Order, form: CPOE_Inc/Exc Crit
|
||||
|
||||
This MLM will collect the answers on the TPA Inclusion/Exclusion Order to determine if the
|
||||
inclusion/exclusion criteria is met before ordering a TPA for Acute Ishemic Stroke.
|
||||
|
||||
Change History:
|
||||
2012.09.24 JML CSR 30685: Created - copied from FORM_SET_TPA_ACUTE_ISHEMIC_STROKE MLM.
|
||||
2014.09.10 JML CSR 32550: Modify existing TPA Inclusion/Exclusion form.
|
||||
|
||||
;;
|
||||
keywords: Called MLMs, TPA, Inclusion/Exclusion
|
||||
;;
|
||||
knowledge:
|
||||
type: data-driven;;
|
||||
data:
|
||||
|
||||
// This MLM is passed three arguments, of types
|
||||
// communication_type, form_type and client info object respectively.
|
||||
|
||||
(this_communication, // Communication object
|
||||
this_form, // Form object
|
||||
client_info_obj //Arden ClientInfo object
|
||||
) := argument;
|
||||
|
||||
// RS ADD Message box
|
||||
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
||||
include standard_libs;
|
||||
|
||||
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
||||
|
||||
/* Set to true if a decision.log is needed.*/
|
||||
log_execution_info := FALSE;
|
||||
|
||||
/***************************************************************************************/
|
||||
|
||||
// Initialize error message
|
||||
error_message:="";
|
||||
|
||||
// Assigns fields passed in the Form object to the Field object
|
||||
field_list:= this_form.fields;
|
||||
|
||||
client_guid := this_communication.ClientGUID;
|
||||
visit_guid := this_communication.ClientVisitGUID;
|
||||
chart_guid := this_communication.ChartGuid;
|
||||
|
||||
CallingEvent := this_communication.CallingEvent;
|
||||
CallingField := this_communication.CallingFieldName;
|
||||
|
||||
//Formatting
|
||||
TAB := 9 FORMATTED WITH "%C";
|
||||
CR := 13 formatted with "%c";
|
||||
LF := 10 formatted with "%c";
|
||||
|
||||
NIHSS_Score_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_NIHSS score");
|
||||
|
||||
Stroke_Onset_Date_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Symptom Onset Date");
|
||||
Stroke_Onset_Time_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Symptom Onset");
|
||||
|
||||
BP_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_BP");
|
||||
|
||||
Age_18_Response_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc Response");
|
||||
Age_80_Response_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc Response23");
|
||||
|
||||
Clinical_Diagnosis_Stroke_Response_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc Response2");
|
||||
NIHSS_25_Score_Fld := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc Response21");
|
||||
|
||||
Exclusion_Statement_Fld1 := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc_Statement1");
|
||||
Exclusion_Statement_Fld1.Value := "";
|
||||
Exclusion_Statement_Fld2 := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc_Statement2");
|
||||
Exclusion_Statement_Fld2.Value := "";
|
||||
Exclusion_Statement_Fld3 := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc_Statement3");
|
||||
Exclusion_Statement_Fld3.Value := "";
|
||||
Exclusion_Statement_Fld4 := last of (field_list WHERE field_list.DataItemName = "CPOE_Inc/Exc_Statement4");
|
||||
Exclusion_Statement_Fld4.Value := "";
|
||||
|
||||
if (CallingEvent = "FormOpen") then
|
||||
//Get NIHSS Score
|
||||
NIHSS_Score := read last {"SELECT o.ValueText"
|
||||
|| " FROM CV3ClientVisit cv WITH (NOLOCK) JOIN CV3ClientDocument cd WITH (NOLOCK)"
|
||||
|| " ON cv.GUID = cd.ClientVisitGUID"
|
||||
|| " AND cv.ClientGUID = cd.ClientGUID"
|
||||
|| " AND cv.ChartGUID = cd.ChartGUID"
|
||||
|| " JOIN CV3ClientDocDetail cdd WITH (NOLOCK)"
|
||||
|| " ON cd.GUID = cdd.ClientDocumentGUID"
|
||||
|| " AND cd.ClientGUID = cdd.ClientGUID"
|
||||
|| " JOIN CV3ObservationDocument od WITH (NOLOCK)"
|
||||
|| " ON cdd.ClientDocumentGUID = od.OwnerGUID"
|
||||
|| " JOIN CV3ObsCatalogMasterItem ocmi WITH (NOLOCK)"
|
||||
|| " ON od.ObsMasterItemGUID = ocmi.GUID"
|
||||
|| " JOIN CV3Observation o WITH (NOLOCK)"
|
||||
|| " ON od.ObservationGUID = o.GUID"
|
||||
|| " JOIN CV3ObsCatalogItem oci WITH (NOLOCK)"
|
||||
|| " ON o.ObsItemGUID = oci.GUID"
|
||||
|| " WHERE cd.DocumentName like {{{SINGLE-QUOTE}}}%Assessment/Intervention%{{{SINGLE-QUOTE}}}"
|
||||
|| " AND cdd.Active = 1"
|
||||
|| " AND od.Active = 1"
|
||||
|| " AND cv.ClientGUID = " || Sql(client_guid)
|
||||
|| " AND cv.GUID = " || Sql(visit_guid)
|
||||
|| " AND cv.ChartGUID = " || Sql(chart_guid)
|
||||
|| " AND oci.Name = {{{SINGLE-QUOTE}}}AS SC NIH SS TOTAL CAL{{{SINGLE-QUOTE}}}"};
|
||||
|
||||
if (exists NIHSS_Score) then
|
||||
NIHSS_Score_Fld.Value := NIHSS_Score;
|
||||
|
||||
//Answer #2: NIHSS score >= 4 and NIHSS score <= 22 = YES
|
||||
// NIHSS score > 22 = NO
|
||||
//Answer #21: NIHSS score > 25 = YES; NIHSS score <= 25 = NO
|
||||
/*
|
||||
if (((NIHSS_Score as number) >= 4) AND ((NIHSS_Score as number) <= 22)) then
|
||||
Clinical_Diagnosis_Stroke_Response_Fld.Value := "Yes";
|
||||
elseif ((NIHSS_Score as number) > 22) then
|
||||
Clinical_Diagnosis_Stroke_Response_Fld.Value := "No";
|
||||
|
||||
else //NIHSS_Score < 4
|
||||
Clinical_Diagnosis_Stroke_Response_Fld.Value := "No";
|
||||
endif;
|
||||
if ((NIHSS_Score as number) > 25) then
|
||||
NIHSS_25_Score_Fld.Value := "Yes";
|
||||
else //NIHSS_Score <= 25
|
||||
NIHSS_25_Score_Fld.Value := "No";
|
||||
endif;
|
||||
*/
|
||||
endif;
|
||||
|
||||
//Retrieve Stroke Last Known Well Date
|
||||
(Stroke_Onset_Date,
|
||||
Stroke_Onset_Time) := read last {"SELECT "
|
||||
|| " CASE WHEN Len(DatePart(mm, o.ValueText)) = 1 THEN"
|
||||
|| " {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + Convert(varchar(2), DatePart(MM, o.ValueText))"
|
||||
|| " ELSE"
|
||||
|| " Convert(varchar(2), DatePart(MM, o.ValueText))"
|
||||
|| " END"
|
||||
|| " + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} +"
|
||||
|| " CASE WHEN Len(DatePart(dd, o.ValueText)) = 1 THEN"
|
||||
|| " {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + Convert(varchar(2), DatePart(DD, o.ValueText))"
|
||||
|| " ELSE"
|
||||
|| " Convert(varchar(2), DatePart(DD, o.ValueText))"
|
||||
|| " END"
|
||||
|| " + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + Convert(varchar(4), DatePart(YY, o.ValueText)),"
|
||||
|| " CASE WHEN Len(DatePart(HOUR, o.ValueText)) = 1 THEN"
|
||||
|| " {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + Convert(varchar(2), DatePart(HOUR, o.ValueText))"
|
||||
|| " ELSE"
|
||||
|| " Convert(varchar(2), DatePart(HOUR, o.ValueText))"
|
||||
|| " END"
|
||||
|| " + {{{SINGLE-QUOTE}}}:{{{SINGLE-QUOTE}}} +"
|
||||
|| " CASE WHEN Len(DatePart(MINUTE, o.ValueText)) = 1 THEN"
|
||||
|| " {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + Convert(varchar(2), DatePart(MINUTE, o.ValueText))"
|
||||
|| " ELSE"
|
||||
|| " Convert(varchar(2), DatePart(MINUTE, o.ValueText))"
|
||||
|| " END"
|
||||
|| " FROM CV3ClientVisit cv WITH (NOLOCK) JOIN CV3ClientDocument cd WITH (NOLOCK)"
|
||||
|| " ON cv.GUID = cd.ClientVisitGUID"
|
||||
|| " AND cv.ClientGUID = cd.ClientGUID"
|
||||
|| " AND cv.ChartGUID = cd.ChartGUID"
|
||||
|| " JOIN CV3ClientDocDetail cdd WITH (NOLOCK)"
|
||||
|| " ON cd.GUID = cdd.ClientDocumentGUID"
|
||||
|| " AND cd.ClientGUID = cdd.ClientGUID"
|
||||
|| " JOIN CV3ObservationDocument od WITH (NOLOCK)"
|
||||
|| " ON cdd.ClientDocumentGUID = od.OwnerGUID"
|
||||
|| " JOIN CV3ObsCatalogMasterItem ocmi WITH (NOLOCK)"
|
||||
|| " ON od.ObsMasterItemGUID = ocmi.GUID"
|
||||
|| " JOIN CV3Observation o WITH (NOLOCK)"
|
||||
|| " ON od.ObservationGUID = o.GUID"
|
||||
|| " JOIN CV3ObsCatalogItem oci WITH (NOLOCK)"
|
||||
|| " ON o.ObsItemGUID = oci.GUID"
|
||||
|| " WHERE cd.DocumentName like {{{SINGLE-QUOTE}}}%triage%{{{SINGLE-QUOTE}}}"
|
||||
|| " AND cdd.Active = 1"
|
||||
|| " AND od.Active = 1"
|
||||
|| " AND cv.ClientGUID = " || Sql(client_guid)
|
||||
|| " AND cv.GUID = " || Sql(visit_guid)
|
||||
|| " AND cv.ChartGUID = " || Sql(chart_guid)
|
||||
|| " AND oci.Name = {{{SINGLE-QUOTE}}}sch_edtriage_stroke date and time{{{SINGLE-QUOTE}}}"};
|
||||
|
||||
|
||||
if (exists Stroke_Onset_Date) then
|
||||
Stroke_Onset_Date_Fld.Value := Stroke_Onset_Date;
|
||||
Stroke_Onset_Time_Fld.Value := Stroke_Onset_Time;
|
||||
endif;
|
||||
|
||||
//Retrieve BP
|
||||
(BP_Systolic,
|
||||
BP_Recorded_Dtm) := read {"SELECT o.ValueText, od.RecordedDtm"
|
||||
|| " FROM CV3ClientVisit cv WITH (NOLOCK) JOIN CV3ClientDocument cd WITH (NOLOCK)"
|
||||
|| " ON cv.GUID = cd.ClientVisitGUID"
|
||||
|| " AND cv.ClientGUID = cd.ClientGUID"
|
||||
|| " AND cv.ChartGUID = cd.ChartGUID"
|
||||
|| " JOIN CV3ClientDocDetail cdd WITH (NOLOCK) "
|
||||
|| " ON cd.GUID = cdd.ClientDocumentGUID"
|
||||
|| " AND cd.ClientGUID = cdd.ClientGUID"
|
||||
|| " JOIN CV3ObservationDocument od WITH (NOLOCK)"
|
||||
|| " ON cdd.ClientDocumentGUID = od.OwnerGUID"
|
||||
|| " JOIN CV3ObsCatalogMasterItem ocmi WITH (NOLOCK)"
|
||||
|| " ON od.ObsMasterItemGUID = ocmi.GUID"
|
||||
|| " JOIN CV3Observation o WITH (NOLOCK)"
|
||||
|| " ON od.ObservationGUID = o.GUID"
|
||||
|| " JOIN CV3ObsCatalogItem oci WITH (NOLOCK)"
|
||||
|| " ON o.ObsItemGUID = oci.GUID"
|
||||
|| " WHERE cd.DocumentName like {{{SINGLE-QUOTE}}}%vital%sign%{{{SINGLE-QUOTE}}}"
|
||||
|| " AND cdd.Active = 1"
|
||||
|| " AND od.Active = 1"
|
||||
|| " AND cv.ClientGUID = " || Sql(client_guid)
|
||||
|| " AND cv.GUID = " || Sql(visit_guid)
|
||||
|| " AND cv.ChartGUID = " || Sql(chart_guid)
|
||||
|| " AND (oci.Name = {{{SINGLE-QUOTE}}}sch_edtriage_noninvasive systolic bp{{{SINGLE-QUOTE}}}"
|
||||
|| " OR oci.Name = {{{SINGLE-QUOTE}}}Noninvasive Systolic BP{{{SINGLE-QUOTE}}})"
|
||||
|| " ORDER BY od.RecordedDtm DESC"};
|
||||
|
||||
BP_Diastolic := read {"SELECT o.ValueText, od.RecordedDtm"
|
||||
|| " FROM CV3ClientVisit cv WITH (NOLOCK) JOIN CV3ClientDocument cd WITH (NOLOCK)"
|
||||
|| " ON cv.GUID = cd.ClientVisitGUID"
|
||||
|| " AND cv.ClientGUID = cd.ClientGUID"
|
||||
|| " AND cv.ChartGUID = cv.ChartGUID"
|
||||
|| " JOIN CV3ClientDocDetail cdd WITH (NOLOCK)"
|
||||
|| " ON cd.GUID = cdd.ClientDocumentGUID"
|
||||
|| " AND cd.ClientGUID = cdd.ClientGUID"
|
||||
|| " JOIN CV3ObservationDocument od WITH (NOLOCK)"
|
||||
|| " ON cdd.ClientDocumentGUID = od.OwnerGUID"
|
||||
|| " JOIN CV3ObsCatalogMasterItem ocmi WITH (NOLOCK)"
|
||||
|| " ON od.ObsMasterItemGUID = ocmi.GUID"
|
||||
|| " JOIN CV3Observation o WITH (NOLOCK)"
|
||||
|| " ON od.ObservationGUID = o.GUID"
|
||||
|| " JOIN CV3ObsCatalogItem oci WITH (NOLOCK)"
|
||||
|| " ON o.ObsItemGUID = oci.GUID"
|
||||
|| " WHERE cd.DocumentName like {{{SINGLE-QUOTE}}}%vital%sign%{{{SINGLE-QUOTE}}} AND cdd.Active = 1 AND od.Active = 1"
|
||||
|| " AND cv.ClientGUID = " || Sql(client_guid)
|
||||
|| " AND cv.GUID = " || Sql(visit_guid)
|
||||
|| " AND cv.ChartGUID = " || Sql(chart_guid)
|
||||
|| " AND (oci.Name = {{{SINGLE-QUOTE}}}sch_edtriage_noninvasive diastolic bp{{{SINGLE-QUOTE}}}"
|
||||
|| " OR oci.Name = {{{SINGLE-QUOTE}}}Noninvasive Diastolic BP{{{SINGLE-QUOTE}}})"
|
||||
|| " ORDER BY od.RecordedDtm DESC"};
|
||||
|
||||
if (exists BP_Systolic) then
|
||||
BP_Fld.Value := first of (BP_Systolic);
|
||||
endif;
|
||||
|
||||
if (exists BP_Diastolic) then
|
||||
bp_value := BP_Fld.Value || "/" || first of (BP_Diastolic) || CR || LF || first of (BP_Recorded_Dtm);
|
||||
BP_Fld.Value := bp_value;
|
||||
endif;
|
||||
|
||||
//Patient{{{SINGLE-QUOTE}}}s Age Question
|
||||
//Question #1: Patient Age >= 18 = YES; Patient Age < 18 = NO
|
||||
//Question #18: Patient Age > 80 = YES; Patient Age <= 80 = NO
|
||||
if (exists client_info_obj) then
|
||||
(birthDate) := read last {ClientInfo: BirthDate REFERENCING client_info_obj};
|
||||
|
||||
patientAge := (NOW - birthDate) / (1 year);
|
||||
|
||||
if (patientAge > 17.99) then
|
||||
Age_18_Response_Fld.Value := "Yes";
|
||||
else
|
||||
Age_18_Response_Fld.Value := "No";
|
||||
endif;
|
||||
|
||||
if (patientAge > 80.99) then
|
||||
Age_80_Response_Fld.Value := "Yes";
|
||||
else
|
||||
Age_80_Response_Fld.Value := "No";
|
||||
endif;
|
||||
endif;
|
||||
|
||||
elseif (CallingEvent = "FormClose") then
|
||||
|
||||
responseIndex := 1;
|
||||
answeredCount := 0;
|
||||
exclusionCount := 0;
|
||||
exclusionStatement := "";
|
||||
statementFld := 1;
|
||||
|
||||
for i in 1 seqto (count field_list) do
|
||||
item := field_list.DataItemName[i];
|
||||
responseField := "CPOE_Inc/Exc Response" || responseIndex;
|
||||
questionField := "CPOE_Inc/Exc Question" || responseIndex;
|
||||
|
||||
if ((item = "CPOE_Inc/Exc Response") OR (item = responseField)) then
|
||||
responseValue := last of (field_list WHERE field_list.DataItemName = item);
|
||||
questionValue := last of (field_list WHERE field_list.DataItemName = questionField);
|
||||
|
||||
// if ((responseIndex >= 1 AND responseIndex <= 3) AND responseValue.Value IS NOT NULL) then
|
||||
if ((( responseIndex >= 1 AND responseIndex <= 3 ) OR ( responseIndex >= 21 AND responseIndex <= 22 ))
|
||||
AND responseValue.Value IS NOT NULL ) then
|
||||
|
||||
if (responseValue.Value = "No") then
|
||||
exclusionCount := exclusionCount + 1;
|
||||
|
||||
//exclusionStatement := exclusionStatementList[responseIndex];
|
||||
exclusionStatement := exclusionCount || ". " || questionValue.Value;
|
||||
|
||||
if (Exclusion_Statement_Fld1.Value = "") then
|
||||
Exclusion_Statement_Fld1.Value := "Response to following question(s) indicates Exclusion:" || CR || LF;
|
||||
endif;
|
||||
|
||||
Exclusion_Statement_Fld1.Value := Exclusion_Statement_Fld1.Value || CR || LF || exclusionStatement;
|
||||
|
||||
if (length Exclusion_Statement_Fld1.Value >= 2000) then
|
||||
statementFld := statementFld + 1;
|
||||
endif;
|
||||
|
||||
endif;
|
||||
|
||||
answeredCount := answeredCount + 1;
|
||||
|
||||
// elseif ((responseIndex > 3) AND (responseValue.Value IS NOT NULL)) then
|
||||
elseif ((( responseIndex >= 4 AND responseIndex <= 20 ) OR ( responseIndex >= 23 AND responseIndex <= 27 ))
|
||||
AND responseValue.Value IS NOT NULL ) then
|
||||
|
||||
if (responseValue.Value = "Yes") then
|
||||
exclusionCount := exclusionCount + 1;
|
||||
|
||||
//exclusionStatement := exclusionStatementList[responseIndex] || "\n";
|
||||
exclusionStatement := exclusionCount || ". " || questionValue.Value;
|
||||
|
||||
if (statementFld = 1) then
|
||||
if (Exclusion_Statement_Fld1.Value = "") then
|
||||
Exclusion_Statement_Fld1.Value := "Response to following question(s) indicates Exclusion:" || CR || LF;
|
||||
endif;
|
||||
|
||||
totalFieldLength := ((length exclusionStatement) + (length Exclusion_Statement_Fld1.Value));
|
||||
if (totalFieldLength <= 2000) then
|
||||
Exclusion_Statement_Fld1.Value := Exclusion_Statement_Fld1.Value || CR || LF || exclusionStatement;
|
||||
else
|
||||
statementFld := statemekntFld + 1;
|
||||
endif;
|
||||
endif;
|
||||
if (statementFld = 2) then
|
||||
totalFieldLength2 := ((length exclusionStatement) + (length Exclusion_Statement_Fld2.Value));
|
||||
if (totalFieldLength2 <= 2000) then
|
||||
Exclusion_Statement_Fld2.Value := Exclusion_Statement_Fld2.Value || CR || LF || exclusionStatement;
|
||||
else
|
||||
statementFld := statementFld + 1;
|
||||
endif;
|
||||
endif;
|
||||
if (statementFld = 3) then
|
||||
totalFieldLength3 := ((length exclusionStatement) + (length Exclusion_Statement_Fld3.Value));
|
||||
if(totalFieldLength3 <= 2000) then
|
||||
Exclusion_Statement_Fld3.Value := Exclusion_Statement_Fld3.Value || CR || LF || exclusionStatement;
|
||||
else
|
||||
statementFld := statementFld + 1;
|
||||
endif;
|
||||
endif;
|
||||
if (statementFld = 4) then
|
||||
totalFieldLength4 := ((length exclusionStatement) + (length Exclusion_Statement_Fld4.Value));
|
||||
if (totalFieldLength4 <= 2000) then
|
||||
Exclusion_Statement_Fld4.Value := Exclusion_Statement_Fld4.Value || CR || LF || exclusionStatement;
|
||||
else
|
||||
statementFld := statementFld + 1;
|
||||
endif;
|
||||
endif;
|
||||
|
||||
endif;
|
||||
|
||||
answeredCount := answeredCount + 1;
|
||||
|
||||
endif;
|
||||
|
||||
responseIndex := responseIndex + 1;
|
||||
endif;
|
||||
enddo;
|
||||
|
||||
percentageUnanswered := 27 - answeredCount;
|
||||
percentageUnanswered := percentageUnanswered / 27;
|
||||
percentageUnanswered := percentageUnanswered * 100;
|
||||
|
||||
if (percentageUnanswered = 0 AND exclusionCount = 0) then
|
||||
Exclusion_Statement_Fld1.Value := "No Exclusions" || CR || LF || "Questions unanswered = "
|
||||
|| percentageUnanswered formatted with "%.0f" || "%";
|
||||
else
|
||||
Exclusion_Statement_Fld4.Value := Exclusion_Statement_Fld4.Value || CR || LF || "Questions unanswered = "
|
||||
|| percentageUnanswered formatted with "%.0f" || "%";
|
||||
endif;
|
||||
|
||||
endif; //CallingEvent
|
||||
;;
|
||||
evoke: // No evoke statement
|
||||
;;
|
||||
logic:
|
||||
|
||||
conclude true;
|
||||
;;
|
||||
action:
|
||||
// This MLM returns two parameters, of types communication_type and form_type respectively.
|
||||
return this_communication, this_form;
|
||||
;;
|
||||
end:
|
||||
Reference in New Issue
Block a user