DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
496f847ee2e59511a563f39e4c3cd38d8c51e94f
St.Clair/MLMStripper/bin/Debug/DOC/DOC_FUNC_TDAP_TETANUS_ED.mlm

975 lines
45 KiB
Plaintext
Raw Blame History

maintenance:
title: TDAP and Tetanus Logic for ED patients;;
mlmname: DOC_FUNC_TDAP_TETANUS_ED;;
arden: version 5.0;;
version: 2.00;;
institution: St.Clair Hospital;;
author: Don Warnick;;
specialist: ;;
date: 2012-04-02;;
validation: testing;;
library:
purpose:
;;
explanation:
Change history
04.02.2012 DW CSR# 26307 - Created (copied from DOC_FUNC_TDAP)
;;
keywords:
;;
knowledge:
type: data-driven;;
data:
// RS ADD Message box
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
using "ObjectsPlusXA.SCM.Forms";
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
// Recieve arguments from the structured note
(thisDocumentCommunication) := argument;
// Extract interesting parts of the object model
(thisStructuredNoteDoc) := thisDocumentCommunication.DocumentConfigurationObj;
(thisParameters) := thisStructuredNoteDoc.ParametersList;
(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;
// Create prototypes for the object types we{{{SINGLE-QUOTE}}}ll need to instantiate
ObservationType := OBJECT [ObservationGUID, ClientDocumentGUID, ParameterGUID, DataType, ValueObj];
FreeTextValueType := OBJECT [Value];
DateValueType := OBJECT [Value];
ListValueType := OBJECT [ListGuid,ListItemsList, SuggestedTextValue];
ListValueListItemType := OBJECT [ListItemGUID, Value, IsSelected];
// Get the client and visit GUIDs
clientGuid := thisDocumentCommunication.ClientGUID;
visitGuid := thisDocumentCommunication.ClientVisitGUID;
chartGuid := thisDocumentCommunication.ChartGUID;
userGuid := thisDocumentCommunication.UserGUID;
formattedTextReason := "N-0. TDAP/Tetanus risk was not determined. ";
ordervaccine := "no";
// CHART OBSERVATION SECTION
IF thisdocumentCommunication.EventType = "ChartObservation" then
// Attain user{{{SINGLE-QUOTE}}}s ID (for use in override message)
userId := read last {" SELECT IDCode FROM CV3User with (nolock) WHERE GUID = " || Sql(userGuid) || " AND Active = 1 "};
// CONTRAINDICATION BUTTON CHANGE SECTION
// Using the prior value of the None box, determine if this is the first time a contraindication section box was clicked
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_TDAP ED Details");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
SavedNoneContraValue := theObservation.ValueObj.Value;
If SavedNoneContraValue is null
then FirstTime := "true"; else FirstTime := "false";
endif;
// Proceed if a Contraindication section box was clicked
theParameter := first of (thisparameters where thisparameters.Name = "SCHCK_TDAP ED vac contra");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if thisDocumentCommunication.CurrentObservationObj.parameterguid = theParameter.ParameterGUID
then
trigger := "A Contraindications Box was selected or deselected";
// If this is first contraindication section box clicked, assess what had been selected (NONE VS a Contraindication)
if FirstTime = "true" then
If true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "none")
then contraboxchecked := "false"; MLMAction := "Retrieve and Reassess";
elseif true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value <> "none")
then contraboxchecked := "true"; MLMAction := "No Assessment Required";
endif;
endif;
// Compare the prior value of the None box to the current value, to determine what was selected (NONE VS a Contraindication)
if true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "none")
then NewNoneContraValue := "true"; else NewNoneContraValue := "false";
endif;
If FirstTime = "false"
then
if NewNoneContraValue = SavedNoneContraValue
then WhatWasClicked := "Other Button Was Clicked";
else WhatWasClicked := "None Button Was Clicked"; SavedNoneContraValue := NewNoneContraValue;
endif;
else // FirstTime = "true"
SavedNoneContraValue := NewNoneContraValue;
endif;
// Determine if all boxes in the section are deselected (nonthing is selected)
if true not in (theObservation.ValueObj.ListItemsList.IsSelected)
then contraboxchecked := "unknown"; MLMAction := "No Assessment Required";
endif;
// If this is not the first click and something is selected, reset the mutually exclusive contraindication boxes (None VS a Contraindiation)
If (contraboxchecked = "unknown" or FirstTime = "true")
then ResetOtherBoxes := "false"; else ResetOtherBoxes := "true";
endif;
If ResetOtherBoxes = "true"
then
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := theParameter.ParameterGUID;
this_currentObj.DataType := "ListValue";
this_currentObj.ValueObj := New ListValueType;
this_currentObj.ValueObj.ListGUID:= theParameter.ConfigurationObj.ListGUID;
listItems := ();
FOR item IN theParameter.ConfigurationObj.ListItemsList DO
selectedItem := NEW ListValueListItemType;
selectedItem.ListItemGUID := item.ListItemGUID;
selectedItem.Value := item.Value;
if WhatWasClicked = "Other Button Was Clicked" // One of the Containdications was selected
then
if true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = selectedItem.Value)
then selectedItem.IsSelected := true;
else selectedItem.IsSelected := false;
endif;
if selectedItem.Value = "none"
then selectedItem.IsSelected := false;
endif;
NewNoneContraValue := "false";
endif;
if WhatWasClicked = "None Button Was Clicked" // The None box was selected
then
if selectedItem.Value = "none"
then selectedItem.IsSelected := true;
else selectedItem.IsSelected := false;
endif;
endif;
listItems := (listItems, selectedItem);
ENDDO;
this_currentobj.ValueObj.ListItemsList := listItems;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
// After the boxes have been reset, assess what is now selected
If WhatWasClicked = "None Button Was Clicked" and
true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "none")
then contraboxchecked := "false"; MLMAction := "Retrieve and Reassess";
elseif WhatWasClicked = "Other Button Was Clicked" and
true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value <> "none")
then contraboxchecked := "true"; MLMAction := "No Assessment Required";
endif;
endif; // End of Reset mutually exclusive Contra section
// If None is selcted , Unhide the Chronic Illness and Immunocompromised fields and buttons
If contraboxchecked = "false" then
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_TDAP ED Unhide");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "ListValue";
this_currentObj.ValueObj := New ListValueType;
this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;
listItems := ();
FOR item IN this_parametername.ConfigurationObj.ListItemsList DO
selectedItem := NEW ListValueListItemType;
selectedItem.ListItemGUID := item.ListItemGUID;
selectedItem.Value := item.Value;
selectedItem.IsSelected := true;
listItems := (listItems, selectedItem);
ENDDO;
this_currentobj.ValueObj.ListItemsList := listItems;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
endif;
// Populate the "None" Contraindiated Selected Value Box
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_TDAP ED Details");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "FreeTextValue";
this_currentObj.ValueObj := New FreeTextValueType;
this_currentObj.ValueObj.Value := NewNoneContraValue;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
endif; // End of Contraindication section
// OTHER BUTTON CHANGE SECTION
// Place Order button change to NO (affix ovverride message to assesement)
theParameter := first of (thisparameters where thisparameters.Name = "SCHCK_TDAP vac order");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if thisDocumentCommunication.CurrentObservationObj.parameterguid = theParameter.ParameterGUID
and
true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "no")
then MLMAction := "Reassess Only";
trigger:= "Order Button NO was selected";
endif;
// Place Order button change to YES (send message to user and reset to original assessment)
theParameter := first of (thisparameters where thisparameters.Name = "SCHCK_TDAP vac order");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if thisDocumentCommunication.CurrentObservationObj.parameterguid = theParameter.ParameterGUID
and
true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "yes")
then MLMAction := "Reassess Only";
trigger:= "Order Button YES was selected";
endif;
// Date has Changed
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tdap date vacc rec ob");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if thisDocumentCommunication.CurrentObservationObj.parameterguid = theParameter.ParameterGUID
then trigger := "Date was changed";
If SavedNoneContraValue = "true"
then MLMAction := "Reassess Only"; // No Contraindications were identified
else MLMAction := "No Assessment Required"; // Patient has contraindications
endif;
endif;
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tetanus date vacc rec");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if thisDocumentCommunication.CurrentObservationObj.parameterguid = theParameter.ParameterGUID
then trigger := "Date was changed";
If SavedNoneContraValue = "true"
then MLMAction := "Reassess Only"; // No Contraindications were identified
else MLMAction := "No Assessment Required"; // Patient has contraindications
endif;
endif;
// RETRIEVE AND REASSESS (or REASSESS ONLY) SECTION
if MLMAction = "Retrieve and Reassess" or MLMAction = "Reassess Only" then
// RETRIEVE AND REASSESS SECTION
If MLMAction = "Retrieve and Reassess" then
// Gather date information related to the first of two vaccines (TDAP)
// Date vaccine #1 was charted in the patient profile
(vaccinecharteddate) := read last
{
" select "
||" case when LEN(o.valuetext) = 8 then "
||" case when (substring(o.valuetext, 7, 1)) in ({{{SINGLE-QUOTE}}}7{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}8{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}9{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}19{{{SINGLE-QUOTE}}} else {{{SINGLE-QUOTE}}}20{{{SINGLE-QUOTE}}} end "
|| " + (substring(o.valuetext, 7, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| "(substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| "else "
|| "(substring(o.valuetext, 7, 4)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end "
|| " from CV3ClientDocument cd with (nolock) "
|| " join CV3ClientDocDetail cdd with (nolock) ON (cdd.ClientDocumentGUID = cd.GUID AND cdd.ClientGUID = " || ClientGuid || " and cdd.active = 1) "
|| " join CV3ObservationDocument od with (nolock)ON cdd.CLientDocumentGUID = od.OwnerGUID and od.active = 1 "
|| " join CV3Observation o with (nolock) ON o.GUID = od.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmi with (nolock) on od.ObsMasterItemGUID = ocmi.GUID and ocmi.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap date vacc rec ob{{{SINGLE-QUOTE}}} "
|| " where cd.clientguid = " || ClientGuid || " and cd.iscanceled = 0 and cd.documentname like {{{SINGLE-QUOTE}}}%patient profile%{{{SINGLE-QUOTE}}} "
|| " and "
|| " (select top 1 fslx.value "
|| " from CV3ClientDocument cdx with (nolock) "
|| " join CV3ClientDocDetail cddx with (nolock) ON (cddx.ClientDocumentGUID = cdx.GUID AND cddx.ClientGUID = " || ClientGuid || " and cddx.active = 1) "
|| " join CV3ObservationDocument odx with (nolock)ON cddx.CLientDocumentGUID = odx.OwnerGUID and odx.active = 1 "
|| " join CV3Observation ox with (nolock) ON ox.GUID = odx.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmix with (nolock) on odx.ObsMasterItemGUID = ocmix.GUID and ocmix.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap vaccine type rec ob{{{SINGLE-QUOTE}}} "
|| " left join SCMObsFSListValues fslx(nolock) ON (fslx.ParentGUID = odx.ObservationDocumentGUID AND fslx.ClientGUID = " || ClientGuid || " ) "
|| " where cdx.GUID = cd.guid ) "
|| " is null "
|| " order by (substring(o.valuetext, 7, 4)), (substring(o.valuetext, 1, 2)) , (substring(o.valuetext, 4, 2)) "
};
vaccinechartedwhen := (vaccinecharteddate as time);
// Date vaccine #1 was charted in the patient profile - old style (with tetanus radio button selected....not
(vaccinecharteddateoldstyle) := read last
{
" select "
||" case when LEN(o.valuetext) = 8 then "
||" case when (substring(o.valuetext, 7, 1)) in ({{{SINGLE-QUOTE}}}7{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}8{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}9{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}19{{{SINGLE-QUOTE}}} else {{{SINGLE-QUOTE}}}20{{{SINGLE-QUOTE}}} end "
|| " + (substring(o.valuetext, 7, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| "(substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| "else "
|| "(substring(o.valuetext, 7, 4)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end "
|| " from CV3ClientDocument cd with (nolock) "
|| " join CV3ClientDocDetail cdd with (nolock) ON (cdd.ClientDocumentGUID = cd.GUID AND cdd.ClientGUID = " || ClientGuid || " and cdd.active = 1) "
|| " join CV3ObservationDocument od with (nolock)ON cdd.CLientDocumentGUID = od.OwnerGUID and od.active = 1 "
|| " join CV3Observation o with (nolock) ON o.GUID = od.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmi with (nolock) on od.ObsMasterItemGUID = ocmi.GUID and ocmi.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap date vacc rec ob{{{SINGLE-QUOTE}}} "
|| " where cd.clientguid = " || ClientGuid || " and cd.iscanceled = 0 and cd.documentname like {{{SINGLE-QUOTE}}}%patient profile%{{{SINGLE-QUOTE}}} "
|| " and "
|| " (select top 1 fslx.value "
|| " from CV3ClientDocument cdx with (nolock) "
|| " join CV3ClientDocDetail cddx with (nolock) ON (cddx.ClientDocumentGUID = cdx.GUID AND cddx.ClientGUID = " || ClientGuid || " and cddx.active = 1) "
|| " join CV3ObservationDocument odx with (nolock)ON cddx.CLientDocumentGUID = odx.OwnerGUID and odx.active = 1 "
|| " join CV3Observation ox with (nolock) ON ox.GUID = odx.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmix with (nolock) on odx.ObsMasterItemGUID = ocmix.GUID and ocmix.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap vaccine type rec ob{{{SINGLE-QUOTE}}} "
|| " left join SCMObsFSListValues fslx(nolock) ON (fslx.ParentGUID = odx.ObservationDocumentGUID AND fslx.ClientGUID = " || ClientGuid || " ) "
|| " where cdx.GUID = cd.guid ) "
|| " = {{{SINGLE-QUOTE}}}TDAP{{{SINGLE-QUOTE}}} "
|| " order by (substring(o.valuetext, 7, 4)), (substring(o.valuetext, 1, 2)) , (substring(o.valuetext, 4, 2)) "
};
vaccinechartedwhenoldstyle := (vaccinecharteddateoldstyle as time);
// Date vaccine #1 was charted as given in the EMAR
(vaccinegivenwhen) := read last
{
" select oto.performedfromdtm "
|| " from cv3ordercatalogmasteritem as ocmi with (nolock) "
|| " join cv3order as o with (nolock)on o.ordercatalogmasteritemguid = ocmi.guid "
|| " and o.ClientGUID = " || ClientGuid || " "
|| " and (o.name = {{{SINGLE-QUOTE}}}Diphtheria, Pertussis, Tetanus Vaccine{{{SINGLE-QUOTE}}}) "
|| " join cv3ordertask as ot with (nolock) on ot.clientguid = o.clientguid and ot.orderguid = o.guid "
|| " join cv3ordertaskoccurrence as oto with (nolock) on oto.clientguid = ot.clientguid and oto.orderguid = ot.orderguid "
|| " and oto.ordertaskguid = ot.guid and oto.taskstatuscode ={{{SINGLE-QUOTE}}}Performed{{{SINGLE-QUOTE}}} "
};
// Date vaccine #1 was last charted as an active health issue
(vaccinehealthissuedate) := read last
{
" select "
|| " case when onsetyearnum = 0 "
|| " then createdwhen "
|| " else "
|| " case when (onsetmonthnum >0 and onsetmonthnum <10) then {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + cast (onsetmonthnum as varchar) "
|| " when onsetmonthnum = 0 then {{{SINGLE-QUOTE}}}01{{{SINGLE-QUOTE}}} else cast (onsetmonthnum as varchar) end + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| " case when (onsetdaynum >0 and onsetdaynum <10) then {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + cast (onsetdaynum as varchar) "
|| " when onsetdaynum = 0 then {{{SINGLE-QUOTE}}}01{{{SINGLE-QUOTE}}} else cast (onsetdaynum as varchar) end "
|| " + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + cast (onsetyearnum as varchar) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end {{{SINGLE-QUOTE}}}date returned to mlm{{{SINGLE-QUOTE}}} "
|| " from cv3healthissuedeclaration with (nolock) "
|| " where clientguid = " || ClientGuid || " and active = 1 and status = {{{SINGLE-QUOTE}}}active{{{SINGLE-QUOTE}}}"
|| " and (text like {{{SINGLE-QUOTE}}}%TDAP%{{{SINGLE-QUOTE}}} or shortname like {{{SINGLE-QUOTE}}}%TDAP%{{{SINGLE-QUOTE}}}) "
|| " order by createdwhen "
};
vaccinehealthissue_found := count(vaccinehealthissue) As Number;
// Gather date information related to the second of two vaccines (TETANUS)
// Date vaccine #2 was charted in the patient profile
(vaccinecharteddate_2) := read last
{
" select "
||" case when LEN(o.valuetext) = 8 then "
||" case when (substring(o.valuetext, 7, 1)) in ({{{SINGLE-QUOTE}}}7{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}8{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}9{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}19{{{SINGLE-QUOTE}}} else {{{SINGLE-QUOTE}}}20{{{SINGLE-QUOTE}}} end "
|| " + (substring(o.valuetext, 7, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| "(substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| "else "
|| "(substring(o.valuetext, 7, 4)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end "
|| " from CV3ClientDocument cd with (nolock) "
|| " join CV3ClientDocDetail cdd with (nolock) ON (cdd.ClientDocumentGUID = cd.GUID AND cdd.ClientGUID = " || ClientGuid || " and cdd.active = 1) "
|| " join CV3ObservationDocument od with (nolock)ON cdd.CLientDocumentGUID = od.OwnerGUID and od.active = 1 "
|| " join CV3Observation o with (nolock) ON o.GUID = od.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmi with (nolock) on od.ObsMasterItemGUID = ocmi.GUID and ocmi.name = {{{SINGLE-QUOTE}}}SCHCK_Tetanus date vacc rec{{{SINGLE-QUOTE}}} "
|| " where cd.clientguid = " || ClientGuid || " and cd.iscanceled = 0 and cd.documentname like {{{SINGLE-QUOTE}}}%patient profile%{{{SINGLE-QUOTE}}} "
|| " and "
|| " (select top 1 fslx.value "
|| " from CV3ClientDocument cdx with (nolock) "
|| " join CV3ClientDocDetail cddx with (nolock) ON (cddx.ClientDocumentGUID = cdx.GUID AND cddx.ClientGUID = " || ClientGuid || " and cddx.active = 1) "
|| " join CV3ObservationDocument odx with (nolock)ON cddx.CLientDocumentGUID = odx.OwnerGUID and odx.active = 1 "
|| " join CV3Observation ox with (nolock) ON ox.GUID = odx.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmix with (nolock) on odx.ObsMasterItemGUID = ocmix.GUID and ocmix.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap vaccine type rec ob{{{SINGLE-QUOTE}}} "
|| " left join SCMObsFSListValues fslx(nolock) ON (fslx.ParentGUID = odx.ObservationDocumentGUID AND fslx.ClientGUID = " || ClientGuid || " ) "
|| " where cdx.GUID = cd.guid ) "
|| " is null "
|| " order by (substring(o.valuetext, 7, 4)), (substring(o.valuetext, 1, 2)) , (substring(o.valuetext, 4, 2)) "
};
vaccinechartedwhen_2 := (vaccinecharteddate_2 as time);
// Date vaccine #2 was charted in the patient profile - old style (with tetanus radio button selected....not
(vaccinecharteddateoldstyle_2) := read last
{
" select "
||" case when LEN(o.valuetext) = 8 then "
||" case when (substring(o.valuetext, 7, 1)) in ({{{SINGLE-QUOTE}}}7{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}8{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}9{{{SINGLE-QUOTE}}}) then {{{SINGLE-QUOTE}}}19{{{SINGLE-QUOTE}}} else {{{SINGLE-QUOTE}}}20{{{SINGLE-QUOTE}}} end "
|| " + (substring(o.valuetext, 7, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| "(substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| "else "
|| "(substring(o.valuetext, 7, 4)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 1, 2)) + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + (substring(o.valuetext, 4, 2)) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end "
|| " from CV3ClientDocument cd with (nolock) "
|| " join CV3ClientDocDetail cdd with (nolock) ON (cdd.ClientDocumentGUID = cd.GUID AND cdd.ClientGUID = " || ClientGuid || " and cdd.active = 1) "
|| " join CV3ObservationDocument od with (nolock)ON cdd.CLientDocumentGUID = od.OwnerGUID and od.active = 1 "
|| " join CV3Observation o with (nolock) ON o.GUID = od.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmi with (nolock) on od.ObsMasterItemGUID = ocmi.GUID and ocmi.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap date vacc rec ob{{{SINGLE-QUOTE}}} "
|| " where cd.clientguid = " || ClientGuid || " and cd.iscanceled = 0 and cd.documentname like {{{SINGLE-QUOTE}}}%patient profile%{{{SINGLE-QUOTE}}} "
|| " and "
|| " (select top 1 fslx.value "
|| " from CV3ClientDocument cdx with (nolock) "
|| " join CV3ClientDocDetail cddx with (nolock) ON (cddx.ClientDocumentGUID = cdx.GUID AND cddx.ClientGUID = " || ClientGuid || " and cddx.active = 1) "
|| " join CV3ObservationDocument odx with (nolock)ON cddx.CLientDocumentGUID = odx.OwnerGUID and odx.active = 1 "
|| " join CV3Observation ox with (nolock) ON ox.GUID = odx.ObservationGUID "
|| " join CV3ObsCatalogMasterItem ocmix with (nolock) on odx.ObsMasterItemGUID = ocmix.GUID and ocmix.name = {{{SINGLE-QUOTE}}}SCHCK_Tdap vaccine type rec ob{{{SINGLE-QUOTE}}} "
|| " left join SCMObsFSListValues fslx(nolock) ON (fslx.ParentGUID = odx.ObservationDocumentGUID AND fslx.ClientGUID = " || ClientGuid || " ) "
|| " where cdx.GUID = cd.guid ) "
|| " = {{{SINGLE-QUOTE}}}Tetanus{{{SINGLE-QUOTE}}} "
|| " order by (substring(o.valuetext, 7, 4)), (substring(o.valuetext, 1, 2)) , (substring(o.valuetext, 4, 2)) "
};
vaccinechartedwhenoldstyle_2 := (vaccinecharteddateoldstyle_2 as time);
// Date vaccine #2 was charted as given in the EMAR
(vaccinegivenwhen_2) := read last
{
" select oto.performedfromdtm "
|| " from cv3ordercatalogmasteritem as ocmi with (nolock) "
|| " join cv3order as o with (nolock)on o.ordercatalogmasteritemguid = ocmi.guid "
|| " and o.ClientGUID = " || ClientGuid || " "
|| " and (o.name in ({{{SINGLE-QUOTE}}}Tetanus Toxoid Adsorbed Inj{{{SINGLE-QUOTE}}}, {{{SINGLE-QUOTE}}}Diphtheria/Tetanus Toxoid{{{SINGLE-QUOTE}}})) "
|| " join cv3ordertask as ot with (nolock) on ot.clientguid = o.clientguid and ot.orderguid = o.guid "
|| " join cv3ordertaskoccurrence as oto with (nolock) on oto.clientguid = ot.clientguid and oto.orderguid = ot.orderguid "
|| " and oto.ordertaskguid = ot.guid and oto.taskstatuscode ={{{SINGLE-QUOTE}}}Performed{{{SINGLE-QUOTE}}} "
};
// Date vaccine #2 was last charted as an active health issue
(vaccinehealthissuedate_2) := read last
{
" select "
|| " case when onsetyearnum = 0 "
|| " then createdwhen "
|| " else "
|| " case when (onsetmonthnum >0 and onsetmonthnum <10) then {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + cast (onsetmonthnum as varchar) "
|| " when onsetmonthnum = 0 then {{{SINGLE-QUOTE}}}01{{{SINGLE-QUOTE}}} else cast (onsetmonthnum as varchar) end + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + "
|| " case when (onsetdaynum >0 and onsetdaynum <10) then {{{SINGLE-QUOTE}}}0{{{SINGLE-QUOTE}}} + cast (onsetdaynum as varchar) "
|| " when onsetdaynum = 0 then {{{SINGLE-QUOTE}}}01{{{SINGLE-QUOTE}}} else cast (onsetdaynum as varchar) end "
|| " + {{{SINGLE-QUOTE}}}-{{{SINGLE-QUOTE}}} + cast (onsetyearnum as varchar) +{{{SINGLE-QUOTE}}} 00:00:00.000{{{SINGLE-QUOTE}}} "
|| " end {{{SINGLE-QUOTE}}}date returned to mlm{{{SINGLE-QUOTE}}} "
|| " from cv3healthissuedeclaration with (nolock) "
|| " where clientguid = " || ClientGuid || " and active = 1 and status = {{{SINGLE-QUOTE}}}active{{{SINGLE-QUOTE}}}"
|| " and (text like {{{SINGLE-QUOTE}}}%Tetanus%{{{SINGLE-QUOTE}}} or shortname like {{{SINGLE-QUOTE}}}%Tetanus%{{{SINGLE-QUOTE}}}) "
|| " order by createdwhen "
};
vaccinehealthissue_found_2 := count(vaccinehealthissue_2) As Number;
// Populate Fields and Boxes
// Populate the latest date of Vaccine #1 (TDAP)
// First determine which of the 3 dates is latest (vaccine given, charted, or health issue)
match1 := false;
match2 := false;
match3 := false;
nodates:= false;
If vaccinegivenwhen is null and vaccinehealthissuedate is null and vaccinechartedwhen is null and vaccinechartedwhenoldstyle is null
then nodates := true; endif;
If vaccinegivenwhen is null then vaccinegivenwhen := 1800-01-01T00:00:00; endif;
If vaccinehealthissuedate is null then vaccinehealthissuedate := 1800-01-01T00:00:00; endif;
If vaccinechartedwhen is null then vaccinechartedwhen := 1800-01-01T00:00:00; endif;
If vaccinechartedwhenoldstyle is null then vaccinechartedwhenoldstyle := 1800-01-01T00:00:00; endif;
// Save the "new stye" date (for the HIS box) & then update vaccinechartedwhen with the later of the two dates ("old style" w/tetanus radio button or "new style w/no radio button)
vaccinechartedwhennewstyle := vaccinechartedwhen;
if vaccinechartedwhenoldstyle IS AFTER vaccinechartedwhen then vaccinechartedwhen := vaccinechartedwhenoldstyle; endif;
// With the latest "vaccine given" date established, proceed with the process of determining the latest of (vaccine given, charted, or health issue)
match1 := vaccinegivenwhen IS AFTER vaccinehealthissuedate;
If match1 = true
then match2 := vaccinegivenwhen IS AFTER vaccinechartedwhen;
else match3 := vaccinehealthissuedate IS AFTER vaccinechartedwhen;
endif;
If match2 = true then givenwins := true; endif;
If match3 = true then healthissuewins := true; endif;
If (match2 = false) and (match3 = false) then chartedwins := true; endif;
if nodates = false then
If givenwins = true then latestdate := vaccinegivenwhen; endif;
If healthissuewins = true then latestdate := vaccinehealthissuedate; endif;
If chartedwins = true then latestdate := vaccinechartedwhen; endif;
endif;
// Populate Date field
// First determine if the field has been manually updated by the nurse (not empty)
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tdap date vacc rec ob");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
datefieldcontents := theObservation.ValueObj.Value;
if datefieldcontents is null
then datefield := latestdate;
else datefield := datefieldcontents;
endif;
// Populate the field if history is found in SCM and the field hasn{{{SINGLE-QUOTE}}}t been overriden by the nurse (not empty)
If latestdate is not null and datefieldcontents is null
then
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_Tdap date vacc rec ob");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "DateValue";
this_currentObj.ValueObj := New DateValueType;
this_currentObj.ValueObj.Value := latestdate;
this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
endif;
// Populate the latest date of Vaccine #2 (TETANUS)
// First determine which of the 3 dates is latest (vaccine given, charted, or health issue)
match1_2 := false;
match2_2 := false;
match3_2 := false;
nodates_2:= false;
If vaccinegivenwhen_2 is null and vaccinehealthissuedate_2 is null and vaccinechartedwhen_2 is null and vaccinechartedwhenoldstyle_2 is null
then nodates_2 := true; endif;
If vaccinegivenwhen_2 is null then vaccinegivenwhen_2 := 1800-01-01T00:00:00; endif;
If vaccinehealthissuedate_2 is null then vaccinehealthissuedate_2 := 1800-01-01T00:00:00; endif;
If vaccinechartedwhen_2 is null then vaccinechartedwhen_2 := 1800-01-01T00:00:00; endif;
If vaccinechartedwhenoldstyle_2 is null then vaccinechartedwhenoldstyle_2 := 1800-01-01T00:00:00; endif;
// Save the "new stye" date (for the HIS box) & then update vaccinechartedwhen with the later of the two dates ("old style" w/tetanus radio button or "new style w/no radio button)
vaccinechartedwhennewstyle_2 := vaccinechartedwhen_2;
if vaccinechartedwhenoldstyle_2 IS AFTER vaccinechartedwhen_2 then vaccinechartedwhen_2 := vaccinechartedwhenoldstyle_2; endif;
// With the latest "vaccine given" date established, proceed with the process of determining the latest of (vaccine given, charted, or health issue)
match1_2 := vaccinegivenwhen_2 IS AFTER vaccinehealthissuedate_2;
If match1_2 = true
then match2_2 := vaccinegivenwhen_2 IS AFTER vaccinechartedwhen_2;
else match3_2 := vaccinehealthissuedate_2 IS AFTER vaccinechartedwhen_2;
endif;
If match2_2 = true then givenwins_2 := true; endif;
If match3_2 = true then healthissuewins_2 := true; endif;
If (match2_2 = false) and (match3_2 = false) then chartedwins_2 := true; endif;
if nodates_2 = false then
If givenwins_2 = true then latestdate_2 := vaccinegivenwhen_2; endif;
If healthissuewins_2 = true then latestdate_2 := vaccinehealthissuedate_2; endif;
If chartedwins_2 = true then latestdate_2 := vaccinechartedwhen_2; endif;
endif;
// Populate Date field
// First determine if the field has been manually updated by the nurse (not empty)
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tetanus date vacc rec");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
datefieldcontents_2 := theObservation.ValueObj.Value;
if datefieldcontents_2 is null
then datefield_2 := latestdate_2;
else datefield_2 := datefieldcontents_2;
endif;
// Populate the field if history is found in SCM and the field hasn{{{SINGLE-QUOTE}}}t been overriden by the nurse (not empty)
If latestdate_2 is not null and datefieldcontents_2 is null
then
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_Tetanus date vacc rec");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "DateValue";
this_currentObj.ValueObj := New DateValueType;
this_currentObj.ValueObj.Value := latestdate_2;
this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
endif;
// REASSESS ONLY SECTION
elseIf MLMAction = "Reassess Only" then
// Determine if any of the Contraindications boxes are checked
theParameter := first of (thisparameters where thisparameters.Name = "SCHCK_TDAP ED vac contra");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
If true not in (theObservation.ValueObj.ListItemsList.IsSelected)
then contraboxchecked := "unknown";
elseif true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "none")
then contraboxchecked := "false";
else contraboxchecked := "true";
endif;
// Determine the value of the date given field for the first vaccine
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tdap date vacc rec ob");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
datefield := theObservation.ValueObj.Value;
if datefield is null then datefield := "unknown"; endif;
// Determine the value of the date given field for the second vaccine
theParameter := first of (thisParameters where thisParameters.Name = "SCHCK_Tetanus date vacc rec");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
datefield_2 := theObservation.ValueObj.Value;
if datefield_2 is null then datefield_2 := "unknown"; endif;
endif; // End of "Reassess Only" Section
// ASSESS THE RISK SECTION ("Retrieve and Reassess" or "Reassess Only")
if MLMAction = "Retrieve and Reassess" or MLMAction = "Reassess Only" then
// set to unknown to satisfy conditions below
if datefield is null then datefield := "unknown"; endif;
if datefield_2 is null then datefield_2 := "unknown"; endif;
/*
// SECTIONS BELOW ARE COMMENTED OUT AS NO ORDER IS PLACED FOR TETANUS OR TDAP WHEN THE PATIENT IS IN THE ED (not removed if needed later)
// Risk Senarios
// Scenarios that will cause an order to be placed
If datefield = "unknown" then ordervaccine := "yes";
formattedTextReason := "Y-1. Order is to be placed since patient has never received a vaccine." ; endif;
// Scenarios that will NOT cause an order to be placed
If datefield <> "unknown" then ordervaccine := "no";
formattedTextReason := "N-1. Order is not to be placed since patient has received the vaccine." ; endif;
// Special Handling for Place Order Button Changes
If trigger = "Order Button NO was selected" then ordervaccine := "no";
formattedTextReason := formattedTextReason || " ** OVERRIDDEN TO NO BY " || userId || " ** "; endif;
If trigger = "Order Button YES was selected" and ordervaccine = "no" then
dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "\n You cannot place an order on this patient. ", "Error","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
formattedTextReason := formattedTextReason || " ** FAILED OVERRIDE TO YES BY " || userId || " ** "; endif;
*/
endif; // end of section for assessing risk
endif; // End of Bypass Everything (If MLMAction <> "No Assessment Required")
// FOR ANY OBSERVATION CHANGE
// Select the appropriate Order Vaccine radio button determined by the assessment
/*
If contraboxchecked = "true" then ordervaccine := "no";
formattedTextReason := "N-7. Order will not be placed since the vaccine is contraindicated."; endif;
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_TDAP vac order");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "ListValue";
this_currentObj.ValueObj := New ListValueType;
this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;
listItems := ();
FOR item IN this_parametername.ConfigurationObj.ListItemsList DO
selectedItem := NEW ListValueListItemType;
selectedItem.ListItemGUID := item.ListItemGUID;
selectedItem.Value := item.Value;
if selectedItem.Value = "yes" and ordervaccine = "yes" then selectedItem.IsSelected := true; endif;
if selectedItem.Value = "no" and ordervaccine = "no" then selectedItem.IsSelected := true; endif;
listItems := (listItems, selectedItem);
ENDDO;
this_currentobj.ValueObj.ListItemsList := listItems;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
*/
endif; // End of Observation Event section
// DOCUMENT CLOSING SECTION
/*
IF thisdocumentCommunication.EventType = "DocumentClosing" then
// Determine if Place Order button is set to "Yes"
theParameter := first of (thisparameters where thisparameters.Name = "SCHCK_TDAP vac order");
theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameter.ParameterGUID);
if true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "no")
then placeorder := "no"; endif;
if true in (theObservation.ValueObj.ListItemsList.IsSelected where theObservation.ValueObj.ListItemsList.Value = "yes")
then placeorder := "yes"; endif;
// Check for existing Vaccine Order on the account
(orderpresent) := read
{
" select o.name "
|| " from cv3ordercatalogmasteritem as ocmi with (nolock) "
|| " join cv3order as o with (nolock)on o.ordercatalogmasteritemguid = ocmi.guid "
|| " and o.ClientGUID = " || ClientGuid || " and o.ChartGUID = " || ChartGuid || " and o.ClientVisitGUID= " || VisitGuid || " "
|| " and (o.name = {{{SINGLE-QUOTE}}}Diphtheria, Pertussis, Tetanus Vaccine{{{SINGLE-QUOTE}}}) "
|| " and o.OrderStatusLevelNum > 15 "
};
orderpresent_found := count(orderpresent) As Number;
// If no existing order is found and Place Order button is "Yes" then create a new order
If placeorder = "yes" and orderpresent_found = 0 then
SessionType := "Standard";
SessionReason := "";
RequestingSource := "";
user_IDType := "Edstan Number (physician)";
order_Creation_Reason := "From Test MLM";
client_visit_obj := call {{{SINGLE-QUOTE}}}ClientVisit{{{SINGLE-QUOTE}}}.FindByPrimaryKey with ((thisdocumentCommunication.ClientVisitGUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}}) ;
user_IDCode := read last {"SELECT IDCode FROM CV3User " || " where GUID = " || thisdocumentCommunication.UserGUID};
RequestingCareProvider_obj := call {{{SINGLE-QUOTE}}}CareProvider{{{SINGLE-QUOTE}}}.FindById with ( user_IDType, (user_IDCode as STRING) );
location_guid := read last {"SELECT CurrentLocationGUID FROM CV3ClientVisit where ClientGUID = " || thisdocumentCommunication.ClientGUID};
location_obj := call {{{SINGLE-QUOTE}}}Location{{{SINGLE-QUOTE}}}.FindByPrimaryKey with ((location_guid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}});
// Create a new MEDICATION order from a Pre-Filled item
try
Catalog_Item_Name := "Diphtheria, Pertussis, Tetanus Vaccine";
Catalog_Item_Modifier := "0.5mL, IM, Once";
Catalog_Item_Version := "";
Medication_catalog_item := call {{{SINGLE-QUOTE}}}OrderCatalogMasterItem{{{SINGLE-QUOTE}}}.FindByName with Catalog_Item_Name;
PreFilled_MedicationOrder_obj := call {{{SINGLE-QUOTE}}}MedicationOrder{{{SINGLE-QUOTE}}}.CreateMedicationOrder
with
client_visit_obj, // ClientVisit ObjectsPlus object
Medication_catalog_item, // OrderCatalogMasterItem ObjectsPlus object
Catalog_Item_Modifier, // string ItemNameModifier
Catalog_Item_Version, // string ItemNameModifierVersion
order_Creation_Reason, // string CreateReason
RequestingCareProvider_obj , // RequestedBy ObjectsPlus object
RequestingSource, // string RequestedBySource (must be in dictionary)
SessionType, // string SessionType
SessionReason, // string SessionReason
location_obj, // Location ReleaseLocGrpID
"Always" as {{{SINGLE-QUOTE}}}AvailabilityOverride{{{SINGLE-QUOTE}}}; // AvailabilityOverride eAvailabilityOverride
if ( Medication_catalog_item is NOT NULL ) then
void := call PreFilled_MedicationOrder_obj.Save;
void := call PreFilled_MedicationOrder_obj.Dispose;
void:= call Medication_catalog_item.Dispose;
Medication_catalog_item:= null;
endif;
endtry;
catch Exception ex error_occurred := true; error_message := "{{+R}}New prefilled medication order:{{-R}}\n" || ex.Message || "\n\n";
if ( Medication_catalog_item is NOT NULL ) then void:= call Medication_catalog_item.Dispose; Medication_catalog_item:= null; endif;
if ( PreFilled_MedicationOrder_obj is NOT NULL ) then void:= call PreFilled_MedicationOrder_obj.Dispose; PreFilled_MedicationOrder_obj:= null; endif;
Prefilled_MedicationOrder_dest := null;
endcatch;
if ( client_visit_obj is NOT NULL ) then void:= call client_visit_obj.Dispose; client_visit_obj:= null; endif;
if ( RequestingCareProvider_obj is NOT NULL ) then void:= call RequestingCareProvider_obj.Dispose; RequestingCareProvider_obj:= null; endif;
if ( location_obj is NOT NULL ) then void:= call location_obj.Dispose; location_obj:= null; endif;
endif; // End of Place Order = Yes section
endif; // End of Close Document
*/
// Populate the HIS only Assessment Information box
// This secton as well as the FormattedText1 := below are for diagnostic purposes only
dateonly:= SUBSTRING 10 CHARACTERS FROM (datefield as string);
dateonly_2:= SUBSTRING 10 CHARACTERS FROM (datefield_2 as string);
nowdateonly:= SUBSTRING 10 CHARACTERS FROM (now as string);
Factor5 := "Contraindicated - "|| contraboxchecked;
Factor6 := " Tetanus Last Given Worklist - " || vaccinegivenwhen_2 || "\n Tetanus Last Given Profile - " || vaccinechartedwhennewstyle_2 || "\n Tetanus Last Given Profile Old Style - " || vaccinechartedwhenoldstyle_2 || "\n Tetanus Last Given Health Issue - " || vaccinehealthissuedate_2 || "\n Tetanus Last Given - " || dateonly_2;
Factor7 := " TDAP Last Given Worklist - " || vaccinegivenwhen || "\n TDAP Last Given Profile - " || vaccinechartedwhennewstyle || "\n TDAP Last Given Profile Old Style - " || vaccinechartedwhenoldstyle || "\n TDAP Last Given Health Issue - " || vaccinehealthissuedate || "\n TDAP Last Given - " || dateonly;
Factor9 := "Last Trigger Event - " || nowdateonly || " " || trigger || " by " || userid || " (MLM reaction - " || MLMAction || ")";
formattedText1 := "\n\n" || Factor5 || "\n\n" || Factor6 || "\n\n" || Factor7 || "\n\n" || Factor9 ;
formattedTextReason := formattedTextReason || formattedText1;
this_parametername := first of (thisParameters where thisParameters.Name = "SCHCK_TDAP ED Risk Assess Details");
this_currentObj := NEW ObservationType;
this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
this_currentObj.DataType := "FreeTextValue";
this_currentObj.ValueObj := New FreeTextValueType;
this_currentObj.ValueObj.Value := formattedTextReason;
thisStructuredNoteDoc.ChartedObservationsList := (thisstructuredNoteDoc.ChartedObservationsList, this_currentObj);
;;
evoke:
;;
logic: conclude true;
;;
action: return thisDocumentCommunication;
;;
Urgency: 50;;
end:
Reference in New Issue View Git Blame Copy Permalink