Skip to content

Created a new stored procedure program that will process all TB Test … #1833

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Ohsudev wants to merge 2 commits into
base: release26.3-SNAPSHOT
Choose a base branch
from
+422 −3
Open

Created a new stored procedure program that will process all TB Test … #1833

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ecd371f
Created a new stored procedure program that will process all TB Test …
Ohsudev Jul 30, 2026
f147ccd
Modified TB Test temp table configuration settings.
Ohsudev Aug 11, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
363 changes: 363 additions & 0 deletions onprc_ehr/resources/schemas/dbscripts/sqlserver/onprc_ehr-26.002-26.003.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,363 @@

EXEC core.fn_dropifexists 'TB_TestTemp_Historical', 'onprc_ehr', 'TABLE', NULL;
GO

EXEC core.fn_dropifexists 'Temp_Clinical_Observations_Historical', 'onprc_ehr', 'TABLE', NULL;
GO
EXEC core.fn_dropifexists 'Temp_Clinical_Observations_Historical_Master', 'onprc_ehr', 'TABLE', NULL;

EXEC core.fn_dropifexists 'Observation_Historical_EHRTasks', 'onprc_ehr', 'TABLE', NULL;
GO





CREATE TABLE [onprc_ehr].[TB_TestTemp_Historical](
[rowid] [int] IDENTITY(100,1) NOT NULL,
animalid varchar(200) NULL,
date datetime NULL,
objectid ENTITYID NOT NULL,
created datetime NULL,
createdby integer NULL,
performedby varchar(200) NULL,
modifiedby integer NULL,
date_posted smalldatetime


)
GO


CREATE TABLE [onprc_ehr].[Temp_Clinical_Observations_Historical](
[rowid] [int] IDENTITY(100,1) NOT NULL,
Id varchar(200) NULL,
date smalldatetime NULL,
category varchar(500) NULL,
area varchar(500) NULL,
observation varchar(500) NULL,
createdby integer NULL,
performedby varchar(500) NULL,
taskid varchar(4000) NULL,
qcstate integer NULL,
modifiedby integer NULL


)
GO

CREATE TABLE [onprc_ehr].[Temp_Clinical_Observations_Historical_Master](
[rowid] [int] IDENTITY(100,1) NOT NULL,
searchid integer NULL,
Id varchar(200) NULL,
date smalldatetime NULL,
category varchar(500) NULL,
area varchar(500) NULL,
observation varchar(500) NULL,
createdby integer NULL,
performedby varchar(500) NULL,
taskid varchar(4000) NULL,
qcstate smallint NULL,
modifiedby smalldatetime NULL,
Posted_date smalldatetime

)
GO

CREATE TABLE [onprc_ehr].[Observation_Historical_EHRTasks](
[rowid] [int] IDENTITY(100,1) NOT NULL,
taskid varchar(4000) NULL,
description varchar(500)NULL,
title varchar(500)NULL,
qcstate smallint NULL,
formtype varchar(500) NULL,
category varchar(500) NULL,
assignedto smallint NULL,
createdby smallint NULL,
modifiedby smallint NULL


)
GO


EXEC core.fn_dropifexists 'p_Create_TB_Observation_Historical_records', 'onprc_ehr', 'PROCEDURE', NULL;
GO


/*
**
** Created by
** R. Blasa 7-31-2026 A Program Process that reviews all TB Test Encounter entries on a current date, and creates a
** new TB Test Clinical Observation record based on
** having the same monkey id, date, and then to be assigned to a Data Admin for reviews.
**

**
**
*/

CREATE Procedure onprc_ehr.p_Create_TB_Observation_Historical_records
@Start_Date smalldatetime,
@End_Date smalldatetime



AS



DECLARE
@SearchKey Int,
@TempsearchKey Int,
@TaskId varchar(4000),
@AnimalID varchar(100),
@date smalldatetime,
@createdby integer,
@performedby varchar(500),
@modifiedby integer,
@RunID varchar(4000),
@FirstFlag integer,
@TestDate smalldatetime




BEGIN


---- Reset temp table

Truncate table onprc_ehr.TB_TestTemp_Historical

If @@Error <> 0
GoTo Err_Proc

Truncate table [onprc_ehr].[Temp_Clinical_Observations_Historical]

If @@Error <> 0
GoTo Err_Proc

Truncate table [onprc_ehr].[Observation_Historical_EHRTasks]

