From 5d003ecf650a6cc312d7242b2639fc7b7767e112 Mon Sep 17 00:00:00 2001 From: blasar Date: Thu, 2 Jul 2026 12:22:05 -0700 Subject: [PATCH 1/8] Modified Surgical Rounds process to allow displaying of S2 on the Rounds input form --- onprc_ehr/resources/queries/study/clinremarks/.qview.xml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/onprc_ehr/resources/queries/study/clinremarks/.qview.xml b/onprc_ehr/resources/queries/study/clinremarks/.qview.xml index 9f5ac339e..1196a662a 100644 --- a/onprc_ehr/resources/queries/study/clinremarks/.qview.xml +++ b/onprc_ehr/resources/queries/study/clinremarks/.qview.xml @@ -10,6 +10,8 @@ + + From 15e349e338e3e364b61d75281672768f18c6cb96 Mon Sep 17 00:00:00 2001 From: blasar Date: Wed, 8 Jul 2026 16:13:32 -0700 Subject: [PATCH 2/8] Created a new program that will update problem list records that have 'Digit Amputation' as its subcategory values. --- .../sqlserver/onprc_ehr-26.004-26.005.sql | 141 ++++++++++++++++++ 1 file changed, 141 insertions(+) create mode 100644 onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql diff --git a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql new file mode 100644 index 000000000..d785ccfa1 --- /dev/null +++ b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql @@ -0,0 +1,141 @@ + +CREATE TABLE onprc_ehr.Rpt_TempProblemList( + searchid integer IDENTITY(100,1) NOT NULL, + animalid varchar(200) NULL, + date smalldatetime NULL, + objectid varchar(4000) NULL, + caseid varchar(4000) NULL + + ) ON [PRIMARY] + GO + +CREATE TABLE onprc_ehr.Rpt_TempProblemListMaster( + searchid integer IDENTITY(100,1) NOT NULL, + animalid varchar(200) NULL, + date smalldatetime NULL, + objectid varchar(4000) NULL, + caseid varchar(4000) NULL + +) ON [PRIMARY] + GO + + + + +/* +** +** Created by Date Comment +** +** blasa 7-7-2026 Process to updated historical problem list records +** +** +** +**/ + +CREATE Procedure onprc_ehr.s_MasterProblemHistoricalProcess + + +AS + + +declare + + + @TempSearchKey Int, + @Searchkey Int, + @AnimalID varchar(100), + @date smalldatetime, + @objectid varchar(4000), + @caseid vachar(4000) + + +Begin + + + ----- Reset the last two months only + + Delete onprc_ehr.Rpt_Temp_ProblemList + + If @@Error <> 0 + GoTo Err_Proc + + + + Set @Tempsearchkey = 0 + Set @Searchkey = 0 + Set @Animalid = '' + Set @date = null + Set @objectid = null + Set @caseid = null + + --- Set initial processing + + Insert into onprc_ehr.Rpt_TempProblemList + select participantid, + date, + objectid, + caseid + from studydataset.c6d200_problem + Where category = 'Wound' + And subcategory = 'Digit Amputation' + And qcstate = 18 + + Order by searchid + + Select top 1 @SearchKey = searchID from onprc_ehr.Rpt_TempProblemList + Order by searchid + + + While @Tempsearchkey < @SearchKey + Begin + + Set @Animalid = '' + Set @date = null + Set @objectid = null + + select @animalid = animalid, @Date = date, @Objectid = objectid + from Rpt_TempProblemList Where searchid = @Searchkey + + -------Begin updating records + + + Update pb + Set pb.subcategory = 'Digit Removal/Caudectomy' + From studydataset.c6d200_problem pb + Where pb.Participantid = @Animalid + And objectid = @objectid + + + If @@Error <> 0 + GoTo Err_Proc + + + Set @TempSearchkey = @Searchkey + + Select Top 1 @SearchKey = searchid From onprc_ehr.Rpt_TempJmacDate + Where searchid > @Tempsearchkey + Order by searchid + + + + + End ------(While @tempsearchkey < @Searchkey) + + ---- Create an audit record of these entries + + insert into onprc_ehr.Rpt_TempProblemListMaster + Select * + from onprc_ehr.Rpt_TempProblemList + + + Return 0 + + Err_Proc: Return 1 + + + +END + + + + From ab94bf2a4300a21ea79cd5d5a93d2f47f47e5466 Mon Sep 17 00:00:00 2001 From: blasar Date: Wed, 8 Jul 2026 16:24:50 -0700 Subject: [PATCH 3/8] Created a new program that will update problem list records that have 'Digit Amputation' as its subcategory values. --- .../dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql index d785ccfa1..f849d9449 100644 --- a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql +++ b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql @@ -46,7 +46,7 @@ declare @AnimalID varchar(100), @date smalldatetime, @objectid varchar(4000), - @caseid vachar(4000) + @caseid varchar(4000) Begin @@ -54,7 +54,7 @@ Begin ----- Reset the last two months only - Delete onprc_ehr.Rpt_Temp_ProblemList + Delete onprc_ehr.Rpt_TempProblemList If @@Error <> 0 GoTo Err_Proc @@ -80,7 +80,7 @@ Begin And subcategory = 'Digit Amputation' And qcstate = 18 - Order by searchid + Order by participantid Select top 1 @SearchKey = searchID from onprc_ehr.Rpt_TempProblemList Order by searchid @@ -124,7 +124,7 @@ Begin ---- Create an audit record of these entries insert into onprc_ehr.Rpt_TempProblemListMaster - Select * + Select animalid, date, objectid, caseid from onprc_ehr.Rpt_TempProblemList From d503319ffb53fade55b69e2749199699d2cb85de Mon Sep 17 00:00:00 2001 From: blasar Date: Thu, 9 Jul 2026 23:49:25 -0700 Subject: [PATCH 4/8] Created a new program that will update problem list records that have 'Digit Amputation' as its subcategory values. --- onprc_ehr/resources/schemas/onprc_ehr.xml | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/onprc_ehr/resources/schemas/onprc_ehr.xml b/onprc_ehr/resources/schemas/onprc_ehr.xml index 9b4e8a75e..efbce133d 100644 --- a/onprc_ehr/resources/schemas/onprc_ehr.xml +++ b/onprc_ehr/resources/schemas/onprc_ehr.xml @@ -1500,5 +1500,26 @@ + + + + + + + + +
+ + + + + + + + + +
+ + From 3951256b7aad5e9e6875e8b08c4d760afa315758 Mon Sep 17 00:00:00 2001 From: blasar Date: Fri, 10 Jul 2026 12:11:52 -0700 Subject: [PATCH 5/8] Modified program to update the temp tables necessary to execute storedprocedure. --- onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java b/onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java index 6e766bdc6..231086ec0 100644 --- a/onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java +++ b/onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java @@ -124,7 +124,7 @@ public String getName() @Override public @Nullable Double getSchemaVersion() { - return 25.005; + return 26.005; } @Override From 8aec40d48806c620c21ea247603e5d336db845db Mon Sep 17 00:00:00 2001 From: blasar Date: Fri, 10 Jul 2026 14:31:27 -0700 Subject: [PATCH 6/8] Modified program to update the temp tables necessary to execute storedprocedure. --- .../schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql index f849d9449..2874e4466 100644 --- a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql +++ b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql @@ -112,7 +112,7 @@ Begin Set @TempSearchkey = @Searchkey - Select Top 1 @SearchKey = searchid From onprc_ehr.Rpt_TempJmacDate + Select Top 1 @SearchKey = searchid From onprc_ehr.Rpt_TempProblemList Where searchid > @Tempsearchkey Order by searchid From 41289570f16365e1335ffa2130929d7d3fcf32d9 Mon Sep 17 00:00:00 2001 From: blasar Date: Fri, 10 Jul 2026 14:36:33 -0700 Subject: [PATCH 7/8] Modified program to update the temp tables necessary to execute storedprocedure. --- .../schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql index 2874e4466..674e84ca2 100644 --- a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql +++ b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql @@ -103,7 +103,7 @@ Begin Set pb.subcategory = 'Digit Removal/Caudectomy' From studydataset.c6d200_problem pb Where pb.Participantid = @Animalid - And objectid = @objectid + And pb.objectid = @objectid If @@Error <> 0 From 2941426d711902db4cb507c8fd65d929e5ce375f Mon Sep 17 00:00:00 2001 From: blasar Date: Fri, 10 Jul 2026 14:38:35 -0700 Subject: [PATCH 8/8] Modified program to update the temp tables necessary to execute storedprocedure. --- .../schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql index 674e84ca2..3f19b9955 100644 --- a/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql +++ b/onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.004-26.005.sql @@ -26,7 +26,7 @@ CREATE TABLE onprc_ehr.Rpt_TempProblemListMaster( ** ** Created by Date Comment ** -** blasa 7-7-2026 Process to updated historical problem list records +** blasa 7-7-2026 Process to update historical problem list records ** ** **