DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

827
MLMStripper/bin/Debug/FORM/FORM_RX_ORM_INSTRUCT.mlm Normal file
View File

@@ -0,0 +1,827 @@
maintenance:
title: Called MLM for updating the RX Instruction UDDI;;
filename: FORM_RX_ORM_Instruct;;
arden: version 2;;
version: 5.50;; //FP1 Order Reconciliation Manager
institution: St. Clair;;
author: Teresa Spicuzza - adapted from MLM by Phil Thomas, Allscripts Knowledge Management;;
specialist: ;;
date: 2013-08-09;;
validation: testing;;
library:
purpose: This Called MLM is to be assigned to FORM CLOSE on any order form and Medication Catalog item combination that allows for a Complex Dose or Multiple Frequency.
It will update the RX Comments UDDI which will transfer to any prescriptions if continued after discharge.
;;
explanation: This Called MLM, upon FORM CLOSE, will read the following complex dosing fields and format the cell rows into the RX Instruction UDDI on the form.
System UDDIs examined: CalculatedDose, DosageLow and FrequencyCode
UDDI Updated: "RX Comments" (Must be on the form to execute).
Note: The legnth of the RX Instruction should be configured to 2000 characters but the RX WRiter Sig Line can only handle 140 characters.
If this occurs the field value for RX Comments will be truncated to 140 chracters but the MLM will look for the "RX COmments" UDDI.
This can handle the full 2000 characters from the "RX Comments" UDDI and will appear on the RX Comments Tab along with Multum data.
To transfer the RX Instruction UDDI to the RX Sig Line of a Home Medication or Prescription the following Environemental Profile must be configured:
Orders > PrescriptionToOrderFieldMaping > Instructions > Value " RX Instructions"
To transfer the RX Coments UDDI to the RX Comments of a Home Medication or Prescription the following Environemental Profile must be configured:
Orders > PrescriptionToOrderFieldMaping > Comments > Value " RX Comments"
Note: If your institution uses a different Order Form UDDI for this purpose then you will need to alter this MLM and replace "RX Comments"
and "RX Instructions" with your UDDI values.
Complex Dosing options must be enabled under the Pharamcy configuration section of the Order Catalog Item.
Tips: - Form Close will run even if the form is configured to not display and the MLM can update the UDDIS even if protected or hidden.
- This MLM will also work with the <Multiple> Frequency option and perfomrm the same behavior as above if discovered.
- If you already have an MLM on Form Close you may sub-call this MLM from the existing MLM to avoid reconfiguration of the forms.
*** Allscripts Disclaimer:
Client is responsible for all decisions, acts, and omissions of any persons in connection with the delivery of medical care or other services to any patients.
Before any Licensed Materials are placed into a live production environment, it is Client’s responsibility to review and test all Licensed Materials and associated
workflows and other content, as implemented, make independent decisions about system settings and configuration based upon Client’s needs, practices, standards and
environment, and reach its own independent determination that they are appropriate for such live production use. Any such use by Client (or its Authorized Users)
will constitute Client’s representation that it has complied with the foregoing. Client shall ensure that all Authorized Users are appropriately trained in use of
the then-deployed release of the Software prior to their use of the Software in a live production environment. Clinical Materials are tools to assist Authorized
Users in the delivery of medical care, but should not be viewed as prescriptive or authoritative. Clinical Materials are not a substitute for, and Client shall
ensure that each Authorized User applies in conjunction with the use thereof, independent professional medical judgment. Clinical Materials are not designed for use,
and Client shall not use them, in any system that provides medical care without the participation of properly trained personnel. Any live production use of Clinical
Materials by Client (or its Authorized Users) will constitute Client’s acceptance of clinical responsibility for the use of such materials.
History:
08.12.2013 TMS Adapted from MLM (FORM_Preset_MultiDose_RX) by Phil Thomas, Allscripts Knowledge Management with modifications
to calculate start dates of subsequent order rows from first row value for for decreasing (taper) or increasing
dose. Changed size of Instructions, and added then stop comment for end of taper. Logic added for user schedule
translation to patient friendly instructions, order route to be added when specific (i.e., right eye, via tube);
include synonym for Aspart Insulin, add PRN Reason when populated to Rx Comments. Called from FORM_Now_and_Then.
CSR 31639
11.04.2014 TMS Added logic to write medrol dose pak instructions to comment field when orders entered with Medrol Dosing dose option
for inclusion in discharge reconciliation. CSR 31407
11.05.2015 TMS Added insulin brand names "Lantus" for Insulin Glargine and "Levemir" for Insulin Detemir to populate the RX comments
for inclusion in discharge reconciliation. CSR 33859
07.23.2019 TMS CSR 37676 - Change log_execution_info to false per upgrade analysis.
;;
keywords: Called MLMs, Form fields, RX Instructions, Orders Reconciliation Manager, RX Comments;
;;
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;
PrimaryObjdetail:=this_communication.PrimaryObj;
OrderName := PrimaryObjdetail.name;
/*******************Make Changes To Spelling And Flags In This Section*******************/
/* Set to true if a decision.log is needed.*/
log_execution_info := FALSE;
/* Null field variables */
RX_Summary := Null;
RX_Comments_User := "";
//Formatting Characters
SP := " ";
CR := 13 formatted with "%c";
LF := 10 formatted with "%c";
CRLF:= CR||LF;
TAB := 9 formatted with "%c";
xxcounter := 0;
/***************************************************************************************/
// Initialize error message
error_message:="";
//
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
//Capture the RX Comments Data Item and test if present, Do not proceeed with MLM if not found on order form
RX_Comments_field := first of (field_list where field_list.DataItemName = "Rx Comments");
RX_Instructions_field := last of (field_list where field_list.DataItemName = "Rx Instructions");
FreqText := " ";
requested_date := last of (field_list where field_list.DataItemName = "RequestedDate" );
requested_time := last of (field_list where field_list.DataItemName = "RequestedTime" );
stop_after:= last of (field_list where field_list.DataItemName = "StopAfter" );
stop_after_Value := stop_after.value;
stop_date := last of (field_list where field_list.DataItemName = "StopDate" );
stop_time := last of (field_list where field_list.DataItemName = "StopTime" );
stop_time_value := stop_time.value ;
is_prn := last of (field_list where field_list.DataItemName = "IsPRN" );
regular_freq := last of (field_list where field_list.DataItemName = "FrequencyCode");
requested_time_value := requested_time.value;
regular_freq_value := regular_freq.value;
start_now := last of (field_list where field_list.DataItemName = "PRX_Dosing Start Now" );
start_now_value := start_now.value;
PRX_PRN_Reason_field := first of (field_list
where field_list.DataItemName = "PRX_PRNCONDITION");
PRX_PRN_Reason_field_value := PRX_PRN_Reason_field.value;
Route_Code := last of (field_list where field_list.DataItemName = "OrderRouteCode" );
SpecifyRoute := ("Right Eye", "Left Eye", "Both Eyes", "Right Ear", "Left Ear", "Both Ears",
"Alternating Nostrils", "Left Nostril", "Right Nostril", "Each Nostril", "Via Tube");
FreqText := " ";
If PRX_PRN_Reason_field.value is NULL then
ReasonText := " ";
else
ReasonText := "for " || PRX_PRN_Reason_field_value;
endif;
If Route_Code.value in SpecifyRoute then
RouteText := " to " || Route_Code.value;
else
RouteText := " ";
endif;
RX_Comments_field_value := RX_Comments_field.value;
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
FreqTranslate := ();
FreqTranslate := read { "select value from cv3userdictionaryvalue v with (nolock)"
|| " where userdictionarycode = {{{SINGLE-QUOTE}}}PRX_ORM Frequency Translation{{{SINGLE-QUOTE}}} "
|| " and active = {{{SINGLE-QUOTE}}}1{{{SINGLE-QUOTE}}} "
};
If exists RX_Comments_field then
//Save any data already enetered by the user
If RX_Comments_field.Value is not NULL then
RX_Comments_User := RX_Comments_field.Value;
Endif;
If OrderName matches pattern "Insulin Aspart%" then
InsulinNote := "(Humalog or NovoLog)";
elseif Ordername matches pattern "Insulin Glargine%" then
InsulinNote := "(Lantus)";
elseif Ordername matches pattern "Insulin Detemir%" then
InsulinNote := "(Levemir)";
else
InsulinNote := " ";
endif;
If regular_freq_value.FrequencySummary <> "<User Schedule>" then
NumMembs:= count FreqTranslate;
for k in (1 seqto (NumMembs)) do
listings := call str_parse with FreqTranslate[k],"|";
tempstr:=first of (listings);
if tempstr = regular_freq_value.FrequencySummary then
if exists(listings[2]) then
FreqText := listings [2];
else
FreqText := " ";
endif;
endif;
enddo;
RX_Comments_field.value := FreqText || " " || RouteText || " " || ReasonText || " " || insulinnote;
RX_Instructions_field.value := FreqText || " " || RouteText || " " || ReasonText || " " || insulinnote;
endif;
If regular_freq_value.FrequencySummary = "<User Schedule>" AND regular_freq_value.FreqUOM = "irregular" then
RX_Comments_field.value := "";
RX_Instructions_field.value := "";
// obtain a list of the scheduled dates and times
freq_schedules := regular_freq_value.FreqIrregularDtm;
// find the earliest scheduled time
earliest_time := minimum of freq_schedules;
// extract the time from the date_time
sched_hour := EXTRACT HOUR(earliest_time);
sched_minute := EXTRACT MINUTE(earliest_time);
sched_time := sched_hour || ":" || sched_minute;
// create patient friendly Rx instructions and Rx comments for ORM for user schedule frequencies
adminat := "";
freq_schedules_sort := sort (regular_freq_value.FreqIrregularDtm as time);
Irregtimes := count freq_schedules;
for n in (1 seqto Irregtimes ) do
schedtime := freq_schedules_sort [n];
schedmin := EXTRACT Minute(schedtime as time);
if (schedmin as number) < 10 then
schedmin := "0" || schedmin ;
endif;
schedhour := EXTRACT HOUR(schedtime as time);
if (schedhour as number) >= 12 then
timeofday := "PM";
if (schedhour as number) >= 13 then
schedhour := schedhour - 12;
endif;
else
timeofday := "AM";
if (schedhour as number) = 0 then
schedhour := 12;
endif;
endif;
schedmm := EXTRACT Month(schedtime as time);
scheddd := EXTRACT Day(schedtime as time);
schedyy := EXTRACT Year(schedtime as time);
adminat := adminat || schedmm ||"/" ||scheddd || "/" || schedyy || " at " || schedhour || ":" || schedmin || timeofday || "; ";
enddo;
// populate rxinstructions and rx comments with user schedule translation for irregular
rxinstruct := "on " || adminat ;
RX_Comments_field.value := rxinstruct || " " || RouteText || " " || ReasonText || " " || InsulinNote;
RX_Instructions_field.value := rxinstruct || " " || RouteText || " " || ReasonText || " " || InsulinNote;
endif; //if user schedule and irregular
//Update Rx Instructions and Rx Comments with patient friendly definitions for User Schedule
If regular_freq_value.FrequencySummary = "<User Schedule>"
AND (regular_freq_value.FreqUOM = "day" OR regular_freq_value.FreqUOM = "week") then
if regular_freq_value.FreqUOM = "day" then
If (regular_freq_value.FreqFromTime as number) = 1 then
weeklydays := "day";
elseif (regular_freq_value.FreqFromTime as number) > 1 then
weeklydays := regular_freq_value.FreqFromTime || " days";
endif;
endif;
If regular_freq_value.FreqUOM = "week" then
If "Monday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Monday";
else weeklydays := "Monday";
endif;
endif;
If "Tuesday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Tuesday";
else weeklydays := "Tuesday";
endif;
endif;
If "Wednesday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Wednesday";
else weeklydays := "Wednesday";
endif;
endif;
If "Thursday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Thursday";
else weeklydays := "Thursday";
endif;
endif;
If "Friday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Friday";
else weeklydays := "Friday";
endif;
endif;
If "Saturday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Saturday";
else weeklydays := "Saturday";
endif;
endif;
If "Sunday" in regular_freq_value.FreqWeeklyDays then
If weeklydays is not Null then weeklydays := weeklydays || ", Sunday";
else weeklydays := "Sunday";
endif;
endif;
endif;
Numtimes := count regular_freq_value.FreqTimes;
if Numtimes > 1 then
septime := ", "; adminat := "";
else
septime := "";adminat := "";
endif;
for k in (1 seqto NumTimes) do
schedtime := regular_freq_value.FreqTimes [k];
schedmin := EXTRACT Minute(schedtime as time);
if (schedmin as number) < 10 then
schedmin := "0" || schedmin ;
endif;
schedhour := EXTRACT HOUR(schedtime as time);
if (schedhour as number) >= 12 then
timeofday := "PM";
if (schedhour as number) >= 13 then
schedhour := schedhour - 12;
endif;
else timeofday := "AM";
if (schedhour as number) = 0 then
schedhour := 12;
endif;
endif;
admintime := schedhour ||":" || schedmin || timeofday;
if numtimes = k then
Adminat := adminat || admintime;
else
adminat := adminat || admintime || septime;
endif;
enddo;
// populate rxinstructions and rx comments with user schedule translation for weekly and daily
rxinstruct := "every " || WeeklyDays || " at " || adminat;
RX_Comments_field.value := rxinstruct || " " || RouteText || " " || ReasonText || " " || InsulinNote;
RX_Instructions_field.value := rxinstruct || " " || RouteText || " " || ReasonText || " " || InsulinNote;
endif;
// this section is for calculated dosing - not used
/*
//Capture the Calculated Dose Data Item and all componenets
CalculatedDose_field := first of (field_list where field_list.DataItemName = "CalculatedDose");
If exists CalculatedDose_field then
CalcDoseValue:= CalculatedDose_field.Value;
// Statements used to read the Complex Dosing Grid.
// If DosingOption field is NULL, we expect the structure
// stored in Value is regular CalculatedDose compound value
// structure.
If exists CalcDoseValue.DosingOption AND
CalcDoseValue.DosingOption is NOT NULL then
// access the dosing options grid
CalcGridDosingOption := CalcDoseValue.DosingOption;
CalcGridRows := CalcDoseValue.Rows;
CalcGridCols := CalcDoseValue.Cols;
CalcGridDefAllowAddRemove := CalcDoseValue.ConfigAllowRowAddRemove;
CalcGridAllowAddRemove := CalcDoseValue.AllowRowAddRemove;
Else
// access as regular CalcDose fields
CalculatedDose_obj := OBJECT [DosageLow, CalcActualDose,
CalcOverrideReason, CalcRequestedDose, CalcTotalDailyDose,
CalcDoseUOM, CalcUOMPer];
CalculatedDoseValue := CalculatedDose_field.Value;
// Statements used to read calculateddose sub-fields
Found_CalcDosageLow := CalculatedDoseValue.DosageLow;
Found_CalcActualDose := CalculatedDoseValue.CalcActualDose;
Found_CalcOverrideReason :=
CalculatedDoseValue.CalcOverrideReason;
Found_CalcRequestedDose :=
CalculatedDoseValue.CalcRequestedDose;
Found_CalcTotalDailyDose :=
CalculatedDoseValue.CalcTotalDailyDose;
Found_CalcUom := CalculatedDoseValue.CalcUOM;
Found_CalcUomPER := CalculatedDoseValue.CalcUOMPer;
Found_CalcReadONly := CalculatedDose_field.control_read_only;
Endif;
//Explode the Complex Dosing Option if found and update the RX Comments field for conversion to a prescription
If Exist CalcGridRows then
// Build a list of found rows and columns of the dosing option grid
index_list := 0 seqto ( count CalcGridRows );
Total_Rows := count CalcGridRows;
for M in index_list do
//Sequentially go thru each of the dosing option rows to get the data item values assigned
temp_Cell_Row:=Last(First M from CalcGridRows.Cells);
//Look for the Calculated Dose Data item and read the value
temp_Cell_DosageLow := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "CalculatedDose");
temp_Cell_ItemValue:=temp_Cell_DosageLow.ItemValue;
temp_Cell_DosageLow_Value:=temp_Cell_ItemValue.DosageLow;
//Check to see if a Dose is present to proceed
If temp_Cell_DosageLow_Value Is Not NULL then
//If the last row then indicate the last like the application does
If M = Total_Rows Then
RX_Summary := RX_Summary || CRLF || "Last: " || temp_Cell_DosageLow_Value || SP;
ElseIf RX_Summary Is Null then
RX_Summary := "Start: " || temp_Cell_DosageLow_Value || SP;
Else
RX_Summary := RX_Summary || CRLF || "Then: " || temp_Cell_DosageLow_Value || SP;
Endif;
//Capture the Unit of Measure and add to the RX Summary if found
temp_Cell_UOM := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "Uom");
temp_Cell_UOM_Value:=temp_Cell_UOM.ItemValue;
//Update the RX Summary if a value was found
If temp_Cell_UOM_Value Is Not NULL then
RX_Summary := RX_Summary || temp_Cell_UOM_Value|| SP;
Endif;
//Capture the Frequency value and add to the RX Summary if found
temp_Cell_Frequency := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "FrequencyCode");
temp_Cell_ItemValue:=temp_Cell_Frequency.ItemValue;
temp_Cell_Frequency_Value:=temp_Cell_ItemValue.FrequencySummary;
//Update the RX Summary if a value was found
If temp_Cell_Frequency_Value Is Not NULL Then
RX_Summary := RX_Summary || temp_Cell_Frequency_Value|| SP;
Endif;
//Capture the Route value and add to the RX Summary if found
temp_Cell_Route := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "OrderRouteCode");
temp_Cell_Route_Value:=temp_Cell_Route.ItemValue;
//Update the RX Summary if a value was found
If temp_Cell_Route_Value Is Not NULL then
RX_Summary := RX_Summary || ", " || temp_Cell_Route_Value;
Endif;
//Capture the Stop After value and add to the RX Summary if found
temp_Cell_StopAfter := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "StopAfter");
temp_Cell_ItemValue:=temp_Cell_StopAfter.ItemValue;
temp_Cell_NUMBER_Value:=temp_Cell_ItemValue.NUMBER;
temp_Cell_Option_Value:=temp_Cell_ItemValue.Option;
//Update the RX Summary if a value was found
If temp_Cell_Option_Value Is Not NULL Then
RX_Summary := RX_Summary || ", for " || temp_Cell_NUMBER_Value || SP || temp_Cell_Option_Value;
Endif;
Endif; //A Row has a Dose
enddo; //End of Row List Loop
Endif; //tapering Dose was found
Endif; //End of CalculatedDose Examination
*/
// This looks for the presence of the field dataitem - dosagelow - and stores it incase a checkbox is removed.
DosageLow_field := first of (field_list where field_list.DataItemName = "DosageLow");
If exists DosageLow_field then
DoseLowValue := DosageLow_field.Value;
// DosageLow value can either be a numeric value or a
//complex dosing grid value.
If exists DoseLowValue And DoseLowValue is not NUMBER then
// access the dosing options grid
DosingOption := DoseLowValue.DosingOption;
DoseLowGrid_ColList := DoseLowValue.Cols;
DoseLowGrid_RowList := DoseLowValue.Rows;
AllowAddRemove := DoseLowValue.AllowRowAddRemove;
ConfigAllowRowAddRemove := DoseLowValue.ConfigAllowRowAddRemove;
Else
// access as regular DosageLow field
Is_Calc_Field := FALSE;
Endif; //DoseageLow was a complex dose option
If Exist DoseLowGrid_RowList then
If DosingOption = "Medrol Dose Pak" then
dosingtype := "DosePak";
endif;
// Build a list of found rows and columns of the dosing option grid
index_list_dl := 0 seqto ( count DoseLowGrid_RowList );
Total_Rows_dl := count DoseLowGrid_RowList;
//Build a loop to go thru the list of Rows found
for M in index_list_dl do
//Sequentially go thru each of the dosing option rows to get the data item values assigned
// and obtain prior row info if available for frequency, durationa and start date
temp_Cell_Row:=Last(First M from DoseLowGrid_RowList.Cells);
If M > 1 then
P := (M as number)-1;
prior_cell_row :=Last(First P from DoseLowGrid_RowList.Cells);
endif;
//Look for the Dose Data item and read the value
temp_Cell_DosageLow := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "DosageLow");
temp_Cell_DosageLow_Value:=temp_Cell_DosageLow.ItemValue;
//Check to see if a Dose is present to proceed
If temp_Cell_DosageLow_Value Is Not NULL then
//If the last row then indicate the last like the application does
If M = Total_Rows_dl Then
// RX_Summary := RX_Summary || CRLF || "Last: " || temp_Cell_DosageLow_Value || SP;
RX_Summary := RX_Summary || CRLF || "THEN: " || temp_Cell_DosageLow_Value || SP;
FirstEntry := "No";
EndMessage := "THEN STOP" || " " || RouteText || " " || ReasonText;
ElseIf RX_Summary Is Null then
RX_Summary := "START: " || temp_Cell_DosageLow_Value || SP;
EndMessage := " ";
FirstEntry := "Yes";
Else
// RX_Summary := RX_Summary || CRLF || "Then: " || temp_Cell_DosageLow_Value || SP;
RX_Summary := RX_Summary || CRLF || " THEN: " || temp_Cell_DosageLow_Value || SP;
EndMessage := " ";
FirstEntry := "No";
Endif;
//Capture the Unit of Measure and add to the RX Summary if found
temp_Cell_UOM := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "Uom");
temp_Cell_UOM_Value:=temp_Cell_UOM.ItemValue;
//Update the RX Summary if a value was found
If temp_Cell_UOM_Value Is Not NULL then
RX_Summary := RX_Summary || temp_Cell_UOM_Value|| SP;
Endif;
//Capture the Frequency value and add to the RX Summary if found
temp_Cell_Frequency := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "FrequencyCode");
temp_Cell_ItemValue:=temp_Cell_Frequency.ItemValue;
temp_Cell_Frequency_Value:=temp_Cell_ItemValue.FrequencySummary;
prior_cell_Frequency := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "FrequencyCode");
prior_Cell_ItemValue:=prior_Cell_Frequency.ItemValue;
prior_Cell_Frequency_Value:=prior_Cell_ItemValue.FrequencySummary;
If prior_Cell_Frequency_Value Is Not NULL and dosingtype <> "DosePak" Then
(PriorFreqType, PriorFreqSpan, PriorFreqUom) := read last
{"Select DefinitionType, TimeFromValue, TimeUom "
||" From cv3Frequency "
||" Where Code = " || SQL(Prior_Cell_Frequency_Value) };
Endif;
//Update the RX Summary if a value was found
If temp_Cell_Frequency_Value Is Not NULL and dosingtype <> "DosePak" Then
RX_Summary := RX_Summary || temp_Cell_Frequency_Value|| SP;
(FreqType, FreqSpan, FreqUom) := read last
{"Select DefinitionType, TimeFromValue, TimeUom "
||" From cv3Frequency "
||" Where Code = " || SQL(temp_Cell_Frequency_Value) };
Endif;
// compare prior row frequency with current row frequency to determine if
// frequency is increasing, decreasing, or staying the same.
If dosingtype <> "DosePak" Then
If priorfreqtype = 2 and freqtype = 1 then
dosingtype := "increasing";
freqspan := freqtype;
elseif priorfreqtype = 1 and freqtype = 2 then
dosingtype := "decreasing";
priorfreqspan := priorfreqtype;
elseif priorfreqtype = 2 and freqtype = 2 then
if priorfreqspan > freqspan then
dosingtype := "increasing";
elseif priorfreqspan < freqspan then
dosingtype := "decreasing";
else dosingtype := "same";
endif;
elseif priorfreqtype = 1 and freqtype = 1 then
dosingtype := "same";
priorfreqspan := priorfreqtype;
freqspan := freqtype;
endif;
endif;
//Capture the Route value and add to the RX Summary if found
temp_Cell_Route := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "OrderRouteCode");
temp_Cell_Route_Value:=temp_Cell_Route.ItemValue;
//Update the RX Summary if a value was found
If temp_Cell_Route_Value Is Not NULL and dosingtype <> "DosePak" Then
RX_Summary := RX_Summary || ", " || temp_Cell_Route_Value;
Endif;
//Capture the Stop After value and add to the RX Summary if found
temp_Cell_StopAfter := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "StopAfter");
temp_Cell_ItemValue:=temp_Cell_StopAfter.ItemValue;
temp_Cell_NUMBER_Value:=temp_Cell_ItemValue.NUMBER;
temp_Cell_Option_Value:=temp_Cell_ItemValue.Option;
prior_Cell_StopAfter := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "StopAfter");
prior_Cell_ItemValue:=prior_Cell_StopAfter.ItemValue;
prior_Cell_NUMBER_Value:=prior_Cell_ItemValue.NUMBER;
prior_Cell_Option_Value:=prior_Cell_ItemValue.Option;
//Update the RX Summary if a value was found
If temp_Cell_Option_Value Is Not NULL and dosingtype <> "DosePak" Then
RX_Summary := RX_Summary || " for " || temp_Cell_NUMBER_Value || SP || temp_Cell_Option_Value || SP ;
endif;
temp_Cell_Start := first of (temp_Cell_Row where temp_Cell_Row.DataItemCode = "RequestedDate");
temp_Cell_Start_Value:=temp_Cell_Start.ItemValue;
prior_Cell_Start := first of (prior_Cell_Row where prior_Cell_Row.DataItemCode = "RequestedDate");
prior_Cell_Start_Value:=prior_Cell_Start.ItemValue;
If prior_Cell_Start_Value Is Not NULL and FirstEntry = "No" and prior_Cell_Option_Value = "Days" and dosingtype <> "DosePak" Then
PriorNumdays := prior_Cell_ItemValue.NUMBER;
// determine start date of current row dependent upon frequency and duration of current and
// prior row. (Increasing, decreasing or same)
If dosingtype = "decreasing" or dosingtype = "same" then
Calc_duration := (Priornumdays as number) - 1;
Offsetdays := Calc_duration - (PriorFreqSpan *(Int(Calc_duration /PriorFreqSpan)));
Addtodate := Calc_duration + FreqSpan - offsetdays;
temp_Cell_Start.ItemValue := prior_Cell_Start_Value + addtodate day ;
yr := extract year temp_Cell_Start.ItemValue ;
mn := extract month temp_Cell_Start.ItemValue ; if mn < 10 then mn := "0" || mn; endif;
dd := extract day temp_Cell_Start.ItemValue ; if dd < 10 then dd := "0" || dd; endif;
DisplayDate := mn || "-" || dd || "-" || yr ;
elseif dosingtype = "increasing" then
Calc_duration := (Priornumdays as number) - 1;
Offsetdays := Calc_duration - (PriorFreqSpan *(Int(Calc_duration /PriorFreqSpan)));
Addtodate := Calc_duration + PriorFreqSpan - offsetdays;
temp_Cell_Start.ItemValue := prior_Cell_Start_Value + addtodate day ;
yr := extract year temp_Cell_Start.ItemValue ;
mn := extract month temp_Cell_Start.ItemValue ; if mn < 10 then mn := "0" || mn; endif;
dd := extract day temp_Cell_Start.ItemValue ; if dd < 10 then dd := "0" || dd; endif;
DisplayDate := mn || "-" || dd || "-" || yr ;
endif;
RX_Summary := RX_Summary || CRLF || " Begin: " || DisplayDate || SP || EndMessage|| CRLF;
elseIf prior_Cell_Start_Value Is NULL and FirstEntry = "Yes" and temp_Cell_Option_Value = "Days" and dosingtype <> "DosePak" Then
yr := extract year temp_Cell_Start.ItemValue ;
mn := extract month temp_Cell_Start.ItemValue ; if mn < 10 then mn := "0" || mn; endif;
dd := extract day temp_Cell_Start.ItemValue ; if dd < 10 then dd := "0" || dd; endif;
DisplayDate := mn || "-" || dd || "-" || yr ;
RX_Summary := RX_Summary || CRLF || " Begin: " || DisplayDate || SP || EndMessage || CRLF;
elseIf prior_Cell_Start_Value Is NULL and dosingtype = "DosePak" Then
yr := extract year temp_Cell_Start.ItemValue ;
mn := extract month temp_Cell_Start.ItemValue ; if mn < 10 then mn := "0" || mn; endif;
dd := extract day temp_Cell_Start.ItemValue ; if dd < 10 then dd := "0" || dd; endif;
StartingDisplayDate := mn || "-" || dd || "-" || yr ;
elseIf prior_Cell_Start_Value Is Not NULL and dosingtype = "DosePak" Then
RX_Summary := "Start on " || StartingDisplayDate || CRLF ||
"Day 1: 2 tabs before breakfast, 1 tab after lunch, 1 tab after dinner, 2 tabs at bedtime" || CRLF ||
"Day 2: 1 tab before breakfast, 1 tab after lunch, 1 tab after dinner, 2 tabs at bedtime" || CRLF ||
"Day 3: 1 tab before breakfast, 1 tab after lunch, 1 tab after dinner, 1 tab at bedtime" || CRLF ||
"Day 4: 1 tab before breakfast, 1 tab after lunch, 1 tab at bedtime" || CRLF ||
"Day 5: 1 tab before breakfast, 1 tab at bedtime" || CRLF ||
"Day 6: 1 tab before breakfast";
endif;
Endif; //A Row has a Dose
enddo; //End of Row List Loop
Endif; //DosageLow was found with a value
Endif; //DosageLow was found
// this section is for complex frequency dosing
/*
//Look for a Complex Frequency and Update th RX Comments accordingly
Freq_field := first of (field_list where field_list.DataItemName = "FrequencyCode");
If exists Freq_field then FreqValue:= Freq_field.Value;
// If DosingOption sub-field exists, this is a Frequency Grid
If exists FreqValue.DosingOption and FreqValue.DosingOption is NOT NULL then
// Get Grid information
AllowRowAddRemove := FreqValue.AllowRowAddRemove;
ConfigAllowRowAddRemove := FreqValue.ConfigAllowRowAddRemove;
// Get Row information
GridRows:= FreqValue.Rows;
//Explode the Complex Dosing Option Freq if found and update the RX Comments field for conversion to a prescription
If Exist GridRows then
// Build a list of found rows and columns of the dosing option grid
index_list_fq := 0 seqto ( count GridRows );
Total_Rows_fq := count GridRows;
for M in index_list_fq do
//Get the Frequency Code
temp_FreqSummary :=Last(First M from GridRows.FrequencySummary);
//Update the RX Summary if a value was found
If temp_FreqSummary Is Not NULL Then
//If the last row then indicate the last like the application does
If M = Total_Rows_fq Then
RX_Summary := RX_Summary || CRLF || "Last: " || temp_FreqSummary || SP;
ElseIf RX_Summary Is Null then
RX_Summary := "Start: " || temp_FreqSummary || SP;
Else
RX_Summary := RX_Summary || CRLF || "Then: " || temp_FreqSummary || SP;
Endif;
Endif;
//Get the Frequency From Time
temp_FreqFromTime :=Last(First M from GridRows.FreqFromTime);
//Update the RX Summary if a value was found
If temp_FreqFromTime > 0 Then
RX_Summary := RX_Summary || "From: " || temp_FreqFromTime || SP;
Endif;
//Get the Frequency To Time
temp_FreqToTime :=Last(First M from GridRows.FreqToTime);
//Update the RX Summary if a value was found
If temp_FreqToTime > 0 Then
RX_Summary := RX_Summary || "To: " || temp_FreqToTime || SP;
Endif;
//Get the Frequency FreqEventModifier
temp_FreqEventModifier :=Last(First M from GridRows.FreqEventModifier);
//Update the RX Summary if a value was found
If temp_FreqEventModifier Is Not NULL Then
RX_Summary := RX_Summary || temp_FreqEventModifier || SP;
Endif;
//Get the Frequency FreqEventCode
temp_FreqEventCode :=Last(First M from GridRows.FreqEventCode);
//Update the RX Summary if a value was found
If temp_FreqEventCode Is Not NULL Then
RX_Summary := RX_Summary || temp_FreqEventCode || SP;
Endif;
//Get the Frequency Stop After Value
temp_StopAfterNumber :=Last(First M from GridRows.StopAfterNumber);
//Update the RX Summary if a value was found
If temp_StopAfterNumber Is Not NULL Then
RX_Summary := RX_Summary || "Stop After: " || temp_StopAfterNumber || SP;
Endif;
temp_StopAfterOption :=Last(First M from GridRows.StopAfterOption);
//Update the RX Summary if a value was found
If temp_StopAfterOption Is Not NULL Then
RX_Summary := RX_Summary || temp_StopAfterOption || SP;
Endif;
//Reserve for Future Use
//Found_DataItemCode1:= Found_Freq.DataItemCode1;
//Found_DataItemValue1:= Found_Freq.DataItemValue1;
//Found_DataItemCode2:= Found_Freq.DataItemCode2;
//Found_DataItemValue2:= Found_Freq.DataItemValue2;
//Found_DataItemCode3:= Found_Freq.DataItemCode3;
//Found_DataItemValue3:= Found_Freq.DataItemValue3;
//Found_DataItemCode4:= Found_Freq.DataItemCode4;
//Found_DataItemValue4:= Found_Freq.DataItemValue4;
//Found_DataItemCode5:= Found_Freq.DataItemCode5;
//Found_DataItemValue5:= Found_Freq.DataItemValue5;
Enddo; //End of Grid Row Loop
Endif; //Grid Row exists
ENDIF; //The Frequency is a dosing option type
ENDIF; //FrequencyCode was found
*/
//Update the RX Comments UDDI with the Variable DOse or Multiple Frequency option.
If RX_Summary Is not NULL then
//The RX WRiter Sig Comment UDDI can only handle 2000 characters so trim to fit on form
if (length RX_Summary) > 2000 then
RX_Summary_Truncate := (substring 1997 characters starting at 1 from RX_Summary) || "...";
RX_Comments_field.Value := RX_Summary_Truncate;
Else
RX_Comments_field.Value := RX_Summary;
Endif; //Update RX Comments
//Add a note to the RX Instructions field (if exists) which displays when converting to a Home Medication.
//Note - This field can only accomodate 140 chracters at this time so it will be truncated.
//Check for the RX Instructions:
RX_Instructions_field := first of (field_list where field_list.DataItemName = "Rx Instructions");
If exists RX_Instructions_field then
// If (length RX_Summary) > 140 then
// RX_Instructions_Truncate := (substring 137 characters starting at 1 from RX_Summary) || "...";
If (length RX_Summary) > 500 then
RX_Instructions_Truncate := (substring 497 characters starting at 1 from RX_Summary) || "...";
RX_Instructions_field.Value := RX_Instructions_Truncate;
Else
RX_Instructions_field.Value := RX_Summary;
Endif;
Endif;
Endif; //An RX Summary was found
//The Field was not on the Order Form
Elseif RX_Summary Is not NULL Then
error_message := "The RX Comment Data Item was not found on the form and a Complex Dose was entered.";
Endif; //The RX Comments UDDI was found on the form
If error_message <> "" Then
this_communication.DisplayForm := "Yes";
this_communication.Message := "error_message";
this_communication.MessageType := "Informational";
Endif;
;;
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: