259 lines
8.9 KiB
Plaintext
259 lines
8.9 KiB
Plaintext
maintenance:
|
|
|
|
title: SCH_Readmission_Risk_Comment;;
|
|
mlmname: SCH_Readmission_Risk_Comment;;
|
|
arden: version 2.5;;
|
|
version: 5.50;;
|
|
institution: SCH ;;
|
|
author: Chintan Tilwa;;
|
|
specialist: ;;
|
|
date: 2012-10-26;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
;;
|
|
explanation:
|
|
;;
|
|
keywords: ObjectsPlus, Orders
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
local_session := CDS_SESSION.local;
|
|
log_execution_info := false;
|
|
error_occurred := false;
|
|
error_message := "";
|
|
|
|
//Order_Enter := event { OrderEnter User Order: where Name = "Readmission Risk" };
|
|
Order_Discontinue := event { OrderDiscontinue User Order: where Name = "Readmission Risk" };
|
|
Document_Enter := event {ClientDocumentEnter User ClientDocument: where documentname in ("Readmission Risk Assessment","Adult Patient Profile","Adult Patient Profile - Observation")};
|
|
Document_Modify := event {ClientDocumentModify User ClientDocument: where documentname in ("Readmission Risk Assessment","Adult Patient Profile","Adult Patient Profile - Observation") AND IsCanceled = FALSE };
|
|
|
|
Client_GUID := EvokingObject.ClientGUID;
|
|
Visit_GUID := EvokingObject.ClientVisitGUID;
|
|
|
|
cmntDeclGUID := Read Last { "SELECT GUID from CV3CommentDeclaration (NoLock) WHERE ClientGUID = " || sql(Client_GUID) || " AND ClientVisitGUID = " || sql(Visit_GUID) ||
|
|
" AND Active = 1 AND Status = {{{SINGLE-QUOTE}}}Active{{{SINGLE-QUOTE}}} AND TypeCode = {{{SINGLE-QUOTE}}}Readmit Score{{{SINGLE-QUOTE}}} " };
|
|
|
|
NewComment_dest := destination { ObjectsPlus } with
|
|
[ alert_type := "Warning",
|
|
short_message := "Object created by MLM",
|
|
priority := "low",
|
|
scope := "chart",
|
|
rule_group := "Comment Object",
|
|
rule_number := 2010 ];
|
|
|
|
DiscontinueComment_dest := destination { ObjectsPlus } with
|
|
[ alert_type := "Warning",
|
|
short_message := "Object discontinued by MLM",
|
|
priority := "low",
|
|
scope := "chart",
|
|
rule_group := "Comment Object",
|
|
rule_number := 2030 ];
|
|
|
|
///destination_variable := Destination {XAObject: CommentDeclaration};
|
|
|
|
//Comment_Declaration := destination_variable.comment;
|
|
|
|
//Comment_Declaration.typecode := "Readmit Score";
|
|
//Comment_Declaration.text := local_session.SessionReadmissionScore ;
|
|
try
|
|
//get the .NET version of the Client Visit object. Needed to create new
|
|
//ObjectsPlus objects
|
|
client_visit_obj := call {{{SINGLE-QUOTE}}}ClientVisit{{{SINGLE-QUOTE}}}.FindByPrimaryKey
|
|
with ((Visit_GUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}}) ;
|
|
|
|
endtry;
|
|
catch Exception ex
|
|
error_occurred := true;
|
|
error_message := "{{+R}}Retrieve client:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
|
|
// If the client object cannot be retrieved, do not attempt
|
|
// to create any ObjectsPlus objects.
|
|
//conclude true;
|
|
endcatch;
|
|
|
|
if ( EvokingEventType in ("ClientDocumentEnter","ClientDocumentModify") ) then
|
|
if ( local_session.SessionReadmissionScore >= 5 ) then
|
|
if exists cmntDeclGUID then
|
|
//Comment_Declaration.updatetype := "Modify";
|
|
//Comment_Declaration.guid := cmntDeclGUID;
|
|
try
|
|
Discontinue_Comment_obj := call {{{SINGLE-QUOTE}}}PatientComment{{{SINGLE-QUOTE}}}.FindByPrimaryKey
|
|
with ( (cmntDeclGUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}} );
|
|
empty := call Discontinue_Comment_obj.Discontinue;
|
|
DiscontinueComment_dest.ObjectsPlus := Discontinue_Comment_obj;
|
|
endtry;
|
|
catch exception ex
|
|
error_occurred := true;
|
|
error_message := error_message ||
|
|
"{{+R}}Discontinue Comment:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
|
|
if ( Discontinue_Comment_obj is NOT NULL ) then
|
|
void:= call Discontinue_Comment_obj.Dispose;
|
|
Discontinue_Comment_obj:= null;
|
|
endif;
|
|
|
|
DiscontinueComment_dest := null;
|
|
endcatch;
|
|
try
|
|
// The comment type that will be created
|
|
newCommentTypeCode := "Readmit Score";
|
|
// Create an instance of Patient Comment
|
|
New_Comment_obj := call {{{SINGLE-QUOTE}}}PatientComment{{{SINGLE-QUOTE}}}.CreatePatientComment
|
|
with
|
|
(client_visit_obj, //ClientVisit
|
|
newCommentTypeCode); //TypeCode
|
|
// Populate the text
|
|
New_Comment_obj.Text := local_session.SessionReadmissionScore ;
|
|
// Set the destination ObjectsPlus
|
|
NewComment_dest.ObjectsPlus := New_Comment_obj;
|
|
|
|
endtry;
|
|
catch exception ex
|
|
error_occurred := true;
|
|
error_message := "{{+R}}New Comment:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
|
|
if ( New_Comment_obj is NOT NULL ) then
|
|
void:= call New_Comment_obj.Dispose;
|
|
New_Comment_obj:= null;
|
|
endif;
|
|
NewComment_dest := null;
|
|
endcatch;
|
|
else
|
|
try
|
|
// The comment type that will be created
|
|
newCommentTypeCode := "Readmit Score";
|
|
// Create an instance of Patient Comment
|
|
New_Comment_obj := call {{{SINGLE-QUOTE}}}PatientComment{{{SINGLE-QUOTE}}}.CreatePatientComment
|
|
with
|
|
(client_visit_obj, //ClientVisit
|
|
newCommentTypeCode); //TypeCode
|
|
// Populate the text
|
|
New_Comment_obj.Text := local_session.SessionReadmissionScore ;
|
|
// Set the destination ObjectsPlus
|
|
NewComment_dest.ObjectsPlus := New_Comment_obj;
|
|
|
|
endtry;
|
|
catch exception ex
|
|
error_occurred := true;
|
|
error_message := "{{+R}}New Comment:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
|
|
if ( New_Comment_obj is NOT NULL ) then
|
|
void:= call New_Comment_obj.Dispose;
|
|
New_Comment_obj:= null;
|
|
endif;
|
|
NewComment_dest := null;
|
|
endcatch;
|
|
endif;
|
|
|
|
else
|
|
/*if ( Comment_Declaration.updatetype = "NewIgnore" and Comment_Declaration.text < 5 ) then
|
|
Comment_Declaration.updatetype := "Delete";
|
|
Comment_Declaration.guid := cmntDeclGUID;
|
|
else*/
|
|
//Comment_Declaration.updatetype := "Delete";
|
|
//Comment_Declaration.guid := cmntDeclGUID;
|
|
//endif;
|
|
try
|
|
Discontinue_Comment_obj := call {{{SINGLE-QUOTE}}}PatientComment{{{SINGLE-QUOTE}}}.FindByPrimaryKey
|
|
with ( (cmntDeclGUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}} );
|
|
empty := call Discontinue_Comment_obj.Discontinue;
|
|
DiscontinueComment_dest.ObjectsPlus := Discontinue_Comment_obj;
|
|
endtry;
|
|
catch exception ex
|
|
error_occurred := true;
|
|
error_message := error_message ||
|
|
"{{+R}}Discontinue Comment:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
|
|
if ( Discontinue_Comment_obj is NOT NULL ) then
|
|
void:= call Discontinue_Comment_obj.Dispose;
|
|
Discontinue_Comment_obj:= null;
|
|
endif;
|
|
DiscontinueComment_dest := null;
|
|
endcatch;
|
|
|
|
endif;
|
|
else
|
|
//Comment_Declaration.updatetype := "Delete";
|
|
//Comment_Declaration.guid := cmntDeclGUID;
|
|
try
|
|
Discontinue_Comment_obj := call {{{SINGLE-QUOTE}}}PatientComment{{{SINGLE-QUOTE}}}.FindByPrimaryKey
|
|
with ( (cmntDeclGUID as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}} );
|
|
empty := call Discontinue_Comment_obj.Discontinue;
|
|
DiscontinueComment_dest.ObjectsPlus := Discontinue_Comment_obj;
|
|
endtry;
|
|
catch exception ex
|
|
error_occurred := true;
|
|
error_message := error_message ||
|
|
"{{+R}}Discontinue Comment:{{-R}}\n" ||
|
|
ex.Message || "\n\n";
|
|
if ex.InnerException is not null net_object then
|
|
error_message := error_message ||
|
|
"Inner Exception: " || ex.InnerException.Message || "\n\n";
|
|
endif;
|
|
if ( Discontinue_Comment_obj is NOT NULL ) then
|
|
void:= call Discontinue_Comment_obj.Dispose;
|
|
Discontinue_Comment_obj:= null;
|
|
endif;
|
|
DiscontinueComment_dest := null;
|
|
endcatch;
|
|
local_session.SessionReadmissionScore := "" ;
|
|
|
|
endif;
|
|
|
|
;;
|
|
priority: 90
|
|
;;
|
|
evoke:
|
|
//Order_Enter ;
|
|
Order_Discontinue ;
|
|
Document_Enter ;
|
|
Document_Modify ;
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
//write true at destination_variable;
|
|
if EXISTS NewComment_dest then
|
|
write true at NewComment_dest;
|
|
endif;
|
|
|
|
if EXISTS DiscontinueComment_dest then
|
|
write true at DiscontinueComment_dest;
|
|
endif;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|