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 @@ + + 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..3f19b9955 --- /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 update 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 varchar(4000) + + +Begin + + + ----- Reset the last two months only + + Delete onprc_ehr.Rpt_TempProblemList + + 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 participantid + + 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 pb.objectid = @objectid + + + If @@Error <> 0 + GoTo Err_Proc + + + Set @TempSearchkey = @Searchkey + + Select Top 1 @SearchKey = searchid From onprc_ehr.Rpt_TempProblemList + Where searchid > @Tempsearchkey + Order by searchid + + + + + End ------(While @tempsearchkey < @Searchkey) + + ---- Create an audit record of these entries + + insert into onprc_ehr.Rpt_TempProblemListMaster + Select animalid, date, objectid, caseid + from onprc_ehr.Rpt_TempProblemList + + + Return 0 + + Err_Proc: Return 1 + + + +END + + + + 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 @@ + + + + + + + + +
+ + + + + + + + + +
+ + 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