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

123
MLMStripper/bin/Debug/FORM/FORM_RITUXIN.mlm Normal file
View File

@@ -0,0 +1,123 @@
maintenance:
title: Form_Rituxin;;
mlmname: Form_Rituxin ;;
arden: version 2.5;;
version: 6.10;;
institution: SCH ;;
author: Shivprasad Jadhav;;
specialist: Shivprasad Jadhav, Allscripts;;
date: 2016-02-02;;
validation: testing;;
library:
purpose: Ø While opening of the Order items if the weight or height is not charted on the patient then pre -populate the message that weight / height needs to entered.
Calucate the Dose for the patient on the basis of the value in the calculation field* BSA And round off to multiple of 5.
Instruction/Comments whould change the value of 375 as per the dose value.
;;
explanation:
Change history
04.11.2017 TMS Changed MLM to be called from "Form_HoldOrder_RequestedTime" to keep calls on FormOpen
from one {{{SINGLE-QUOTE}}}master{{{SINGLE-QUOTE}}} MLM, being done in preparation for using hidden default dosing CSR 35364.
;;
keywords:
;;
citations:
;;
knowledge:
type: data-driven;;
data:
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
(this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
field_list:= this_form.Fields;
Client_GUID := this_communication.ClientGUID;
ClientVisit_GUID := this_communication.ClientVisitGUID;
Chart_GUID := this_communication.ChartGUID;
form_name := this_form.Name;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
HtWtBSA := First of ( field_list where field_list.DataItemName = "CombinedMeasurements" And field_list.Control_MultiFieldOccNum = 1 ) ;
Calculation := First of ( field_list where field_list.DataItemName = "PRX_Rituximab calcuation" And field_list.Control_MultiFieldOccNum = 1 ) ;
Dose := First of ( field_list where field_list.DataItemName = "DosageLow" And field_list.Control_MultiFieldOccNum = 1 ) ;
Instruction := First of ( field_list where field_list.DataItemName = "AdminInstructions" and field_list.Control_MultiFieldOccNum = 1 ) ;
HtWtBSA_Val := HtWtBSA.Value.BSA ;
Calc_Val :=Calculation.Value ;
// check weight Value for Patient and Give warning message
Wt := Read first {"Select text from CV3PhysicalNoteDeclaration With (Nolock) Where Typecode= {{{SINGLE-QUOTE}}}WEIGHT{{{SINGLE-QUOTE}}} "
|| " And ClientVisitGUID = " ||SQL(ClientVisit_GUID) || " " };
Ht := Read first {"Select text from CV3PhysicalNoteDeclaration With (Nolock) Where Typecode= {{{SINGLE-QUOTE}}}HEIGHT{{{SINGLE-QUOTE}}} "
|| " And ClientVisitGUID = " ||SQL(ClientVisit_GUID) || " " };
if ( CallingEvent = "FormOpen" ) then
// Generic_MLM:= MLM {{{SINGLE-QUOTE}}}FORM_HOLDORDER_REQUESTEDTIME{{{SINGLE-QUOTE}}};
// this_communication,this_form := call Generic_MLM with this_communication,this_form,client_info_obj ;
// To Pass Message fir Height weight
If Wt is Null or Ht is Null or HtWtBSA_Val = 0 Then
Void := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "\n Please enter a current weight/height for this patient" ,"Sunrise Clinical Manager", "OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}},"Warning" as {{{SINGLE-QUOTE}}}MessageBoxIcon{{{SINGLE-QUOTE}}};
EndIf;
// Autopopulating Value in dose
If (Wt is Not Null And Ht is not Null ) And HtWtBSA_Val Is Not 0 Then
DoseVal := (HtWtBSA_Val As Number ) * ( Calc_Val As Number) ;
DoseVal1 := Read Last {"Select Convert( Int, Round( "|| DoseVal || ", 0)) "};
RoundedDose := Read Last {" Select Convert(Int,(( "||DoseVal1 || " + 2.5)/5)) * 5 "}; //Read Last {" Select "|| DoseVal1 ||" + (5 - ( "|| DoseVal1 ||" % 5)) "};
Dose.Value := RoundedDose ;
Instruction.Value := " Dose: "|| HtWtBSA_Val || " m2 x 375 mg/m2 " ;
ElseIf HtWtBSA_Val = 0 Then
Instruction.Value := "";
Endif ;
Endif;
if ( CallingEvent = "FieldChange" ) then
//if this_communication.CallingFieldName in ("PRX_Rituximab calcuation","CombinedMeasurements") Then
If (HtWtBSA_Val Is Not 0 ) And (Calc_Val is Not Null ) Then
If CallingField = "DosageLow" Then
DoseVal := (HtWtBSA_Val As Number) * ( Calc_Val As Number);
DoseVal1 := Read Last {"Select Convert( Int, Round( "|| DoseVal || ", 0)) "}; //Dose.Value := DoseVal1 ;
RoundedDose := Read Last {" Select Convert(Int,(( "||DoseVal1 || " + 2.5)/5)) * 5 "};
If Dose.Value = RoundedDose Then
Dose.Value := (HtWtBSA_Val As Number) * ( Calc_Val As Number) ;
Dose.Value := RoundedDose; //DoseVal1 ;
Instruction.Value := " Dose: "|| HtWtBSA_Val || " m2 x 375 mg/m2 " ;
Else
Instruction.Value := "";
Endif;
Else
DoseVal := (HtWtBSA_Val As Number) * ( Calc_Val As Number) ;
DoseVal1 := Read Last {"Select Convert( Int, Round( "|| DoseVal || ", 0)) "};
RoundedDose := Read Last {" Select Convert(Int,(( "||DoseVal1 || " + 2.5)/5)) * 5 "};
Dose.Value := RoundedDose ;
Instruction.Value := " Dose: "|| HtWtBSA_Val || " m2 x 375 mg/m2 " ;
Endif;
ElseIf HtWtBSA_Val = 0 or Calc_Val is Null Then
Instruction.Value := "";
Endif;
EndIf; /// Form Onening Event End
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return this_communication, this_form;
;;
Urgency: 50;;
end: