Skip to content

Commit 4f658d6

Browse files
sniedzielskisniedzielski
committed
OP-324: added delete case insuree from family to consumeEnrollment
1 parent 51a8db0 commit 4f658d6

2 files changed

Lines changed: 112 additions & 0 deletions

File tree

‎Empty databases/openIMIS_ONLINE.sql‎

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9953,6 +9953,62 @@ CREATE PROCEDURE [dbo].[uspConsumeEnrollments](
99539953
AND TP.isOffline = 0
99549954

99559955

9956+
/********************************************************************************************************
9957+
CHECK IF SOME INSUREE ARE ABOUT TO DELETE FROM FAMILY
9958+
********************************************************************************************************/
9959+
9960+
-- get the family id to process from online database
9961+
DECLARE @familyIdToProcess TABLE (FamilyId INT)
9962+
INSERT INTO @familyIdToProcess(FamilyId)
9963+
SELECT I.FamilyId
9964+
FROM @tblInsuree TI
9965+
INNER JOIN tblInsuree I ON TI.CHFID = I.CHFID
9966+
WHERE I.ValidityTo IS NULL AND TI.isOffline = 1
9967+
GROUP BY I.FamilyID
9968+
9969+
-- get to compare the structure of families (list of insuree) from online database
9970+
DECLARE @insureeToProcess TABLE(CHFID NVARCHAR(12), FamilyID INT)
9971+
INSERT INTO @insureeToProcess(CHFID, FamilyID)
9972+
SELECT I.CHFID, F.FamilyID FROM tblInsuree I
9973+
LEFT JOIN tblFamilies F ON I.FamilyID = F.FamilyID
9974+
WHERE F.FamilyID IN (SELECT * FROM @familyIdToProcess) AND I.ValidityTo is NULL
9975+
GROUP BY I.CHFID, F.FamilyID
9976+
9977+
-- select the insuree to delete based on received XML payload
9978+
-- get the insuree which are not included in "insureeToProcess"
9979+
DECLARE @insureeToDelete TABLE(CHFID NVARCHAR(12))
9980+
INSERT INTO @insureeToDelete(CHFID)
9981+
SELECT CHFID
9982+
FROM (
9983+
SELECT CHFID FROM @insureeToProcess
9984+
UNION ALL
9985+
SELECT CHFID FROM @tblInsuree TI
9986+
) tbl
9987+
GROUP BY CHFID
9988+
HAVING count(*) = 1
9989+
ORDER BY CHFID;
9990+
9991+
-- iterate through insuree to delete - process them to remove from existing family
9992+
-- use SP uspAPIDeleteMemberFamily and 'delete' InsureePolicy also like in webapp
9993+
IF EXISTS(SELECT 1 FROM @insureeToDelete)
9994+
BEGIN
9995+
DECLARE @CurInsureeCHFID NVARCHAR(12)
9996+
DECLARE CurInsuree CURSOR FOR SELECT CHFID FROM @insureeToDelete
9997+
OPEN CurInsuree
9998+
FETCH NEXT FROM CurInsuree INTO @CurInsureeCHFID;
9999+
WHILE @@FETCH_STATUS = 0
10000+
BEGIN
10001+
DECLARE @currentInsureeId INT
10002+
SET @currentInsureeId = (SELECT InsureeID FROM tblInsuree WHERE CHFID=@CurInsureeCHFID AND ValidityTo is NULL)
10003+
EXEC uspAPIDeleteMemberFamily -2, @CurInsureeCHFID
10004+
UPDATE tblInsureePolicy SET ValidityTo = GETDATE() WHERE InsureeId = @currentInsureeId
10005+
FETCH NEXT FROM CurInsuree INTO @CurInsureeCHFID;
10006+
END
10007+
CLOSE CurInsuree
10008+
DEALLOCATE CurInsuree;
10009+
END
10010+
10011+
995610012
/********************************************************************************************************
995710013
DELETE REJECTED RECORDS
995810014
********************************************************************************************************/

‎Migration script/openIMIS migration latest.sql‎

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -648,6 +648,62 @@ CREATE PROCEDURE [dbo].[uspConsumeEnrollments](
648648
AND PR.PolicyID = TPR.NewPolicyId
649649
WHERE PR.ValidityTo IS NULL
650650
AND TP.isOffline = 0
651+
652+
653+
/********************************************************************************************************
654+
CHECK IF SOME INSUREE ARE ABOUT TO DELETE FROM FAMILY
655+
********************************************************************************************************/
656+
657+
-- get the family id to process from online database
658+
DECLARE @familyIdToProcess TABLE (FamilyId INT)
659+
INSERT INTO @familyIdToProcess(FamilyId)
660+
SELECT I.FamilyId
661+
FROM @tblInsuree TI
662+
INNER JOIN tblInsuree I ON TI.CHFID = I.CHFID
663+
WHERE I.ValidityTo IS NULL AND TI.isOffline = 1
664+
GROUP BY I.FamilyID
665+
666+
-- get to compare the structure of families (list of insuree) from online database
667+
DECLARE @insureeToProcess TABLE(CHFID NVARCHAR(12), FamilyID INT)
668+
INSERT INTO @insureeToProcess(CHFID, FamilyID)
669+
SELECT I.CHFID, F.FamilyID FROM tblInsuree I
670+
LEFT JOIN tblFamilies F ON I.FamilyID = F.FamilyID
671+
WHERE F.FamilyID IN (SELECT * FROM @familyIdToProcess) AND I.ValidityTo is NULL
672+
GROUP BY I.CHFID, F.FamilyID
673+
674+
-- select the insuree to delete based on received XML payload
675+
-- get the insuree which are not included in "insureeToProcess"
676+
DECLARE @insureeToDelete TABLE(CHFID NVARCHAR(12))
677+
INSERT INTO @insureeToDelete(CHFID)
678+
SELECT CHFID
679+
FROM (
680+
SELECT CHFID FROM @insureeToProcess
681+
UNION ALL
682+
SELECT CHFID FROM @tblInsuree TI
683+
) tbl
684+
GROUP BY CHFID
685+
HAVING count(*) = 1
686+
ORDER BY CHFID;
687+
688+
-- iterate through insuree to delete - process them to remove from existing family
689+
-- use SP uspAPIDeleteMemberFamily and 'delete' InsureePolicy also like in webapp
690+
IF EXISTS(SELECT 1 FROM @insureeToDelete)
691+
BEGIN
692+
DECLARE @CurInsureeCHFID NVARCHAR(12)
693+
DECLARE CurInsuree CURSOR FOR SELECT CHFID FROM @insureeToDelete
694+
OPEN CurInsuree
695+
FETCH NEXT FROM CurInsuree INTO @CurInsureeCHFID;
696+
WHILE @@FETCH_STATUS = 0
697+
BEGIN
698+
DECLARE @currentInsureeId INT
699+
SET @currentInsureeId = (SELECT InsureeID FROM tblInsuree WHERE CHFID=@CurInsureeCHFID AND ValidityTo is NULL)
700+
EXEC uspAPIDeleteMemberFamily -2, @CurInsureeCHFID
701+
UPDATE tblInsureePolicy SET ValidityTo = GETDATE() WHERE InsureeId = @currentInsureeId
702+
FETCH NEXT FROM CurInsuree INTO @CurInsureeCHFID;
703+
END
704+
CLOSE CurInsuree
705+
DEALLOCATE CurInsuree;
706+
END
651707

652708

653709
/********************************************************************************************************

0 commit comments

Comments
 (0)