Skip to content
Open
2 changes: 2 additions & 0 deletions onprc_ehr/resources/queries/study/clinremarks/.qview.xml
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,8 @@
<column name="performedby"/>
<column name="category"/>
<column name="taskid" />
<column name="category" />

</columns>
<sorts>
<sort column="date" descending="true"/>
Expand Down
Original file line number Diff line number Diff line change
@@ -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




21 changes: 21 additions & 0 deletions onprc_ehr/resources/schemas/onprc_ehr.xml
Original file line number Diff line number Diff line change
Expand Up @@ -1500,5 +1500,26 @@
</columns>
</table>

<table tableName="Rpt_TempProblemList" tableDbType="TABLE">
<columns>
<column columnName="searchid"/>
<column columnName="animalid"/>
<column columnName="date"/>
<column columnName="objectid"/>
<column columnName="caseid"/>
</columns>
</table>

<table tableName="Rpt_TempProblemListMaster" tableDbType="TABLE">
<columns>
<column columnName="searchid"/>
<column columnName="animalid"/>
<column columnName="date"/>
<column columnName="objectid"/>
<column columnName="caseid"/>
</columns>
</table>



</tables>
2 changes: 1 addition & 1 deletion onprc_ehr/src/org/labkey/onprc_ehr/ONPRC_EHRModule.java
Original file line number Diff line number Diff line change
Expand Up @@ -124,7 +124,7 @@ public String getName()
@Override
public @Nullable Double getSchemaVersion()
{
return 25.005;
return 26.005;
}

@Override
Expand Down