Finish feature/OP-459

OP-459: Feedback does not upload correctly

Author: dragos-dobre

Empty databases/openIMIS_ONLINE.sql

@@ -12629,11 +12629,9 @@ GO
 SET QUOTED_IDENTIFIER ON
 GO
 
-
 CREATE PROCEDURE [dbo].[uspInsertFeedback]
 (
 	@XML XML
-	--@FileName VARCHAR(100)
 )
 /*
 	-1: Fatal Error
@@ -12648,8 +12646,6 @@ AS
 BEGIN
 
 	BEGIN TRY
-		--DECLARE @FilePath NVARCHAR(250)
-		--DECLARE @XML XML
 		DECLARE @Query NVARCHAR(3000)
 
 		DECLARE @OfficerCode NVARCHAR(8)
@@ -12658,19 +12654,13 @@ BEGIN
 		DECLARE @CHFID VARCHAR(12)
 		DECLARE @Answers VARCHAR(5)
 		DECLARE @FeedbackDate DATE
-		
-		--SELECT @FilePath = 'C:/inetpub/wwwroot' + FTPFeedbackFolder + '/' + @FileName FROM tblIMISDefaults
-				
-		--SET @Query = (N'SELECT  @XML = (SELECT CAST(X AS XML) FROM OPENROWSET(BULK ''' + @FileName +''',SINGLE_BLOB) AS T(X))')
-		
-		--EXECUTE sp_executesql  @Query,N'@XML XML OUTPUT',@XML OUTPUT
-		
+
 		SELECT
 		@OfficerCode = feedback.value('(Officer)[1]','NVARCHAR(8)'),
 		@ClaimID = feedback.value('(ClaimID)[1]','NVARCHAR(8)'),
 		@CHFID  = feedback.value('(CHFID)[1]','VARCHAR(12)'),
 		@Answers = feedback.value('(Answers)[1]','VARCHAR(5)'),
-		@FeedbackDate = CONVERT(DATE,feedback.value('(Date)[1]','VARCHAR(10)'),103)
+		@FeedbackDate = feedback.value('(Date)[1]','VARCHAR(10)')
 		FROM @XML.nodes('feedback') AS T(feedback)
 
 		DECLARE @ClaimCode NVARCHAR(8)
@@ -12710,8 +12700,6 @@ BEGIN
 
 	RETURN 0
 END
-
-
 GO
 
 SET ANSI_NULLS ON

Migration script/openIMIS migration latest.sql

@@ -13142,6 +13142,80 @@ FINISH:
 
 	END CATCH
 END
+GO
 
-
+IF OBJECT_ID('[uspInsertFeedback]', 'P') IS NOT NULL
+    DROP PROCEDURE [uspInsertFeedback]
 GO
+CREATE PROCEDURE [dbo].[uspInsertFeedback]
+(
+	@XML XML
+)
+/*
+	-1: Fatal Error
+	0: All OK
+	1: Invalid Officer code
+	2: Claim does not exist
+	3: Invalid CHFID
+	4: FeedBack Exists
+	
+*/
+AS
+BEGIN
+	
+	BEGIN TRY
+		DECLARE @Query NVARCHAR(3000)
+		
+		DECLARE @OfficerCode NVARCHAR(8)
+		DECLARE @OfficerID INT
+		DECLARE @ClaimID INT
+		DECLARE @CHFID VARCHAR(12)
+		DECLARE @Answers VARCHAR(5)
+		DECLARE @FeedbackDate DATE
+
+		SELECT
+		@OfficerCode = feedback.value('(Officer)[1]','NVARCHAR(8)'),
+		@ClaimID = feedback.value('(ClaimID)[1]','NVARCHAR(8)'),
+		@CHFID  = feedback.value('(CHFID)[1]','VARCHAR(12)'),
+		@Answers = feedback.value('(Answers)[1]','VARCHAR(5)'),
+		@FeedbackDate = feedback.value('(Date)[1]','VARCHAR(10)')
+		FROM @XML.nodes('feedback') AS T(feedback)
+
+		DECLARE @ClaimCode NVARCHAR(8)
+
+		SELECT @ClaimCode = ClaimCode FROM tblClaim WHERE ClaimID = @ClaimID AND ValidityTo IS NULL  
+
+		IF NOT EXISTS(SELECT * FROM tblOfficer WHERE Code = @OfficerCode AND ValidityTo IS NULL)
+			RETURN 1
+		ELSE
+			SELECT @OfficerID = OfficerID FROM tblOfficer WHERE Code = @OfficerCode AND ValidityTo IS NULL
+
+		IF NOT EXISTS(SELECT * FROM tblClaim WHERE ClaimCode = @ClaimCode AND ValidityTo IS NULL)
+			RETURN 2
+		
+		IF NOT EXISTS(SELECT C.ClaimID FROM tblClaim C INNER JOIN tblInsuree I ON C.InsureeID = I.InsureeID WHERE C.ClaimID = @ClaimID AND I.CHFID = @CHFID)
+			RETURN 3
+
+		IF EXISTS(SELECT 1 FROM tblFeedback WHERE ClaimID = @ClaimID AND ValidityTo IS NULL)
+			RETURN 4
+		
+		DECLARE @CareRendered BIT = SUBSTRING(@Answers,1,1)
+		DECLARE @PaymentAsked BIT = SUBSTRING(@Answers,2,1) 
+		DECLARE @DrugPrescribed BIT  = SUBSTRING(@Answers,3,1)
+		DECLARE @DrugReceived BIT = SUBSTRING(@Answers,4,1)
+		DECLARE @Asessment TINYINT = SUBSTRING(@Answers,5,1)
+		
+		INSERT INTO tblFeedback(ClaimID,CareRendered,PaymentAsked,DrugPrescribed,DrugReceived,Asessment,CHFOfficerCode,FeedbackDate,ValidityFrom,AuditUserID)
+						VALUES(@ClaimID,@CareRendered,@PaymentAsked,@DrugPrescribed,@DrugReceived,@Asessment,@OfficerID,@FeedbackDate,GETDATE(),-1);
+		
+		UPDATE tblClaim SET FeedbackStatus = 8 WHERE ClaimID = @ClaimID;
+		
+	END TRY
+	BEGIN CATCH
+		SELECT ERROR_MESSAGE()
+		RETURN -1
+	END CATCH
+	
+	RETURN 0
+END
+GO