If @@Error <> 0
GoTo Err_Proc

--- Generate a list TB test monkeys )

Insert into onprc_ehr.TB_TestTemp_Historical

select
a.participantid,
a.date,
a.objectid,
a.created,
a.createdBy,
a.performedby,
a.modifiedby,
getdate() -----date processed


from studydataset.c6d214_encounters a
Where a.type in ('Procedure','Surgery')
And a.qcstate = 18
And a.procedureid = 802 -----'TB Test Intradermal'
And (a.modified >= @Start_Date And a.modified < dateadd(day, 1, @End_Date) )
And a.participantid in ( select k.participantid from studydataset.c6d203_demographics k
where k.calculated_status = 'alive')
AND a.participantid not in (select j.participantid from studydataset.c6d171_clinical_observations j
Where j.participantid = a.participantid
And j.date = dateadd(day,3,a.date)
And j.category = 'TB TST Score (72 hr)'
And j.qcstate = 18 )

order by a.participantid, a.date desc


If @@Error <> 0
GoTo Err_Proc

---- When there are no records to process, exit immediately from the program.

If (Select count(*) from onprc_ehr.TB_TestTemp_Historical) = 0
BEGIN
GOTO No_Records
END


---- Reset temp variables

Set @SearchKey = 0
Set @TempSearchKey = 0
Set @Date = NULL
Set @modifiedby = NULL
Set @createdby =NULL
Set @performedby = NULL
Set @TaskID = NULL
Set @Animalid = Null
Set @RunID = Null
Set @FirstFlag = 0



----- extract initial row id

Select Top 1 @Searchkey = rowid from onprc_ehr.TB_TestTemp_Historical
Order by rowid



----Create a single task for each daily process


While @TempSearchKey < @SearchKey
BEGIN

-----Begin entry Tb observation process

Select @Animalid =animalid, @date = date, @modifiedby=modifiedby, @createdby =createdby,@performedby= performedby
from onprc_ehr.TB_TestTemp_Historical Where rowid = @Searchkey




If not exists (select * from studydataset.c6d171_clinical_observations j Where j.participantid = @AnimalID
And j.date = dateadd(day,3,@date)
And j.category = 'TB TST Score (72 hr)' )


BEGIN

If @FirstFlag != 1
BEGIN
---- created a new task id
Set @TaskID = NEWID()

---- Create Clinical Observation entries
Insert into onprc_ehr.Observation_Historical_EHRTasks
(
taskid,
description,
title,
qcstate,
formType,
category,
assignedto,
createdby,
modifiedby

)

Values (

@TaskID,
'TB TST Scores ' + cast(@Date as varchar(50)) , ------ Title consist of animal id and Clinical procedure date
'TB TST Scores',
20, --- Qc State (In Progress)
'TB TST Scores', ------ FormType
'task', ----- category,
1822, ------- Assigned To Data Admins
1042, -------- Created By IS
1042 ----- Modified by IS

)

If @@Error <> 0
GoTo Err_Proc

---Set Task insert process only once per single process
Set @FirstFlag = 1

END ---(@FirstFlag)


----- Initialize data entries
Set @date = dateadd(day, 3,@date) ----- Add three days from TB Test date



--- Create a Clinical Observation Record

Insert into Temp_Clinical_Observations_Historical
(
Id,
date,
category,
area,
observation,
createdby,
performedby,
taskid,
qcstate,
modifiedby


)
values (
@animalid,
@date,
'TB TST Score (72 hr)',
'Right Eyelid',
'Grade: Negative',
1042, -----created by IS
@performedby,
@TaskID,
20 , ---- In Progress QCState
1042 -----modified by IS


)

If @@Error <> 0
GoTo Err_Proc


END --(If not exist)

----- Proceed and fetch the next record

Set @TempSearchKey = @SearchKey

Select Top 1 @SearchKey = rowid from onprc_ehr.TB_TestTemp
Where rowid > @TempSearchKey
Order by rowid


END ---- While @TempSearchKey


----- Create a master copy of the completed transaction

Insert into onprc_ehr.Temp_Clinical_Observations_Master
Select *, getdate()
from onprc_ehr.Temp_Clinical_Observations_Historical

If @@Error <> 0
GoTo Err_Proc



No_Records:

RETURN 0


Err_Proc:
-------Error Generated, program processed stopped
RETURN 1


END

GO











Loading